-(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 #\))))
-