luckless has quit [Read error: Connection reset by peer]
sendai_ has joined #lisp
Oladon has joined #lisp
ebzzry_ has joined #lisp
ofc has quit [Ping timeout: 272 seconds]
terpri has quit [Remote host closed the connection]
efm has joined #lisp
terpri has joined #lisp
terpri has quit [Remote host closed the connection]
ebzzry has joined #lisp
terpri has joined #lisp
ebzzry_ has quit [Ping timeout: 250 seconds]
rumbler31 has quit [Remote host closed the connection]
semz has quit [Ping timeout: 246 seconds]
atgreen has joined #lisp
semz has joined #lisp
semz has joined #lisp
semz has quit [Changing host]
torbo has quit [Ping timeout: 264 seconds]
userself has quit [Ping timeout: 240 seconds]
torbo has joined #lisp
ihals has joined #lisp
torbo has quit [Remote host closed the connection]
torbo has joined #lisp
iAmDecim has quit [Ping timeout: 265 seconds]
twelvemonkeys has quit [Ping timeout: 250 seconds]
atgreen has quit [Ping timeout: 250 seconds]
X-Scale has quit [Ping timeout: 240 seconds]
X-Scale` has joined #lisp
X-Scale` is now known as X-Scale
twelvemonkeys has joined #lisp
d4ryus1 has joined #lisp
lave has joined #lisp
Bike has quit [Quit: Lost terminal]
lave has quit [Remote host closed the connection]
d4ryus has quit [Ping timeout: 260 seconds]
per129 has joined #lisp
libertyprime has quit [Ping timeout: 256 seconds]
ebzzry has quit [Read error: Connection reset by peer]
observer42 has joined #lisp
observer4234 has joined #lisp
observer4234 has left #lisp [#lisp]
observer42 has quit [Ping timeout: 240 seconds]
glamas has joined #lisp
ihals has left #lisp [#lisp]
ih42 has joined #lisp
vhost- has joined #lisp
vhost- has quit [Changing host]
vhost- has joined #lisp
gravicappa has joined #lisp
libertyprime has joined #lisp
per129 has quit [Remote host closed the connection]
iAmDecim has joined #lisp
ih42 has quit [Quit: Leaving]
iAmDecim has quit [Ping timeout: 240 seconds]
ihals has joined #lisp
<ihals>
I need some help with EVAL... How can I use variable bindings that I already have, within the *calc-input* string? (let ((form (read-from-string *calc-input*)))
<ihals>
(setf *result* (eval form))))
whartung has quit [Ping timeout: 265 seconds]
ihals has left #lisp ["Leaving"]
torbo has quit [Remote host closed the connection]
libertyprime has quit [Read error: Connection reset by peer]
libertyprime has joined #lisp
rumbler31 has joined #lisp
iAmDecim has joined #lisp
pluplog has joined #lisp
Khisanth has quit [Ping timeout: 264 seconds]
rumbler31 has quit [Ping timeout: 264 seconds]
iAmDecim has quit [Ping timeout: 256 seconds]
iAmDecim has joined #lisp
Khisanth has joined #lisp
charles23 has joined #lisp
orivej has quit [Ping timeout: 240 seconds]
charles23 has quit [Quit: ERC (IRC client for Emacs 26.3)]
d4ryus2 has joined #lisp
ebzzry has joined #lisp
d4ryus1 has quit [Ping timeout: 250 seconds]
gravicappa has quit [Ping timeout: 264 seconds]
vhost- has quit [Ping timeout: 256 seconds]
P1RATEZ has quit []
_jrjsmrtn has quit [Quit: Bye !]
vlatkoB has joined #lisp
__jrjsmrtn__ has joined #lisp
<beach>
Good morning everyone!
dddddd has quit [Remote host closed the connection]
ebzzry_ has joined #lisp
ebzzry has quit [Ping timeout: 250 seconds]
Sauvin has joined #lisp
Oladon has quit [Quit: Leaving.]
KDr24 has joined #lisp
charles323 has joined #lisp
KDr23 has quit [Ping timeout: 240 seconds]
charles323 has left #lisp [#lisp]
shka_ has joined #lisp
d4ryus2 is now known as d4ryus
narimiran has joined #lisp
terpri has quit [Remote host closed the connection]
terpri has joined #lisp
shinohai has quit [Quit: ZNC 1.8.x-git-190-d3011c6e - https://znc.in]
shinohai has joined #lisp
|Pirx| has joined #lisp
|Pirx_off has quit [Ping timeout: 240 seconds]
shangul has joined #lisp
|Pirx| has quit [Ping timeout: 265 seconds]
_Ark_ has quit [Ping timeout: 256 seconds]
terpri has quit [Remote host closed the connection]
terpri has joined #lisp
_leb has joined #lisp
terpri has quit [Remote host closed the connection]
terpri has joined #lisp
_leb has quit []
refpga has joined #lisp
leb has joined #lisp
leb has quit [Client Quit]
zaquest has quit [Quit: Leaving]
gravicappa has joined #lisp
zaquest has joined #lisp
refpga has quit [Read error: Connection reset by peer]
refpga has joined #lisp
refpga has quit [Client Quit]
refpga has joined #lisp
ebzzry_ has quit [Remote host closed the connection]
sonologico has quit [Quit: Leaving]
ebzzry_ has joined #lisp
stepnem has quit [Read error: Connection reset by peer]
iAmDecim has quit [Ping timeout: 264 seconds]
ear-the-art has quit [Remote host closed the connection]
ear-the-art has joined #lisp
iAmDecim has joined #lisp
stepnem has joined #lisp
dale has quit [Quit: My computer has gone to sleep]
refpga has quit [Ping timeout: 264 seconds]
refpga has joined #lisp
rumbler31 has joined #lisp
random-nick has joined #lisp
rumbler31 has quit [Ping timeout: 250 seconds]
gravicappa has quit [Ping timeout: 264 seconds]
gravicappa has joined #lisp
jprajzne has joined #lisp
_whitelogger has joined #lisp
Cymew has joined #lisp
tcr has joined #lisp
refpga has quit [Read error: Connection reset by peer]
Cymew has quit [Client Quit]
Cymew has joined #lisp
refpga has joined #lisp
ljavorsk has joined #lisp
frgo has quit [Remote host closed the connection]
frgo has joined #lisp
amerlyq has joined #lisp
sendai_ has quit [Remote host closed the connection]
sendai_ has joined #lisp
frodef has joined #lisp
refpga has quit [Ping timeout: 258 seconds]
csimonpdx82 has joined #lisp
mangul has joined #lisp
sonologico has joined #lisp
Lord_of_Life_ has joined #lisp
Lord_of_Life has quit [Ping timeout: 256 seconds]
shangul has quit [Ping timeout: 265 seconds]
Lord_of_Life_ is now known as Lord_of_Life
refpga has joined #lisp
ggole has joined #lisp
lavaflow has quit [Ping timeout: 240 seconds]
ebzzry has joined #lisp
ebzzry_ has quit [Remote host closed the connection]
rumbler31 has joined #lisp
rumbler31 has quit [Ping timeout: 250 seconds]
libertyprime has quit [Ping timeout: 264 seconds]
ebzzry has quit [Remote host closed the connection]
refpga has quit [Read error: Connection reset by peer]
refpga has joined #lisp
refpga has quit [Read error: Connection reset by peer]
refpga has joined #lisp
csimonpdx82 has quit [Ping timeout: 240 seconds]
refpga has quit [Read error: Connection reset by peer]
refpga has joined #lisp
libertyprime has joined #lisp
lavaflow has joined #lisp
refpga has quit [Remote host closed the connection]
ofc has joined #lisp
SGASAU has joined #lisp
ebzzry has joined #lisp
SGASAU` has joined #lisp
vaporatorius has joined #lisp
vaporatorius has quit [Changing host]
vaporatorius has joined #lisp
Bourne has quit [Read error: Connection reset by peer]
SGASAU has quit [Ping timeout: 264 seconds]
|Pirx| has joined #lisp
jonatack_ has quit [Read error: Connection reset by peer]
heisig has joined #lisp
Bourne has joined #lisp
karlosz has quit [Quit: karlosz]
SGASAU` has quit [Remote host closed the connection]
jonatack_ has joined #lisp
karlosz has joined #lisp
karlosz has quit [Remote host closed the connection]
SGASAU` has joined #lisp
ebzzry has quit [Remote host closed the connection]
madage has quit [Remote host closed the connection]
gxt has quit [Remote host closed the connection]
cartwright has quit [Read error: Connection reset by peer]
Josh_2 has joined #lisp
gxt has joined #lisp
pluplog has quit [Remote host closed the connection]
SGASAU` has quit [Remote host closed the connection]
SGASAU` has joined #lisp
madage has joined #lisp
prince1 has quit [Ping timeout: 250 seconds]
enrio has joined #lisp
orivej has joined #lisp
space_otter has quit [Remote host closed the connection]
knicklux has joined #lisp
sonologico has quit [Quit: Leaving]
ukari has quit [Ping timeout: 256 seconds]
ljavorsk_ has joined #lisp
ukari has joined #lisp
ljavorsk has quit [Ping timeout: 240 seconds]
luni has joined #lisp
cartwright has joined #lisp
userself has joined #lisp
libertyprime has quit [Remote host closed the connection]
rumbler31 has joined #lisp
bendersteed has joined #lisp
ym has quit [Remote host closed the connection]
enrio has quit [Ping timeout: 265 seconds]
rumbler31 has quit [Ping timeout: 250 seconds]
atgreen has joined #lisp
prince1 has joined #lisp
enrio has joined #lisp
arduo has joined #lisp
prince1 has quit [Ping timeout: 264 seconds]
atgreen has quit [Quit: Leaving]
sonologico has joined #lisp
iAmDecim has quit [Ping timeout: 258 seconds]
SGASAU` has quit [Remote host closed the connection]
iAmDecim has joined #lisp
Bike has joined #lisp
SGASAU` has joined #lisp
dddddd has joined #lisp
ear-the-art has quit [Remote host closed the connection]
dilated_dinosaur has quit [Ping timeout: 256 seconds]
dilated_dinosaur has joined #lisp
peterhil has quit [Quit: Must not waste too much time here...]
EvW has joined #lisp
iAmDecim has quit [Ping timeout: 256 seconds]
iAmDecim has joined #lisp
ebzzry has joined #lisp
peterhil has joined #lisp
luni has quit [Remote host closed the connection]
ArthurStrong has joined #lisp
troydm has quit [Quit: What is Hope? That all of your wishes and all of your dreams come true? To turn back time because things were not supposed to happen like that (C) Rau Le Creuset]
|Pirx| has quit [Ping timeout: 260 seconds]
libertyprime has joined #lisp
|Pirx| has joined #lisp
wxie has joined #lisp
EvW has quit [Ping timeout: 256 seconds]
wxie has quit [Ping timeout: 240 seconds]
iAmDecim has quit [Ping timeout: 264 seconds]
enrio has quit [Ping timeout: 264 seconds]
knicklux has quit [Remote host closed the connection]
ArthurStrong has quit [Quit: leaving]
<flip214>
does someone have an example of writing a cxml-parsed dom out again?
theBlackDragon has quit [Ping timeout: 264 seconds]
theBlackDragon has joined #lisp
sammich_ has quit [Remote host closed the connection]
even4void has joined #lisp
even4void has quit [Client Quit]
EvW has quit [Ping timeout: 240 seconds]
fookara has quit [Remote host closed the connection]
theBlackDragon has quit [Ping timeout: 256 seconds]
theBlackDragon has joined #lisp
frodef has quit [Read error: Connection reset by peer]
ear-the-art has joined #lisp
Sauvin has quit [Read error: Connection reset by peer]
iAmDecim has joined #lisp
sonologico has quit [Quit: Leaving]
iAmDecim has quit [Ping timeout: 264 seconds]
bilb_ono has joined #lisp
tcr has quit [Ping timeout: 256 seconds]
shangul has quit [Ping timeout: 260 seconds]
ramus has quit [Ping timeout: 264 seconds]
ramus has joined #lisp
<jcowan>
Does SBCL provide a compact format for (vector boolean), or is it better to use (vector bit) and a few shim macros?
ofc has quit [Ping timeout: 272 seconds]
<sjl_>
(upgraded-array-element-type 'boolean) ;=> T
ggole has quit [Quit: Leaving]
<sjl_>
looks like it does not
<beach>
It's a good idea, though.
ukari has quit [Remote host closed the connection]
ukari has joined #lisp
Necktwi has quit [Ping timeout: 246 seconds]
CrazyPython has joined #lisp
oxum has joined #lisp
sonologico has joined #lisp
<pjb>
beach: it would only help newbies.
rippa has joined #lisp
ear-the-art has quit [Read error: Connection reset by peer]
ear-the-art has joined #lisp
EvW has joined #lisp
CrazyPython has quit [Read error: Connection reset by peer]
<Bike>
i was going to say that might trip the u-a-e-t rules but i guess it's "okay" as long as you have nil arrays
Necktwi has joined #lisp
<Josh_2>
I do love it when I'm typing a question to ask for help on a problem I've had for the last hour and I figure it out :P
Codaraxis has joined #lisp
<aeth>
And shouldn't they work because they're "immutable"? In the sense that you can't unintern them, etc.. Sure, you can symbol plist them or whatever.
<hjudt_>
a question about :around methods: i use an around method to track the time a method takes. in this around method, i do not use the multiple values that the method returns. do i need to capture these multiple values and return them in the around method in this case or not?
<aeth>
t will always refer to the same t, that's the important thing...
<hjudt_>
just to be clear: the method i am timing is called via (call-next-method) of course
chl has joined #lisp
oxum has quit [Remote host closed the connection]
even4void has joined #lisp
<hjudt_>
in the keene book (Object-Oriented Programming in Common Lisp) they say "It is customary but not required for around-methods to return the value or values of call-next-method."
even4void has quit [Client Quit]
<pjb>
Bike: it's only an internal optimization. aref would still return a boolean, ie. either cl:t or cl:nil.
chl has quit [Client Quit]
<hjudt_>
so is it really that customary? in my case, it is only causing more lines of code and further indentation.
<Josh_2>
okay, well I didn't solve my problem :(
<pjb>
Bike: and (upgraded-array-element-type 'boolean) -> boolean doesn't break any rule AFAICS.
pluplog has quit [Remote host closed the connection]
<pjb>
hjudt_: it's not a more lines of code. It's whether you want to return the same value or not!
<Xach>
hjudt_: it is customary in the sense that that is the typical default behavior, but returning some other value is not explicitly forbidden. some value must be returned.
<pjb>
hjudt_: for example, you could have a around method weight that adds a tare to the weight returned by the main method.
<Xach>
there is no other mechanism for returning a value
efm has quit [Ping timeout: 260 seconds]
<Xach>
when i mean "default", i mean by choice of the programmer, not of the system
slyrus__ has joined #lisp
<Bike>
like, if the method you're wrapping will always return exactly one value, you don't need to worry about it
<Bike>
but maybe you should take care of it because you might change the interface later
<Bike>
and then have to be like "hey, how come when i enable the profiling method my code stops working?", which is never a good bug to have
<aeth>
pjb: Afaik, a wrapper could only potentially break rules if you could unintern the symbol like (let ((foo (vector 'a 'b 'c))) (unintern 'a) foo) => #(#:A B C) because now any new 'a won't be EQ (or any form of equal) to the old 'a, now just an #:A
<aeth>
But CL:T and CL:NIL are safe
<pjb>
aeth: it's not a wrapper as such, since it's inside the implementation!
<aeth>
pjb: well, yes, conceptually it could also just be an array storing the actual symbols themselves, even though then it would probably be 64x larger in memory
<hjudt_>
yes, i simply want to return the values that (call-next-method) returns. i do not want to alter or enhance the results in the around method. that is, the behaviour should not be changed, and i probably will not care what the around method does because it's only purpose is to set some times on other fields. so if i leave it as is and do not capture the multiple values, would that be ok?
<hjudt_>
Xach: yes that would be a good solution probably, multiple-value-prog1.
shangul has joined #lisp
<hjudt_>
a more compact one than capturing with m-v-b at least.
<Xach>
hjudt_: you don't have to capture them if you return them in some other way. but the return value of the :around method is the return value of the GF. there is no other mechanism to get the "inner" value.
<pjb>
hjudt_: then either call-next-method is a terminal call, or you need to save the values and return them.
<hjudt_>
pjb: ok, so i _need_ to capture the values and return them. because if it was a terminal call, i could also have used a :before method.
<Xach>
What is a terminal call?
prince1 has joined #lisp
ark has joined #lisp
dddddd has joined #lisp
narimiran has quit [Ping timeout: 250 seconds]
<hjudt_>
Xach: I guess pjb means the call-next-method is at the end of the :around method.
<hjudt_>
anyway, i tried it now with a small example, and have ascertained that i _need_ to capture the return values in the around method, otherwise the values of the :around method itself will be returned.
Ober has joined #lisp
<Bike>
Yes, that's how :around works. Sorry we didn't make that clearer.
prince1 has quit [Ping timeout: 260 seconds]
dreamcompiler has joined #lisp
<Xach>
hjudt_: do you consider multiple-value-prog1 to be capture?
<hjudt_>
i was confused by the statement in the book that "it is customary but not required."
<Bike>
I mean: how :around works is that the values of the :around method are always returned
<hjudt_>
Xach: maybe capture is not the right word.
<Bike>
those values could be the same as the values returned by an inner method, though, and usually are, but you have to write the :around method in such a way that that is accomplished
<hjudt_>
Bike: if i think about it a bit more, it makes sense because otherwise there was no way to return other values from :around.
<Bike>
right.
<hjudt_>
Xach: thanks for the m-v-prog1 hint, that was really helpful.
<Bike>
plus otherwise the generic function machinery itself would have to keep track of the return values, which might take consing, which would be kind of a silly reason to cons
luni has quit [Remote host closed the connection]
<hjudt_>
yes and it would probably be even more difficult to get at them
iAmDecim has joined #lisp
iAmDecim has quit [Ping timeout: 264 seconds]
oxum has joined #lisp
<hjudt_>
i like this elegant way of using an around method, it makes that code smaller and more easily comprehensible.
tcr has joined #lisp
arduo has quit [Ping timeout: 264 seconds]
z147 has joined #lisp
oxum has quit [Ping timeout: 256 seconds]
iAmDecim has joined #lisp
tcr has quit [Ping timeout: 250 seconds]
<flip214>
hjudt_: if you use SBCL, you could also look at TRACE to get a kind-of around method... or just use (sb-profile:profile function) ;)
ear-the-art has quit [Read error: Connection reset by peer]
ear-the-art has joined #lisp
<hjudt_>
flip214: thanks. in my case, i really need the around method to be part of the program, not only for profiling. i track the durations an action takes and present it in the web ui. but your hint will make me read up on these sbcl features ;-)
SGASAU has joined #lisp
vlatkoB has quit [Remote host closed the connection]
cosimone has joined #lisp
william1 has joined #lisp
terpri has joined #lisp
slyrus_ has joined #lisp
pilne has joined #lisp
slyrus__ has quit [Ping timeout: 250 seconds]
rippa has quit [Quit: {#`%${%&`+'${`%&NO CARRIER]
cracauer has joined #lisp
frodef has joined #lisp
ukari has quit [Remote host closed the connection]
<Josh_2>
I know that, but why isn't the form being evaluated
<Josh_2>
I know that (eq byte 2) is true, but why isn't (eq byte 2) being evaluated
<pjb>
Why should it be?
<Josh_2>
idk
<pjb>
You never evaluate it.
<Josh_2>
Well how do I?
<Josh_2>
That's my question basically
<pjb>
Ah! good.
<pjb>
Well, it's not easy. You are wanting to build a form at run-time, and get it evaluated in a lexical scope. This is not possible directly in CL.
<Josh_2>
ah
<pjb>
CL:EVAL evaluates in the global environment, not in a lexical scope.
_jrjsmrtn has joined #lisp
<pjb>
But you can keep susbtituting, because the lexical scope is known to you, at program editing time. SO you can write the code that will substitute, not with 'byte, but with the value of byte!
<Josh_2>
the value of byte is not known until the λ is funcalled
__jrjsmrtn__ has quit [Ping timeout: 256 seconds]
tutti has joined #lisp
<pjb>
Then call change-byte at that time.
<Josh_2>
:(
<Josh_2>
didn't wanna do that
<Josh_2>
but I can
<pjb>
Now, if you prefer, you may generate a lambda-expression, and use eval coerce or compile to get a function.
<pjb>
But it won't be a closure. you must substitute into the lambda-expression all the values you need.
<pjb>
Now, since your function is named generate-<something> I would let it return the lambda-expression, and call eval, coerce or compile outside of it.