Method: (DEBUG-ON-ERROR STANDARD-APPLICATION)

Source

(defmethod debug-on-error ((app standard-application))
  (if (slot-boundp app 'debug-on-error)
      (slot-value app 'debug-on-error)
      (debug-on-error nil)))