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

Merge pull request #4 from slyrus/property-bugfix

Browse Source 
:property and :invert-property scanning bug fix.
This commit is contained in:
Hans Hübner
2012-04-08 09:51:27 -07:00
parent 0e7bac2b4b bf121ee9d7
commit 7ad13f568e
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)