anchor.diff:  
   ;;;# Foreign Globals
   
  -(defun foreign-symbol-pointer (name kind)
  +(defun foreign-symbol-pointer (name)
     "Returns a pointer to a foreign symbol NAME."
     (si:find-foreign-symbol name :default :pointer-void 0))
   
  
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: ;;; 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.
  