- (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 (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)))))))
+