Skip to content
Snippets Groups Projects
Commit 3bb94cce authored by pw's avatar pw
Browse files

Fix print-function for logical-host so it outputs something meaningful.

This can be improved on still.
parent 17d9d187
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.51 2001/05/18 13:50:04 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.52 2001/05/27 15:17:38 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -57,7 +57,8 @@
;;;
(defun %print-host (host stream depth)
(declare (ignore depth))
(print-unreadable-object (host stream :type t :identity t)))
(print-unreadable-object (host stream :type t)
(prin1 (logical-host-name host) stream)))
(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