X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Finterr.lisp;h=18e5ae37ec6932ae9e5617e0bcef8b207a7cd523;hb=3b7bcf8ff3727a7f68102f7458805d1bebee5e78;hp=d7220ebdb1ca6269c154af354825420ec6f39324;hpb=ba4555ae4fdbbdac69c798f4210472f10aea583c;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index d7220eb..18e5ae3 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -458,27 +458,6 @@
        (/show0 "cold/low ARGUMENTS=..")
        (/hexstr arguments)
 
-       ;; REMOVEME
-       #|
-       (/show0 "cold/low (LENGTH ARGUMENTS)=..")
-       (/hexstr (length arguments))
-       (dolist (argument arguments)
-	 (/show0 "cold/low ARGUMENT=..")
-	 (/hexstr argument)
-	 (if (symbolp argument)
-	     (progn
-	       (/show0 "Argument is a SYMBOL..")
-	       (/primitive-print (symbol-name argument)))
-	     (let ((argument-type (type-of argument)))
-	       (cond ((symbolp argument-type)
-		      (/show0 "Argument type is a SYMBOL..")
-		      (/primitive-print (symbol-name argument-type)))
-		     ((listp argument-type)
-		      (/primitive-print "Argument type is a LIST."))
-		     (t
-		      (/primitive-print "Argument type is not a SYMBOL or LIST."))))))
-       |#
-
        (multiple-value-bind (name sb!debug:*stack-top-hint*)
 	   (find-interrupted-name)
 	 (/show0 "back from FIND-INTERRUPTED-NAME")