X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fnew-objects.lisp;h=d2013b74009e325b04bf13968e9799bf6922bc1e;hb=9698f9b6d0f6439b7547d198bb9db95f61b20c5d;hp=64e9ade34e97ca6bd65e6b2216697902aea44d42;hpb=f2a0eb003af406415567c9f8545455ede786db87;p=clsql.git

diff --git a/sql/new-objects.lisp b/sql/new-objects.lisp
index 64e9ade..d2013b7 100644
--- 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)))
-      (clsql-base-sys::substitute-char-string
+      (clsql-base::substitute-char-string
        escaped #\Null " "))))
 
 (defmethod database-output-sql-as-type ((type (eql 'symbol)) val database)