[Lisppaste-cvs] CVS update: lisppaste2/coloring-types.lisp

[Brian Mastenbrook]

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