pranav has quit [Remote host closed the connection]
AetherWind has quit [Quit: leaving]
shka has quit [Quit: Konversation terminated!]
shka has joined #commonlisp
minion has quit [Remote host closed the connection]
specbot has quit [Remote host closed the connection]
easye has quit [Remote host closed the connection]
rkazak has joined #commonlisp
rkazak has quit [Ping timeout: 260 seconds]
robin has quit [Quit: Leaving]
dino_tutter has joined #commonlisp
manwithluck has quit [Ping timeout: 276 seconds]
robin has joined #commonlisp
manwithluck has joined #commonlisp
pranav has joined #commonlisp
elnegro has joined #commonlisp
elnegro has left #commonlisp [#commonlisp]
rkazak has joined #commonlisp
rkazak has quit [Ping timeout: 248 seconds]
mgl_ has joined #commonlisp
rkazak has joined #commonlisp
pranav has quit [Remote host closed the connection]
pranav has joined #commonlisp
rkazak has quit [Ping timeout: 248 seconds]
brokkoli_origin has quit [Ping timeout: 244 seconds]
brokkoli_origin has joined #commonlisp
rkazak has joined #commonlisp
rkazak has quit [Ping timeout: 248 seconds]
rkazak has joined #commonlisp
dino_tutter has quit [Ping timeout: 264 seconds]
rkazak has quit [Ping timeout: 260 seconds]
rkazak has joined #commonlisp
decweb has joined #commonlisp
random-nick has joined #commonlisp
zephyr has quit [Ping timeout: 252 seconds]
kevingal has joined #commonlisp
puke has quit [Remote host closed the connection]
yitzi has joined #commonlisp
puke has joined #commonlisp
zephyr has joined #commonlisp
puke has quit [Remote host closed the connection]
rkazak has quit [Ping timeout: 260 seconds]
dalem has joined #commonlisp
zephyr has quit [Quit: Ping timeout (120 seconds)]
chum-cha has joined #commonlisp
chum-cha has quit [Changing host]
chum-cha has joined #commonlisp
MyNetAz has quit [Read error: Connection reset by peer]
MyNetAz has joined #commonlisp
mwnaylor has joined #commonlisp
rkazak has joined #commonlisp
dalem has quit [Ping timeout: 252 seconds]
wacki has quit [Quit: My Mac has gone to sleep. ZZZzzz…]
puke has joined #commonlisp
puke has quit [Remote host closed the connection]
mishoo has joined #commonlisp
puke has joined #commonlisp
rkazak has quit [Ping timeout: 248 seconds]
wacki has joined #commonlisp
yitzi has quit [Remote host closed the connection]
McParen has joined #commonlisp
mwnaylor has quit [Read error: Connection reset by peer]
mwnaylor has joined #commonlisp
puke has quit [Remote host closed the connection]
gnoo has quit [Ping timeout: 248 seconds]
gnoo has joined #commonlisp
puke has joined #commonlisp
AetherWind has joined #commonlisp
<beach>
In SBCL 2.4.8 this form: (loop for x in '(1 2 3 4) by #'cddr collect x) work, but this form: (loop for x in (reverse '(1 2 3 4)) by #'cddr collect x) fails with an error that BY is not a valid LOOP keyword. Can anyone reproduce that?
robin has quit [Remote host closed the connection]
<random-nick>
beach: I think I experienced that bug a few months ago, you can work around it by making it not obvious it's a call to REVERSE, like (identity (reverse ...))
<random-nick>
it's some bug with some optimisation around iterating over the result of REVERSE
gdsg has joined #commonlisp
JuanDaugherty has joined #commonlisp
<beach>
Oh, wow! Thanks! I was going to do WITH REV = (REVERSE...) FOR X IN REV...
puke has quit [Remote host closed the connection]
gdr3941 has joined #commonlisp
puke has joined #commonlisp
jonatack has joined #commonlisp
puke has quit [Client Quit]
robin has joined #commonlisp
rkazak has joined #commonlisp
puke has joined #commonlisp
puke has quit [Client Quit]
puke has joined #commonlisp
jonatack has quit [Read error: Connection reset by peer]
<beach>
I can't even imagine how such a bug would happen.
cage has joined #commonlisp
cage has quit [Excess Flood]
jonatack has joined #commonlisp
cage has joined #commonlisp
mishoo has quit [Ping timeout: 260 seconds]
rkazak has quit [Ping timeout: 248 seconds]
JuanDaugherty has quit [Quit: JuanDaugherty]
pve has joined #commonlisp
markb1 has quit [Read error: Connection reset by peer]
amb007 has quit [Ping timeout: 265 seconds]
amb007 has joined #commonlisp
rkazak has joined #commonlisp
<beach>
I mean, why would this optimization influence the LOOP macro?
markb1 has joined #commonlisp
jonatack has quit [Ping timeout: 248 seconds]
<random-nick>
beach: I'm guessing the optimisation is implemented as a special "clause" in LOOP which goes like for something in (reverse ...), but they forgot to parse the BY part
<bike>
my sbcl is a little older but the reverse version works fine for me. weird.
jonatack has joined #commonlisp
<bike>
but i do see it in 2.4.8
<beach>
I suspected a recent SBCL because the PSETF macro in Common Macro Definitions prompted the error.
<beach>
bike: And that happened because I had forgotten to pull your changes to that library.
<beach>
So after I did, SICL bootstrapping failed.
overclucker has quit [Read error: Connection reset by peer]
overclucker_ has joined #commonlisp
d4ryus has joined #commonlisp
rogersm has quit [Quit: Leaving...]
kevingal has quit [Ping timeout: 265 seconds]
rkazak has quit [Ping timeout: 260 seconds]
zwr has quit [Read error: Connection reset by peer]
wacki has joined #commonlisp
akoana has joined #commonlisp
zwr has joined #commonlisp
<shawnw>
Anyone know of a library that provides a form of do that lets you capture multiple values in the initial assignment and update expressions?
Everything has joined #commonlisp
JuanDaugherty has quit [Quit: JuanDaugherty]
yitzi has joined #commonlisp
kadir has joined #commonlisp
wacki has quit [Read error: Connection reset by peer]
rkazak has joined #commonlisp
yitzi has quit [Remote host closed the connection]
wacki has joined #commonlisp
kevingal has joined #commonlisp
gooba has quit [Remote host closed the connection]
gooba` has joined #commonlisp
rkazak has quit [Ping timeout: 248 seconds]
<shawnw>
I now have a macro with do* like semantics using sequential calls to multiple-value-setq that will get the job done, but I'd prefer do-style semantics for this thing.
<aeth>
have you considered macroexpanding DO to see how it works?
<aeth>
you can probably use PSETF on VALUES for a similar effect
<shawnw>
Unfortunately there's no multiple-value-psetq to make it trivial.
<aeth>
,(let ((x 42) (y 43) (z 44)) (psetf (values x y) (values (1+ x) (1+ y)) z (1+ z)) (values x y z))
<ixelp>
=> 43; 44; 45
<aeth>
so in this example (only making sense as a macroexpansion) x and y are treated as one values pair while z is treated as a single value, but both can be incremented via PSETF
<aeth>
this should be able to continue arbitrarily to e.g. (psetf (values x y) (foo x y) (values z w) (bar z w) ...)
vardhan__ has joined #commonlisp
vardhan_ has quit [Ping timeout: 244 seconds]
<shawnw>
hmm. That might be workable.
JuanDaugherty has joined #commonlisp
dino_tutter has joined #commonlisp
rkazak has joined #commonlisp
akoana has quit [Quit: leaving]
Perflosopher has quit [Quit: Ping timeout (120 seconds)]