anchor.diff:                     (lisp-value-to-java arg type)))
       (if (eq return-type :void)
           (progn
  -          (jcall (jmethod "com.sun.jna.Function" "invoke" "[Ljava.lang.Object;")
  -                 function jargs)
  +          (jcall-raw (jmethod "com.sun.jna.Function" "invoke" "[Ljava.lang.Object;")
  +                     function jargs)
             (values))
           (lispify-value
            (jcall (jmethod "com.sun.jna.Function" "invoke"
  
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:   (flet ((find-it (library)
             (ignore-errors
              (make-pointer
               (jcall-raw
                (private-jmethod "com.sun.jna.NativeLibrary" "getSymbolAddress")
                library name)))))
      (if (eq library :default)
  