-(defun print-simple-error (condition stream)
- (format stream
- ;; FIXME: It seems reasonable to display the "in function
- ;; ~S" information, but doesn't the logic to display it
- ;; belong in the debugger or someplace like that instead of
- ;; in the format string for this particular family of
- ;; conditions? Then this printer might look more
- ;; ("~@<~S: ~2I~:_~?~:>" (TYPE-OF C) ..) instead.
- "~@<error in function ~S: ~2I~:_~?~:>"
- (condition-function-name condition)
- (simple-condition-format-control condition)
- (simple-condition-format-arguments condition)))
-
-(define-condition simple-error (simple-condition error) ()
- ;; This is the condition type used by ERROR and CERROR when
- ;; a format-control string is supplied as the first argument.
- (:report print-simple-error))