src/c-types-parse.lisp: Parse `...' in argument lists.

[sod] / src / parser / parser-test.lisp

diff --git a/src/parser/parser-test.lisp b/src/parser/parser-test.lisp
index 6718d5cf082c709db97bb7e6b76f716d477639dd..1fb292d63a27e22067de12ea1c7d5411868df5fe 100644 (file)
--- a/src/parser/parser-test.lisp
+++ b/src/parser/parser-test.lisp
@@ -361,10 +361,11 @@ (def-test-method test-simple-tree-parser ((test test-parser) :run nil)
 ;;;--------------------------------------------------------------------------
 ;;; Test expression parser.
 
-(defparse token (:context (context character-parser-context) parser)
-  (with-gensyms (value)
-    (expand-parser-spec context
-                       `(seq ((,value ,parser) :whitespace) ,value))))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defparse token (:context (context character-parser-context) parser)
+    (with-gensyms (value)
+      (expand-parser-spec context
+                         `(seq ((,value ,parser) :whitespace) ,value)))))
 
 (let ((add (binop "+" (x y 5) `(+ ,x ,y)))
       (sub (binop "-" (x y 5) `(- ,x ,y)))