anchor.diff:    (if (constantp type)
         (once-only (val)
           (let ((type (eval type)))
  -          (if (eql type :pointer)
  +          (if (or #+(and lispworks-64bit lispworks5.0) (64-bit-type-p type)
  +                  (eql type :pointer))
                 (let ((fli-type (convert-foreign-type type))
                       (ptr-form (if (eql off 0) ptr `(inc-pointer ,ptr ,off))))
                   `(setf (fli:dereference ,ptr-form :type ',fli-type) ,val))
  
positive.code:   (unless (zerop offset)
      (setf ptr (inc-pointer ptr offset)))
    (fli:dereference ptr :type (convert-foreign-type type)))
  
  ;;; In LispWorks versions where FLI:FOREIGN-TYPED-AREF is fbound, use
  ;;; it instead of FLI:DEREFERENCE in the optimizer for %MEM-REF.
  
negative.code: 
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (mapc (lambda (feature) (pushnew feature *features*))
          '(#-lispworks-64bit cffi-features:no-long-long)))
  
  ;;;# Symbol Case
  
  