anchor.diff:  ;; Interface to libffi functions
   ;; Liam Healy 2009-04-06 21:14:55EDT functions.lisp
  -;; Time-stamp: <2009-04-06 23:43:46EDT functions.lisp>
  +;; Time-stamp: <2009-04-07 21:50:30EDT functions.lisp>
   
   (in-package :fsbv)
   
  
positive.code:      (cffi:foreign-slot-value ptr 'ffi-type 'elements) complex)
      ptr))
  
  (defvar test-prep
    (with-foreign-objects
        ((cif 'ffi-cif)
         (argtypes :pointer 1)
         ;(arguments :pointer 1)
         ;(result :double)
         )
      (setf (cffi:mem-aref argtypes :pointer 0) +pointer-type-complex+)
      (when (eql
  	   :OK
  	   (prep-cif cif :default-abi 1 +pointer-type-double+ argtypes))
        t)))
  
  #|
      (call cif
  	  (foreign-symbol-pointer "gsl_complex_abs")
  	  result
  	  )
  |#
  
negative.code:     (rvalue :pointer)
      (avalues :pointer))
  
  (load-foreign-library #+unix "libgslcblas.so")
  (load-foreign-library #+unix "libgsl.so")
  
  (defvar +pointer-type-complex+
    ;; See file:///usr/share/doc/libffi-dev/html/Structures.html#Structures
  