(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 件のコメント:
コメントを投稿