- (setf (uffi:deref-array a '(:array (* :long)) r)
- (uffi:allocate-foreign-object :long +column-length+))
- (let ((col (uffi:deref-array a '(:array (* :long)) r)))
+ (setf (uffi:deref-array a '(:array (:array :long #.+column-length+)) r)
+ (uffi:allocate-foreign-object :long #.+column-length+))
+ (let ((col (uffi:deref-array a '(:array (:array :long #.+column-length+)) r)))