[climacs-cvs] CVS update: climacs/cl-syntax.lisp

[Robert Strandh]

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