0.pre7.90:

[sbcl.git] / src / code / interr.lisp

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index d7220eb..10f50d4 100644 (file)
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -257,7 +257,7 @@
 (deferr invalid-array-index-error (array bound index)
   (error 'simple-error
         :format-control
-        "invalid array index ~D for ~S (should be nonnegative and <~D)"
+        "invalid array index ~W for ~S (should be nonnegative and <~W)"
         :format-arguments (list index array bound)))
 
 (deferr object-not-simple-array-error (object)
@@ -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")
@@ -489,7 +468,7 @@
           (cond ((null handler)
                  (error 'simple-error
                         :format-control
-                        "unknown internal error, ~D? args=~S"
+                        "unknown internal error, ~D, args=~S"
                         :format-arguments
                         (list error-number
                               (mapcar #'(lambda (sc-offset)