ajout rest

implementations/c/src/lisp.h

@@ -114,6 +114,7 @@ extern Pointer T;
 extern Pointer STANDARD_INPUT;
 extern Pointer STANDARD_OUTPUT;
 extern Pointer BODY;
+extern Pointer REST;
 
 /** UTILS **/
 void init(void);

implementations/c/src/symbol.c

@@ -7,6 +7,7 @@ Pointer STANDARD_INPUT;
 Pointer STANDARD_OUTPUT;
 Pointer UNDEFINED;
 Pointer BODY;
+Pointer REST;
 
 static Pointer SYMBOLS;
 
@@ -55,5 +56,6 @@ void symbol_init(void) {
   STANDARD_OUTPUT = symbol1("*standard-output*");
   UNDEFINED = symbol1("undefined");
   BODY = symbol1("&body");
+  REST = symbol1("&rest");
 }