(setq sqltype "VARCHAR2(20)")))))
(concatenate 'string
- (col c)
+ (sqlname c)
" "
(if (or (string-equal sqltype "VARCHAR")
(string-equal sqltype "CHAR"))
(delete-file output-path)
nil)
((eql input-lines translated-lines)
- (format t "Translated file ~A already exists: skipping...~%" output-path)
+ (format t "Translated file ~A exists and is proper number of lines: skipping...~%" output-path)
t)
((eql input-lines 0)
(warn "The number of input lines is 0 for output file ~A." output-path)