diff --git a/api.lisp b/api.lisp index 3de391a..9b0d451 100644 --- a/api.lisp +++ b/api.lisp @@ -1224,8 +1224,8 @@ sections. These sections may nest." (let* ((*use-bmh-matchers* nil) (comment-scanner (create-scanner "(?s)\\(\\?#.*?\\)")) (extended-comment-scanner (create-scanner "(?m:#.*?$)|(?s:\\(\\?#.*?\\))")) - (quote-token-scanner "\\\\[QE]") - (quote-token-replace-scanner "\\\\([QE])")) + (quote-token-scanner (create-scanner "\\\\[QE]")) + (quote-token-replace-scanner (create-scanner "\\\\([QE])"))) (defun clean-comments (string &optional extended-mode) "Clean \(?#...) comments within STRING for quoting, i.e. convert \\Q to Q and \\E to E. If EXTENDED-MODE is true, also clean diff --git a/doc/index.html b/doc/index.html index 89e5096..3277cb6 100644 --- a/doc/index.html +++ b/doc/index.html @@ -2052,7 +2052,7 @@ read.