print the element type name when printing the class too

1 files changed, 7 insertions, 0 deletions

diff --git a/core/classes.lisp b/core/classes.lisp
index 071e267..ff33820 100644
--- a/core/classes.lisp
+++ b/core/classes.lisp
@@ -32,6 +32,13 @@
           (print-unreadable-object (o s :type t :identity t)
             (write class :stream s)))
         (call-next-method))))
+(defmethod print-object ((o element-type-class) s)
+  (let ((class (slot-value o 'name)))
+    (if class
+        (let ((*package* (find-package :keyword)))
+          (print-unreadable-object (o s :type t :identity nil)
+            (f:fmt s (:s class) " " (:s (class-name o)))))
+        (call-next-method))))
 (defgeneric coerce-element-type (element)
   (:method ((element-type (eql nil)))
     nil)