Custom Query (1030 matches)

When a SIGFPE (or equivalent) is received, we need to try harder to determine the operation/operands to fully initialize the resulting ARITHMETIC-ERROR condition.

On x86, CCL::DECODE-ARITHMETIC-ERROR doesn't try very hard. On ARM, nothing tries at all (though we don't actually get a SIGFPE.)

The PPC ports disassembled the instruction that caused the exception; the other ports need to do the same thing.

? (defclass test () ())
? (defmethod make-instance :around ((a standard-class) &rest args) (inspect (call-next-method)))
? (make-instance 'test)
Segfault

Redefining a class does not work properly when the first def contains :default-initargs, but the second def does not. What happens is that use of the second def still has the default initiarg.

? (defclass foo () ((x :accessor x :initarg :x)) (:default-initargs :x 2))

? (describe (make-instance 'foo))

#<FOO #x302093A3C44D>
Class: #<STANDARD-CLASS FOO>
Wrapper: #<CCL::CLASS-WRAPPER FOO #x302093A3E25D>
Instance slots
X: 2

? (defclass foo () ((x :accessor x :initarg :x)))

? (describe (make-instance 'foo))

#<FOO #x302093A3C44D>
Class: #<STANDARD-CLASS FOO>
Wrapper: #<CCL::CLASS-WRAPPER FOO #x302093A3E25D>
Instance slots
X: 2