anchor.diff:  (defun find-foreign-function (name library)
     (flet ((find-it (library)
              (ignore-errors
  -            (jcall (jmethod "com.sun.jna.NativeLibrary" "getFunction"
  -                            "java.lang.String")
  +            (jcall-raw (jmethod "com.sun.jna.NativeLibrary" "getFunction"
  +                                "java.lang.String")
                      library name))))
       (if (eq library :default)
           (or (find-it
  
positive.code: (defun %close-foreign-library (handle)
    "Closes a foreign library."
    #+#:ignore (setf *loaded-libraries* (remove handle *loaded-libraries*))
    (jcall (jmethod "com.sun.jna.NativeLibrary" "dispose") handle))
  
  ;;;
  
  
negative.code:          (val (if (and (unsigned-type-p type) (logbitp (1- bit-size) value))
                    (lognot (logxor value (1- (expt 2 bit-size))))
                    value)))
      (jcall-raw (jmethod "com.sun.jna.Pointer"
                      (jna-setter type) "long" (jna-setter-arg-type type))
             ptr
             offset
  