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"

The following sequence of events produces a memory fault and a trip to a nonfunctioning debugger.

(load "jpeg.lisp") ;supplied (jpeg::read-file "128.jpg") ;also supplied

If you wrap the latter in ignore-errors, you still get the trip to the debugger.

I tried this in the windows 32 bit 1.5 release as well as in the linux x86 64bit trunk (checked out as of this morning).