anchor.diff:  ;; 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.3 2001-05-04 16:56:34 espen Exp $
  +;; $Id: proxy.lisp,v 1.4 2001-05-11 16:01:41 espen Exp $
   
   (in-package "GLIB")
   
  
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:   (defmethod validate-superclass ((class proxy-class)
  				  (super pcl::standard-class))
      (subtypep (class-name super) 'proxy))
  
    (defmethod proxy-class-size (class)
      (declare (ignore class))
      0)
  