From: Raymond T. <rt...@us...> - 2002-10-17 21:32:49
|
Update of /cvsroot/maxima/maxima/src In directory usw-pr-cvs1:/tmp/cvs-serv26560 Modified Files: cl-info.lisp Log Message: Fix typo in loop expression. Index: cl-info.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/cl-info.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- cl-info.lisp 26 Jun 2002 14:01:52 -0000 1.9 +++ cl-info.lisp 17 Oct 2002 21:32:43 -0000 1.10 @@ -280,7 +280,6 @@ *match-data*) (declare (fixnum start)) (loop while (>= (setq start (string-match pat st start)) 0) - do collect (list start (setq start (match-end 0)))))) |