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

Diff of /src/code/pathname.lisp

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

revision 1.78 by rtoy, Wed Sep 21 20:01:34 2005 UTC revision 1.79 by rtoy, Sat Sep 24 01:26:37 2005 UTC
# Line 1108  a host-structure or string." Line 1108  a host-structure or string."
1108              ;; different.              ;; different.
1109              (if (equal host (%pathname-host defaults))              (if (equal host (%pathname-host defaults))
1110                  (funcall (host-unparse-enough host) pathname defaults)                  (funcall (host-unparse-enough host) pathname defaults)
1111                  pathname))                  (namestring pathname)))
1112            (error            (error
1113             "Cannot determine the namestring for pathnames with no host:~%  ~S"             "Cannot determine the namestring for pathnames with no host:~%  ~S"
1114             pathname)))))             pathname)))))

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

  ViewVC Help
Powered by ViewVC 1.1.5