- (format nil "LOAD DATA LOCAL INFILE \"~a\" INTO TABLE ~a FIELDS TERMINATED BY \"|\""
- (umls-pathname (umls-file-fil file) extension) (umls-file-table file)))
-
-(defun umls-translate-old (file line)
- "Translate a single line for sql output"
- (string-trim-last-character
- (concatenate 'string
- (mapcar2-append-string
- (lambda (col value)
- (concatenate
- 'string
- (if (eq (umls-col-datatype col) 'sql-u)
- (format nil "~d" (parse-ui value ""))
- (escape-backslashes value))
- "|"))
- (remove-custom-cols (umls-file-colstructs file))
- line)
- (custom-col-values-old (custom-colstructs-for-file file) line "|" nil))))
-
-(defun concat-separated-strings (separator &rest lists)
- (format nil (format nil "~~{~~A~~^~A~~}" separator) (mapappend #'identity lists)))
-
-(defun print-separated-strings (strm separator &rest lists)
- (declare (optimize (speed 3) (safety 0) (space 0) (debug 0) (compilation-speed 0)))
- (do* ((rest-lists lists (cdr rest-lists))
- (list (car rest-lists) (car rest-lists))
- (last-list (null (cdr rest-lists)) (null (cdr rest-lists))))
- ((null list) strm)
- (do* ((lst list (cdr lst))
- (elem (car lst) (car lst))
- (last-elem (null (cdr lst)) (null (cdr lst))))
- ((null lst))
- (write-string elem strm)
- (unless (and last-elem last-list)
- (write-string separator strm)))))