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.

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.)

CCL doesn't properly deal with filenames with unicode characters which are beyond latin-1.

Neither DIRECTORY does list correct filenames, nor OPEN can acces files with unicode pathnames.

-K utf-8 is supplied, *default-file-character-encoding* => :UTF-8. That is on 64 and 32 bit linux.