anchor.diff:  ;;; data structures are reused.
   (defpackage #:cffi-callbacks
     (:use))
  +
  +(defvar *callbacks* (make-hash-table))
   
   ;;; Intern a symbol in the CFFI-CALLBACKS package used to name the
   ;;; internal callback for NAME.
  
positive.code:           (subseq "#0,#1,#2,#3,#4,#5,#6,#7,#8,#9,#a,#b,#c,#d,#e,#f,#g,#h,#i,#j,#k,#l,#m,#n,#o,#p,#q,#r,#s,#t,#u,#v,#w,#x,#y,#z"
                    0 (max 0 (1- (* nargs 3))))))
  
  #-dfii
  (defun foreign-function-inline-form (name arg-types arg-values return-type)
    "Generate a C-INLINE form for a foreign function call."
    `(ffi:c-inline
  
negative.code: 
  ;;;# Foreign Globals
  
  (defun foreign-symbol-pointer (name)
    "Returns a pointer to a foreign symbol NAME."
    (si:find-foreign-symbol name :default :pointer-void 0))
  
  