[Openmcl-cvs-notifications] r12431 - /trunk/source/lib/pathnames.lisp

[rme at clozure.com]

Author: rme
Date: Mon Jul 20 18:54:47 2009
New Revision: 12431

Log:
%ALL-DIRECTORIES: observe PATHNAME-DEVICE in a case missed by r11996.
(ticket:522)

Modified:
    trunk/source/lib/pathnames.lisp

Modified: trunk/source/lib/pathnames.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/pathnames.lisp (original)
+++ trunk/source/lib/pathnames.lisp Mon Jul 20 18:54:47 2009
@@ -486,7 +486,7 @@
 	      (setq result (nconc (%all-directories subdir rest path so-far keys)=
 result)))
 	    (when (and do-files (%file*=3D name type sub))
 	      (multiple-value-bind (name type) (%std-name-and-type sub)
-		(setq ans (%cons-pathname (or dir-list (setq dir-list (reverse so-far)))=
 name type))
+		(setq ans (%cons-pathname (or dir-list (setq dir-list (reverse so-far)))=
 name type nil device))
 		(when (or (null test) (funcall test ans))
 		  (push (if follow-links (truename ans) ans) result))))))))
     result))