/[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.74 by rtoy, Mon Sep 12 14:38:17 2005 UTC revision 1.75 by rtoy, Tue Sep 13 14:38:44 2005 UTC
# Line 1028  a host-structure or string." Line 1028  a host-structure or string."
1028             (values (or null simple-base-string)))             (values (or null simple-base-string)))
1029    (with-pathname (pathname pathname)    (with-pathname (pathname pathname)
1030      (when pathname      (when pathname
1031        (let ((host (%pathname-host pathname)))        (let ((host (or (%pathname-host pathname)
1032                          ;; Is this what we really want?  Does a NIL host
1033                          ;; really mean to get it from *d-p-d* and, if
1034                          ;; that's NIL, use *unix-host*?
1035                          (%pathname-host *default-pathname-defaults*)
1036                          *unix-host*)
1037                          ))
1038          (unless host          (unless host
1039            (error "Cannot determine the namestring for pathnames with no ~            (error "Cannot determine the namestring for pathnames with no ~
1040                    host:~%  ~S" pathname))                    host:~%  ~S" pathname))

Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75

  ViewVC Help
Powered by ViewVC 1.1.5