Changeset 6402 for branches/x8664-call


Ignore:
Timestamp:
May 3, 2007, 5:03:30 PM (13 years ago)
Author:
gb
Message:

PATHNAME-DEVICE is NIL for physical-pathnames, :UNSPECIFIC for
logical-pathnames.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/level-1/l1-files.lisp

    r6023 r6402  
    615615         (version (or (pathname-version path)
    616616                      (cond ((not path-name)
    617                              (and defaults (pathname-version defaults)))
     617                             (or (and defaults (pathname-version defaults))
     618                                 default-version))
    618619                            (t default-version)))))
    619620    (if (and (pathnamep path)
     
    671672  "Return PATHNAME's device."
    672673  (declare (ignore case))
    673   (and (pathname thing)                 ;type-checking
    674        :unspecific))
     674  (cond ((typep (pathname thing) 'logical-pathname) :unspecific)))
     675
    675676
    676677
Note: See TracChangeset for help on using the changeset viewer.