anchor.diff:    (defmethod proxy-instance-size (class)
       (declare (ignore class))
       0)
  +
  +  (defmethod proxy-instance-size ((class-name symbol))
  +    (proxy-instance-size (find-class class-name)))
   )
     
   (defmethod alien-type ((class proxy-class) &rest args)
  
positive.code:     (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)))))
    (call-next-method))
  
  
  
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")
  
  