(:unsigned-byte . (sb-alien:unsigned 8))
(:short . sb-alien:short)
(:unsigned-short . sb-alien:unsigned-short)
- (:int . sb-alien:integer) (:unsigned-int . sb-alien:unsigned-int)
+ (:int . sb-alien:int) (:unsigned-int . sb-alien:unsigned-int)
(:long . sb-alien:long) (:unsigned-long . sb-alien:unsigned-long)
(:float . sb-alien:float) (:double . sb-alien:double)
(:array . sb-alien:array)))
(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)