compile/swfclass.lisp

   1 (in-package :avm2-compiler)
   2
   3 ;;;; code for defining vm level classes
   4
   5 (defmacro def-swf-class (name ns super (&rest properties) ((&rest constructor-args) &body constructor))
   6   `(setf (gethash ',name (classes *symbol-table*))
   7          (list ',(avm2-asm::symbol-to-qname-list name)
   8                ',ns
   9                ',super
  10                ',properties
  11                (list ',constructor-args ',constructor))))