anchor.diff:    (deallocate-memory location))
   
   
  -(eval-when (:compile-toplevel :load-toplevel :execute)
  +;(eval-when (:compile-toplevel :load-toplevel :execute)
     (defclass static (struct)
       ()
  -    (:metaclass proxy-class)))
  +    (:metaclass proxy-class)
  +    (:copy %copy-static)
  +    (:free %free-static));)
   
   (defun %copy-static (type location)
     (declare (ignore type))
  
positive.code: 
    (defmethod finalize-inheritance ((class proxy-class))
      (call-next-method)
      (let ((super (direct-proxy-superclass class)))
        (unless (typep super 'proxy)
   	(unless (or (slot-boundp class 'copy) (not (slot-boundp super 'copy)))
   	  (setf (slot-value class 'copy) (proxy-class-copy super)))
   	(unless (or (slot-boundp class 'free) (not (slot-boundp super 'free)))
  
negative.code:     (:copy %copy-struct)
      (:free %free-struct)))
  
  (defmethod initialize-instance ((structure struct)
  				&rest initargs)
    (declare (ignore initargs))
  