From bf121ee9d7c2322726cd9ce6eb6d6ef0de217453 Mon Sep 17 00:00:00 2001 From: Cyrus Harmon Date: Sun, 8 Apr 2012 08:10:02 -0700 Subject: [PATCH] :property and :invert-property scanning bug fix. In convert-compound-parse-tree methods for property and inverted-property, declare accumulate-start-p sepecial and setq it to nil. --- convert.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/convert.lisp b/convert.lisp index 3fc967d..d57674b 100644 --- a/convert.lisp +++ b/convert.lisp @@ -701,11 +701,15 @@ Also used for inverted char classes when INVERTEDP is true." (defmethod convert-compound-parse-tree ((token (eql :property)) parse-tree &key) "The case for \(:PROPERTY ) where is a string." (declare #.*standard-optimize-settings*) + (declare (special accumulate-start-p)) + (setq accumulate-start-p nil) (make-instance 'char-class :test-function (resolve-property (second parse-tree)))) (defmethod convert-compound-parse-tree ((token (eql :inverted-property)) parse-tree &key) "The case for \(:INVERTED-PROPERTY ) where is a string." (declare #.*standard-optimize-settings*) + (declare (special accumulate-start-p)) + (setq accumulate-start-p nil) (make-instance 'char-class :test-function (complement* (resolve-property (second parse-tree))))) (defmethod convert-compound-parse-tree ((token (eql :flags)) parse-tree &key)