Changeset 12953

Timestamp:

Oct 9, 2009, 11:22:06 AM (15 years ago)

Author:

gz

Message:

pathname-device fix (r12431)

File:

• branches/working-0711/ccl/lib/pathnames.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/pathnames.lisp

@@ -487 +487 @@
             (when (and do-files (%file*= 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))))))))