Starting November 9th, common-lisp.net's Gitlab instance has implemented a more open account policy, allowing anyone with a GitHub or Google account to create an account on our instance.

At the same time, the login policy has started to require 2-factor authentication (2FA).

See https://mailman.common-lisp.net/pipermail/clo-devel/2018-October/001232.html for discussion.

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