:operands (list this that)))
(deferr object-not-type-error (object type)
- (error (if (and (typep object 'instance)
+ (error (if (and (%instancep object)
(layout-invalid (%instance-layout object)))
'layout-invalid
'type-error)
\f
;;;; INTERNAL-ERROR signal handler
-(defvar *internal-error-args*)
-
(defun internal-error (context continuable)
(declare (type system-area-pointer context))
(declare (ignore continuable))