p_l changed the topic of #lisp to: Common Lisp, the #1=(programmable . #1#) programming language | <https://irclog.tymoon.eu/freenode/%23lisp> <https://irclog.whitequark.org/lisp> <http://ccl.clozure.com/irc-logs/lisp/> | ASDF 3.3.4
KDr2 has joined #lisp
KDr24 has quit [Ping timeout: 250 seconds]
iAmDecim has joined #lisp
SGASAU has joined #lisp
efm_ has quit [Quit: Konversation terminated!]
gabot has joined #lisp
iAmDecim has quit [Ping timeout: 260 seconds]
MightyJoe has joined #lisp
cyraxjoe has quit [Ping timeout: 256 seconds]
jasom has joined #lisp
lxbarbos` has joined #lisp
karlosz has joined #lisp
emys has quit [Ping timeout: 264 seconds]
karlosz has quit [Client Quit]
adam4567 has joined #lisp
karlosz has joined #lisp
lxbarbos` has quit [Remote host closed the connection]
karlosz has quit [Read error: Connection reset by peer]
lxbarbosa has quit [Ping timeout: 246 seconds]
gioyik has quit [Ping timeout: 258 seconds]
karlosz has joined #lisp
Bourne has quit [Ping timeout: 256 seconds]
cyraxjoe has joined #lisp
emys has joined #lisp
MightyJoe has quit [Ping timeout: 264 seconds]
ljavorsk has quit [Ping timeout: 264 seconds]
emys has quit [Ping timeout: 256 seconds]
libertyprime has joined #lisp
emys has joined #lisp
<Xach> no-defun-allowed: which github repository?
<Xach> no-defun-allowed: that is the one i use in quicklisp
<no-defun-allowed> Indeed it is. I don't know how my laptop got a different cl-ppcre then.
<no-defun-allowed> Aha, the practical-common-lisp code has an old cl-ppcre in it.
ahungry has joined #lisp
<Xach> noooo!
emys has quit [Ping timeout: 256 seconds]
emys has joined #lisp
ayuce has joined #lisp
X-Scale` has joined #lisp
X-Scale has quit [Ping timeout: 256 seconds]
X-Scale` is now known as X-Scale
MightyJoe has joined #lisp
cyraxjoe has quit [Ping timeout: 258 seconds]
bitmapper has quit [Ping timeout: 265 seconds]
jonatack has quit [Ping timeout: 256 seconds]
cyraxjoe has joined #lisp
jonatack has joined #lisp
MightyJoe has quit [Ping timeout: 250 seconds]
gioyik has joined #lisp
ayuce has quit [Remote host closed the connection]
emys has quit [Ping timeout: 265 seconds]
Oladon has quit [Quit: Leaving.]
iAmDecim has joined #lisp
ebrasca has quit [Remote host closed the connection]
gko has joined #lisp
Oladon has joined #lisp
ayuce has joined #lisp
jamzattack has joined #lisp
cosimone has quit [Remote host closed the connection]
cosimone has joined #lisp
cosimone has quit [Excess Flood]
cosimone has joined #lisp
cosimone_ has joined #lisp
eschatologist has quit [Remote host closed the connection]
Jeanne-Kamikaze has joined #lisp
cosimone has quit [Ping timeout: 260 seconds]
iAmDecim has quit [Ping timeout: 265 seconds]
Oladon1 has joined #lisp
Oladon has quit [Ping timeout: 265 seconds]
Oladon has joined #lisp
Oladon1 has quit [Ping timeout: 256 seconds]
<LdBeth> Ok I think I can spend some time add progressive decoding to cl-jpeg
smasta has quit [Ping timeout: 265 seconds]
smasta has joined #lisp
cosimone_ has quit [Quit: Quit.]
smasta has quit [Ping timeout: 260 seconds]
eschatologist has joined #lisp
emys has joined #lisp
Inline has quit [Ping timeout: 265 seconds]
emys has quit [Ping timeout: 265 seconds]
lavaflow has quit [Ping timeout: 264 seconds]
asarch has quit [Quit: Leaving]
monok has quit [Remote host closed the connection]
iAmDecim has joined #lisp
lavaflow has joined #lisp
MightyJoe has joined #lisp
cyraxjoe has quit [Ping timeout: 240 seconds]
smasta has joined #lisp
Oladon has quit [Quit: Leaving.]
smasta has quit [Ping timeout: 260 seconds]
GuerrillaMonkey has joined #lisp
Jeanne-Kamikaze has quit [Ping timeout: 256 seconds]
terpri has quit [Remote host closed the connection]
terpri has joined #lisp
smasta has joined #lisp
smasta has quit [Ping timeout: 265 seconds]
<beach> Good morning everyone!
JetJej has quit [Read error: Connection reset by peer]
<LdBeth> morning beach
torbo has joined #lisp
torbo has quit [Remote host closed the connection]
shifty has quit [Ping timeout: 250 seconds]
lemoinem has quit [Killed (kornbluth.freenode.net (Nickname regained by services))]
lemoinem has joined #lisp
iAmDecim has quit [Ping timeout: 258 seconds]
torbo has joined #lisp
GuerrillaMonkey has quit [Quit: Leaving]
Jeanne-Kamikaze has joined #lisp
vlatkoB has joined #lisp
Bike has quit [Quit: Lost terminal]
smasta has joined #lisp
renzhi has quit [Ping timeout: 260 seconds]
smasta has quit [Ping timeout: 265 seconds]
GuerrillaMonkey has joined #lisp
Oladon has joined #lisp
Jeanne-Kamikaze has quit [Ping timeout: 240 seconds]
Jeanne-Kamikaze has joined #lisp
GuerrillaMonkey has quit [Ping timeout: 240 seconds]
Jeanne-Kamikaze has quit [Quit: Leaving]
Oladon has quit [Ping timeout: 256 seconds]
Oladon has joined #lisp
Oladon1 has joined #lisp
Oladon has quit [Ping timeout: 265 seconds]
penguwin7 has joined #lisp
samebchase-2 has joined #lisp
alandipert1 has joined #lisp
zigpaw5 has joined #lisp
CrunchyChewie_ has joined #lisp
alandipert1 has quit [Client Quit]
peterhil has joined #lisp
isoraqathedh_ has joined #lisp
Oladon has joined #lisp
scal_ has joined #lisp
nefercheprure has joined #lisp
Oladon1 has quit [Ping timeout: 258 seconds]
alandipert has quit [Killed (card.freenode.net (Nickname regained by services))]
pjb has quit [Read error: Connection reset by peer]
alandipert has joined #lisp
kiboneu has joined #lisp
penguwin has quit [*.net *.split]
samebchase- has quit [*.net *.split]
isoraqathedh has quit [*.net *.split]
TMA has quit [*.net *.split]
sukaeto has quit [*.net *.split]
ccl-logbot has quit [*.net *.split]
nightfly has quit [*.net *.split]
scal has quit [*.net *.split]
zigpaw has quit [*.net *.split]
CrunchyChewie has quit [*.net *.split]
cnomad has quit [*.net *.split]
penguwin7 is now known as penguwin
drainful has quit [Quit: ZNC 1.7.5 - https://znc.in]
drainful has joined #lisp
pjb has joined #lisp
ccl-logbot has joined #lisp
cyraxjoe has joined #lisp
libertyprime has quit [Read error: Connection reset by peer]
MightyJoe has quit [Ping timeout: 260 seconds]
alandipert has quit [Quit: The Lounge - https://thelounge.chat]
sukaeto has joined #lisp
nightfly has joined #lisp
narimiran has joined #lisp
alandipert has joined #lisp
libertyprime has joined #lisp
torbo has quit [Remote host closed the connection]
smasta has joined #lisp
isoraqathedh_ has left #lisp [#lisp]
smasta has quit [Ping timeout: 265 seconds]
ahungry has quit [Remote host closed the connection]
Lycurgus has joined #lisp
Oladon has quit [Ping timeout: 265 seconds]
shka_ has joined #lisp
Oladon has joined #lisp
sauvin has joined #lisp
keep_learning_M has joined #lisp
keep_learning has joined #lisp
keep_learning_M has quit [Client Quit]
keep_learning has quit [Remote host closed the connection]
gravicappa has joined #lisp
keep_learning has joined #lisp
Oladon has quit [Quit: Leaving.]
ebrasca has joined #lisp
Lycurgus has quit [Quit: Exeunt]
gioyik has quit [Ping timeout: 256 seconds]
ober has quit [Remote host closed the connection]
smasta has joined #lisp
gioyik has joined #lisp
smasta has quit [Ping timeout: 246 seconds]
orivej has joined #lisp
<phoe> morning
<alandipert> hi phoe o/
<ebrasca> morning phoe!
theruran has joined #lisp
<phoe> hey ebrasca alandipert
random-nick has joined #lisp
xuxuru has quit [Quit: xuxuru]
smasta has joined #lisp
shifty has joined #lisp
smasta has quit [Ping timeout: 260 seconds]
nefercheprure is now known as TMA
Cymew has joined #lisp
ukari has quit [Remote host closed the connection]
dddddd has quit [Ping timeout: 256 seconds]
Cymew has quit [Ping timeout: 256 seconds]
ggole has joined #lisp
jprajzne has joined #lisp
moon-child has quit [Quit: ZNC 1.7.4 - https://znc.in]
jonatack has quit [Ping timeout: 250 seconds]
moon-child has joined #lisp
jonatack has joined #lisp
ukari has joined #lisp
dale has quit [Quit: My computer has gone to sleep]
smasta has joined #lisp
smasta has quit [Ping timeout: 260 seconds]
chipolux has quit [Quit: chipolux]
chipolux has joined #lisp
pve has joined #lisp
cods has quit [Changing host]
cods has joined #lisp
Cymew has joined #lisp
Bourne has joined #lisp
gioyik has quit [Quit: WeeChat 2.8]
redeemed has joined #lisp
ebrasca has quit [Ping timeout: 265 seconds]
z147 has joined #lisp
smasta has joined #lisp
infra_red[m] has quit [Quit: killed]
Gnuxie[m] has quit [Quit: killed]
Davd[m] has quit [Quit: killed]
liambrown has quit [Quit: killed]
clintm[m] has quit [Quit: killed]
Jachy has quit [Quit: killed]
no-defun-allowed has quit [Quit: killed]
amnesic[m] has quit [Quit: killed]
LdBeth has quit [Quit: killed]
mhitchman[m] has quit [Quit: killed]
katco has quit [Quit: killed]
unl0ckd has quit [Quit: killed]
nckx has quit [Ping timeout: 264 seconds]
dvdmuckle has quit [Ping timeout: 264 seconds]
nckx has joined #lisp
smasta has quit [Ping timeout: 260 seconds]
dvdmuckle has joined #lisp
oldtopman has joined #lisp
theBlackDragon has quit [Remote host closed the connection]
ljavorsk has joined #lisp
arbv has quit [Ping timeout: 265 seconds]
theBlackDragon has joined #lisp
ebrasca has joined #lisp
jamzattack has quit [Remote host closed the connection]
defaultxr has quit [Ping timeout: 256 seconds]
defaultxr has joined #lisp
karlosz has quit [Quit: karlosz]
arbv has joined #lisp
theruran has quit [Quit: Connection closed for inactivity]
smasta has joined #lisp
smasta has quit [Ping timeout: 240 seconds]
Jachy has joined #lisp
LdBeth has joined #lisp
amnesic[m] has joined #lisp
infra_red[m] has joined #lisp
katco has joined #lisp
liambrown has joined #lisp
unl0ckd has joined #lisp
mhitchman[m] has joined #lisp
Gnuxie[m] has joined #lisp
no-defun-allowed has joined #lisp
Davd[m] has joined #lisp
clintm[m] has joined #lisp
v88m has quit [Read error: Connection reset by peer]
Lord_of_Life_ has joined #lisp
Lord_of_Life has quit [Ping timeout: 258 seconds]
Lord_of_Life_ is now known as Lord_of_Life
peterhil has quit [Read error: Connection reset by peer]
peterhil has joined #lisp
v88m has joined #lisp
frgo has quit [Remote host closed the connection]
frgo has joined #lisp
peterhil has quit [Quit: Must not waste too much time here...]
libertyprime has quit [Ping timeout: 265 seconds]
jonatack has quit [Read error: Connection reset by peer]
jonatack_ has joined #lisp
<phoe> TIL: I may not #'WARN non-WARNING conditions
smasta has joined #lisp
smasta has quit [Ping timeout: 252 seconds]
epony has quit [Ping timeout: 258 seconds]
scymtym has quit [Remote host closed the connection]
adam4567 has quit [Remote host closed the connection]
catalinbostan has joined #lisp
v88m has quit [Ping timeout: 264 seconds]
jmercouris has joined #lisp
<jmercouris> let's say I have a symbol 'salmon, how can I check existence of class salmon?
<jmercouris> find-clasS?
<jmercouris> just want to know if there are any gotchas here
<jmercouris> well, there are a few, I guess I have to specify a package... in other words, it won't search the whole image
<jmercouris> I could recurse through all packages...
Lycurgus has joined #lisp
<jackdaniel> foo:salmon and bar:salmon are most likely two different classes
<jmercouris> yes
<jmercouris> I am just interested if there exists a class salmon
<jackdaniel> did you mean: how can I find a class with the same name as a symbol salmon
<jackdaniel> ?
<jmercouris> yes
<jackdaniel> that's very different question
<jmercouris> I don't care to find the class, I want to know should such a class exist anywhere in the image in any namespace
<jackdaniel> namespace?
<jmercouris> package
epony has joined #lisp
<phoe> jmercouris: use do-all-symbols
<jmercouris> ah, yes, thank you
<phoe> (do-all-symbols (symbol) (when (and (string= symbol :salmon) (find-class symbol nil)) (return symbol)))
<phoe> that'll return the first found symbol
<phoe> modify as appropriate if you want to collect them instead.
shifty has quit [Ping timeout: 250 seconds]
epony has quit [Remote host closed the connection]
<jmercouris> 1
<jmercouris> thanks
joshcom has joined #lisp
libertyprime has joined #lisp
joshcom has quit [Ping timeout: 256 seconds]
emys has joined #lisp
scymtym has joined #lisp
emys has quit [Ping timeout: 246 seconds]
jmercouris has quit [Ping timeout: 264 seconds]
emys has joined #lisp
emys has quit [Ping timeout: 250 seconds]
<_death> would be more efficient to find-symbol in each package, or use apropos-list
jonatack_ has quit [Quit: jonatack_]
<phoe> _death: also a good solution
emys has joined #lisp
jonatack has joined #lisp
emys has quit [Ping timeout: 256 seconds]
libertyprime has quit [Ping timeout: 258 seconds]
libertyprime has joined #lisp
pilne has quit [Read error: Connection reset by peer]
Cymew has quit [Ping timeout: 256 seconds]
pilne has joined #lisp
cosimone has joined #lisp
Lycurgus has quit [Quit: Exeunt]
dddddd has joined #lisp
<MetaYan> phoe's "do-all-symbols" solution is very fast compared to using apropos-list, even when collecting all the found classes. At least on SBCL.
bitmapper has joined #lisp
jmercouris has joined #lisp
<jmercouris> tutorial for closer-mop? I'm trying to find classes which inherit from a specific class
<phoe> jmercouris: (ql:quickload :moptilities) (mopu:subclasses 'standard-object)
<jmercouris> once again, thank you!
<jmercouris> no tutorial though anywhere?
<jmercouris> or documentation? only in source?
<phoe> AMOP is the MOP tutorial
<phoe> read it, it's an amazing book
<jmercouris> ah, that one
<jmercouris> I could only find physical copies
<jmercouris> is it available anywhere digitally?
<hjudt> has anyone trie to use parinfer/paredit together with ya-snippets and can give hints how to set them up so they don't conflict?
<_death> MetaYan: you're right.. here do-all-symbols test takes around 1.7ms, apropos-list test takes around 62.5ms and find-symbol test around 0.033ms.. I guess nobody cared about making apropos-list efficient
<hjudt> (in case this is the wrong place to ask, just tell me if i should go to #emacs with my question, but i thought some lispers might use these modes)
pilne has quit [Read error: Connection reset by peer]
xkapastel has joined #lisp
<_death> MetaYan: on sbcl it uses search, pushnew, sort for each package, delete-duplicates, mapcan, sort for package names..
<jcowan> The definition of short-float looks outright bizarre.
jmercouris has quit [Ping timeout: 250 seconds]
Bike has joined #lisp
<jcowan> As for 13.1.4.3.4, it reflects ignorance about the Real World, not about Unicode; it is simply not true that every character with inherent case is part of a casing pair
<phoe> jcowan: yep
<Bike> is there one of those "things programmers erroneously believe about scripts" to go with the ones on time and names
<Colleen> Bike: drmeister said 8 hours, 43 minutes ago: lets sort out the backtrace stuff in the AM
<jcowan> I thought at first that short-float was meant to fit into a PDP-10 halfword, but PDP-10 floats are sign-magnitude like IEEE, so it would require 19 bits. Weird, weird, weird
pilne has joined #lisp
<Bike> yeah eighteen bits is a weird minimum
<Bike> i guess it's only a recommendation, though
libertyprime has quit [Read error: Connection reset by peer]
<jcowan> I note that on 32-bit LispWorks, short-float gets 19-bit precision, but that's all I know about it.
<jcowan> LW internals docs seems to be lacking
mercourisj has joined #lisp
heisig has joined #lisp
mason has left #lisp [#lisp]
iAmDecim has joined #lisp
guna has quit [Quit: ZNC 1.7.3 - https://znc.in]
<p_l> jcowan: PDP-10 floating point was full-word anyway, iirc
<jcowan> yes, but the CL group must have had something in mind when they set those limits
keep_learning has quit [Quit: This computer has gone to sleep]
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]
troydm has joined #lisp
wsinatra has joined #lisp
shangul has joined #lisp
mercourisj has quit [Ping timeout: 265 seconds]
smasta has joined #lisp
jmercouris has joined #lisp
smasta has quit [Ping timeout: 240 seconds]
lispyone_ has quit [Read error: Connection reset by peer]
lispyone_ has joined #lisp
entel has quit [Ping timeout: 240 seconds]
splittist has quit [Read error: Connection reset by peer]
splittist has joined #lisp
entel has joined #lisp
iAmDecim has quit [Ping timeout: 264 seconds]
asarch has joined #lisp
iAmDecim has joined #lisp
EvW has joined #lisp
mangul has joined #lisp
shangul has quit [Ping timeout: 256 seconds]
jmercouris has quit [Ping timeout: 250 seconds]
shifty has joined #lisp
iAmDecim has quit [Ping timeout: 240 seconds]
lisper29 has joined #lisp
ukari has quit [Remote host closed the connection]
dale_ has joined #lisp
dale_ is now known as dale
shifty has quit [Ping timeout: 240 seconds]
shifty has joined #lisp
ukari has joined #lisp
Necktwi has quit [Read error: Connection reset by peer]
efm has joined #lisp
EvW has quit [Read error: Connection reset by peer]
Necktwi has joined #lisp
EvW1 has joined #lisp
iAmDecim has joined #lisp
iAmDecim has quit [Ping timeout: 258 seconds]
EvW1 has quit [Ping timeout: 258 seconds]
tiwEllien has joined #lisp
pilne has quit [Read error: Connection reset by peer]
pilne has joined #lisp
rippa has joined #lisp
pilne has quit [Read error: Connection reset by peer]
pilne has joined #lisp
nika has joined #lisp
catalinbostan has quit [Quit: Textual IRC Client: www.textualapp.com]
pilne has quit [Read error: Connection reset by peer]
jprajzne has quit [Quit: Leaving.]
mangul is now known as shangul
pilne has joined #lisp
<phoe> fun stuff: http://www.nhplace.com/kent/CL/Revision-18.lisp compiles on modern CL with only minor minor issues
<phoe> I'll ask Kent if I can polish this code a little, downcase all of it, and put it on Quicklisp as a loadable module.
<heisig> phoe: Yes, that's an interesting read. Thanks for sharing!
efm has quit [Ping timeout: 258 seconds]
jmercouris has joined #lisp
CrunchyChewie_ is now known as CrunchyChewie
<jmercouris> best way to edit or add value in plist? I have '(:salmon "chinook"), I want to add :potato if non-existent or set it's value to 20
<jmercouris> something in Alexandria?
<phoe> jmercouris: setf getf
<jmercouris> giving me errors right now
<jmercouris> (getf (list :NAME SOCKET-THREAD :INITARGS NIL :INITFORM 10) :INITFORM 20)
<phoe> what sorta errors
<jmercouris> how come?
<jmercouris> ignore that it is unquoted
<jmercouris> that is not the error
pilne has quit [Read error: Connection reset by peer]
<jmercouris> give me a second, I'll post
<phoe> (getf (list :NAME 'SOCKET-THREAD :INITARGS NIL :INITFORM 10) :INITFORM 20) ;=> 10
<phoe> can't see the error yet
<jmercouris> yes, that is so far correct
<jmercouris> (setf (getf '(:NAME "salmon" :INITARGS NIL :INITFORM NIL) :INITFORM) 20)
<phoe> you are setfing a literal
<phoe> (let ((plist (list :NAME 'SOCKET-THREAD :INITARGS NIL :INITFORM 10))) (setf (getf plist :foo) :bar) plist) ;=> (:FOO :BAR :NAME SOCKET-THREAD :INITARGS NIL :INITFORM 10)
<beach> jmercouris: You can find the "free" chapters of the AMOP here: http://metamodular.com/CLOS-MOP/table-of-contents.html
<phoe> you need to set a place, and '(...) is *not* a place
<TMA> setf generally needs a place to set -- for a place of the form (getf ...) the ... needs to be a place too
<phoe> that's like (setf "foo" ...)
<jmercouris> OK, you are right, that was silly
<jmercouris> is there a way to not SETF and maybe just return an edited form of the list?
epony has joined #lisp
<jmercouris> I don't actually care to edit the list itself, I just want a modified version of it
<phoe> list*
<phoe> (list* :foo :bar plist)
<jmercouris> I already have the list
<jmercouris> can I (list list*)?
<phoe> due to how plists work, if :FOO is later on the plist, it will be ignored because a new :FOO is earlier there
<jmercouris> sorry (list* list)
<phoe> (list* list) === list
<phoe> what do you mean, you already have the list?
<phoe> you mean the modified one?
<jmercouris> the unmodified one
<jmercouris> I have a list X I want to transform to Y
<phoe> then just return (list* :foo :bar '(:NAME "salmon" :INITARGS NIL :INITFORM NIL))
<jmercouris> the list X is given to me by someone else
<beach> jmercouris: So do what phoe suggested.
<phoe> (list* :foo :bar X)
<jmercouris> X is a plist
<TMA> jmercouris: you want to use (list* key-form value-form plist-form) for suitable forms
<phoe> jmercouris: yes
dra has joined #lisp
<jmercouris> I can be a bit dense, let me look again :-D
<beach> clhs list*
pilne has joined #lisp
<jmercouris> why not (list* X)?
<jmercouris> is there something I'm not getting here?
<jmercouris> (defparameter x '(:NAME SOCKET-THREAD))
<_death> phoe: I don't think that's how plists work.. that is how alists work however
<jmercouris> (list* x) -> (:NAME SOCKET-THREAD)
<beach> *sigh*
<phoe> _death: they work that way
<phoe> jmercouris: yes, there is something you are not getting here
<phoe> give more than one argument to LIST*
<phoe> try (list* :foo :bar x)
<jmercouris> right, why would I want that
<beach> jmercouris: phoe is assuming X is the unmodified plist, and that you want to add :foo :bar to it.
<jmercouris> ah, I see now what you are trying to do
<jmercouris> Ah, very clever
<phoe> jmercouris: because you want a modified plist
<phoe> not the original one
<jmercouris> yes, you are making sense
<_death> phoe: for example, remf only removes the first property
<phoe> _death: (defstruct foo bar) (make-foo :bar 42 :bar :forty-two :bar "42") ;=> #S(FOO :BAR 42)
<jmercouris> and you are relying that getf gets the first one
<jmercouris> I get it
<jmercouris> now I am not sure that will work though
<phoe> jmercouris here wants a plist that is an initialization plist - or that is at least what I assume
<jmercouris> the plist is a slot actually
<phoe> what sort of a slot?
<jmercouris> (mopu:slot-properties (find-class 'xyz) 'qrt)
<beach> jmercouris: A slot is a place, so why did you reject using a place.
<jmercouris> and I'm trying to change the initform
<jmercouris> I am actually making a new defclass form using the OLD slot as a template
<jmercouris> I'm not changing the old class, that is why
<beach> jmercouris: So the plist is *not* in a slot. It is in an initform.
<phoe> jmercouris: wait, you cannot (SETF MOPU:SLOT-PROPERTIES)
<jmercouris> No you cannot
<jmercouris> you are all correct
<jmercouris> let me shed some light here
<phoe> what are you actually trying to do then
<jmercouris> this will clarify all
iAmDecim has joined #lisp
<jmercouris> here is the point: http://dpaste.com/0E58JK3
<jmercouris> I'm trying to make a simple macro for users to define their own configuration in Next
<_death> phoe: another example, if get-properties is used, a property may be processed more than once in such a list.. traditionally, alists are expected to have this traditional acons-to-shadow behavior, while property lists are expected to be modified in place
<phoe> _death: huh! that's inconsistent
<phoe> jmercouris: so you want to gut out the details of an existing plist
<_death> so if you want to have a "functional" plist, a pcons operator could look like (list* key value (sans plist key))
<phoe> alexandria:remove-from-plist is better for that
<jmercouris> _death: are you telling me there is no guarantee that list* will work because it may collect all of the values?
<phoe> it accepts multiple keys
<phoe> jmercouris: what do you mean, "not work"
<phoe> list* is just a consing operator
<phoe> it creates conses
<jmercouris> (list* :initiform 30 x)
<jmercouris> yes, but getf may retrieve ALL the initform values
<jmercouris> if I understand _death correctly
<phoe> clhs getf
<jmercouris> what was he saying about shadowing then?
<phoe> "If there are multiple properties[1] with that property indicator, getf uses the first such property."
<jmercouris> OK, so then no problem
<jmercouris> I can use list*
<jmercouris> I don't know however how defclass is actually implemented
<jmercouris> maybe it will complain if there are multiple initforms
<phoe> watch out though.
<phoe> (defclass foo () ((bar :initform 42 :initform :forty-two :initform "42"))) is an error.
<jmercouris> right, so I will have to use the alexandria function you've linked
<_death> remove-from-plist used to be named sans (after Naggum's), did it not?
<phoe> _death: in alexandria? I have no idea
<_death> alexandria still contains it, but it's no longer exported..
<phoe> hah, correct
<phoe> 13 years ago
<jmercouris> yay I did it!
<phoe> <3
redeemed has quit [Ping timeout: 265 seconds]
<Bike> if you're just customizing a slot that's defined in a superclass you don't need to copy the rest of the slot definition plist.
<jmercouris> Bike: how not?
<jmercouris> the accessor will be overwritten etc
<phoe> jmercouris: the earlier key-value pairs will be taken from the superclass
<jmercouris> are you sure?
<jmercouris> I'm pretty sure that is not true
<Bike> quite sure.
<Bike> let me find the clhs page.
<jmercouris> I swear I had this exact problem from a user
<Bike> but you can also try (defclass foo () ((bar :accessor bar :initform 1))) (defclass foo2 (foo) ((bar :initform 2))), and then (bar (make-instance 'foo2)) => 2
<Bike> so the accessor works fine.
<jmercouris> damn
<jmercouris> all that work for nothing
<specbot> Inheritance of Slots and Slot Options: http://www.lispworks.com/reference/HyperSpec/Body/07_ec.htm
<Bike> clhs 7.5.3
<phoe> (defclass foo () ((bar :initform 42))) (defclass baz (foo) ((bar :accessor bar))) (bar (make-instance 'baz)) ;=> 42
<Bike> Explains all the rules
<phoe> jmercouris: not for nothing, your code is now simpler
<jmercouris> that's true, it is nice
<phoe> note how one defclass defines the initform but the other defines the accessor
<phoe> and in the end everything is like "oh yeah it's all coming together"
<jmercouris> right
<Bike> mop also lets you customize these inheritance rules, if you need to
gko has quit [Ping timeout: 258 seconds]
<jmercouris> simplified: http://dpaste.com/3R8W3DS
<jmercouris> et voila!
<_death> careful.. your macro refers to a special variable *renderer-class*.. this means it may not be idempotent..
jmercouris has quit [Ping timeout: 258 seconds]
Yardanico has quit [Quit: https://quassel-irc.org - Chat comfortably. Anywhere.]
Yardanico has joined #lisp
<Grue`> Xach: is Planet Lisp auto-updated? I've been wondering why my last blog post never showed up on it
kopiyka has quit [Remote host closed the connection]
kopiyka has joined #lisp
ahungry has joined #lisp
<phoe> I'm at 72 pages of my book; everything that is not related to the debugger and/or the book afterwords or the condition system reference appendix is more or less complete
<phoe> it's funny how all of it happened because I got annoyed at a blogpost two weeks ago
<jcowan> You were writing it to scratch your own itch, which is one of the best reasons for writing.
karlosz has joined #lisp
<phoe> jcowan: yes
* jcowan lost the URL
<jcowan> Ta
asarch has quit [Quit: Leaving]
<jcowan> I like your calling C a lingua franca; it suggests that it is not only widely known but rather crude and limited
ATuin has joined #lisp
<phoe> ~
<jcowan> though of course nowadays full languages like English, French, Spanish, and Swahili are lingua francas too
<phoe> I could also call it the lowest common denominator, I guess it'll achieve the same thing
<ebrasca> jcowan: Spanish is very good language.
<jcowan> Of course.
emys has joined #lisp
<jcowan> The historic Lingua Franca used throughout the Mediterranean had a very simplified Romance grammar and varying amounts of Portuguese, Spanish, Occitan, French, Arabic, Berber, Greek, and Turkish
gareppa has joined #lisp
gareppa has quit [Remote host closed the connection]
<p_l> Some of those are partially derived from said lingua franca, let's not put cart before horse
<jcowan> Here's a sample: "Se ti sabir / Ti respondir; / Se non sabir, / Tazir, tazir. / Mi star Mufti: / Ti qui star ti? / Non intendir: / Tazir, tazir." That should be pretty clear to any hispanohablante except for "tazir" = "callar".
<ATuin> also "start" sounds weird for hispanohablantes :D
<ATuin> but besides those it's pretty close to actual spanish
<jcowan> star = estar
<ATuin> *start sorry
<ATuin> jcowan: yeah but there it means more like "ser"
<jcowan> Yes, LF makes no distinction
<phoe> I love how #lisp turns into #linguistics sometimes
<ATuin> anyway, i think all the romace languages are quite similar, at least when reading them
<jcowan> anywhere with jcowan in it turns into #linguistics sometimes
emys has quit [Ping timeout: 256 seconds]
dra has quit [Quit: Leaving]
pilne has quit [Read error: Connection reset by peer]
<jcowan> https://en.wikipedia.org/wiki/Mediterranean_Lingua_Franca#Example_of_%22Sabir%22 gives both word for word equivalents and actual translations into IT ES CA GL PT OC LA
emys has joined #lisp
pilne has joined #lisp
dale has quit [Quit: dale]
<Grue`> I'd argue that Javascript is more of a lingua franca these days
<phoe> while you're technically correct, you will never force me to put javascript code in my book
<lieven> kind of funny that the actual Frankish is a West Germanic language
izh_ has joined #lisp
<beach> Can we please stick to the channel topic?
<phoe> ^
iAmDecim has quit [Ping timeout: 240 seconds]
emys has quit [Ping timeout: 252 seconds]
dale has joined #lisp
* jcowan throws (in the nicest possible way) beach at the channel topic, where he sticks with great force.
<phoe> that's... sticky
* phoe throws (in the nicest possible way) jcowan at #lispcafe, where the topic of linguistics should most likely go
emys has joined #lisp
voidlily has quit [Ping timeout: 260 seconds]
Inline has joined #lisp
<Xach> Grue`: it is auto-updated
<Xach> Grue`: what name is it under? (sorry, can't always keep nick->name mapping in my memory)
narimiran_ has joined #lisp
narimiran has quit [Ping timeout: 260 seconds]
karlosz has quit [Quit: karlosz]
<Xach> Grue`: email me about it if you like - i am afk for a while.
orivej has quit [Ping timeout: 264 seconds]
sauvin has quit [Read error: Connection reset by peer]
iAmDecim has joined #lisp
smasta has joined #lisp
ebrasca has quit [Remote host closed the connection]
ebrasca has joined #lisp
iAmDecim has quit [Ping timeout: 258 seconds]
smasta has quit [Ping timeout: 256 seconds]
ggole has quit [Quit: Leaving]
slyrus has joined #lisp
orivej has joined #lisp
xuxuru has joined #lisp
voidlily has joined #lisp
ayuce has quit [Remote host closed the connection]
mangul has joined #lisp
shangul has quit [Ping timeout: 265 seconds]
nika has quit []
iAmDecim has joined #lisp
ayuce has joined #lisp
amerlyq has joined #lisp
iAmDecim has quit [Ping timeout: 240 seconds]
ayuce has quit [Remote host closed the connection]
emys has quit [Ping timeout: 260 seconds]
emys has joined #lisp
<phoe> Got a reply from kmp. I'm free to use his implementation.
<phoe> Time to downcase all the symbols...
xuxuru has quit [Quit: xuxuru]
<heisig> Great!
<phoe> I'll likely also want to integrate that system with the standard CL one.
<phoe> Like, (+ 2 "2") will #'CL:ERROR a CL:TYPE-ERROR. I need to actually somehow turn it into V18:ERRORing a V18:TYPE-ERROR instead if I want the piggybacking condition system to feel somewhat natural.
<phoe> But I'll hack that later. Let's ASDFify this codebase first...
shifty has quit [Ping timeout: 250 seconds]
shifty has joined #lisp
<ATuin> regarding ASDF, is there any way not to include the current directory into the source-registry
<ATuin> seems that it's including my $HOME and it takes lot of time to resolve systems
ukari has quit [Remote host closed the connection]
<Josh_2> hmm asdf does not include my $HOME
<ATuin> mmm strange then
ukari has joined #lisp
<ATuin> ahh i forgot to say that the program is created using scbl:save-lisp-and-die
<ATuin> can that be related
heisig has quit [Quit: Leaving]
redeemed has joined #lisp
<ATuin> indeed when using sbcl from the cli i dont see my home in the source-registry
<ATuin> but when i run that program i can see that the current directory is added
ayuce has joined #lisp
ntqz has joined #lisp
<phoe> Is there a way to tell emacs that it should downcase the whole file, except for the strings?
<phoe> And possibly for the comments.
<phoe> I basically want the Lisp symbols to stop screaming at me.
<Grue`> is it perhaps possible to pretty-print this code to downcase it?
<Grue`> it will strip the comments though...
ntqz has quit [Client Quit]
ntqz has joined #lisp
ntqz has quit [Client Quit]
<gendl> Hi, does anyone know how to use the :function option for setting up asdf output translations?
ntqz has joined #lisp
ntqz has quit [Remote host closed the connection]
<gendl> I'd like just part of the relative path of the input file to end up in the output file, and under a root directory of my choosing.
ntqz has joined #lisp
<gendl> I'm not sure 1. where the :function (lambda(...) ...) is supposed to go within the call to initialize-output-translations, and 2. what is the second argument supposed to be ("directory designator").
<gendl> basically I just want to give a function which takes the source directory (or file), and transforms it to my desired output directory.
<gendl> this is what I'm trying:
jonatack has quit [Ping timeout: 256 seconds]
<gendl> I have no idea what to do with the `dir' argument, and this gives error of "Invalid output translation"
ljavorsk has quit [Ping timeout: 265 seconds]
jonatack has joined #lisp
vlatkoB has quit [Remote host closed the connection]
Lord_Nightmare has quit [Quit: ZNC - http://znc.in]
theruran has joined #lisp
Lord_Nightmare has joined #lisp
ljavorsk has joined #lisp
<gendl> phoe: have you tried setting (readtable-case *readtable* :invert) to stop the screaming symbols?
<pjb> phoe: downcase-lisp and downcase-lisp-region
<pjb> phoe: in github.com/informatimago/emacs
<Xach> Grue`: thanks for the email. i found and fixed the problem.
<phoe> gendl: I don't want to print all of it; I'll lose comments and formatting.
<phoe> pjb: let me try.
<pjb> in pjb-sources.el
emys has quit [Quit: Leaving]
<phoe> ooookay, now, let me figure out how to load elisp code...
* phoe dives into ielm
<gendl> nobody with any guidance on output-translations? 😰
<pjb> check github.com/informatimago/rc starting from emacs.el
<phoe> gendl: I know nothing about these, sadly
tiwEllien has quit [Ping timeout: 240 seconds]
<phoe> pjb: it's hard for me to only get the part that I want. It seems that I'll need to literally clone all of your emacs config and use it to be able to utilize downcase-lisp.
<Xach> that is the Ironclad story
<eta> hehehe
<phoe> pjb: could you downcase-lisp https://plaster.tymoon.eu/view/1746#1746 and send it back to me?
<eta> hey, lemme just sha1 this real quick
<eta> *10 minutes of compiling later*
<phoe> Sorry to ask - I'm just completely puzzled by how to utilize that function from your config.
<Xach> eta: not only that, but it's impossible to use *just* the sha1 code in another project - it's all deeply intertwined.
* Xach wound up writing a smaller, slower version instead
<eta> ouch
<eta> I mean for my WhatsApp library I needed the rest of ironclad anyway
<phoe> perhaps we could write ironclad-penne
<phoe> as opposed to the current ironclad-spaghetti
<Grue`> Xach: nice, although the twitter bot wouldn't tweet it now I guess
cosimone has quit [Quit: Quit.]
<gendl> In case anyone cares, I got the syntax working finally:
<gendl> So, that's how you can specify a lambda function to explicitly translate a source pathname to the output fasl pathname.
<gendl> this is now doing what I need. Thanks for letting me talk to myself here... :)
<phoe> gendl: please turn that into a small blogpost
<phoe> this is rare information and might be of use to someone in the future
sz0 has quit [Ping timeout: 246 seconds]
ebrasca has quit [Remote host closed the connection]
ljavorsk has quit [Ping timeout: 260 seconds]
<gendl> phoe: will do. I'll try to resurrect my old blogger. It will be my second blog post in about 9 years.
z147 has quit [Quit: z147]
<Grue`> a fellow rare-blogging lisper!
banjiewen has quit [Ping timeout: 256 seconds]
sz0 has joined #lisp
tfb has quit [Ping timeout: 256 seconds]
sz0 has quit [Max SendQ exceeded]
cosimone has joined #lisp
tfb has joined #lisp
sz0 has joined #lisp
banjiewen has joined #lisp
<phoe> pjb: managed to do it myself. Thanks for the link.
<Xach> Grue`: oh, it will, but that takes time too
<phoe> Xach: want to add another blog to planet lisp?
<phoe> https://nl.movim.eu/?blog/phoe%40movim.eu
<Xach> phoe: hmm, looks too high traffic for planet lisp
<phoe> Xach: high traffic?
<phoe> I wonder if this is ironic since the last post was today and the previous post happened on April 2019
<Xach> it is ironic
<Xach> Welcome...to Planet Lisp (in jurassic park guy voice)
* eta gasps
<eta> phoe, another XMPP users
<eta> user*
<phoe> yayyyy
<phoe> eta: yes
<Xach> Grue`: you got tweetinated
<eta> we need to form a lisp xmpp community
<eta> because there'll totally be people who'll go on board with that, 100% yes
mason has joined #lisp
<phoe> eta: IRC is good enough for many
* eta nods
<eta> for sure
<Xach> sometimes people reply to https://twitter.com/newlisprepos and it makes me sad, since that is a bot and does not read any replies.
<phoe> Xach: fix the bot then to forward the replies to you!
<Shinmera> doesn't help that twitter shut down tweet streams :/
<Xach> Shinmera: thanks for chirp, it has been handy
<mason> So, this is probably old news here, but: https://www.didierverna.net/blog/index.php?post/2020/04/14/ELS-2020-happening-online%2C-and-for-free
<Xach> i power 100% of my twitter bots with chirp
<Shinmera> Xach: Glad to hear!
pve has quit [Quit: leaving]
ATuin has quit [Quit: WeeChat 2.7.1]
xkapastel has quit [Quit: Connection closed for inactivity]
ahungry has quit [Remote host closed the connection]
izh_ has quit [Quit: Leaving]
narimiran_ has quit [Ping timeout: 265 seconds]
mangul has quit [Ping timeout: 265 seconds]
<Bike> I forget, does CL/MOP/whatever define what order effectuve slots appear in? Specifically for their locations... I'm thinking no, but I'm not sure.
amerlyq has quit [Quit: amerlyq]
<LdBeth> good morning
<Josh_2> Mornin
<phoe> evening
karlosz has joined #lisp
lavaflow has quit [Read error: Connection reset by peer]
lavaflow has joined #lisp
lavaflow has quit [Client Quit]
mgr_ has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
mgr_ has joined #lisp
Lord_of_Life has quit [Quit: Laa shay'a waqi'un moutlaq bale kouloun moumkine]
gxt has quit [Remote host closed the connection]
gxt has joined #lisp
Lord_of_Life has joined #lisp
shifty has quit [Ping timeout: 265 seconds]
karlosz has quit [Quit: karlosz]
shifty has joined #lisp
redeemed has quit [Quit: q]
shka_ has quit [Ping timeout: 256 seconds]
lavaflow has joined #lisp
Kundry_Wag has joined #lisp
iAmDecim has joined #lisp
Lord_of_Life_ has joined #lisp
Lord_of_Life has quit [Ping timeout: 240 seconds]
Lord_of_Life_ is now known as Lord_of_Life
karlosz has joined #lisp
gravicappa has quit [Ping timeout: 256 seconds]
wsinatra has quit [Quit: WeeChat 2.8]
Yardanico_ has joined #lisp
Yardanico has quit [Read error: Connection reset by peer]
rippa has quit [Quit: {#`%${%&`+'${`%&NO CARRIER]
orivej has quit [Ping timeout: 256 seconds]
White_Flame has quit [Quit: No Ping reply in 180 seconds.]
White_Flame has joined #lisp
frgo has quit [Remote host closed the connection]
frgo has joined #lisp
random-nick has quit [Ping timeout: 256 seconds]
<Xach> phoe: lispm replied on twitter to a bot about your post
xkapastel has joined #lisp
shifty has quit [Ping timeout: 265 seconds]
ukari has quit [Ping timeout: 240 seconds]
ukari has joined #lisp
smasta has joined #lisp
smasta has quit [Ping timeout: 260 seconds]
iAmDecim has quit [Ping timeout: 256 seconds]
paul0 has joined #lisp
Yardanico_ has quit [Quit: https://quassel-irc.org - Chat comfortably. Anywhere.]
smasta has joined #lisp
cosimone has quit [Quit: Quit.]
Yardanico has joined #lisp
ayuce has quit [Remote host closed the connection]
ayuce has joined #lisp
paul0 has quit [Quit: Leaving]
libertyprime has joined #lisp
iAmDecim has joined #lisp
iAmDecim has quit [Ping timeout: 240 seconds]
Oladon has joined #lisp
Kundry_Wag has quit [Ping timeout: 264 seconds]
iAmDecim has joined #lisp
rpg has joined #lisp
keep_learning has joined #lisp
torbo has joined #lisp
ArthurStrong has quit [Quit: leaving]
<markasoftware> How can I set the value of a lexical variable, given the symbol for it?
<markasoftware> i can't use setq or setf because they're macros and i only have the symbol
<Xach> markasoftware: you can't.
<Xach> If that's what you got, you need to use something other than a lexical variable.
<markasoftware> ok
<Xach> markasoftware: what situation prompts the question?
<markasoftware> i have a whole bunch of arguments to my function that aren't quite in the form I want them to be in.
anticrisis has joined #lisp
<markasoftware> eg, they can either be a number, representing seconds, or something like (75 :min), which i want to convert to seconds
<markasoftware> there are many of these arguments, so I thought I would (dolist) over the symbols for the arguments, setting each one to the number of seconds it represents
<markasoftware> so that i can use the same variable names throughout my function as specified in the lambda-list
<Xach> markasoftware: ah. if i were in that situation, i would use macrolet
<Xach> and expand into code to make the change
<markasoftware> interesting
<markasoftware> that could work
<markasoftware> yep. Thanks!
Yardanico has quit [Read error: Connection reset by peer]
rpg has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
devrtz has quit [Read error: Connection reset by peer]
Yardanico has joined #lisp