anchor.diff:  (defmacro native-body (&rest stuff)
     #`#{ (function(){ ~,@stuff })() #})
   
  -;; OO
  +;;;; Classes
   
   (eval-when-compile
     (defun defclass-do-slot (class-name slot)
  
positive.code:          ,@body)))
  
  (defmacro or (&rest forms)
    (if (= 0 (list-len forms)) ;; heck, need destructuring-bind
        #'#t
        #`(let ((%%or-res ,(list-elt forms 0))) ;; heck, need hygiene
            (if %%or-res
                %%or-res
                (or ,@(list-slice forms 1))))))
  
negative.code: (defmethod show ((a function))
    "#<function>")
  
  ;;;; Collections
  
  (defgeneric elt (collection index))
  (defgeneric empty? (collection))
  