From bea3d979ad4f10d5ec8b9f156f1ee8a6c1490a4f Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Fri, 6 Jun 1997 06:48:14 +0000 Subject: [PATCH] Fix for parse-namestring when passed a pathname; comparison of a host string to a host structure was always failing, now compares the host structures. --- code/pathname.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/code/pathname.lisp b/code/pathname.lisp index 868723d77..cf77f0c03 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))) -- GitLab