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