anchor.diff:      (:unsigned-short (setf (%get-unsigned-word ptr offset) value))
       (:int (setf (%get-signed-long ptr offset) value))
       (:unsigned-int (setf (%get-unsigned-long ptr offset) value))
  -    (:long (setf (%get-signed-long ptr offset) value))
  -    (:unsigned-long (setf (%get-unsigned-long ptr offset) value))
  +    (:long (setf
  +            #+ppc32-target (%get-signed-long ptr offset)
  +            #+ppc64-target (ccl::%%get-signed-longlong ptr offset)
  +            value))
  +    (:unsigned-long (setf
  +                     #+ppc32-target (%get-unsigned-long ptr offset)
  +                     #+ppc64-target (ccl::%%get-unsigned-longlong ptr offset)
  +                     value))
       (:float (setf (%get-single-float ptr offset) value))
       (:double (setf (%get-double-float ptr offset) value))
       (:pointer (setf (%get-ptr ptr offset) value))))
  
positive.code:   #-darwinppc-target name)
  
  (defmacro %foreign-funcall (function-name &rest args)
    "Perform a foreign function all, document it more later."
    `(external-call
      ,(convert-external-name function-name)
      ,@(convert-foreign-funcall-types args)))
  
negative.code:           (:unsigned-short `(setf (%get-unsigned-word ,ptr ,offset) ,value))
            (:int `(setf (%get-signed-long ,ptr ,offset) ,value))
            (:unsigned-int `(setf (%get-unsigned-long ,ptr ,offset) ,value))
            (:long
             #+ppc32-target `(setf (%get-signed-long ,ptr ,offset) ,value)
             #+ppc64-target `(setf (ccl::%%get-signed-longlong ,ptr ,offset)
                              ,value))
            (:unsigned-long
             #+ppc32-target `(setf (%get-unsigned-long ,ptr ,offset) ,value)
             #+ppc64-target `(setf (ccl::%%get-unsigned-longlong ,ptr ,offset)
                              ,value))
            (:float `(setf (%get-single-float ,ptr ,offset) ,value))
            (:double `(setf (%get-double-float ,ptr ,offset) ,value))
            (:pointer `(setf (%get-ptr ,ptr ,offset) ,value))))
  