/[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.22 by ram, Wed Aug 4 10:58:18 1993 UTC revision 1.23 by wlott, Sun Aug 15 14:44:31 1993 UTC
# Line 843  Line 843 
843    (declare (type path-designator pathname)    (declare (type path-designator pathname)
844             (values (or null simple-base-string)))             (values (or null simple-base-string)))
845    (with-pathname (pathname pathname)    (with-pathname (pathname pathname)
846      (let ((host (%pathname-host pathname)))      (when pathname
847        (unless host        (let ((host (%pathname-host pathname)))
848          (error "Cannot determine the namestring for pathnames with no ~          (unless host
849                  host:~%  ~S" pathname))            (error "Cannot determine the namestring for pathnames with no ~
850        (funcall (host-unparse host) pathname))))                    host:~%  ~S" pathname))
851            (funcall (host-unparse host) pathname)))))
852    
853    
854  ;;; HOST-NAMESTRING -- Interface  ;;; HOST-NAMESTRING -- Interface

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5