Make JVM class names more readable

(Olof-Joachim Frahm)

From <https://github.com/Ferada/abcl/commit/a9fdcd7f5b3ae9645712af8a7d4b7f43c7618ac3>.
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