Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv3005
Modified Files: base.lisp Log Message: A minor bug fix.
Date: Sat Aug 27 22:29:09 2005 Author: abakic
Index: climacs/base.lisp diff -u climacs/base.lisp:1.43 climacs/base.lisp:1.44 --- climacs/base.lisp:1.43 Thu Aug 25 09:48:13 2005 +++ climacs/base.lisp Sat Aug 27 22:29:08 2005 @@ -625,7 +625,8 @@ offset after the matched contents." (if (automaton::singleton a) (let ((result (buffer-search-forward buffer offset (automaton::singleton a)))) - (values result (+ result (length (automaton::singleton a))))) + (when result + (values result (+ result (length (automaton::singleton a)))))) (loop for i from offset below (size buffer) do (let ((j (non-greedy-match-forward a buffer i))) (when j (return (values i j))))