Comment 3 for bug 1909659

(defun oops (&rest args) (break "Broken: ~S" args))

(defclass foo () ((name :reader foo-name)))

(defun test ()
  (funcall (lambda () (foo-name (make-instance 'foo) #'oops))))

---------------------------------------------

CL-USER> (test)

Unhandled memory fault at #x0.
   [Condition of type SB-SYS:MEMORY-FAULT-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {100FF91EC3}>)

Backtrace:
  0: (SB-PCL::INVOKE-EMF 0 (#<FOO {1011BD20D3}> #<FUNCTION OOPS>))
  1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (TEST) #<NULL-LEXENV>)
  2: (EVAL (TEST))