r11206: check reader syntax functions stored before trying to restore them.
authorKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 3 Oct 2006 05:09:03 +0000 (05:09 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 3 Oct 2006 05:09:03 +0000 (05:09 +0000)
ChangeLog
debian/changelog
sql/syntax.lisp

index 3e02280..4fdb45f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+02 Oct 2006  Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/syntax.lisp: Check that original reader syntax functions
+       stored before trying to restore them.
+       
 20 Sep 2006  Kevin Rosenberg <kevin@rosenberg.net>
        * sql/syntax.lisp: Apply patch from Marcus Pearce to correctly
        display sql reader syntax.
index f5ce994..5790452 100644 (file)
@@ -1,6 +1,12 @@
+cl-sql (3.7.3-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 02 Oct 2006 23:05:55 -0600
+
 cl-sql (3.7.2-1) unstable; urgency=low
 
-  * New ustream
+  * New upstream
 
  -- Kevin M. Rosenberg <kmr@debian.org>  Wed, 20 Sep 2006 21:24:22 -0600
 
index be92ab5..c0e8487 100644 (file)
@@ -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))