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=8f6bf130a542100afaad4368433f62180dcd85b6;hb=cd0bd9791a77868c226d285bf4d57e8c321755d5;hp=20c9c18a4a8abfd7fd56abfcc566bacf6e9042eb;hpb=00bf2ca86b60e6501880011897cea073865c5a03;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_read.h b/src/lisp/ao_lisp_read.h
index 20c9c18a..8f6bf130 100644
--- a/src/lisp/ao_lisp_read.h
+++ b/src/lisp/ao_lisp_read.h
@@ -19,23 +19,26 @@
  * token classes
  */
 
-# define END	0
-# define NAME	1
-# define OPEN  	2
-# define CLOSE	3
-# define QUOTE	4
-# define STRING	5
-# define NUM	6
-# define FLOAT	7
-# define DOT	8
-# define BOOL	9
+# define END			0
+# define NAME			1
+# define OPEN  			2
+# define CLOSE			3
+# define QUOTE			4
+# define QUASIQUOTE		5
+# define UNQUOTE		6
+# define UNQUOTE_SPLICING	7
+# define STRING			8
+# define NUM			9
+# define FLOAT			10
+# define DOT			11
+# define BOOL			12
 
 /*
  * character classes
  */
 
-# define PRINTABLE	0x0001	/* \t \n ' ' - '~' */
-# define SPECIAL	0x0002	/* ( [ { ) ] } ' */
+# define PRINTABLE	0x0001	/* \t \n ' ' - ~ */
+# define SPECIAL	0x0002	/* ( [ { ) ] } ' ` , */
 # define DOTC		0x0004	/* . */
 # define WHITE		0x0008	/* ' ' \t \n */
 # define DIGIT		0x0010	/* [0-9] */