alexandria-devel December 2012

alexandria-devel@common-lisp.net

12 discussions

[alexandria-devel] latest alexandria doesn't build on ECL due to non-standard LOOP
by Anton Vodonosov 18 Jan '18

18 Jan '18

Hello. Alexandria in the latest quicklisp has a regression comparing to quicklisp 2012-02-08. It doesn't build on ECL because on non-standard LOOP construct (it is tolerated by most Lisps, but not by ECL; see here: http://comments.gmane.org/gmane.lisp.ecl.general/3344). The compiler complains about copy-stream method in io.lisp. Build logs: https://cl-test-grid.appspot.com/blob?key=AMIfv97xRRWJgLOa5TvS78VriRK9mQ82m… Best regards, - Anton

2 1

[alexandria-devel] Add SUBDIVIDE to alexandria
by Rolando Pereira 29 Jan '13

29 Jan '13

Hello all, What are the odds of adding this[1] implementation of SUBDIVIDE to alexandria? I understand that alexandria only accepts public domain code, but I think that Robert Smith also follows this mailist so maybe he would let the code be added to alexandria. SUBDIVIDE is a function that divides a sequence into parts with a certain size, and returns a list with those parts. Best Regards, Rolando Pereira --- Links: [1] - https://bitbucket.org/tarballs_are_good/qtility/src/423519bbe130/sequence.l…

4 5

[alexandria-devel] Adding a taste of Scheme to CL
by Pierre Thierry 27 Jan '13

27 Jan '13

Hi, after having followed SICP, I have been irremediably hooked on Scheme's let, so I added it to my macros. IIRC, I borrowed this implementation form SBCL's NAMED-LET (it's so short, it's hard to tell). I also heavily use a cataphoric IF, which I will now replace by the single-binding IF-LET, now that I know it exists. I thought it would be nice if LET@ was available in Alexandria with the other binding macros. Regards, Pierre

4 9

[alexandria-devel] multiple values in switch clauses
by Marco Baringer 26 Jan '13

26 Jan '13

hi, i'd like switch to, just like case and typecase do, allow multiple values in the 'value' position of the condition: (switch (foo) ((bar baz) ...)) So the attached patch checks for the key form being a cons and, if so, expands into a (member value :test test) instead of (test value) form. Of course, this means that your key values can no longer be forms, so this may break existing code. I don't have any code which actually uses a function call in the value form of the clause (and a quick grep over my locally installed lisp libs shows nobody else does either), so i'm ok with the change, but i can understand if others don't agree. -- -marco

2 3

[alexandria-devel] parse-ordinary-lambda-list
by Faré 26 Jan '13

26 Jan '13

An important missing information that parse-ordinary-lambda-list fails to return is whether there was a &key keyword. If I submit a patch to add that as an additional returned value, will it be integrated? —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org The American diplomat to the Russian: "My country too is free: in the USA too anyone may freely publish the dirty little secrets of president Medvedev!"

2 1

[alexandria-devel] spelling mistake on http://common-lisp.net/project/alexandria/
by Michael Stevens 26 Jan '13

26 Jan '13

Hi. http://common-lisp.net/project/alexandria/ has a reference to "draft documantion exists" when it probably means "draft documentation" exists? Michael

2 1

[alexandria-devel] if-let*
by Marco Baringer 26 Jan '13

26 Jan '13

