Plaster

(defvar *in-slime* nil) (defmethod print-object :around ((object bit-vector) stream) (if *in-slime* (my-print-object object stream) (call-next-method)))