From b5369cb1bcdc9aeeeb54a19ebcc34bf82d5e0901 Mon Sep 17 00:00:00 2001 From: Red Daly Date: Sat, 28 Jul 2007 17:49:20 +0000 Subject: [PATCH] define-script-symbol-macro added --- src/parser.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/parser.lisp b/src/parser.lisp index 10ed65b..2b19fe8 100644 --- a/src/parser.lisp +++ b/src/parser.lisp @@ -415,6 +415,13 @@ macro environment." ,lambda-list ,@body)))))) +(defmacro define-script-symbol-macro (name expansion) + "Define a ParenScript symbol macro, and store it in the toplevel ParenScript +macro environment." + (undefine-script-special-form name) + `(setf (get-macro-spec ',name *script-macro-toplevel*) + (cons t (lambda () ,expansion)))) + (defun import-macros-from-lisp (&rest names) "Import the named Lisp macros into the ParenScript macro environment. When the imported macro is macroexpanded by ParenScript, -- 2.20.1