Code that writes code that writes code that defines a virtual machine emulator.

gistfile1.lisp

(defmacro defvm (regs @tuple body)
  (append `(do (defmacro defop (name @tuple body)
                 (append (tuple 'defun name '$regs
                            (append (tuple 'dump (stringof name)) '$regs))
                         body))
               (defmacro go (name)
                 (cons name '$regs)))

          (map (lambda (op)
                 (append `(defop $(car op))
                         (cdr op)))
               body)))

I can't imagine how useful this could be or is to people with lack of use of their hands for whatever reason. I can't wait to see about this.