(let ((result (%convert-from-uffi-type type context)))
(cond
((atom result) result)
+ ;; Arrays without size are really pointers to type on SBCL/CMUCL
+ #+sbcl
+ ((and (consp type) (= 2 (length type)) (eq :array (car type)))
+ (setf (car result) 'sb-alien:*)
+ result)
+ #+cmu
+ ((and (consp type) (= 2 (length type)) (eq :array (car type)))
+ (setf (car result) 'alien:*)
+ result)
#+openmcl
((eq (car result) :address)
(if (eq context :struct)