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 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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." ...@@ -315,8 +315,8 @@ to aborting due to a throw."
(defun %print-request-server (rs stream depth) (defun %print-request-server (rs stream depth)
(declare (ignore 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. ;;; 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