anchor.diff:  (defmacro native-body (&rest stuff)
     #`#{ (function(){ ~,@stuff })() #})
   
  -;; OO
  +;;;; Classes
   
   (eval-when-compile
     (defun defclass-do-slot (class-name slot)
  
positive.code:         (unwind-protect (progn ,@body)
            (setq (dynamic ,name) old-value)))))
  
  ;; Conditions
  
  (defclass condition)
  (defclass serious-condition (condition))
  
negative.code: (defmethod show ((a function))
    "#<function>")
  
  ;;;; Collections
  
  (defgeneric elt (collection index))
  (defgeneric empty? (collection))
  