Added support for &whole arguments in ps macro lambda lists; renamed parser.lisp...

[clinton/parenscript.git] / src / ps-macrology.lisp

diff --git a/src/ps-macrology.lisp b/src/ps-macrology.lisp
index 04c64cc..0d5ac9f 100644 (file)
--- a/src/ps-macrology.lisp
+++ b/src/ps-macrology.lisp
@@ -108,11 +108,7 @@ gensym-prefix-string)."
       (destructuring-bind (name arglist &body body)
           macro
        (setf (get-macro-spec name macro-env-dict)
-             (cons nil (let ((args (gensym "ps-macrolet-args-")))
-                          (compile nil `(lambda (&rest ,args)
-                                         (destructuring-bind ,arglist
-                                             ,args
-                                           ,@body))))))))
+             (cons nil (make-ps-macro-function arglist body)))))
     (compile-parenscript-form `(progn ,@body))))
 
 (define-ps-special-form symbol-macrolet (expecting symbol-macros &body body)