projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.110:
[sbcl.git]
/
src
/
code
/
filesys.lisp
diff --git
a/src/code/filesys.lisp
b/src/code/filesys.lisp
index
214e585
..
1440777
100644
(file)
--- a/
src/code/filesys.lisp
+++ b/
src/code/filesys.lisp
@@
-531,15
+531,15
@@
(let ((directory (pathname-directory pathname)))
(/noshow0 "computed DIRECTORY")
(if directory
(let ((directory (pathname-directory pathname)))
(/noshow0 "computed DIRECTORY")
(if directory
- (ecase (car directory)
+ (ecase (first directory)
(:absolute
(/noshow0 "absolute 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")
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))))
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))
;; 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
(merged-pathname (merge-pathnames pathname
(make-pathname :name :wild
:type :wild