2007/09/19

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

0 件のコメント: