Skip to content
Snippets Groups Projects
Commit 058736ce authored by pw's avatar pw
Browse files

Oops, backout misplaced prin1 function in previous revision. Sorry folks!

parent c840823b
No related branches found
No related tags found
No related merge requests found
......@@ -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.52 2001/05/27 15:17:38 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.53 2001/06/18 11:27:35 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -57,8 +57,7 @@
;;;
(defun %print-host (host stream depth)
(declare (ignore depth))
(print-unreadable-object (host stream :type t)
(prin1 (logical-host-name host) stream)))
(print-unreadable-object (host stream :type t)))
(defstruct (logical-host
(:include host
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment