[Common Lisp] らき☆すた の記念に

らき☆すた の記念に。

(let ((gf (symbol-function 'print-object)))
  (loop for method in (sb-mop:generic-function-methods gf)
     do (sb-mop:remove-method gf method)))

(defmethod print-object (x stream)
  (write-string "≡ω≡." stream))

(inspect (find-class 't))