anchor.diff:    (flet ((find-it (library)
              (ignore-errors
               (make-pointer
  -             (jcall 
  +             (jcall
                 (private-jmethod "com.sun.jna.NativeLibrary" "getSymbolAddress")
                 library name)))))
       (if (eq library :default)
  
positive.code:               (let ((short-name (if (foreign-library-type-p (pathname-type p))
                                      (subseq (pathname-name p) 3)
                                      (pathname-name p))))
                  (handler-case 
                      (load-and-register name short-name)
                    (java-exception (e) (java-error e))))
                (java-error e)))))))
  
negative.code:      (:float "java.lang.Float")
       (:double "java.lang.Double")
       ((:char :unsigned-char) "java.lang.Byte")
       ((:short :unsigned-short) "java.lang.Short"))))
  
  (defun %foreign-type-size (type)
    "Return the size in bytes of a foreign type."
  