Commit cd4a450b authored by Robert Strandh's avatar Robert Strandh

Improved performance some more by considering line comments to be

single entries.
parent 7a691275
......@@ -187,7 +187,9 @@ macro characters that start more complex expressions."))
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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment