- (cl:quote
- (convert-from-uffi-type (cadr type) context))
- (:struct-pointer
- #+(or openmcl digitool) `(:* (:struct ,(%convert-from-uffi-type (cadr type) :struct)))
- #-(or openmcl digitool) (%convert-from-uffi-type (list '* (cadr type)) :struct)
- )
- (:struct
- #+(or openmcl digitool) `(:struct ,(%convert-from-uffi-type (cadr type) :struct))
- #-(or openmcl digitool) (%convert-from-uffi-type (cadr type) :struct)
- )
+ (cl:quote
+ (convert-from-uffi-type (cadr type) context))
+ (:struct-pointer
+ #+(or openmcl digitool) `(:* (:struct ,(%convert-from-uffi-type (cadr type) :struct)))
+ #-(or openmcl digitool) (%convert-from-uffi-type (list '* (cadr type)) :struct)
+ )
+ (:struct
+ #+(or openmcl digitool) `(:struct ,(%convert-from-uffi-type (cadr type) :struct))
+ #-(or openmcl digitool) (%convert-from-uffi-type (cadr type) :struct)
+ )