;; The following removes a method from running SBCL

(remove-method 
 #'initialize-instance
 (find-method #'initialize-instance '(:after)  (mapcar #'find-class '(monom))))