anchor.diff:  
     (defmethod finalize-inheritance ((class proxy-class))
       (call-next-method)
  -    (let ((super (direct-proxy-superclass class)))
  -      (unless (typep super 'proxy)
  +    (let ((super (most-specific-proxy-superclass class)))
  +      (unless (or (not super) (eq super (find-class '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)))
  
positive.code:     (:copy %copy-struct)
      (:free %free-struct)))
  
  
  (defmethod initialize-instance ((structure struct)
  				&rest initargs)
    (declare (ignore initargs))
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: proxy.lisp,v 1.4 2001-05-11 16:01:41 espen Exp $
  
  (in-package "GLIB")
  
  