alexandria-devel

Download

alexandria-devel@lists.common-lisp.net

May 2007

1 participants
2 discussions

[alexandria-devel] darcs patch: Add #.#+ readtime conditional functions.
by asf＠boinkor.net 02 Oct '09

02 Oct '09

Mon Oct 16 10:00:31 CEST 2006 asf(a)boinkor.net * Add #.#+ readtime conditional functions. * This adds functions that can be used in #+#. readtime conditionals, for example: #+#.(alexandria:read-if (find-package :asdf-install)) :yay #+#.(alexandria:read-if-fbound :install :asdf-install :exportedp t) :yay * included in the patch is a commented-out portion that allows the user to activate a #? read syntax. I'm not sure if that fits into the conservativism constraints.

3 3

[alexandria-devel] Signalling simple-errors
by Stefan Lang 06 May '07

06 May '07

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

1 0