Skip to content
Snippets Groups Projects
Commit 5686b79b authored by wlott's avatar wlott
Browse files

Changed %print-request-server to use print-unreadable-object to get rid of

a spelling error in the old version from pre-puo days.
parent 1a96ffd9
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/remote.lisp,v 1.3 1992/02/15 12:50:14 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/remote.lisp,v 1.4 1992/12/08 20:05:17 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -315,8 +315,8 @@ to aborting due to a throw."
(defun %print-request-server (rs stream depth)
(declare (ignore depth))
(format stream "#<Requst server for ~D>" (request-server-socket rs)))
(print-unreadable-object (rs stream :type t)
(format stream "for ~D" (request-server-socket rs))))
;;; CREATE-REQUEST-SERVER -- Public.
;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment