[climacs-cvs] CVS update: climacs/base.lisp

[Aleksandar Bakic]

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))))