diff --git a/code/pathname.lisp b/code/pathname.lisp index 29cabc430c05622e4aefeb8f9498484b0a6895ae..d60cfa83d15d6150de8aa59f72fb8b7f6868a32f 100644 --- a/code/pathname.lisp +++ b/code/pathname.lisp @@ -6,7 +6,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.22 1993/08/04 10:58:18 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.23 1993/08/15 14:44:31 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -843,11 +843,12 @@ (declare (type path-designator pathname) (values (or null simple-base-string))) (with-pathname (pathname pathname) - (let ((host (%pathname-host pathname))) - (unless host - (error "Cannot determine the namestring for pathnames with no ~ - host:~% ~S" pathname)) - (funcall (host-unparse host) pathname)))) + (when pathname + (let ((host (%pathname-host pathname))) + (unless host + (error "Cannot determine the namestring for pathnames with no ~ + host:~% ~S" pathname)) + (funcall (host-unparse host) pathname))))) ;;; HOST-NAMESTRING -- Interface