-(defun insert-values-cmd-old (file values)
- "Return sql insert command for a row of values"
- (let ((insert-func
- (lambda (col value)
- (concatenate
- 'string
- (umls-col-quotechar col)
- (if (null (umls-col-parsefunc col))
- value
- (format nil "~A" (funcall (umls-col-parsefunc col) value)))
- (umls-col-quotechar col)
- ","))))
- (format
- nil "INSERT INTO ~a (~a) VALUES (~a)"
- (umls-file-table file)
- (string-trim-last-character
- (mapcar-append-string (lambda (c) (concatenate 'string c ","))
- (umls-file-fields file)))
- (string-trim-last-character
- (concatenate 'string
- (mapcar2-append-string insert-func
- (remove-custom-cols (umls-file-colstructs file))
- values)
- (custom-col-values-old (custom-colstructs-for-file file) values "," t)))
- )))
-