January 2009 - alexandria-devel - mailman3.common-lisp.net

[alexandria-devel] Review cycle 2: SWITCH, ESCWITCH, and CSWITCH
by Nikodemus Siivola 08 Apr '10

08 Apr '10

macro switch ((object &key test key) &body clauses) "Evaluates first matching clause, returning its values, or evaluates and returns the values of DEFAULT if no keys match." macro eswitch ((object &key test key) &body clauses) "Like SWITCH, but signals an error if no key matches." cswitch ((object &key test key) &body clauses) "Like SWITCH, but signals a continuable error if no key matches."

8 23

[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] setf cdr-assoc
by John Fremlin 23 Jan '09

23 Jan '09

Sometimes it's convenient to store things in a list like '((key . value) (another-key . value)) rather than a full blown (and unordered) hash table. It is available now in cl-irregsexp.utils but could you add the fairly standard cdr-assoc function to alexandria? (declaim (inline cdr-assoc)) (defun cdr-assoc (alist key &key (test 'eql)) (cdr (assoc key alist :test test))) (define-setf-expander cdr-assoc (place key &key (test ''eql) &environment env) (multiple-value-bind (dummies vals newval setter getter) (get-setf-expansion place env) (with-unique-names (store key-val test-val alist found) (values (append dummies (list key-val test-val)) (append vals (list key test)) `(,store ,@newval) `(let (,@(mapcar 'list dummies vals) (,alist ,getter)) (let ((,found (assoc ,key-val ,alist :test ,test-val))) (cond (,found (setf (cdr ,found) ,store)) (t (setf ,(first newval) (acons ,key ,store ,alist)) ,setter)) ,store)) `(cdr-assoc ,getter)))))

1 0