(defclass foo () ())
(defun bar () (break (make-instance 'foo)))
(setf (find-class 'foo) (defclass f () () (:metaclass sb-mop:funcallable-standard-class)))
(defmethod initialize-instance :after ((f f) &key) (sb-mop:set-funcallable-instance-function f (lambda (stream) (format stream "BREAK"))))
(bar)
=>
debugger invoked on a SIMPLE-CONDITION in thread #<THREAD "main thread" RUNNING {10005F05B3}>: BREAK
(defclass foo () ())
(defun bar ()
(break (make-instance 'foo)))
(setf (find-class 'foo) (defclass f () () (:metaclass sb-mop: funcallable- standard- class)) )
(defmethod initialize-instance :after ((f f) &key) set-funcallable -instance- function f (lambda (stream) (format stream "BREAK"))))
(sb-mop:
(bar)
=>
debugger invoked on a SIMPLE-CONDITION in thread
#<THREAD "main thread" RUNNING {10005F05B3}>:
BREAK