From b5b0fae36ac0d42d19af7b38af6d011e4d095cb0 Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Sat, 13 May 2006 09:30:31 +0000 Subject: [PATCH] Move undefine-js-compiler-macro into an eval-when. Reported by: William Halliburton --- src/js.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/js.lisp b/src/js.lisp index d81d239..90d1304 100644 --- a/src/js.lisp +++ b/src/js.lisp @@ -211,7 +211,13 @@ (defvar *js-compiler-macros* (make-hash-table :test 'equal) "*JS-COMPILER-MACROS* is a hash-table containing the functions corresponding to javascript special forms, indexed by their name. Javascript special -forms are compiler macros for JS expressions.")) +forms are compiler macros for JS expressions.") + + (defun undefine-js-compiler-macro (name) + (declare (type symbol name)) + (when (gethash (symbol-name name) *js-compiler-macros*) + (warn "Redefining compiler macro ~S" name) + (remhash (symbol-name name) *js-compiler-macros*)))) (defmacro define-js-compiler-macro (name lambda-list &rest body) "Define a javascript compiler macro NAME. Arguments are destructured @@ -222,12 +228,6 @@ to the ongoing javascript compilation." (defun ,js-name ,lambda-list ,@body) (setf (gethash ,(symbol-name name) *js-compiler-macros*) #',js-name)))) -(defun undefine-js-compiler-macro (name) - (declare (type symbol name)) - (when (gethash (symbol-name name) *js-compiler-macros*) - (warn "Redefining compiler macro ~S" name) - (remhash (symbol-name name) *js-compiler-macros*))) - (defun js-compiler-macro-form-p (form) (when (and (symbolp (car form)) (gethash (symbol-name (car form)) *js-compiler-macros*)) -- 2.20.1