;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
;;;;
;;;; UMLisp users are granted the rights to distribute and use this software
;;;; as governed by the terms of the GNU General Public License.
(unless (= (length fields-max) (length (fields file)))
(error
"Number of file fields ~A not equal to field count in ufile ~S"
(unless (= (length fields-max) (length (fields file)))
(error
"Number of file fields ~A not equal to field count in ufile ~S"
:dty dty :sqltype sqltype :quote-str quote-str
:parse-fun (ensure-compiled-fun parse-fun)
:custom-value-fun (ensure-compiled-fun custom-value-fun))))
:dty dty :sqltype sqltype :quote-str quote-str
:parse-fun (ensure-compiled-fun parse-fun)
:custom-value-fun (ensure-compiled-fun custom-value-fun))))