anchor.diff:      (setf size-var (gensym "SIZE")))
     `(let ((,size-var ,size))
        (declare (ignorable ,size-var))
  -     (ff:with-stack-fobject (,var :char :c ,size)
  +     (ff:with-stack-fobject (,var :char :c ,size-var)
          ,@body)))
        
   ;;;# Shareable Vectors
  
positive.code:   (if (equal '(* :void) type)
        '(* :void)
        (ecase type
          ((:char           
            :unsigned-char) 'unsigned-byte)
          ((:short
            :unsigned-short
            :int
  
negative.code: 
  (in-package #:cffi-sys)
  
  ;;;# Basic Pointer Operations
  
  (defun pointerp (ptr)
  