cl-2sql

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:
M
printer.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)