Changeset 15605 for trunk/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

Timestamp:

11/28/22 10:28:17 (6 months ago)

Author:

Mark Evenson

Message:

Added the possibility to specify array types in jnew-runtime-class

Types can be specified as the list (:array TYPE), where TYPE is either a keyword
describing a primitive JVM type or a JVM-CLASS-NAME structure object.

File:

• trunk/abcl/src/org/armedbear/lisp/jvm-class-file.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/jvm-class-file.lisp

@@ -244 +244 @@
       (class-name-internal field-type)))
 
+(defun map-array-type (field-type)
+  (assert (eql :array (first field-type)))
+  (concatenate 'string "["
+   (internal-field-ref (second field-type))))
+
 (defun internal-field-ref (field-type)
   "Returns a string containing the JVM-internal representation of a reference
 to `field-type', which should either be a symbol identifying a primitive
 type, or a `class-name' structure identifying a class or interface."
-  (if (symbolp field-type)
-      (map-primitive-type field-type)
-      (class-ref field-type)))
+  (etypecase field-type
+    (symbol (map-primitive-type field-type))
+    (cons (map-array-type field-type))
+    (jvm-class-name (class-ref field-type))))
 
 (defun descriptor (return-type &rest argument-types)