anchor.diff:           (val (if (and (unsigned-type-p type) (logbitp (1- bit-size) value))
                     (lognot (logxor value (1- (expt 2 bit-size))))
                     value)))
  -    (jcall (jmethod "com.sun.jna.Pointer"
  +    (jcall-raw (jmethod "com.sun.jna.Pointer"
                       (jna-setter type) "long" (jna-setter-arg-type type))
              ptr
              offset
  
positive.code:                    (lisp-value-to-java arg type)))
      (if (eq return-type :void)
          (progn
            (jcall (jmethod "com.sun.jna.Function" "invoke" "[Ljava.lang.Object;")
                   function jargs)
            (values))
          (lispify-value
           (jcall (jmethod "com.sun.jna.Function" "invoke"
  
negative.code:   (flet ((find-it (library)
             (ignore-errors
              (make-pointer
               (jcall-raw
                (private-jmethod "com.sun.jna.NativeLibrary" "getSymbolAddress")
                library name)))))
      (if (eq library :default)
  