/[cmucl]/src/code/filesys.lisp
ViewVC logotype

Diff of /src/code/filesys.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.77 by toy, Fri Jan 9 04:11:07 2004 UTC revision 1.78 by toy, Fri Jan 9 15:09:27 2004 UTC
# Line 791  Line 791 
791        (error 'simple-file-error        (error 'simple-file-error
792               :pathname pathname               :pathname pathname
793               :format-control "Bad place for a wild pathname.")               :format-control "Bad place for a wild pathname.")
794        (let ((namestring (unix-namestring pathname t)))        (let ((namestring (unix-namestring (merge-pathnames pathname) t)))
795          (when (and namestring (unix:unix-file-kind namestring))          (when (and namestring (unix:unix-file-kind namestring))
796            (let ((truename (unix:unix-resolve-links            (let ((truename (unix:unix-resolve-links
797                             (unix:unix-maybe-prepend-current-directory                             (unix:unix-maybe-prepend-current-directory

Legend:
Removed from v.1.77  
changed lines
  Added in v.1.78

  ViewVC Help
Powered by ViewVC 1.1.5