X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-pathname.lisp;h=507395432d07fbb73c669460af8e1017c7fdcfe0;hb=422b88abf96f4842a3d0999cd3b80d96f5a153d6;hp=760399aaed7792ba70498764daba590f9091dc82;hpb=0f3d47226b4c3f9fcc350e681443534701d56aa4;p=sbcl.git

diff --git a/src/code/target-pathname.lisp b/src/code/target-pathname.lisp
index 760399a..5073954 100644
--- a/src/code/target-pathname.lisp
+++ b/src/code/target-pathname.lisp
@@ -479,11 +479,11 @@ a host-structure or string."
 	 (default-host (if defaults
 			   (%pathname-host defaults)
 			   (pathname-host *default-pathname-defaults*)))
-	 ;; toy@rtp.ericsson.se: CLHS says make-pathname can take a
+	 ;; Raymond Toy writes: CLHS says make-pathname can take a
 	 ;; string (as a logical-host) for the host part. We map that
 	 ;; string into the corresponding logical host structure.
 	 ;;
-	 ;; pw@snoopy.mv.com:
+	 ;; Paul Werkowski writes:
 	 ;; HyperSpec says for the arg to MAKE-PATHNAME;
 	 ;; "host---a valid physical pathname host. ..."
 	 ;; where it probably means -- a valid pathname host.