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. ...@@ -105,7 +105,8 @@ representation to use.
|# |#
(defstruct (jvm-class-name (:conc-name class-) (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. "Used for class identification.
The caller should instantiate only one `class-name' per class, as they are 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." ...@@ -120,6 +121,10 @@ This class is used to abstract from the difference."
;; name comparisons to be EQ: all classes should exist only once, ;; 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) (defun make-jvm-class-name (name)
"Creates a `class-name' structure for the class or interface `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