- (if (eq (car type) 'cl:quote)
- (%convert-from-uffi-type (cadr type) context)
- (cons (%convert-from-uffi-type (first type) context)
- (%convert-from-uffi-type (rest type) context)))))
+ (let ((sub-type (car type)))
+ (case sub-type
+ (cl:quote
+ (%convert-from-uffi-type (cadr type) context))
+ (:struct-pointer
+ #+openmcl `(:* (:struct ,(convert-from-uffi-type (cadr type) :struct)))
+ #-openmcl `(,(convert-from-uffi-type (list '* (cadr type)) :struct))
+ )
+ (:struct
+ #+openmcl `(:struct ,(convert-from-uffi-type (cadr type) :struct))
+ #-openmcl `(,(convert-from-uffi-type (cadr type) :struct))
+ )
+ (t
+ (cons (%convert-from-uffi-type (first type) context)
+ (%convert-from-uffi-type (rest type) context)))))))