X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=0a9744919d20140db13e43408426d258b3cb29ad;hb=77360ee4a1f94c41b807be7ad0e8687199fceef1;hp=8271e4c60345d3312f149d10485b425a8dccd4e7;hpb=eca808df33f27cdc23a8a3a845e211000119b630;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 8271e4c..0a97449 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -271,9 +271,6 @@
 	 :operands (list this that)))
 
 (deferr object-not-type-error (object type)
-  (/show0 "entering body of DEFERR OBJECT-NOT-TYPE-ERROR, OBJECT,TYPE=..")
-  #!+sb-show (sb!sys:%primitive print (sb!impl::hexstr object))
-  #!+sb-show (sb!sys:%primitive print (sb!impl::hexstr type))
   (error (if (and (typep object 'instance)
 		  (layout-invalid (%instance-layout object)))
 	     'layout-invalid