Permalink
Browse files

Make JVM class names more readable.

  • Loading branch information...
Ferada committed Jun 28, 2017
1 parent 78ca753 commit a9fdcd7f5b3ae9645712af8a7d4b7f43c7618ac3
Showing with 6 additions and 1 deletion.
  1. +6 −1 src/org/armedbear/lisp/jvm-class-file.lisp
@@ -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'.

0 comments on commit a9fdcd7

Please sign in to comment.