Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2
Modified Files: coloring-types.lisp Log Message: Make the scanner treat numbers as symbols; simplify the scanner
Date: Fri Jun 4 07:09:51 2004 Author: bmastenbrook
Index: lisppaste2/coloring-types.lisp diff -u lisppaste2/coloring-types.lisp:1.4 lisppaste2/coloring-types.lisp:1.5 --- lisppaste2/coloring-types.lisp:1.4 Thu Jun 3 13:20:46 2004 +++ lisppaste2/coloring-types.lisp Fri Jun 4 07:09:51 2004 @@ -3,7 +3,7 @@ (in-package :colorize)
(defparameter *symbol-characters* - "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ*!%$&") + "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ*!%$&+-1234567890")
(defparameter *non-constituent* '(#\space #\tab #\newline #\linefeed #\page #\return @@ -30,10 +30,7 @@ (((:normal :in-list) ((or (scan-any *symbol-characters*) - (and (scan "+") (scan-any *symbol-characters*)) - (and (scan "-") (scan-any *symbol-characters*)) - (scan "1+") - (scan "1-") + (and (scan #.) (scan-any *symbol-characters*)) (and (scan #\) (advance 1))) (set-mode :symbol :until (scan-any *non-constituent*)