Add type checks (THE) to the data-vector-ref and data-vector-set
deftransforms. This causes a warning to be produced for (defun foo (f d) (declare (type (simple-array single-float (*)) f) (type (simple-array double-float (*)) d)) (setf (aref f 0) (aref d 0))) (from Lynn Quam, cmucl-imp 2004-03-30). Previously, no warning was produced and all code including the function return was deleted. Now a warning is produced and the code is not deleted. This is a workaround.
Please register or sign in to comment