anchor.diff:    "Perform a foreign function call, document it more later."
     (multiple-value-bind (types fargs rettype)
         (foreign-funcall-type-and-args args)
  -    (if (equal rettype '(* t))
  -        `(alien-sap (%%foreign-funcall ,name ,types ,fargs ,rettype))
  -        `(%%foreign-funcall ,name ,types ,fargs ,rettype))))
  +    `(%%foreign-funcall ,name ,types ,fargs ,rettype)))
   
   ;;;# Loading Foreign Libraries
   
  
positive.code:     (:unsigned-long    'unsigned-long)
      (:float            'single-float)
      (:double           'double-float)
      (:pointer          '(* t))
      (:void             'void)))
  
  (defun %foreign-type-size (type-keyword)
  
negative.code: 
  ;;;# Basic Pointer Operations
  
  (declaim (inline pointerp))
  (defun pointerp (ptr)
    "Return true if PTR is a foreign pointer."
    (sys:system-area-pointer-p ptr))
  
  (declaim (inline null-ptr))
  (defun null-ptr ()
    "Construct and return a null pointer."
    (sys:int-sap 0))
  
  (declaim (inline null-ptr-p))
  (defun null-ptr-p (ptr)
    "Return true if PTR is a null pointer."
    (zerop (sys:sap-int ptr)))
  
  (defmacro with-foreign-ptr ((var size &optional size-var) &body body)
    "Bind VAR to SIZE bytes of foreign memory during BODY.  The
  