compile/todo.lisp

   1
   2 ;;; stuff from old version that needs updated
   3
   4 ;(symbol-to-qname :foo-bar)
   5 ;(symbol-to-qname '1-)
   6 ;(symbol-to-qname  'flash.text::text-field :init-cap t)
   7
   8
   9 (defmethod scompile-cons ((car (eql ':math)) cdr)
  10   ;; hack for calling Math.foo more easily
  11   ;; (:math :foo args...) -> Math.foo(args...);
  12   (format t ":math ~s~%" `(%call-lex-prop :math ,@cdr))
  13   (scompile `(%call-lex-prop :math ,@cdr)))
  14