cl-2sql

Lisp to SQL compiler for Common Lisp
git clone https://logand.com/git/cl-2sql.git/
Log | Files | Refs | README | LICENSE

commit 989f74766e9f8a3e7ea6e7d6b3798546df231ddb
parent 09212af02b098c1d067065c645c43bc0a4b72954
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 13 Aug 2011 17:46:34 +0200

print-symbol appends trailing underscore to avoid clash with sql keywords

Diffstat:
Mprinter.lisp | 2+-
1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/printer.lisp b/printer.lisp @@ -19,7 +19,7 @@ (split-sequence:split-sequence char string)) (defun print-symbol (symbol stream) - (format stream "~(~{~a~^.~}~)" + (format stream "~(~{~a_~^.~}~)" (split #\. (substitute #\_ #\- (symbol-name symbol))))) (defun pure-form-to-string (form)