@@ -115,3 +115,13 @@

                                               (symbol-name slot-name)))

                                  doc)))

         (setf (slot-value object slot-name) doc-value)))))

+

+

+(defmacro define-printer (class &body options)

+  (alexandria:with-gensyms (s)

+    `(defmethod print-object ((,class ,class) ,s)

+       (print-unreadable-object (,class ,s :type t :identity t)

+         ,(destructuring-bind (name value) (car options)

+            `(format ,s "~a: ~s" ,name (,value ,class)))

+         ,@(loop for (name value) in (cdr options)

+                 collect `(format ,s ", ~a: ~s" ,name (,value ,class)))))))

@@ -32,7 +32,7 @@

            #:defun-ct :define-cluser-entrypoint :new :make-constructor

            #:dive :empty-hash-table-like :v-assoc :defclass+ :closing

            #:inits :retry-once :hashtable-slot-mixin :hsm-doc :adjoinf

-           #:it :keys :split-at))

+           #:it :keys :split-at :define-printer))

 (defpackage :fwoar.lisputils.shortcuts