anchor.diff:  		   (declare (ignore object))
   		   (error "Can't set slot: ~A" (slot-definition-name slotd))))
   	 ((or symbol cons) #'(lambda (value object)
  -			       (funcall (fdefinition setter) value object))))))
  +			       (funcall (fdefinition setter) value object)))
  +	 (string
  +	  (let ((writer (mkbinding-late setter 'nil 'pointer 
  +			 (slot-definition-type slotd))))
  +	    (setf (slot-value slotd 'writer-function)
  +		  #'(lambda (value object)
  +		      (funcall writer (proxy-location object) value))))))))
   
       (unless (slot-boundp slotd 'boundp-function)
         (setf 
  
positive.code: 		   (declare (ignore object))
  		   (error "Can't read slot: ~A" (slot-definition-name slotd))))
  	 (symbol #'(lambda (object)
  		     (funcall getter object))))))
  
      (unless (slot-boundp slotd 'writer-function)
        (setf 
  
negative.code:     (call-next-method))
    
  
    ;; TODO: call some C code to detect this a compile time
    (defconstant +struct-alignmen+ 4)
  
  