Method: (HANDLE-ACTION-ERROR-USING-APPLICATION STANDARD-APPLICATION T T)

Source

(defmethod handle-action-error-using-application ((app standard-application) error backtrace)
  (setf (frame.window-component (context.current-frame *context*))
        (make-instance 'error-component
                       :condition error
                       :message (princ-to-string error)
                       :backtrace backtrace)))