Hi,
Standard CL provides with the ERROR function a convenient way
to signal simple-errors, but (unless I've overlooked something)
things get verbose for simple-error subclasses.
E.g.
(define-condition my-error (simple-error)
((arg
:initarg :arg
:initform nil)))
(error 'my-error :arg "foo"
:format-control "Something is wrong: ~A"
:format-arguments (list xyz))
To tidy things up, I've written the SERROR function:
(serror 'my-error :arg "foo"
"Something is wrong: ~A" xyz)
(serror 'my-error "Something is wrong: ~A" xyz)
(serror 'my-error "Something is wrong.")
Of course I'm sending this because I'd like to have it in
Alexandria :-)
Thanks,
Stefan