Make JVM class names more readable

(Olof-Joachim Frahm)

From <>.
parent 7b0bde8b
......@@ -105,7 +105,8 @@ representation to use.
(defstruct (jvm-class-name (:conc-name class-)
(:constructor %make-jvm-class-name))
(:constructor %make-jvm-class-name)
(:print-object %print-jvm-class-name))
"Used for class identification.
The caller should instantiate only one `class-name' per class, as they are
......@@ -120,6 +121,10 @@ This class is used to abstract from the difference."
;; name comparisons to be EQ: all classes should exist only once,
(defun %print-jvm-class-name (name stream)
(print-unreadable-object (name stream :type t)
(write-string (class-name-internal name) stream)))
(defun make-jvm-class-name (name)
"Creates a `class-name' structure for the class or interface `name'.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment