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=30dcac3f4bf10e7102763ada337340e304ff4b46;hb=bd881a5b85d7cd4fb82127f92f32e089499b50cb;hp=1c994d56fd60b0468c4fc6db356331f05c95daf8;hpb=50a095fbe828b6ec3159d27930712df6b1b519b4;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_read.h b/src/lisp/ao_lisp_read.h
index 1c994d56..30dcac3f 100644
--- a/src/lisp/ao_lisp_read.h
+++ b/src/lisp/ao_lisp_read.h
@@ -22,6 +22,7 @@
 # define QUOTE	4
 # define STRING	5
 # define NUM	6
+# define DOT	7
 
 /*
  * character classes
@@ -42,8 +43,9 @@
 # define VBAR		0x00001000	/* | */
 # define TWIDDLE	0x00002000	/* ~ */
 # define STRINGC	0x00004000	/* " */
+# define DOTC		0x00008000	/* . */
 
-# define NOTNAME	(STRINGC|TWIDDLE|VBAR|QUOTEC|COMMENT|ENDOFFILE|WHITE|KET|BRA)
+# define NOTNAME	(STRINGC|TWIDDLE|VBAR|QUOTEC|COMMENT|ENDOFFILE|WHITE|KET|BRA|DOTC)
 # define NUMBER		(DIGIT|SIGN)
 
 #endif /* _AO_LISP_READ_H_ */