Ticket #1012 (closed defect: fixed)
%unbox-s8 vinsin missing
|Reported by:||wws||Owned by:||gb|
|Priority:||normal||Milestone:||Clozure CL 1.9|
I was loading a matrix math package, via (ql:quickload "clem"), and got an error that the %unbox-s8 vinsin is missing. It's missing in both x8664-vinsins.lisp and x8632-vinsins.lisp. I have a fix that I'll commit to trunk soon.
To test, evaluate the following two forms. The first one errors before the fix.
(defun foo (m x) (declare (optimize (speed 3) (safety 0))) (declare (type (simple-array (signed-byte 8) *) m)) (setf (aref m 0) x)) (let ((a (make-array 2 :element-type '(signed-byte 8)))) (foo a -128) (assert (eql -128 (aref a 0))) (foo a 127) (assert (eql 127 (aref a 0))) (foo a 128) (assert (eql -128 (aref a 0))))