OSCL/cl-ppcre
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

:property and :invert-property scanning bug fix.

Browse Source 
In convert-compound-parse-tree methods for property and
    inverted-property, declare accumulate-start-p sepecial and setq it
    to nil.
This commit is contained in:
Cyrus Harmon
2012-04-08 08:10:02 -07:00
parent 0e7bac2b4b
commit bf121ee9d7
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
convert.lisp
View File

@ -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) (defmethod convert-compound-parse-tree ((token (eql :property)) parse-tree &key)
"The case for \(:PROPERTY <name>) where <name> is a string." "The case for \(:PROPERTY <name>) where <name> is a string."
(declare #.*standard-optimize-settings*) (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)))) (make-instance 'char-class :test-function (resolve-property (second parse-tree))))
(defmethod convert-compound-parse-tree ((token (eql :inverted-property)) parse-tree &key) (defmethod convert-compound-parse-tree ((token (eql :inverted-property)) parse-tree &key)
"The case for \(:INVERTED-PROPERTY <name>) where <name> is a string." "The case for \(:INVERTED-PROPERTY <name>) where <name> is a string."
(declare #.*standard-optimize-settings*) (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))))) (make-instance 'char-class :test-function (complement* (resolve-property (second parse-tree)))))
(defmethod convert-compound-parse-tree ((token (eql :flags)) parse-tree &key) (defmethod convert-compound-parse-tree ((token (eql :flags)) parse-tree &key)