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