spacebat

(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)))

phoe

Package-local nicknames in Common Lisp

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.

Story time