* sql/syntax.lisp: Apply patch from Marcus Pearce to correctly
display sql reader syntax.
+20 Sep 2006 Kevin Rosenberg <kevin@rosenberg.net>
+ * sql/syntax.lisp: Apply patch from Marcus Pearce to correctly
+ display sql reader syntax.
+
06 Sep 2006 Kevin Rosenberg <kevin@rosenberg.net>
* uffi/clsql-uffi-loader.lisp, db-mysql/mysql-loader.lisp: Change from using *features*
to decide on 64-bit platform and check size of most-positive-fixnum instead.
06 Sep 2006 Kevin Rosenberg <kevin@rosenberg.net>
* uffi/clsql-uffi-loader.lisp, db-mysql/mysql-loader.lisp: Change from using *features*
to decide on 64-bit platform and check size of most-positive-fixnum instead.
+cl-sql (3.7.2-1) unstable; urgency=low
+
+ * New ustream
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Wed, 20 Sep 2006 21:24:22 -0600
+
cl-sql (3.7.1-1) unstable; urgency=low
* New upstream
cl-sql (3.7.1-1) unstable; urgency=low
* New upstream
(%disable-sql-reader-syntax)))
(defun %disable-sql-reader-syntax ()
(%disable-sql-reader-syntax)))
(defun %disable-sql-reader-syntax ()
- (when *original-reader-enter*
- (set-macro-character *sql-macro-open-char* *original-reader-enter*))
- (setf *original-reader-enter* nil)
+ (set-macro-character *sql-macro-open-char* *original-reader-enter*)
+ (set-macro-character *sql-macro-close-char* *original-reader-exit*)
(%enable-sql-reader-syntax)))
(defun %enable-sql-reader-syntax ()
(%enable-sql-reader-syntax)))
(defun %enable-sql-reader-syntax ()
- (unless *original-reader-enter*
- (setf *original-reader-enter* (get-macro-character *sql-macro-open-char*)))
- (set-macro-character *sql-macro-open-char* #'sql-reader-open)
- (enable-sql-close-syntax)
+ (unless (eq (get-macro-character *sql-macro-open-char*) #'sql-reader-open)
+ (setf *original-reader-enter* (get-macro-character *sql-macro-open-char*))
+ (set-macro-character *sql-macro-open-char* #'sql-reader-open))
+ (unless (eq (get-macro-character *sql-macro-close-char*)
+ (get-macro-character #\)))
+ (setf *original-reader-exit* (get-macro-character *sql-macro-close-char*))
+ (set-macro-character *sql-macro-close-char* (get-macro-character #\))))
(values))
(defmacro restore-sql-reader-syntax-state ()
(values))
(defmacro restore-sql-reader-syntax-state ()
:message (format nil "Error ~A occured while attempting to parse '~A' at file position ~A"
(sql-user-error-message c) sqllist (file-position stream))))))))
:message (format nil "Error ~A occured while attempting to parse '~A' at file position ~A"
(sql-user-error-message c) sqllist (file-position stream))))))))
-(defun disable-sql-close-syntax ()
- "Internal function that disables the close syntax when leaving
- sql context."
- (set-macro-character *sql-macro-close-char* *original-reader-exit*)
- (setf *original-reader-exit* nil))
-
-(defun enable-sql-close-syntax ()
- "Internal function that enables close syntax when entering SQL
- context."
- (setf *original-reader-exit* (get-macro-character *sql-macro-close-char*))
- (set-macro-character *sql-macro-close-char* (get-macro-character #\))))
-
(defun generate-sql-reference (&rest arglist)
(cond ((= (length arglist) 1) ; string, table or attribute
(if (stringp (car arglist))
(defun generate-sql-reference (&rest arglist)
(cond ((= (length arglist) 1) ; string, table or attribute
(if (stringp (car arglist))