anchor.diff:    (let* ((jvm-returns (foreign-to-callback-type returns))
            (jvm-args  (mapcar #'foreign-to-callback-type args))
            (interface-name (qualified-callback-interface-classname jvm-returns jvm-args)))
  -    (handler-case 
  +    (handler-case
           (jss:find-java-class interface-name)
         (java-exception (e)
           (when (jinstance-of-p (java:java-exception-cause e)
  
positive.code: 
  (defpackage #:cffi-sys
    (:use #:cl #:java)
    (:import-from #:alexandria #:hash-table-values #:length=)
    (:export
     #:canonicalize-symbol-name-case
     #:foreign-pointer
  
negative.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)))))))
  