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.

Welcome to Clozure Common Lisp Version 1.3-dev-r11066M-trunk  (DarwinX8632)!
? (heap-utilization)
> Error: value #<BOGUS object @ #x1200F> is not of the expected type UVECTOR.
> While executing: (:INTERNAL HEAP-UTILIZATION), in process listener(1).

Same story on Linux.

32-bit Clozure CL on Linux.

(defun foo (a i j k)
  (declare (type (simple-array single-float (10)) a))
  (setf (aref a i) (aref a j))
  (setf (aref a i) (aref a k)))

> Error: Unknown vinsn: CCL::MISC-SET-SINGLE-FLOAT
> While executing: CCL::NEED-VINSN-TEMPLATE, in process listener(1).