From 0f3208ac9e7bc30144bb0d57f1f8d7e0b2f2624b Mon Sep 17 00:00:00 2001 From: Anton Kovalenko Date: Tue, 1 Nov 2011 11:23:42 +0400 Subject: [PATCH] * contrib/sb-simple-streams/iodefs.lisp: fix file-namestring. Avoid including directory and device into file-namestring's result. --- contrib/sb-simple-streams/iodefs.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/contrib/sb-simple-streams/iodefs.lisp b/contrib/sb-simple-streams/iodefs.lisp index 8772bbd..203c34b 100644 --- a/contrib/sb-simple-streams/iodefs.lisp +++ b/contrib/sb-simple-streams/iodefs.lisp @@ -16,7 +16,8 @@ (defun file-namestring (pathname) (sb-ext:native-namestring - (sb-int:physicalize-pathname (pathname pathname)) :as-file t)) + (make-pathname :defaults (sb-int:physicalize-pathname (pathname pathname)) + :directory nil :device nil))) (defmacro def-stream-class (name superclasses slots &rest options) `(defclass ,name ,superclasses ,slots ,@options)) -- 1.7.7.1