anchor.diff:      (let ((size (proxy-instance-size (class-of struct))))
         (if (zerop size)
   	  (error "~A has zero size" (class-of struct))
  -	  (setf (slot-value struct 'location) (allocate-memory size)))))
  +	(setf (slot-value struct 'location) (allocate-memory size)))))
     (call-next-method))
   
   
  
positive.code:       (unreference-foreign class (sap-ref-sap location offset))))
  
  (defmethod unbound-value ((class proxy-class) &rest args)
    (declare (ignore type args))
    (values t nil))
  
  (defgeneric ensure-proxy-instance (class location)
  
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.18 2005-01-12 13:35:19 espen Exp $
  
  (in-package "GLIB")
  
  