diff --git a/code/pathname.lisp b/code/pathname.lisp index 868723d77ce6b4a170641e8183791d189476f3cb..cf77f0c037c494fde3d26810c09377b08c61052b 100644 --- a/code/pathname.lisp +++ b/code/pathname.lisp @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.30 1997/02/11 21:27:31 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.31 1997/06/06 06:48:14 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -846,11 +846,10 @@ a host-structure or string." (%parse-namestring (coerce thing 'simple-string) host defaults start end junk-allowed)) (pathname - (let* ((host (if host host (%pathname-host defaults))) - (hosts-name (funcall (host-unparse-host host) host))) - (unless (eq hosts-name (%pathname-host thing)) + (let ((host (if host host (%pathname-host defaults)))) + (unless (eq host (%pathname-host thing)) (error "Hosts do not match: ~S and ~S." - hosts-name (%pathname-host thing)))) + host (%pathname-host thing)))) (values thing start)) (stream (let ((name (file-name thing)))