theothornhill has quit [Ping timeout: 264 seconds]
random-nick has quit [Ping timeout: 244 seconds]
theothornhill has joined #commonlisp
cjb has joined #commonlisp
theothornhill has quit [Ping timeout: 264 seconds]
analognoise has quit [Ping timeout: 264 seconds]
waleee has quit [Ping timeout: 272 seconds]
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 272 seconds]
robin has quit [Ping timeout: 244 seconds]
terpri has joined #commonlisp
knusbaum has joined #commonlisp
terpri is now known as robin
knusbaum has quit [Ping timeout: 245 seconds]
theothornhill has joined #commonlisp
yitzi has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
<remexre>
how do people indent cases on integers (or other lexically small values)
<remexre>
ones with multiline bodies, in particular
<White_Flame>
trust the emacs/slime
<remexre>
using vim :P
<remexre>
two cases that look reasonable to me are
<remexre>
(0 (foo)
<remexre>
(bar))
<remexre>
and
<remexre>
(0
<remexre>
(foo)
<remexre>
(bar))
<Josh_2>
I drop to a newline
theothornhill has joined #commonlisp
aleamb has joined #commonlisp
<jcowan>
Even if you don't use Emacs, you can still format with it:
theothornhill has quit [Ping timeout: 264 seconds]
yewscion has quit [Ping timeout: 245 seconds]
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
karlosz has joined #commonlisp
knusbaum has joined #commonlisp
dsk has joined #commonlisp
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
knusbaum has quit [Remote host closed the connection]
karlosz has quit [Ping timeout: 252 seconds]
theothornhill has joined #commonlisp
theothornhill has quit [Remote host closed the connection]
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 264 seconds]
moon-child has quit [Quit: !]
moon-child has joined #commonlisp
Josh_2 has quit [Quit: ERC (IRC client for Emacs 27.1)]
srhm has quit [Quit: Konversation terminated!]
fengshaun has joined #commonlisp
ec_ has quit [Ping timeout: 252 seconds]
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 272 seconds]
cjb has quit [Quit: brb]
cjb has joined #commonlisp
ludston has quit [Ping timeout: 244 seconds]
<beach>
Good morning everyone!
dieggsy1 has quit [Ping timeout: 264 seconds]
akanouras has quit [Ping timeout: 244 seconds]
katco has quit [Ping timeout: 244 seconds]
etimmons has quit [Ping timeout: 268 seconds]
Gnuxie has quit [Ping timeout: 264 seconds]
loke[m] has quit [Ping timeout: 264 seconds]
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
Lord_of_Life has quit [Ping timeout: 264 seconds]
Lord_of_Life has joined #commonlisp
Bike has quit [Quit: sleep]
taiju has quit [Ping timeout: 268 seconds]
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
handicpt has joined #commonlisp
cjb has quit []
taiju has joined #commonlisp
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 272 seconds]
ad-absurdum has joined #commonlisp
Nilby has joined #commonlisp
cjb has joined #commonlisp
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
raeda has joined #commonlisp
pve has joined #commonlisp
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
derelict has quit [Ping timeout: 244 seconds]
handicpt has left #commonlisp [#commonlisp]
theothornhill has joined #commonlisp
theothornhill has quit [Ping timeout: 244 seconds]
selwyn has joined #commonlisp
ldb has joined #commonlisp
silasfox has joined #commonlisp
azimut_ has joined #commonlisp
Duuqnd has joined #commonlisp
azimut has quit [Ping timeout: 252 seconds]
attila_lendvai has joined #commonlisp
<pl>
well, I can no longer help redirect people from freenode
theothornhill has joined #commonlisp
<pl>
or not
<pl>
someone k-lined irccloud on one of the servers (someone pulling the plug on leenode? no idea)
fengshaun has quit [Quit: bibi!]
theothornhill has quit [Ping timeout: 272 seconds]
shka has joined #commonlisp
frgo has quit [Remote host closed the connection]
<ecraven>
does slime/swank support sending text with text-properties to emacs, for displaying?
<ecraven>
so I'd like to generate some text in lisp, then send it to emacs to display with some formatting already applied
theothornhill has joined #commonlisp
<beach>
This is not what you want of course, but I am just pointing out how much easier stuff like that would be with CLIM/McCLIM.
theothornhill has quit [Ping timeout: 244 seconds]
cjb has quit []
theothornhill has joined #commonlisp
sndr has quit [Ping timeout: 272 seconds]
loke[m] has joined #commonlisp
akanouras has joined #commonlisp
etimmons has joined #commonlisp
katco has joined #commonlisp
dieggsy has joined #commonlisp
Gnuxie has joined #commonlisp
frgo has joined #commonlisp
karlosz has joined #commonlisp
taiju has quit [Ping timeout: 245 seconds]
taiju has joined #commonlisp
frgo has quit [Remote host closed the connection]
contrapunctus has left #commonlisp [#commonlisp]
Cymew has joined #commonlisp
contrapunctus has joined #commonlisp
hendursa1 has joined #commonlisp
silasfox has quit [Ping timeout: 244 seconds]
hendursaga has quit [Ping timeout: 252 seconds]
Cymew has quit [Quit: Konversation terminated!]
ldb has quit [Quit: ERC (IRC client for Emacs 27.2)]
scymtym has joined #commonlisp
sander has joined #commonlisp
edgar-rft is now known as etc
etc is now known as Guest4671
Guest4671 is now known as edgar-rft
killsushi has quit [Quit: Leaving]
silasfox has joined #commonlisp
karlosz has quit [Quit: karlosz]
kami_ has quit [Read error: Connection reset by peer]
taiju has quit [Ping timeout: 264 seconds]
Oladon has joined #commonlisp
taiju has joined #commonlisp
karlosz has joined #commonlisp
karlosz has quit [Client Quit]
yitzi has quit [Read error: Connection reset by peer]
yitzi has joined #commonlisp
jans has joined #commonlisp
Krystof has quit [Ping timeout: 244 seconds]
kevingal has joined #commonlisp
Krystof has joined #commonlisp
Duuqnd has quit [Ping timeout: 245 seconds]
yitzi has quit [Quit: Leaving]
random-nick has joined #commonlisp
Inline has quit [Quit: Leaving]
Inline has joined #commonlisp
Krystof has quit [Ping timeout: 244 seconds]
Krystof has joined #commonlisp
Krystof has quit [Ping timeout: 244 seconds]
Lord_of_Life has quit [Excess Flood]
selwyn has quit [Read error: Connection reset by peer]
Lord_of_Life has joined #commonlisp
Krystof has joined #commonlisp
Cymew has joined #commonlisp
v88m has quit [Ping timeout: 264 seconds]
waleee has joined #commonlisp
Duuqnd has joined #commonlisp
tyson2 has joined #commonlisp
contrapunctus has left #commonlisp [#commonlisp]
contrapunctus has joined #commonlisp
selwyn has joined #commonlisp
sm2n has quit [Ping timeout: 245 seconds]
srji_ has quit [Quit: leaving]
srji has joined #commonlisp
theothornhill has quit [Ping timeout: 268 seconds]
v88m has joined #commonlisp
Bike has joined #commonlisp
cage has joined #commonlisp
Nilby has quit [Ping timeout: 245 seconds]
Josh_2 has joined #commonlisp
<Josh_2>
Good afternoon
<Josh_2>
https://github.com/K1D77A/cl-coinpayments can someone give this a once over and tell me if they see anything wrong? or if they notice anything I can improve?
contrapunctus has left #commonlisp [#commonlisp]
contrapunctus has joined #commonlisp
Oladon has quit [Quit: Leaving.]
contrapunctus has left #commonlisp [#commonlisp]
contrapunctus has joined #commonlisp
Duuqnd has quit [Remote host closed the connection]
Duuqnd has joined #commonlisp
Lycurgus has joined #commonlisp
silasfox has quit [Ping timeout: 244 seconds]
lottaquestions has joined #commonlisp
Lycurgus has quit [Quit: Exeunt]
shka has quit [Read error: Connection reset by peer]
Duuqnd has quit [Read error: Connection reset by peer]
Duuqnd has joined #commonlisp
hendursa1 has quit [Quit: hendursa1]
hendursaga has joined #commonlisp
hhdave has joined #commonlisp
fengshaun has joined #commonlisp
yitzi has joined #commonlisp
ad-absurdum has quit [Quit: Leaving]
knusbaum has joined #commonlisp
srhm has joined #commonlisp
tfb has joined #commonlisp
mingus_ has quit [Ping timeout: 265 seconds]
mingus has joined #commonlisp
Cymew has quit [Ping timeout: 268 seconds]
<Josh_2>
set-funcallable-instance-function is used to make an instance of an object funcallable right?
<beach>
Not quite.
<beach>
The object has to be a FUNCALLABLE-STANDARD-OBJECT in the first place.
<Josh_2>
oh I see
<beach>
And this is the way you set what it does.
<Josh_2>
Do you have an example?
<beach>
What happens (I guess in most implementations) is that you will copy two items from the function you give as an argument to the FUNCALLABLE-STANDARD-OBJECT, namely the entry point and the static environment.
<beach>
Plus other implementation-specific stuff of course.
<phoe>
note that in about 99% cases the function that is set is actually a closure over the object itself, in order to be able to access its slots et al
<beach>
So the function given as an argument is not stored in the FUNCALLABLE-STANDARD-OBJECT.
<beach>
If it were, you would have piles of indirections.
<phoe>
otherwise there is little* reason to use a f-s-o where just a function would do
<beach>
Indeed.
<phoe>
*there are still use cases for those, just not obvious
<Josh_2>
Right
<Josh_2>
I guess I should just use a function, access to the object is not required
<Josh_2>
Thanks for the help
<phoe>
good
<phoe>
then, unless you run into one of the edge cases I am thinking of, just use a function object then
<beach>
SICL bootstrapping uses a lot of FUNCALLABLE-STANDARD-OBJECT in the host system, because these objects are both host functions to be executed during bootstrapping by the host, and objects representing target functions with additional slots in them.
<beach>
And, yes, when the FUNCALLABLE-STANDARD-OBJECT represents a SICL generic function, the instance function is a closure over the FUNCALLABLE-STANDARD-OBJECT, so that the target methods can be accessed in order to construct discriminating functions and such.
kevingal has quit [Remote host closed the connection]
<Josh_2>
Right
<Josh_2>
No need for that for me as the objects are just being used to represent hooks, no need for them to contain the object themselves
<beach>
Sure.
<Josh_2>
Although I do know somewhere where it could be useful
<beach>
Another piece of information: All SICL function classes are subclasses of FUNCALLABLE-STANDARD-OBJECT. The only reason I can see not to do that are historical, i.e. that the implementation had a FUNCTION class before CLOS was added, perhaps in the form of PCL.
<beach>
So, in other words, SICL functions are standard objects.
<beach>
I mean, a function needs to store things like the entry point(s), the static environment, and perhaps debugging information, GC information, etc. Might as well do that as slots of a standard object.
<beach>
s/all SICL function classes/all SICL function classes that can be instantiated/
<beach>
There is obviously a class FUNCTION as required by the MOP, but it is a protocol class.
derelict has joined #commonlisp
hineios4 has joined #commonlisp
adeht has joined #commonlisp
ryanbw1 has joined #commonlisp
Noisytoot has quit [Ping timeout: 252 seconds]
dieggsy has quit [*.net *.split]
katco has quit [*.net *.split]
Gnuxie has quit [*.net *.split]
loke[m] has quit [*.net *.split]
robin has quit [*.net *.split]
cracauer has quit [*.net *.split]
lottaquestions has quit [*.net *.split]
hineios has quit [*.net *.split]
endparen has quit [*.net *.split]
les_ has quit [*.net *.split]
palter has quit [*.net *.split]
GreaseMonkey has quit [*.net *.split]
amk has quit [*.net *.split]
Fade has quit [*.net *.split]
_death has quit [*.net *.split]
jdz has quit [*.net *.split]
hineios4 is now known as hineios
amk has joined #commonlisp
adeht is now known as _death
Noisytoot has joined #commonlisp
ryanbw1 is now known as ryanbw
contrapunctus has left #commonlisp [#commonlisp]
contrapunctus has joined #commonlisp
endparen has joined #commonlisp
palter has joined #commonlisp
les has joined #commonlisp
<hhdave>
If one has a standard-effective-slot-definition [as returned by class-slots] is there an easy way to see what class it comes from?
lottaquestions has joined #commonlisp
robin has joined #commonlisp
<hhdave>
(other than checking to see if it's one of class-direct-slots for each of the superclasses I suppose)
<beach>
class-slots, not class-direct-slots
<beach>
The direct slots are different objects from the effective slots.
<beach>
I don't think there is an easy way.
<hhdave>
I want to know which class the slot def comes from though.
<hhdave>
I see.
<hhdave>
So I guess I have to check if the name of the effective-slot-definition is the direct slots of a class and if not then check all the superclasses and so on?
<beach>
Oh, so you know the leaf class?
<beach>
Sure, then something like that may work.
<beach>
Notice that it can come from several classes.
<hhdave>
Yes. I'm implementing a slot-unbound method.
tfeb has joined #commonlisp
<hhdave>
I have an instance and the slot name (obviously). I need to retrieve the slot value from elsewhere, but it's stored according to a DB table that it comes from.
<hhdave>
I know it could come from several classes - I think I would need to find the most, errr, 'super' one that it comes from and if it comes from a couple of equally high up ones then I think my whole system would break anyway!
<hhdave>
When I inspect the effective-slot-definition it seems to have a 'class' slot which seems to point to the class that I want, but that doesn't seem to have a method that I know of to access it. I don't know what would happen if I declare the slot in a subclass too.
tfb has quit [Ping timeout: 264 seconds]
<hhdave>
I suppose the only way is to walk up through the superclasses. I just checked the standard effective slot definition of a subclass which redeclares a slot it inherits (adding a type) and the 'class' in the inspector is now the subclass. I think my metaclass would somewhat break in this case anyway. Thanks beach
jeosol has quit [Ping timeout: 252 seconds]
Lycurgus has joined #commonlisp
<Bike>
the effective slot definition is specific to the actual "leaf" class
<Bike>
in other words the class you called class-slots on
loke[m] has joined #commonlisp
<Bike>
you apparently want the direct slot definitions that were merged into that effective definition?
<Bike>
usually what you do is define your own slot-definition classes, and just put whatever information you need in a slot of the effective slot definition
<Bike>
you can define a method on compute-effective-slot-definition to define how whatever information you want is merged from the inheritance
derelict has quit [Ping timeout: 272 seconds]
Lycurgus has quit [Quit: Exeunt]
Gnuxie has joined #commonlisp
<hhdave>
Bike: ok. Putting the extra info into the slot-definition subclasses might be sensible. I'll get back to it next week. I have subclassed these slot definition classes. Thanks.
zacts_ has joined #commonlisp
zacts_ is now known as zacts
frgo has joined #commonlisp
terpri_ has joined #commonlisp
knusbaum has quit [Remote host closed the connection]
dsk has quit [Ping timeout: 244 seconds]
knusbaum has joined #commonlisp
robin has quit [Ping timeout: 264 seconds]
katco has joined #commonlisp
frgo has quit [Ping timeout: 244 seconds]
selwyn has quit [Read error: Connection reset by peer]
contrapunctus has left #commonlisp [#commonlisp]
aleamb__ has joined #commonlisp
aleamb__ has quit [Client Quit]
aleamb has quit [Ping timeout: 252 seconds]
knusbaum has quit [Remote host closed the connection]
dieggsy has joined #commonlisp
ec_ has joined #commonlisp
contrapunctus has joined #commonlisp
frgo has joined #commonlisp
terpri_ is now known as robin
frgo has quit [Ping timeout: 268 seconds]
ec_ has quit [Ping timeout: 252 seconds]
knusbaum has joined #commonlisp
derelict has joined #commonlisp
ec_ has joined #commonlisp
aleamb has joined #commonlisp
pve has quit [Ping timeout: 272 seconds]
pve has joined #commonlisp
jeosol58 has joined #commonlisp
jeosol58 has quit [Client Quit]
jeosol has joined #commonlisp
knusbaum has quit [Remote host closed the connection]
shka has joined #commonlisp
natter has quit [Remote host closed the connection]
knusbaum has joined #commonlisp
cracauer has joined #commonlisp
knusbaum has quit [Remote host closed the connection]
knusbaum has joined #commonlisp
knusbaum has quit [Ping timeout: 268 seconds]
frgo has joined #commonlisp
frgo has quit [Ping timeout: 272 seconds]
knusbaum has joined #commonlisp
v88m has quit [Ping timeout: 268 seconds]
karlosz has joined #commonlisp
tfeb has quit []
yewscion has joined #commonlisp
zacts has quit [Quit: gtg]
AnimalClatter has joined #commonlisp
v88m has joined #commonlisp
rbtEngrDude has joined #commonlisp
AnimalClatter has quit [Quit: WeeChat 3.0.1]
AnimalClatter has joined #commonlisp
AnimalClatter has quit [Client Quit]
AnimalClatter has joined #commonlisp
rbtEngrDude has quit [Quit: My MacBook Air has gone to sleep. ZZZzzz…]
rbtEngrDude has joined #commonlisp
karlosz has quit [Quit: karlosz]
hendursa1 has joined #commonlisp
hendursaga has quit [Ping timeout: 252 seconds]
AnimalClatter has quit [Quit: WeeChat 3.0.1]
bilegeek has joined #commonlisp
AnimalClatter has joined #commonlisp
yewscion has quit [Remote host closed the connection]
rbtEngrDude has quit [Quit: My MacBook Air has gone to sleep. ZZZzzz…]
rbtEngrDude has joined #commonlisp
tyson2 has joined #commonlisp
Duuqnd has quit [Remote host closed the connection]
frgo has joined #commonlisp
<phoe>
I have a list of numbers and I want to get a list of their sub-sums, so e.g. (1 2 3 4 5 ...) -> (1 3 6 10 15 ...)
<phoe>
what would be a clever way to achieve this without LOOP?
frgo has quit [Ping timeout: 252 seconds]
<White_Flame>
reverse & maplist?
<White_Flame>
hmm
<White_Flame>
or reduce + push inside the handler?
<moon-child>
that's a prefix scan, which is a variant of reduce. I don't know of a specific implementation strategy, but you can use that keyword to search for one
trokotech has quit [Ping timeout: 272 seconds]
<White_Flame>
but loop's COLLECT makes a lot of things easier
<phoe>
yes
AnimalClatter has quit [Quit: WeeChat 3.0.1]
<White_Flame>
and of course, there's always recursion
<jcowan>
the nice thing about reduce over fold is that if you know the procedure is associative you can use a parallel algorithm.
<White_Flame>
pff, accumulator in a closure? not clever enough!
NotThatRPG has joined #commonlisp
<edgar-rft>
but code that I still can understand at the first read in hundred years from now...
fengshaun has quit [Ping timeout: 264 seconds]
rbtEngrDude has quit [Quit: My MacBook Air has gone to sleep. ZZZzzz…]
fengshaun has joined #commonlisp
rbtEngrDude has joined #commonlisp
trokotech has joined #commonlisp
fengshaun_ has joined #commonlisp
fengshaun has quit [Ping timeout: 272 seconds]
frgo has joined #commonlisp
random-nick has quit [Ping timeout: 252 seconds]
shka has quit [Quit: Konversation terminated!]
contrapunctus has left #commonlisp [#commonlisp]
contrapunctus has joined #commonlisp
random-nick has joined #commonlisp
frgo has quit [Ping timeout: 265 seconds]
trokotech has quit [Ping timeout: 265 seconds]
shka has joined #commonlisp
trokotech has joined #commonlisp
ceblan has quit [Ping timeout: 264 seconds]
fengshaun_ has quit [Ping timeout: 264 seconds]
fengshaun has joined #commonlisp
<jcowan>
moon-child: No. The main difference is that you fold using a plain function and you reduce using a monoid.
<jcowan>
In a monoid, you always statically know the start value, instead of it being passed to the fold: thus the normal + monoid returns 0 if applied to zero arguments. Third, fold can be done in parallel because a monoid is guaranteed to be associative.
random-nick has quit [Ping timeout: 244 seconds]
cage has quit [Remote host closed the connection]
sm2n has joined #commonlisp
shka has quit [Ping timeout: 264 seconds]
rbtEngrDude has quit [Quit: My MacBook Air has gone to sleep. ZZZzzz…]
knusbaum has quit [Remote host closed the connection]
attila_lendvai has quit [Ping timeout: 244 seconds]
jemoka has quit [Quit: ZNC 1.9.x-git-126-0b8276c1 - https://znc.in]