From 80a7a12738b832ec91aaa79c74aca38e8dce2429 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 15 Aug 1993 14:44:31 +0000 Subject: [PATCH] Fixed namestring of a stream to not flame out if there is no pathname for that stream. --- code/pathname.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/code/pathname.lisp b/code/pathname.lisp index 29cabc430..d60cfa83d 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 -- GitLab