<fengshaun>
I'm trying to define a new asdf operation that runs tests and dumps coverage report. I have a (defclass cover-op (operation) ()) but I get a billion warnings: DEPRECATED-FUNCTION-WARNING: Using deprecated function (ASDF/ACTION::BACKWARD-COMPATIBLE-DEPENDS-ON :FOR-OPERATION #<ASDF/USER:COVER-OP >) -- please update your code to use a newer API.
<fengshaun>
I seems like I should subclass upward-,downward-,selfward-operation, but then selfward-operation is not defined
<fengshaun>
Unhandled UNBOUND-SLOT in thread #<SB-THREAD:THREAD "main thread" RUNNING {10048D0253}>: The slot ASDF/ACTION:SELFWARD-OPERATION is unbound in the object #<COVER-OP >.
sailorTheCat has quit [Quit: ZNC 1.8.2 - https://znc.in]
sailorTheCat has joined #commonlisp
rkazak has quit [Ping timeout: 248 seconds]
schna has quit []
sailorTheCat has quit [Ping timeout: 260 seconds]
sailorTheCat has joined #commonlisp
ndanilov_ has joined #commonlisp
ndanilov has quit [Ping timeout: 248 seconds]
sailorTheCat has quit [Quit: ZNC 1.8.2 - https://znc.in]
sailorTheCat has joined #commonlisp
schna has joined #commonlisp
rkazak has joined #commonlisp
tjmacs has quit [Remote host closed the connection]
rkazak has quit [Ping timeout: 245 seconds]
joast has joined #commonlisp
mwnaylor has quit [Ping timeout: 276 seconds]
rkazak has joined #commonlisp
Guest47 has joined #commonlisp
rkazak has quit [Ping timeout: 276 seconds]
<bike>
on SBCL, (let ((x 4)) (setq x 9) 13) warns that X is set but unused, but there's no warning if (multiple-value-setq (x) 9) or (setf (values x) 9) replaces the setq. Anyone know what's up? The macroexpansion doesn't seem like it uses the variable any more.
<bike>
any more than the setq, i mean
jonatack has joined #commonlisp
dra has quit [Ping timeout: 276 seconds]
LainIwakura38 has joined #commonlisp
LainIwakura has quit [Ping timeout: 272 seconds]
<beach>
The version of SBCL I have expands the multiple-value-setq to (setf (values x) 9).
<beach>
It appears there is no warning when the assignment is in the body of a nested LET as the SETF form expands to.
rkazak has joined #commonlisp
<bike>
(let ((x 4)) (values (setf x 13)) 9) => no warning. huh.
<beach>
Well, not quite. (let ((x 4)) (let ((y 9)) (setq x y)) 13) does not warn.
treflip has quit [Read error: Connection reset by peer]
<beach>
But (let ((x 4)) (let ((y 9)) (setq x 9)) 13) still does.
<bike>
i'm asking because maclina _does_ signal a warning and i'm wondering if it should. i don't see any reason not to, it's still not really using the variable
<beach>
Oh, I think it should.
LainIwakura38 has quit [Ping timeout: 272 seconds]
<beach>
bike: That's very strange. I can't imagine a compiler architecture that would distinguish between those cases.
LainIwakura has joined #commonlisp
rkazak has joined #commonlisp
<bike>
my total guess as to what's happening is that it does warnings a little after lowering into IR - so (setq x 13) in (lambda (x) (setq x 13)) becomes something like "x := 13; return x" (pseudocode) and so X counts as used, but in (lambda (x) (setq x 13) 4) the "return x" isn't generated so x is unused
<bike>
maclina's analysis is purely syntactic (a variable is used iff it appears as a form anywhere) which i think makes more sense anyway
<beach>
Your guess sounds plausible.
schna has quit [Ping timeout: 260 seconds]
schna has joined #commonlisp
rkazak has quit [Ping timeout: 260 seconds]
rkazak has joined #commonlisp
rkazak has quit [Ping timeout: 248 seconds]
treflip has quit [Ping timeout: 260 seconds]
Guest47 has quit [Quit: My Mac has gone to sleep. ZZZzzz…]
rkazak has joined #commonlisp
LainIwakura has quit [Ping timeout: 272 seconds]
admich1 has quit [Ping timeout: 276 seconds]
treflip has joined #commonlisp
admich1 has joined #commonlisp
apac has quit [Ping timeout: 244 seconds]
rkazak has quit [Ping timeout: 252 seconds]
apac has joined #commonlisp
q3cpma has joined #commonlisp
<q3cpma>
Hello, am I crazy or CL:PARSE-ERROR can't pass a message?
<q3cpma>
Would explain why SBCL has SIMPLE-PARSE-ERROR
Guest47 has joined #commonlisp
apac has quit [Ping timeout: 248 seconds]
lusciouslover has quit [Read error: Connection reset by peer]
lusciouslover has joined #commonlisp
LainIwakura has joined #commonlisp
nytpu has quit [Remote host closed the connection]
nytpu has joined #commonlisp
Noisytoot has quit [Ping timeout: 248 seconds]
<yitzi>
CL:PARSE-ERROR is the "abstract" superclasss.
X-Scale has quit [Ping timeout: 260 seconds]
<q3cpma>
Yes, I just saw that alexandria had what I need.
scymtym has quit [Ping timeout: 244 seconds]
scymtym has joined #commonlisp
scymtym has quit [Remote host closed the connection]