X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug.lisp;h=4943a5120bd926ff39a03b1cdb214f62a0914aec;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=237583f7741c8f559b8a9e06ece7d12152bd87b4;hpb=0d669e68a1ffbea42af6216f2ae8c7d7ca12ffb6;p=sbcl.git

diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 237583f..4943a51 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -492,12 +492,11 @@ Function and macro commands:
 ) ; EVAL-WHEN
 
 ;;; This is used in constructing arg lists for debugger printing when
-;;; the arg list is unavailable, some arg is unavailable or unused,
-;;; etc.
+;;; the arg list is unavailable, some arg is unavailable or unused, etc.
 (defstruct (unprintable-object
 	    (:constructor make-unprintable-object (string))
 	    (:print-object (lambda (x s)
-			     (print-unreadable-object (x s :type t)
+			     (print-unreadable-object (x s)
 			       (write-string (unprintable-object-string x)
 					     s))))
 	    (:copier nil))