anchor.diff:  	`(,free ',type-spec ,location)
       `(funcall ',free ',type-spec ,location))))
   
  -;; (defun proxy-instance-size (proxy)
  -;;   (proxy-class-size (class-of proxy)))
   
   ;;;; Metaclass used for subclasses of proxy
   
  
positive.code:       (free (setf (slot-value class 'free) (first free)))
        ((slot-boundp class 'free) (slot-makunbound class 'free))))
    
  ;;   (defmethod finalize-inheritance ((class proxy-class))
  ;;     (call-next-method)
    (defmethod shared-initialize :after ((class proxy-class) names &rest initargs)
      (let ((super (most-specific-proxy-superclass class)))
        (unless (or (not super) (eq super (find-class 'proxy)))
  
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.9 2004-10-28 19:29:00 espen Exp $
  
  (in-package "GLIB")
  
  