X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffilesys.lisp;h=1440777270cf5444fe4983512ddf92e978a2a20d;hb=c1aeac123df223746249567a9c0d2f656d1222cb;hp=214e5857175a7a39c61eaa5e880378529c4d223f;hpb=21bb73db9c3f333ead8a848f863b957a6db5a5c9;p=sbcl.git

diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index 214e585..1440777 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -531,15 +531,15 @@
   (let ((directory (pathname-directory pathname)))
     (/noshow0 "computed DIRECTORY")
     (if directory
-	(ecase (car directory)
+	(ecase (first directory)
 	  (:absolute
 	   (/noshow0 "absolute directory")
-	   (%enumerate-directories "/" (cdr directory) pathname
+	   (%enumerate-directories "/" (rest directory) pathname
 				   verify-existence follow-links
 				   nil function))
 	  (:relative
 	   (/noshow0 "relative directory")
-	   (%enumerate-directories "" (cdr directory) pathname
+	   (%enumerate-directories "" (rest directory) pathname
 				   verify-existence follow-links
 				   nil function)))
 	(%enumerate-files "" pathname verify-existence function))))
@@ -909,6 +909,7 @@
 	;; can arise when e.g. multiple symlinks map to the same
 	;; truename).
 	(truenames (make-hash-table :test #'equal))
+	;; FIXME: not really right, as per bug 139
         (merged-pathname (merge-pathnames pathname
 					  (make-pathname :name :wild
 							 :type :wild