anchor.diff:      (:unsigned-int    :unsigned-int    "unsigned int")
       (:long            :long            "long")
       (:unsigned-long   :unsigned-long   "unsigned long")
  -    #+long-long
  -    (:long-long       :long-long       "long long")
  -    #+long-long
  -    (:unsigned-long-long :unsigned-long-long "unsigned long long")
  +    #+(or long-long uint64-t)
  +    (:long-long       :int64-t         "long long")
  +    #+(or long-long uint64-t)
  +    (:unsigned-long-long :uint64-t "unsigned long long")
       (:float           :float           "float")
       (:double          :double          "double")
       (:pointer         :pointer-void    "void*")
  
positive.code: WITH-POINTER-TO-VECTOR-DATA."
    (make-array size :element-type '(unsigned-byte 8)))
  
  (defmacro with-pointer-to-vector-data ((ptr-var vector) &body body)
    "Bind PTR-VAR to a foreign pointer to the data in VECTOR."
    `(let ((,ptr-var (si:make-foreign-data-from-array ,vector)))
       ,@body))
  
  ;;;# Type Operations
  
negative.code: 
  ;;;# Mis-features
  
  #-uint64-t(pushnew 'no-long-long *features*)
  (pushnew 'flat-namespace *features*)
  
  ;;;# Symbol Case
  