projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9211: add *backend-warning-behavior
[clsql.git]
/
sql
/
new-objects.lisp
diff --git
a/sql/new-objects.lisp
b/sql/new-objects.lisp
index 64e9ade34e97ca6bd65e6b2216697902aea44d42..d2013b74009e325b04bf13968e9799bf6922bc1e 100644
(file)
--- a/
sql/new-objects.lisp
+++ b/
sql/new-objects.lisp
@@
-611,7
+611,7
@@
DATABASE-NULL-VALUE on the type of the slot."))
(declare (ignore database))
(progv '(*print-circle* *print-array*) '(t t)
(let ((escaped (prin1-to-string val)))
(declare (ignore database))
(progv '(*print-circle* *print-array*) '(t t)
(let ((escaped (prin1-to-string val)))
- (clsql-base
-sys
::substitute-char-string
+ (clsql-base::substitute-char-string
escaped #\Null " "))))
(defmethod database-output-sql-as-type ((type (eql 'symbol)) val database)
escaped #\Null " "))))
(defmethod database-output-sql-as-type ((type (eql 'symbol)) val database)