From ef0416dafb56478c481275abc9325e1ba59ef22f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 3 Oct 2006 05:09:03 +0000 Subject: [PATCH] r11206: check reader syntax functions stored before trying to restore them. --- ChangeLog | 4 ++++ debian/changelog | 8 +++++++- sql/syntax.lisp | 6 ++++-- 3 files changed, 15 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3e02280..4fdb45f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +02 Oct 2006 Kevin Rosenberg + * sql/syntax.lisp: Check that original reader syntax functions + stored before trying to restore them. + 20 Sep 2006 Kevin Rosenberg * sql/syntax.lisp: Apply patch from Marcus Pearce to correctly display sql reader syntax. diff --git a/debian/changelog b/debian/changelog index f5ce994..5790452 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,6 +1,12 @@ +cl-sql (3.7.3-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Mon, 02 Oct 2006 23:05:55 -0600 + cl-sql (3.7.2-1) unstable; urgency=low - * New ustream + * New upstream -- Kevin M. Rosenberg Wed, 20 Sep 2006 21:24:22 -0600 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)) -- 2.34.1