(i think i've already sent this, but it hasn't shown up on the list, sorry if you get it twice) hi, i recently needed (or just decided that i wanted it) a version of if-let with sequential binding. The bindings form is as with if-let, however to ensure that only the 'true' bindings are seen in the else form (and i'm not convinced this is worth it) the else form is repeated multiple times (once per binding) in the macro's expansion. the docstring should explain how it works (and if not i'll fix the docstring). and, since it made sense to me at the time, when-let and when-let* are implemented in terms of if-let and if-let* (instead of repeating the binding expansion and and code). -- -marco

2 1

[alexandria-devel] [Patch]: Fix an example in the docstring of iota.
by Stas Boukarev 26 Jan '13

26 Jan '13

An example in the docstring of iota was (iota 4) => (0 1 2 3 4) while it should've been (iota 4) => (0 1 2 3). -- With best regards, Stas.

2 4

[alexandria-devel] minor spelling patch
by Michael Stevens 26 Jan '13

26 Jan '13

Minor spelling improvements in README.

2 1

[alexandria-devel] Question about FORMAT-SYMBOL
by Luís Oliveira 26 Jan '13

26 Jan '13

Hello, I often try to support Allegro's modern mode by doing things like (format-symbol t "~A-~A" :foo :bar). We just came across an issue on #quicklisp where a user had set his *PRINT-CASE* to :DOWNCASE and that caused FORMAT-SYMBOL to intern lower-case symbols, thus breaking the idiom I described. Should fix my code to use SYMBOLICATE instead or should FORMAT-SYMBOL use WITH-STANDARD-IO-SYNTAX? Any opinions? -- Luís Oliveira http://r42.eu/~luis

5 8

[alexandria-devel] Documentation fix and feature suggestion
by Jan Moringen 26 Jan '13

26 Jan '13

Dear alexandria developers, please the documentation fix and new functions in the two most recent commits in git://github.com/scymtym/alexandria.git for inclusion. Many thanks in advance. Kind regards, Jan

2 1

[alexandria-devel] Regarding %MULTIPLY-RANGE, BINOMIAL-COEFFICIENT
by Robert Smith 26 Jan '13

26 Jan '13

Hello all. I've been trying to speed up BINOMIAL-COEFFICIENT for combinatorial calculations and ended up writing my own functions which were originally based off of Alexandria's design. For computing the binomial coefficient of (10^11, 10^5), Alexandria's takes about 9.990 seconds on my 64-bit Windows machine with a relatively recent SBCL with (optimize speed (safety 0) (debug 0)). I've ended up writing my own version of %MULTIPLY-RANGE, which I ended up calling RANGE-PRODUCT, and it's definition is: (declaim (ftype (function (integer integer) integer) range-product)) (defun range-product (lower upper) "Compute LOWER * (LOWER+1) * ... * (UPPER-1) * UPPER." (assert (<= lower upper)) (case (- upper lower) ((0) lower) ((1) (* lower upper)) (otherwise (let ((mid (floor (+ lower upper) 2))) (* (range-product lower mid) (range-product (1+ mid) upper)))))) [ from QTILITY: https://bitbucket.org/tarballs_are_good/qtility/src/65eff10fdece/arithmetic… ] >From that, the definition of FACTORIAL follows: (declaim (ftype (function ((integer 0)) (integer 1)) factorial)) (defun factorial (n) "Compute the factorial of N, N! = 1 * 2 * ... * N." (if (zerop n) 1 (range-product 1 n))) [ from QTILITY: https://bitbucket.org/tarballs_are_good/qtility/src/65eff10fdece/arithmetic… ] Then, I wrote BINOMIAL-COEFFICIENT that uses a closure to direct the swapping of the K and N-K, instead of mutating them. This seemed to at least help with SBCL's flow analysis. I also chose not to use CHECK-TYPE in favor of declarations (which I understand are not the same, but I think they should attempt to act the same given a sufficient compiler policy). (declaim (ftype (function ((integer 0) (integer 0)) (integer 0)) binomial-coefficient)) (defun binomial-coefficient (n k) "Binomial coefficient of N and K." (assert (>= n k)) (labels ((core (k n-k) (if (= 1 n-k) n (nth-value 0 (floor (range-product (+ k 1) n) (factorial n-k)))))) (declare (inline core) (ftype (function ((integer 0) (integer 0)) (integer 0)) core)) (if (or (zerop k) (= n k)) 1 (let ((n-k (- n k))) (declare (type (integer 0) n-k)) (if (< k n-k) (core n-k k) (core k n-k)))))) [ from QTILITY: https://bitbucket.org/tarballs_are_good/qtility/src/65eff10fdece/arithmetic… ] With the code above, I can compute the same binomial coefficient in about 7.503 seconds, so about a 2.5 second speed up. I'd like to submit a patch using the code above, but I could see how these speed ups are both implementation-dependent and platform-dependent. A particular unfortunate consequence is that we don't have those tweakable limits which (in theory; as the comments say) could be computed at compile time. Any thoughts? -Robert

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

alexandria-devel December 2012