-(defun canonicalize-field-types (types num-fields)
- (if (listp types)
- (let ((length-types (length types))
- new-types)
- (loop for i from 0 below num-fields
+(defun canonicalize-field-types (types num-fields res-ptr)
+ (cond
+ ((if (listp types)
+ (let ((length-types (length types))
+ (new-types '()))
+ (loop for i from 0 below num-fields