anchor.diff:    (declare (ignore type args))
     +size-of-float+)
   
  +(defmethod to-alien-form (form (type (eql 'single-float)) &rest args)
  +  (declare (ignore type args))
  +  `(coerce ,form 'single-float))
  +
  +(defmethod to-alien-function ((type (eql 'single-float)) &rest args)
  +  (declare (ignore type args))
  +  #'(lambda (number)
  +      (coerce number 'single-float)))
  +
   (defmethod writer-function ((type (eql 'single-float)) &rest args)
     (declare (ignore type args))
     #'(lambda (value location &optional (offset 0))
  
positive.code: (defmethod size-of ((type (eql 'double-float)) &rest args)
    (declare (ignore type args))
    +size-of-double+)
  
  (defmethod writer-function ((type (eql 'double-float)) &rest args)
    (declare (ignore type args))
  
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: ffi.lisp,v 1.17 2005-02-25 23:55:06 espen Exp $
  
  (in-package "GLIB")
  
  