compile/macro.lisp

   1 (in-package :avm2-compiler)
   2
   3 ;;; swf-defmacro etc.
   4
   5
   6 ;; old macro -> special form hack
   7 #+nil(defmacro swf-defmacro (name (&rest args) &body body)
   8   `(defmethod scompile-cons ((car (eql ',name)) cdr)
   9      (destructuring-bind (,@args) cdr
  10        (scompile
  11         (progn ,@body)))))
  12
  13 (defmacro swf-defmacro (name (&rest args) &body body)
  14   (let ((form (gensym))
  15         (environment (gensym)))
  16     `(add-swf-macro-function
  17       ',name
  18       (lambda (,form ,environment)
  19         (declare (ignore ,environment))
  20         (destructuring-bind ,args (cdr ,form)
  21           ,@body)))))
  22
  23