anchor.diff:  		    fields
   		    (lambda (field fn gn)
   		      (declare (ignore gn))
  -		      (list
  -		       `(object
  -			 (cffi:foreign-slot-value object ',name ',(first field))
  -			 ,(second field) ,fn))))))
  +		      `(,(structure-slot-form field name fn))))))
   	     (get ',name 'setf-foreign-object-components)
   	     (lambda (value object &optional (index 0))
   	       (declare (ignore index))
  
positive.code: 	(prog1
  	    (funcall form field fn gn)
  	  (incf gn)))))
  
  (defmacro defcstruct (name-and-options &body fields)
    "A macro to define the struct to CFFI and to libffi simultaneously.
  
negative.code: ;; Defining C structures.
  ;; Liam Healy 2009-04-07 22:42:15EDT interface.lisp
  ;; Time-stamp: <2009-05-19 14:13:31EDT cstruct.lisp>
  ;; $Id: $
  
  (in-package :fsbv)
  