anchor.diff:      (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)
   
  
positive.code: 		   (declare (ignore object))
  		   (error "Can't set slot: ~A" (slot-definition-name slotd))))
  	 ((or symbol cons) #'(lambda (value object)
  			       (funcall (fdefinition setter) value object))))))
  
      (unless (slot-boundp slotd 'boundp-function)
        (setf 
  
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")
  
  