r11206: check reader syntax functions stored before trying to restore them.

[clsql.git] / sql / syntax.lisp

diff --git a/sql/syntax.lisp b/sql/syntax.lisp
index be92ab507be713519597a9ffd9a93562ae7c6fca..c0e8487ba1edc355e78303ff8260cad0d17143c7 100644 (file)
--- 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))