anchor.diff:  (defmacro internal (&rest symbols)
     (declare (ignore symbols))
     nil)
  +
  +(defun export-handler-makunbound (handler)
  +  (remhash handler *export-handlers*))
   
   (defun list-autoexported-symbols (form)
     (let ((handler (gethash (first form) *export-handlers*)))
  
positive.code: 	     (list slotdef)
  	   (destructuring-bind
  	       (name &key reader writer accessor &allow-other-keys) slotdef
  	     (delete nil (list name reader (export-fname writer) accessor)))))
       slotdefs))))
  
  (defexport defclass (class superclasses &optional slotdefs &rest options)
  
negative.code:   (declare (ignore rest))
    name)
  
  (defun export-defclass-form (class slotdefs &optional (export-slots-p t))
    (cons
     class
     (apply #'nconc
  