-(defun canonicalize-types (types cursor)
- (let* ((fields (postgresql-cursor-fields cursor))
- (num-fields (length fields)))
- (cond
- ((listp types)
- (canonicalize-type-list types num-fields))
- ((eq types :auto)
- (let ((new-types '()))
- (dotimes (i num-fields)
- (declare (fixnum i))
- (push (canonical-field-type fields i) new-types))
- (nreverse new-types)))
- (t
- nil))))