anchor.diff:  ;; Defining C structures.
   ;; Liam Healy 2009-04-07 22:42:15EDT interface.lisp
  -;; Time-stamp: <2009-05-19 14:13:31EDT cstruct.lisp>
  +;; Time-stamp: <2010-07-08 09:25:23EDT cstruct.lisp>
   ;; $Id: $
   
   (in-package :fsbv)
  
positive.code: 	       ptr)
  	     (get ',name 'foreign-object-components)
  	     (lambda (object &optional (index 0))
  	       (declare (ignore index))
  	       (,(option-from-name-and-options name-and-options :constructor 'list)
  		 ,@(iterate-foreign-structure
  		    fields
  
negative.code: 		      `(,(structure-slot-form field name fn))))))
  	     (get ',name 'setf-foreign-object-components)
  	     (lambda (value object &optional (index 0))
  	       (setf
  		,@(iterate-foreign-structure
  		   fields
  