Warning: this is a rant.
Warning: you have been warned.
Note: actually worthwhile content starts in the second subsection. You are free to skip the first one.
(ql:quickload :closer-mop) | |
(defclass foo () | |
((bar :initarg :bar :initform nil :reader foo-bar))) | |
(defclass fuu (foo) | |
((baz :initarg :baz :initform nil :reader fuu-baz))) | |
(defmethod print-object ((f foo) stream) | |
(print-unreadable-object (f stream :type t))) |