X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_read.h;fp=src%2Flisp%2Fao_lisp_read.h;h=20c9c18a4a8abfd7fd56abfcc566bacf6e9042eb;hb=6d2f271a45759bd792d299f04a424d3382ef4798;hp=fc74a8e4972f80dd87dd6aac6e63ff564c701ad9;hpb=12a1f6ad48f2b924f71239effeb90afca75a090f;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_read.h b/src/lisp/ao_lisp_read.h
index fc74a8e4..20c9c18a 100644
--- a/src/lisp/ao_lisp_read.h
+++ b/src/lisp/ao_lisp_read.h
@@ -26,28 +26,30 @@
 # define QUOTE	4
 # define STRING	5
 # define NUM	6
-# define DOT	7
-# define BOOL	8
+# define FLOAT	7
+# define DOT	8
+# define BOOL	9
 
 /*
  * character classes
  */
 
 # define PRINTABLE	0x0001	/* \t \n ' ' - '~' */
-# define QUOTED		0x0002	/* \ anything */
-# define SPECIAL	0x0004	/* ( [ { ) ] } ' . */
+# define SPECIAL	0x0002	/* ( [ { ) ] } ' */
+# define DOTC		0x0004	/* . */
 # define WHITE		0x0008	/* ' ' \t \n */
 # define DIGIT		0x0010	/* [0-9] */
 # define SIGN		0x0020	/* +- */
-# define ENDOFFILE	0x0040	/* end of file */
-# define COMMENT	0x0080	/* ; */
-# define IGNORE		0x0100	/* \0 - ' ' */
-# define BACKSLASH	0x0200	/* \ */
-# define VBAR		0x0400	/* | */
+# define FLOATC		0x0040	/* . e E */
+# define ENDOFFILE	0x0080	/* end of file */
+# define COMMENT	0x0100	/* ; */
+# define IGNORE		0x0200	/* \0 - ' ' */
+# define BACKSLASH	0x0400	/* \ */
 # define STRINGC	0x0800	/* " */
 # define POUND		0x1000	/* # */
 
-# define NOTNAME	(STRINGC|VBAR|COMMENT|ENDOFFILE|WHITE|SPECIAL)
-# define NUMBER		(DIGIT|SIGN)
+# define NOTNAME	(STRINGC|COMMENT|ENDOFFILE|WHITE|SPECIAL)
+# define INTEGER	(DIGIT|SIGN)
+# define NUMBER		(INTEGER|FLOATC)
 
 #endif /* _AO_LISP_READ_H_ */