(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)
\f
;;;; INTERNAL-ERROR signal handler
+(defvar *internal-error-arguments*)
+
(defun internal-error (context continuable)
(declare (type system-area-pointer context))
(declare (ignore continuable))
(sb!vm:internal-error-arguments alien-context)
(/show0 "back from INTERNAL-ERROR-ARGUMENTS, ERROR-NUMBER=..")
(/hexstr error-number)
- (/show0 "ARGUMENTS=..")
+ (/show0 "cold/low ARGUMENTS=..")
(/hexstr arguments)
+
(multiple-value-bind (name sb!debug:*stack-top-hint*)
(find-interrupted-name)
(/show0 "back from FIND-INTERRUPTED-NAME")
(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)