Details
-
Type:
Defect
-
Status:
Open
-
Priority:
Major
-
Resolution: Unresolved
-
Affects Version/s: None
-
Fix Version/s: None
-
Component/s: None
-
Labels:None
-
Patch:Code
Description
to embed deftypes in the bytecode the compiler emits the value of each field, then emits a call to the deftypes underlying class's constructor.
to get a list of fields the compiler calls .getBasis.
the getBasis fields are the "clojure" level field names of the deftype, which the actual "jvm" level field names have been munged (replacing - with _, etc), so the compiler tries to generate code to set values on non-existent fields
https://github.com/clojure/clojure/blob/master/src/jvm/clojure/lang/Compiler.java#L4579
you can work around this by using field names that don't require munging. a solution might be just calling munge in the emission of field sets of ITypes
reproducing case
$ rlwrap java -server -Xmx1G -Xms1G -jar /Users/hiredman/src/clojure/target/clojure-1.6.0-master-SNAPSHOT.jar Clojure 1.6.0-master-SNAPSHOT user=> (deftype Foo [hello-world]) user.Foo user=> (alter-var-root #'default-data-readers assoc 'foo (fn [x] (Foo. x))) {foo #<user$eval6$fn__7 user$eval6$fn__7@2f953efd>, inst #'clojure.instant/read-instant-date, uuid #'clojure.uuid/default-uuid-reader} user=> #foo "1" CompilerException java.lang.IllegalArgumentException: No matching field found: hello-world for class user.Foo, compiling:(NO_SOURCE_PATH:0:0) user=>$ rlwrap java -server -Xmx1G -Xms1G -jar /Users/hiredman/src/clojure/target/clojure-1.6.0-master-SNAPSHOT.jar Clojure 1.6.0-master-SNAPSHOT user=> (deftype Foo [hello-world]) user.Foo user=> (alter-var-root #'default-data-readers assoc 'foo (fn [x] (Foo. x))) {foo #<user$eval6$fn__7 user$eval6$fn__7@2f953efd>, inst #'clojure.instant/read-instant-date, uuid #'clojure.uuid/default-uuid-reader} user=> #foo "1" CompilerException java.lang.IllegalArgumentException: No matching field found: hello-world for class user.Foo, compiling:(NO_SOURCE_PATH:0:0) user=>