anchor.diff:        (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)))
  
positive.code:     (call-next-method))
    
  
    (defmethod initialize-internal-slot-functions ((slotd effective-virtual-alien-slot-definition))
      (with-slots (getter setter type) slotd
        (when (and (not (slot-boundp slotd 'reader-function)) (stringp getter))
  	(let ((reader (mkbinding-late getter type 'pointer)))
  	  (setf (slot-value slotd 'reader-function)
  		#'(lambda (object)
  		    (funcall reader (proxy-location object))))))
        
        (when (and (not (slot-boundp slotd 'writer-function)) (stringp setter))
  	(let ((writer (mkbinding-late setter 'nil 'pointer type)))
  	  (setf (slot-value slotd 'writer-function)
  		#'(lambda (value object)
  		    (funcall writer (proxy-location object) value))))))
      (call-next-method))
  
    ;; TODO: call some C code to detect this a compile time
    (defconstant +struct-alignmen+ 4)
  
  
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")
  
  