Custom Query (1030 matches)

{{{(let ((a 10))

(let ((b a)

(c (incf a)))

(format t "~A ~A ~A~%" a b c)))}}}

The following code should give 11 10 11, however openmcl produces 11 11 11.

? (let (a b) (setf (values (values a b)) (values 1 2)) (list a b))
(1 2)
? 

Should return (1 nil), by my reading of ​http://www.lispworks.com/documentation/HyperSpec/Body/05_abc.htm.

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