Changeset 14839


Ignore:
Timestamp:
10/21/15 22:14:27 (6 years ago)
Author:
Mark Evenson
Message:

jss: ensure strings are used for comparison in class hashtable

Fixes a problem encountered in lookup for
'abcl-asdf:AETHER.GRAPH.DEPENDENCY' which for some reason resulting in
the class name asdf:AETHER.GRAPH.DEPENDENCY. However it was supposed
to be just a class suffix.

Thanks to Alan Ruttenberg.

Location:
trunk/abcl/contrib/jss
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/jss/invoke.lisp

    r14726 r14839  
    124124    "Whether to automatically introspect all Java classes on the classpath when JSS is loaded."))
    125125
    126 (defvar *imports-resolved-classes* (make-hash-table :test 'equal))
     126(defvar *imports-resolved-classes* (make-hash-table :test 'equalp))
    127127
    128128(defun find-java-class (name)
     
    144144
    145145(defun maybe-resolve-class-against-imports (classname)
    146   (or (gethash classname *imports-resolved-classes*)
     146  (or (gethash (string classname) *imports-resolved-classes*)
    147147      (let ((found (lookup-class-name classname)))
    148148        (if found
  • trunk/abcl/contrib/jss/jss.asd

    r14726 r14839  
    22(asdf:defsystem :jss
    33  :author "Alan Ruttenberg, Mark Evenson"
    4   :version "3.0.9"
     4  :version "3.0.10"
    55  :description "<> asdf:defsystem <urn:abcl.org/release/1.4.0/contrib/jss#3.0.9>"
    66  :components ((:module base
Note: See TracChangeset for help on using the changeset viewer.