(when (constantp size)
(setf alien-type (copy-alien-array-type alien-type))
(setf (alien-array-type-dimensions alien-type)
- (cons (eval size) (cdr dims)))))
+ (cons (constant-form-value size) (cdr dims)))))
(dims
(setf size (car dims)))
(t
(sb!kernel:get-lisp-obj-address args-pointer)))
(res-sap (int-sap
(sb!kernel:get-lisp-obj-address result-pointer))))
+ (declare (ignorable args-sap res-sap))
(with-alien
,(loop
with offset = 0