- (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*))
+ (unless *original-readtable*
+ (setf *original-readtable* *readtable*
+ *readtable* (copy-readtable))
+ (set-macro-character *sql-macro-open-char* #'sql-reader-open)