Custom Query (1030 matches)

From the test suite:

(defclass slot-unbound-class-01 ()
  ((a :reader sunb-a)
   (b :accessor sunb-b)
   (c :writer sunb-c)
   (e :reader sunb-e)
   (f :reader sunb-f)))

(defmethod slot-unbound ((class t) (obj slot-unbound-class-01) (slot-name t))
  (list (class-name class) slot-name))

(slot-value (make-instance 'slot-unbound-class-01) 'a)

This gets stuck in what appears to be an infinite loop.

From the test suite:

(EXP (+ (LOG MOST-POSITIVE-SINGLE-FLOAT) 100))
(EXP (+ (LOG MOST-POSITIVE-DOUBLE-FLOAT) 100))

Both should signal floating-point-overflow, but instead return "1E++0" and "2E++0"

On 32-bit platforms, we see:

? (open #p"/dev/null" :direction :probe :element-type '(unsigned-byte 33))
> Error: Not an ivector subtag: 170
> While executing: SUBTAG-BYTES, in process listener(1).

The 170 is subtag-simple-vector. Maybe SUBTAG-BYTES should just punt somehow if it gets a non-ivector subtag? Maybe return NIL and deal with that in OPTIMAL-BUFFER-SIZE?

(From the test suite.)