-"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 (custom-colstructs-for-file file) line "|" nil))))
+ "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 (custom-colstructs-for-file file) line "|" nil))))