June 2008 - 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] [PATCH] Fix for a bug in map-permutations
by Juan M. Bello Rivas 01 Aug '08

01 Aug '08

Hi, The function map-permutations wasn't working. The attached patch fixes it. Regards, -- Juan M. Bello Rivas

2 1

[alexandria-devel] Pending patches
by Tobias C. Rittweiler 01 Aug '08

01 Aug '08

There are still several patches pending in my repository: http://common-lisp.net/~trittweiler/darcs/alexandria/ The patches affect the following files: * alexandria.asd: Attila's LENGTH= implementation makes use of ARRAY-INDEX. So add a dependency between `types.lisp' and `sequences.lisp'. * functions.lisp: Make %COERCE-CALLABLE-TO-FUN notes go away. * lists.lisp: Add macro DO-PROPER-LIST, add function PROPER-LIST-LENGTH. Use them to guard against dotted and circular lists in several functions in `lists.lisp' and `sequences.lisp' (those who stated so in their docstrings.) * sequences.lisp: Fix MAP-COMBINATIONS. Add sequence iterators, i.e. WITH-SEQUENCE-ITERATOR and DOSEQUENCE. * hash-tables.lisp: Remove :KEY argument from COPY-HASH-TABLE; introduce MAP-HASH-TABLE instead. * modify-macros.lisp: New file; add CALLF &c.; Also add ENSUREF. -T.

3 2

[alexandria-devel] io.lisp platform dependance
by Attila Lendvai 23 Jun '08

23 Jun '08

hi! io.lisp has some problems with regards to external-format, and i don't really know how to fix this. for now it only works on lisps that understand :exernal-format :default. the problem is that the external-format keyword arg is platform dependent, and so is its default value. we could add tons of various #+ conditionals, but that doesn't seem like a nice way to fix this. apply doesn't help much either, because with-open-file is a macro used inside a function. any ideas for a clean fix? -- attila

1 0

[alexandria-devel] Reviewing control-flow.lisp; RfC to add ECOND, CCOND.
by Tobias C. Rittweiler 11 Jun '08

11 Jun '08

As control-flow.lisp is being reviewed, I'd like to suggest the incoporation of ECOND, and CCOND that do the obvious things. An implementation for ECOND is appended. -T. (defmacro econd (&body clauses) "ECOND works exactly like COND except if no test-form of the clauses evaluates to true, an error is signalled." `(cond ,@(append clauses (unless (loop for (clause-test . nil) in clauses thereis (member clause-test '(t otherwise))) `((t (error "ECOND -- fall through.")))))))

1 0

[alexandria-devel] BISECT
by Samium Gromoff 07 Jun '08

07 Jun '08

Good day list, I believe the code below might meet the conservative standards of Alexandria. What do you think? (defun bisect (test n &optional (base 0)) "Find, using bisection, the largest positive integer below N and above, or equal to BASE, which satisfies TEST of one argument. Assumes monotonous truth value of TEST." (labels ((traverse (x fallback attack) (if (funcall test x) (cond ((zerop attack) x) ((= attack 1) (if (funcall test (1+ x)) (1+ x) x)) (t (rebalance x (1+ attack)))) (cond ((= fallback 1) (when (funcall test (1- x)) (1- x))) (t (rebalance (- x fallback) fallback))))) (rebalance (origin span &aux (middle (ash span -1))) (traverse (+ origin middle) middle (- span middle 1)))) (rebalance base (- n base)))) regards, Samium Gromoff

2 2

[alexandria-devel] symbolicate
by Attila Lendvai 05 Jun '08

05 Jun '08

hi, fyi, i've pushed symbolicate. irc rumour has it, that Nikodemus was pretty favorable to adding it... so, i hope it won't initiate a veto fury... :) it seemed to be the most forward looking way to fix cffi-grovel. -- attila

3 5

[alexandria-devel] Re: approval request
by Marco Baringer 03 Jun '08

03 Jun '08

[resending to alexandria-devel(a)common-lisp.net] "Attila Lendvai" <attila.lendvai(a)gmail.com> writes: > hi Marco, > > we would like to copy and/or modify some of your work you have done in > Arnesi and add it to Alexandria. if you approve it, could you please > answer publicly? i approve. since the copyright notice at the end of io.lisp reads (in part): ;; - Redistributions of source code must retain the above copyright ;; notice, this list of conditions and the following disclaimer. ;; ;; - Redistributions in binary form must reproduce the above copyright ;; notice, this list of conditions and the following disclaimer in the ;; documentation and/or other materials provided with the distribution. i'm also rescinding these conditions. iow you do not need to keep my name and copyright in the copyright of alexandria, i'd appreciate it if you mentioned where you got the code from (so that any future patches could make their way back to arnesi) but you have no legal obligation to do so. -- -Marco Ring the bells that still can ring. Forget your perfect offering. There is a crack in everything. That's how the light gets in. -Leonard Cohen

1 0

[alexandria-devel] approval request
by Attila Lendvai 03 Jun '08

03 Jun '08

hi Marco, we would like to copy and/or modify some of your work you have done in Arnesi and add it to Alexandria. if you approve it, could you please answer publically? thanks in advance, - alexandria developer team

1 0