X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fsyntax.lisp;fp=sql%2Fsyntax.lisp;h=c0e8487ba1edc355e78303ff8260cad0d17143c7;hp=be92ab507be713519597a9ffd9a93562ae7c6fca;hb=ef0416dafb56478c481275abc9325e1ba59ef22f;hpb=edb8adb0dabcbdbfa7be63a749c20cada389e598

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index be92ab5..c0e8487 100644
--- a/sql/syntax.lisp
+++ b/sql/syntax.lisp
@@ -45,8 +45,10 @@ the current syntax state."
     (%disable-sql-reader-syntax)))
 
 (defun %disable-sql-reader-syntax ()
-  (set-macro-character *sql-macro-open-char* *original-reader-enter*)
-  (set-macro-character *sql-macro-close-char* *original-reader-exit*)
+  (when *original-reader-enter*
+    (set-macro-character *sql-macro-open-char* *original-reader-enter*))
+  (when *original-reader-exit*
+    (set-macro-character *sql-macro-close-char* *original-reader-exit*))
   (values))