Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv1744 Modified Files: cl-syntax.lisp Log Message: Improved performance some more by considering line comments to be single entries. Date: Sun Feb 27 07:23:28 2005 Author: rstrandh Index: climacs/cl-syntax.lisp diff -u climacs/cl-syntax.lisp:1.3 climacs/cl-syntax.lisp:1.4 --- climacs/cl-syntax.lisp:1.3 Sun Feb 27 07:16:48 2005 +++ climacs/cl-syntax.lisp Sun Feb 27 07:23:28 2005 @@ -187,7 +187,9 @@ do (case object (#\( (fo) (make-entry 'list-start-entry)) (#\) (fo) (make-entry 'list-end-entry)) - (#\; (fo) (make-entry 'comment-entry)) + (#\; (loop do (fo) + until (end-of-line-p scan)) + (make-entry 'comment-entry)) (#\" (fo) (make-entry 'double-quote-entry)) (#\' (fo) (make-entry 'quote-entry)) (#\` (fo) (make-entry 'backquote-entry))