[alexandria-devel] Signalling simple-errors

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