jackdaniel 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/> | offtopic --> #lispcafe
rgherdt has quit [Ping timeout: 272 seconds]
ted_wroclaw has quit [Quit: Textual IRC Client: www.textualapp.com]
euandreh has quit [Ping timeout: 246 seconds]
louis771 has quit [Quit: My M1 has gone to sleep. ZZZzzz…]
euandreh has joined #lisp
dtman34 has quit [Remote host closed the connection]
dtman34 has joined #lisp
<thmprover> Say, is there a good overview of the "instruction set" of a Lisp Machine?
dtman34 has quit [Remote host closed the connection]
dtman34 has joined #lisp
pve has quit [Quit: leaving]
fubbiquantz has joined #lisp
puchacz has quit [Quit: Connection closed]
dtman34 has quit [Remote host closed the connection]
dtman34 has joined #lisp
<luis> not sure if that's what you're looking for, though
Fare has joined #lisp
hendursa1 has quit [Remote host closed the connection]
jt_ has joined #lisp
<thmprover> luis: ah, I should be more precise, I mean a Symbolics Lisp Machine. I've been looking for material about the Ivory processor without much success :(
hendursa1 has joined #lisp
<thmprover> luis: Thanks for the links, though :) I actually just studied and took notes on them this morning.
jt_ has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
dtman34_ has joined #lisp
dtman34_ has left #lisp [#lisp]
dtman34_ has joined #lisp
dtman34_ has left #lisp [#lisp]
dtman34_ has joined #lisp
dtman34_ has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
theothornhill has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
dtman34_ has joined #lisp
theothornhill has quit [Ping timeout: 265 seconds]
unimog has left #lisp ["ERC (IRC client for Emacs 27.1.90)"]
dtman34 has quit [Quit: Palaver https://palaverapp.com]
dtman34_ has quit [Client Quit]
dtman34 has joined #lisp
Josh_2` has joined #lisp
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
Josh_2 has quit [Ping timeout: 276 seconds]
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
<aeth> thmprover: bitsavers has almost everything afaik, you just have to keep looking
pankajsg has joined #lisp
theothornhill has joined #lisp
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
<thmprover> aeth: ah, I see, well, I must look harder, or study the source code of a Symbolics emulator
theothornhill has quit [Ping timeout: 264 seconds]
hendursa1 has quit [Quit: hendursa1]
hendursaga has joined #lisp
Fare has quit [Ping timeout: 260 seconds]
Fare has joined #lisp
dtman34 has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
dtman34 has joined #lisp
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
<thmprover> Gah, it turns out I was looking in the wrong places on bitsavers.org! I should have looked at the I-machine's documentation for its macroinstruction set
hiroaki has quit [Ping timeout: 265 seconds]
dtman34 has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
dtman34 has joined #lisp
Josh_2`` has joined #lisp
random-nick has quit [Ping timeout: 240 seconds]
Josh_2` has quit [Ping timeout: 265 seconds]
skapata has quit [Remote host closed the connection]
skapata has joined #lisp
madage has quit [Ping timeout: 268 seconds]
perrier-jouet has quit [Quit: WeeChat 3.0]
shoshin has quit [Quit: The Lounge - https://thelounge.chat]
fubbiquantz has quit [Read error: Connection reset by peer]
shoshin8 has joined #lisp
mrcom has quit [Ping timeout: 265 seconds]
shoshin8 is now known as shoshin
dtman34 has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
dtman34 has joined #lisp
shoshin has quit [Quit: The Lounge - https://thelounge.chat]
madage has joined #lisp
mrcom has joined #lisp
dtman34 has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
dtman34 has joined #lisp
greaser|q has quit [Changing host]
greaser|q has joined #lisp
greaser|q is now known as GreaseMonkey
orivej_ has quit [Ping timeout: 240 seconds]
amb007 has quit [Ping timeout: 240 seconds]
semz has quit [Ping timeout: 258 seconds]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
pfdietz has quit [Ping timeout: 240 seconds]
semz has joined #lisp
logand``` has joined #lisp
toorevitimirp has joined #lisp
logand`` has quit [Ping timeout: 272 seconds]
orivej has joined #lisp
IPmonger has quit [Ping timeout: 265 seconds]
marusich has quit [Quit: Leaving]
perrier-jouet has joined #lisp
madage has quit [Remote host closed the connection]
catt has joined #lisp
madage has joined #lisp
Josh_2`` has quit [Remote host closed the connection]
orivej has quit [Ping timeout: 240 seconds]
shoshin7 has joined #lisp
<beach> Good morning everyone!
Alfr has joined #lisp
Alfr_ has quit [Ping timeout: 260 seconds]
Etothepiiminus1 has joined #lisp
<zdm> beach: I feel excluded, its not morning here.
Etothepiiminus1 has quit [Remote host closed the connection]
<beach> zdm: Oh, you need to look into UGT, Universal Greeting Time.
<zdm> beach: Heh, I like that
<beach> zdm: Are you new here? I don't recognize your nick.
<zdm> beach: I've been before but never regularly, so I might as well be new.
<beach> I see.
<beach> So what brings you to #lisp?
<zdm> To passively learn as I have the buffer open from time to time, and maybe ask some questions when I start learning CL again, though maybe that'd be more appropriate for #clschool.
<beach> I wouldn't worry about that. You will be told if you prompt too lengthy discussions about trivial stuff.
shoshin7 is now known as shoshin
Etothepiiminus1 has joined #lisp
Etothepiiminus1 has quit [Remote host closed the connection]
toorevitimirp has quit [Remote host closed the connection]
jpli has quit [Ping timeout: 272 seconds]
toorevitimirp has joined #lisp
<White_Flame> discussions about trivial-* stuff are fine ;)
vegansbane6963 has quit [Read error: Connection reset by peer]
luna_is_here has quit [Ping timeout: 246 seconds]
luna_is_here has joined #lisp
vegansbane6963 has joined #lisp
Fare has quit [Ping timeout: 264 seconds]
aartaka has joined #lisp
mrcom has quit [Ping timeout: 265 seconds]
scymtym__ has joined #lisp
scymtym_ has quit [Ping timeout: 272 seconds]
contrapunctus has left #lisp ["Disconnected: closed"]
contrapunctus has joined #lisp
aartaka has quit [Ping timeout: 256 seconds]
PuercoPop has quit [Quit: WeeChat 2.8]
Lord_of_Life has quit [Read error: Connection reset by peer]
Lord_of_Life has joined #lisp
thmprover has quit [Quit: Another long day's journey into night.]
luna_is_here has quit [Ping timeout: 272 seconds]
luna_is_here has joined #lisp
madage has quit [Remote host closed the connection]
madage has joined #lisp
Nilby has joined #lisp
theothornhill has joined #lisp
theothor` has joined #lisp
theothornhill has quit [Remote host closed the connection]
rople has quit [Quit: rople]
iskander has joined #lisp
iskander- has quit [Ping timeout: 246 seconds]
luna_is_here has quit [Ping timeout: 272 seconds]
luna_is_here has joined #lisp
gaqwas has joined #lisp
theothor` has quit [Ping timeout: 265 seconds]
ukari has joined #lisp
theothor` has joined #lisp
theothor` has quit [Read error: Connection reset by peer]
catt has quit [Ping timeout: 240 seconds]
theothor` has joined #lisp
theothor` has quit [Ping timeout: 272 seconds]
theothor` has joined #lisp
theothor` has quit [Ping timeout: 240 seconds]
waleee-cl has quit [Quit: Connection closed for inactivity]
aeth has quit [Ping timeout: 264 seconds]
aeth has joined #lisp
pve has joined #lisp
<Nilby> beach: I don't know if you've seen, but Alan Dipert gives you & your work & papers some great praise in https://www.youtube.com/watch?v=44Q9ew9JH_U
<beach> I hadn't seen that. Thanks for pointing it out.
<beach> Oh, it's a long presentation. I'll watch it in smaller chunks.
<Nilby> starting at about 53 mins
<Nilby> otherwise it's not much new content for CL people, except that clojure people are saying nice things
<beach> Ah, OK. Thanks.
gj has joined #lisp
orivej has joined #lisp
cl-arthur has quit [Ping timeout: 264 seconds]
aartaka has joined #lisp
louis771 has joined #lisp
iskander has quit [Quit: bye]
<gj> hello
<beach> Hello gj.
iskander has joined #lisp
<beach> gj: Are you new here? I don't recognize your nick.
<gj> yep, i am new here
<beach> Great! Welcome! What brings you to #lisp?
hendursa1 has joined #lisp
<gj> oh not much at all, i have been learning common lisp for a few weeks now and think it is great.
hendursaga has quit [Ping timeout: 268 seconds]
<beach> Oh, good!
<beach> What language(s) did you use before, if any?
<gj> first freeBASIC, then Python.
<beach> I see.
jeosol has joined #lisp
<Nilby> after over 2k weeks i still think it's great.
rgherdt has joined #lisp
asarch has quit [Quit: Leaving]
<beach> So 4 years or so?
<Nilby> more like 40
<beach> Oops. Heh! :)
<beach> Hold on though, Common Lisp has not been around that long, at least not the standard.
<beach> Did you use pre-ANSI Common Lisp before?
<Nilby> i think the first was on pdp8 or pdp10 lisp?
jonatack has quit [Ping timeout: 265 seconds]
phantomics has quit [Read error: Connection reset by peer]
<beach> Oh, so we count pre-CL Lisps.
<beach> Then I get roughly the same number for myself.
<Nilby> hmmm, I wonder what's the first CL I used
iskander has quit [Quit: bye]
<Nilby> i guess it was using the new CL features in symbolics lisp, what ever years that was
phantomics has joined #lisp
iskander has joined #lisp
kini has quit [Remote host closed the connection]
kini has joined #lisp
<Nilby> i think i might need another 40 years to finish my projects, too bad i spent so much time with other langauges
heisig has joined #lisp
anticrisis has quit [Read error: Connection reset by peer]
attila_lendvai has joined #lisp
attila_lendvai has quit [Changing host]
attila_lendvai has joined #lisp
louis771 has quit [Quit: My M1 has gone to sleep. ZZZzzz…]
attila_lendvai has quit [Ping timeout: 246 seconds]
karlosz has quit [Quit: karlosz]
cage_ has joined #lisp
galex-713 has joined #lisp
frgo has quit []
rgherdt has quit [Remote host closed the connection]
louis771 has joined #lisp
kpoeck has joined #lisp
louis771 has quit [Quit: My M1 has gone to sleep. ZZZzzz…]
imode has quit [Ping timeout: 240 seconds]
scymtym__ has quit [Remote host closed the connection]
<heisig> The FOSDEM talk "A Lisp REPL as my main shell" starts in five minutes: https://fosdem.org/2021/schedule/event/lisprepl/
scymtym has joined #lisp
<ck_> neat, thanks for the reminder
kini has quit [Remote host closed the connection]
gareppa has joined #lisp
cl-arthur has joined #lisp
<flip214> gj: anything we can help with, or did you join just out of curiosity?
gareppa has quit [Remote host closed the connection]
kini has joined #lisp
<gj> not at the moment, no.
Lord_of_Life_ has joined #lisp
<gj> thank you for asking! i will ask if there is anything i need help with.
Lord_of_Life has quit [Ping timeout: 264 seconds]
Lord_of_Life_ is now known as Lord_of_Life
surabax has joined #lisp
skapata has quit [Quit: Leaving]
orivej has quit [Ping timeout: 256 seconds]
galex-713 has quit [Quit: No Ping reply in 180 seconds.]
galex-713 has joined #lisp
<ioa> heisig, that was a brilliant talk! :)
<ioa> Although I am excited about all the talks in this room today :D
Major_Biscuit has joined #lisp
<heisig> ioa: Absolutely. WebAssembly, s-expression diffs, Guix, Nyxt, ...
<ioa> YEAY! :D
<ioa> "s-expression diffs" what a brilliant idea, extra "can't wait" points for that ^^
Major_Biscuit has quit [Ping timeout: 240 seconds]
random-nick has joined #lisp
vegansbane6963 has quit [Quit: The Lounge - https://thelounge.chat]
iskander has quit [Quit: bye]
iskander has joined #lisp
zacts has joined #lisp
mrcom has joined #lisp
gj has quit [Quit: Connection closed]
iskander- has joined #lisp
iskander has quit [Read error: Connection reset by peer]
Major_Biscuit has joined #lisp
vegansbane6963 has joined #lisp
luis has quit [Ping timeout: 246 seconds]
scymtym has quit [Ping timeout: 256 seconds]
<ioa> This is by far the easiest to follow presentation of webassembly!! Any webassembly newbies here watching to confirm? :)
amb007 has quit [Read error: Connection reset by peer]
contrapunctus has left #lisp ["Disconnected: closed"]
amb007 has joined #lisp
contrapunctus has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
aartaka has quit [Read error: Connection reset by peer]
h4ck3r9696 has joined #lisp
cosimone has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
attila_lendvai has joined #lisp
IPmonger has joined #lisp
Major_Biscuit has quit [Ping timeout: 264 seconds]
hiroaki has joined #lisp
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
IPmonger has joined #lisp
scymtym has joined #lisp
kini has quit [Remote host closed the connection]
kini has joined #lisp
Major_Biscuit has joined #lisp
zaquest has quit [Remote host closed the connection]
zacts has quit [Quit: leaving]
zaquest has joined #lisp
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
<ioa> sexp diff --> I feel the need to work on this ^^ brilliant
IPmonger has joined #lisp
aartaka has joined #lisp
kpoeck has quit [Quit: Ping timeout (120 seconds)]
theothor` has joined #lisp
Major_Biscuit has quit [Ping timeout: 240 seconds]
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
IPmonger has joined #lisp
theothor` has quit [Ping timeout: 272 seconds]
louis771 has joined #lisp
aartaka has quit [Read error: Connection reset by peer]
aartaka has joined #lisp
theothor` has joined #lisp
aartaka has quit [Read error: Connection reset by peer]
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
theothor` has quit [Ping timeout: 264 seconds]
IPmonger has joined #lisp
Colleen has quit [Quit: Colleen]
Colleen has joined #lisp
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
ted_wroclaw has joined #lisp
luis0 has joined #lisp
contrapunctus has left #lisp ["Disconnected: closed"]
contrapunctus has joined #lisp
aartaka has joined #lisp
louis771 has quit [Quit: My M1 has gone to sleep. ZZZzzz…]
aartaka has quit [Read error: Connection reset by peer]
IPmonger has joined #lisp
IPmonger has quit [Remote host closed the connection]
theothor` has joined #lisp
theothor` has quit [Remote host closed the connection]
theothor` has joined #lisp
heisig has quit [Ping timeout: 240 seconds]
theothor` has quit [Ping timeout: 240 seconds]
domovod has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
nij has joined #lisp
<nij> Any package that helps with sentence parsing?
<nij> (parse "I have a\n little \t dog, and you?") ==> ("I" "have" "a" "little" "dog" "," "and" "you" "?")
<nij> ^ as an example ^
IPmonger has joined #lisp
IPmonger has quit [Client Quit]
<ioa> you can do that with split-sequence: https://www.cliki.net/SPLIT-SEQUENCE
<ioa> here is a list of more general parser libraries: https://cliki.net/parser%20generator
<ioa> ^ nij
ldb has joined #lisp
<ldb> good ebening
<ioa> (you might need a second pass to extract the punctuation symbols)
<ioa> ^ with split-sequence
<ioa> hi ldb
<nij> yeah might need a twist. thanks ioa :D
<nij> good morning ldb
<pve> nij: for tokenizing natural language you might want to look at some NLP library
rgherdt has joined #lisp
<pve> nij: When you say "sentence parsing", you actually mean "tokenization", parsing is a more complicated task.
<ldb> so, as for the "not advocating use of terminal" thing, is it possible that, if I have another non Lisp program designed for terminal, I can now redirect the IO to SLY?
<ldb> by communicating in appropriate sexp protocal
<nij> pve: what is the general meaning of sentence parsing then ?
<nij> ldb: i think you can redirect the IO by using uiop/run-program
<nij> ah i'm not sure about I but O yes
<nij> But do you have a terminal program that has I? Is that a repl or a server or somthing?
<ldb> nij: it is an interactive repl
<nij> If not from lisp or the terminal that's running it, how would you interact with it?
<pve> nij: a process that results in one or more parse trees, or for shallow parsing a sequence of chunks ("chunking")
IPmonger has joined #lisp
drdee has joined #lisp
<nij> pve: hm does sound complicated
<ldb> nij: it is possible for me to change that program to adapt my need
<pve> nij: depends entirely on what you want to accomplish, maybe split-sequence is enough for your task
<nij> ldb: yeah then you can definitely use lisp to communicate with your program . not sure what's the cleanest way to do it.
<nij> pve: I think so too. With some help of cl-ppcre. M trying :)
* ldb racket is notoriously slow btw
IPmonger has quit [Client Quit]
<nij> racket lang?
<ldb> yes, worse than python in (for performance) my opinion
<nij> how about cl?
Codaraxis has quit [Read error: Connection reset by peer]
<ldb> ccl is good for interactive development
<ldb> sbcl usually takes longer to compile code, but is much better on numeric
<nij> comparing to python? speedwise
shka_ has joined #lisp
<ldb> usually, you cannot feel the difference between cl or python if just eval some expresions in repl
<ldb> but for racket, you can feel that 0.1 sec delay after pressed return key
orivej has joined #lisp
<ldb> it's that worse
Codaraxis has joined #lisp
drdee has quit [Quit: Leaving]
<beach> nij: I often see people say that Python is 50 times slower than SBCL for executing code.
kini has quit [Remote host closed the connection]
<beach> nij: drmeister once showed us a comparison between programming languages, concerning the energy used per computation unit. Common Lisp was pretty good and Python was really bad. I don't know how they did their measurements, though.
IPmonger has joined #lisp
kini has joined #lisp
IPmonger has quit [Client Quit]
<beach> Oh, it's a paper: "Energy Efficiency across Programming Languages".
Inline__ has joined #lisp
IPmonger has joined #lisp
Inline has quit [Ping timeout: 272 seconds]
IPmonger has quit [Client Quit]
IPmonger has joined #lisp
ted_wroclaw has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
scymtym has quit [Remote host closed the connection]
scymtym has joined #lisp
ldb has quit [Quit: leaving]
aartaka has joined #lisp
nij has quit [Remote host closed the connection]
aartaka has quit [Read error: Connection reset by peer]
nij has joined #lisp
nij has quit [Remote host closed the connection]
nij has joined #lisp
luni71 has joined #lisp
Bike has joined #lisp
luni71 has quit [Client Quit]
<nij> My code is awful: repeating a lot, not functional, unclean deconstructive method.. https://bpa.st/VE4F4 Any suggestion?
<nij> I'm tempted to use macro, to abstract the syntax. But I think there's a better way to do it with functions.
<phoe> what's string-?
<_death> looks like you want REDUCE
<nij> (string- "I have a dog" "a") => "I hve dog"
<phoe> oooh, okay - then as _death mentioned, (reduce #'string- result ...)
<nij> OH that's a way. Note taken.
<nij> But to do it more functionally.. this is just to apply a sequence of functions on some element:
<beach> Or you can use LOOP if you prefer that.
<_death> but instead of reducing, you may REMOVE-IF
<nij> (f4 (f3 (f2 (f1 x))))
<nij> beach: no no loop.. at least for now
<beach> *sigh*
<nij> so im thinking of using (magic-apply f_ '(1 2 3 4) x)
<nij> beach: :(
<phoe> nij: a sequence of functions? you can use alexandria:compose for that
<phoe> but, uh
<phoe> REDUCE is already as functional as you can get, completely zero side effects
<nij> ok i will use reduce
<nij> I just think that there's a general pattern lacking behind
<beach> I suspect REDUCE is that pattern.
<_death> (defun qstring- (x y) `(string- ,x ,y)) (reduce #'qstring- (list "\\." "\\?" "," ":" ";" "!" (string #\Newline)) :initial-value 'result)
<phoe> (funcall (alexandria:compose #'prin1-to-string #'1+ #'-) 42)
<phoe> ;=> "-41"
<nij> yep REDUCE is that.. like Foldr
<phoe> (f4 (f3 (f2 (f1 x)))) === (funcall (alexandria:compose #'f4 #'f3 #'f2 #'f1) x)
<nij> phoe: almost! but f_ hasn't been abstractified yet
<phoe> what's f_?
<phoe> and what's magic-apply?
<nij> (seq-apply (mapcar f_ '(1 2 3 4)) x)
<nij> undefined, phoe :(
<phoe> I still don't get it
<phoe> what is f_ and why do you pass '(1 2 3 4) there?
<nij> (f_ 1) => #'f1
<phoe> oh, it grabs a fdefinition by name
jonatack has joined #lisp
<nij> sequencial piping/filtering
jonatack has quit [Read error: Connection reset by peer]
<phoe> (defun f_ (x) (fdefinition (intern (format nil "F~D" x)))) but I'd consider that dirty code
<phoe> mostly because F1 F2 F3 F4 are ugly function names
<nij> yeah i'm too used to curring :(
<phoe> oh, alexandria:curry and alexandria:rcurry are there for you
<Alfr> nij, does (mapcar (lambda (f) (funcall f x)) (mapcar #'f_ '(1 2 3 4))) do what you intend? Just a thought though.
<nij> almost! i think i have a clue now
<nij> writing it up
aartaka has joined #lisp
jonatack has joined #lisp
hiroaki has quit [Ping timeout: 272 seconds]
<_death> (reduce #'funcall '(f1 f2 f3 f4) :initial-value arg :from-end t)
aartaka has quit [Read error: Connection reset by peer]
<nij> yeah reduce is the cleanest way so far
<nij> (still writing my own @@)
jonatack has quit [Quit: jonatack]
theothor` has joined #lisp
<nij> pipe flow chart:
<nij> '(1 2 3 4) -> (f4 f3 f2 f1) -> (f4 (f3 (f2 (f1 _))))
<nij> But it seems terrible to write this in CL as it is lisp-2, uses unnative currying, .. and the lambdas crowded the space up real quick.
jonatack has joined #lisp
theothor` has quit [Ping timeout: 256 seconds]
cosimone has quit [Quit: cosimone]
<cl-arthur> nij: why not just make string- take a set of marks instead of a mark.
<nij> cl-arthur: the end of that is what i want
<nij> right? it's exactly (f4 (f3 (f2 (f1 _))))
<nij> I'm just autistically trying to build your string- from a simpler block @@
jonatack has quit [Ping timeout: 246 seconds]
madage has quit [Remote host closed the connection]
madage has joined #lisp
<nij> phoe: I think what I really want here is some sort of monadic arrows.
<phoe> what sort of syntax are you thinking of?
<nij> we have (-<> stuff (form <>)) already
<cl-arthur> depends on the order your #'compose works - might be you're doing (f1 (f2 (f3 (f4 _)))).
<nij> (dual-apply x (list-<> stuffs (form <>)))
<nij> oh no sorry hold on the last one is incorrect
<phoe> please give me a concrete example, I don't know what X or LIST-<> or STUFFS or FORM is
<_death> if your goal is to obfuscate matters..
<Nilby> nij: are you trying to remove the punctuation?
<nij> Nilby: yes.. there're many ways indeed
<Nilby> like: (remove-if (_ (position _ ".,?!")) "I have a dog, and you? Nope.")
<nij> but i'm also hoping for a better (subjectively) syntax
<nij> (list-<> '(1 2 3 4) (f_ <>)) ; => '(f1 f2 f3 f4)
<Nilby> I feel like you might be over thinking it.
<nij> (transform x '(f1 f2 f3 f4)) ; => (f4 (f3 (f2 (f1 x))))
Aurora_v_kosmose has quit [Quit: brb...]
orivej has quit [Ping timeout: 240 seconds]
<nij> yeah......ok :-( I will just use reduce..
<phoe> TRANSFORM is gonna be REDUCE though
toorevitimirp has quit [Remote host closed the connection]
<cl-arthur> practically reimplementing (a subset of) reduce from the looks of it, yup
<phoe> (defun transform (initial-value functions) (reduce #'funcall functions :initial-value initial-value :from-end t))
<nij> yep
<nij> I need to put this in my box.
ted_wroclaw has joined #lisp
<nij> I think reduce is a little bit too abstract for me.. even if they are the same
<nij> mathematically I'm thinking of elements as dots and functions as arrows
<nij> and the dots should pass through the arrows, which can be combined
<nij> but that's just another perspective. i should try to do it in a more lispy way
<nij> so sure.. use REDUCE!
<phoe> you have been corrupted by haskell
<nij> not haskell, but pure math
<phoe> close enough.
<nij> well actually haskell has this stuff too, it's called foldr, foldl
<nij> i just feel uncomfortable putting elements and functions at the same level
<phoe> what do you mean, the same level?
<cl-arthur> pretty sure you can do arbitrary operations on functions in math too (e.g. differentiation maps functions to functions)
aeth has quit [Ping timeout: 240 seconds]
<nij> phoe: for example, with reduce the syntax looks like (reduce #'combine '(x f1 f2 f3 f4))
<nij> where (combine X F) => (F X)
<nij> but then x and the functions fn's are put in the same list
aartaka has joined #lisp
<_death> so use :initial-value
<phoe> ^
aeth has joined #lisp
<phoe> also, wanna see something scary?
<nij> yes that makes it seem better
<nij> phoe: please!
<phoe> nij: (list 1 "2" :three "four" 'five #(6) (lambda () 7) '(8) (alexandria:plist-hash-table '(9 10)))
<nij> lol
aartaka has quit [Read error: Connection reset by peer]
aartaka has joined #lisp
<phoe> the nightmares that programmers used to statically typed languages sometimes have
theothor` has joined #lisp
attila_lendvai has quit [Ping timeout: 272 seconds]
<nij> hehe
aartaka has quit [Read error: Connection reset by peer]
<phoe> but, yes, :initial-value is there for you for when you want to avoid mixing types in your sequences
ted_wroclaw has quit [Quit: Textual IRC Client: www.textualapp.com]
<phoe> because I assumed that you wanted to keep '(f1 f2 f3 f4) to be a list of symbols, and you want x to be arbitrary data
<phoe> s/assumed/assume/
theothor` has quit [Ping timeout: 240 seconds]
attila_lendvai has joined #lisp
attila_lendvai has quit [Remote host closed the connection]
attila_lendvai has joined #lisp
Aurora_v_kosmose has joined #lisp
albusp has quit [Read error: Connection reset by peer]
Bike has quit [Quit: Connection closed]
waleee-cl has joined #lisp
prxq has joined #lisp
jeosol has quit [Quit: Ping timeout (120 seconds)]
ralt has joined #lisp
Oddity- has joined #lisp
Oddity has quit [Ping timeout: 264 seconds]
jonatack has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
aartaka has joined #lisp
amb007 has joined #lisp
jeosol has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
jonatack has quit [Read error: Connection reset by peer]
jonatack has joined #lisp
amb007 has joined #lisp
Bike has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
long4mud has quit [Ping timeout: 240 seconds]
Fare has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
abhixec has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
skapata has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
frodef has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
Josh_2 has joined #lisp
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
Bike has quit [Quit: Connection closed]
amb007 has quit [Read error: Connection reset by peer]
hiroaki has joined #lisp
amb007 has joined #lisp
frodef` has joined #lisp
frodef has quit [Ping timeout: 240 seconds]
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
aartaka_d has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
aartaka has quit [Ping timeout: 265 seconds]
amb007 has joined #lisp
albusp has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
orivej has joined #lisp
<ioa> I'd like to check and add miniKanren embeddings in common-lisp to Cliki.net but I'm not sure where to add them. First I thought in "unification" but miniKanren is more than that, it's full relational programming. Any suggestions? (cc. phoe) In their website (minikanren.org) they say "miniKanren is an embedded Domain Specific Language for logic programming."
theothor` has joined #lisp
<ioa> FYI this is a list of Kanren implementations: http://minikanren.org/#implementations There are 5 in common-lisp, although the first one already seems abandoned. :( (checking the rest now)
amb007 has quit [Read error: Connection reset by peer]
<ioa> The 2nd one is in "trying to implement miniKanren stage". Can't find the 3rd one. The 4th one just has 2 commits 3 years ago and no comments anywhere, will have to try if it works. And the 5th one is using the first one. :( :( :( This is sad.
amb007 has joined #lisp
<ioa> I guess then I'll have to try them out first, to see which ones work. Then I'll think about adding info to Cliki. Any opinions on my original question are welcome!
Cymew has joined #lisp
frodef`` has joined #lisp
Lycurgus has joined #lisp
frodef` has quit [Ping timeout: 246 seconds]
Lycurgus has quit [Client Quit]
zmagii has left #lisp ["ERC (IRC client for Emacs 26.3)"]
louis771 has joined #lisp
theothor` has quit [Ping timeout: 256 seconds]
Fare has quit [Ping timeout: 258 seconds]
theothor` has joined #lisp
theothor` has quit [Ping timeout: 240 seconds]
h4ck3r9696 has quit [Quit: Leaving.]
Cymew has quit [Ping timeout: 272 seconds]
Fare has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
theothor` has joined #lisp
jonatack has quit [Ping timeout: 272 seconds]
nij has quit [Ping timeout: 260 seconds]
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
jpli has joined #lisp
Bike has joined #lisp
anticrisis has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
jonatack has joined #lisp
Colleen has quit [Quit: Colleen]
Colleen has joined #lisp
ralt has quit [Quit: Connection closed for inactivity]
<albusp> I'm trying to (require) one of my modules from a file, and it had been already (load)ed from somewhere else, but I get the "don't know how to require" error. Should I try (provide)ing all my module files at the top, so that (require) can find them?
h4ck3r9696 has joined #lisp
<_death> better to use asdf
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
<_death> require is implementation-dependent, so we can't say much about your issue without knowing which implementation you use.. that's one of its issues
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
<albusp> _death: I've heard that. Also I've read somewhere that if filename is same as the module you don't need to provide?
<albusp> _death: this case is sbcl
<_death> the sbcl manual has a paragraph about behavior of require (in section 7.9)
<_death> nobody really uses it, so I'm not sure why you want to
amb007 has quit [Read error: Connection reset by peer]
louis771 has quit [Quit: My M1 has gone to sleep. ZZZzzz…]
amb007 has joined #lisp
<albusp> Also, CLHS notes that provide and require are deprecated. Is CLHS pointing people to seek an alternative? Is ASDF the obvious answer?
<_death> in the last decade or so, yes, asdf is pretty much the obvious answer
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
domovod has quit [Ping timeout: 265 seconds]
<Nilby> albusp: I reccomend installing Quicklisp, copying a simple projects .asd file, altering for your thing, and symbolic linking it into ~/quicklisp/local-projects. If you're interested, later you could read the rather convoluted asdf manual.
Lord_of_Life has quit [Ping timeout: 240 seconds]
theothor` has quit [Ping timeout: 272 seconds]
<Nilby> or if you're just starting with simple things you can get by with just manually usaing "load" and/or compile-file
<_death> the other day I saw someone post to the LISA (project from 2000 that's similar to production systems from the 1980s, with certainty factors and all ;) mailing list about creating a fork.. I check it out and nostalgy overflows as I open https://github.com/gpwwjr/LISA/blob/main/misc/asdf.lisp
aartaka_d has quit [Remote host closed the connection]
aartaka has joined #lisp
<albusp> thanks Nilby. I have this simple structure, a couple of packages with some hierarchy, and don't want to load the same package multiple times. I think I'm getting some success by adding provide to the end of the package files. It feels clean this way.
<Nilby> _death: wow. simpler times. #:hyperdocumentation
kpoeck has joined #lisp
Lord_of_Life has joined #lisp
theothor` has joined #lisp
<Nilby> albusp: yes, I like the simplicity too. I even made my own require a long time ago. it's just a little quirky between implementations, and where/when it looks for files. And then there's the issue of compiling and compiler output.
theothor` has quit [Ping timeout: 265 seconds]
<Nilby> _death: also the #+nil thing use to get triggered by trivial-features
karlosz has joined #lisp
<_death> what do you mean (about trivial-features)
<Nilby> trivial-features would push NIL on *features* on some old obscure platforms that i used, activating crazy dead code
<Nilby> and the #+nil joke in old asdf
<_death> nasty
<Nilby> it was maddening until I realized what was going on,
hjudt has joined #lisp
<Nilby> i still have in my .lisprc : (when (find :nil *features*) (error "NIL is in features!"))
<_death> looking at asdf.lisp, the only place #+nil is used other than that smartassism is in *central-registry*.. which I guess could be modified in the implementation's rc file or something :)
<Nilby> (push nil *features*) is yet another episode of "survive this sexp"
<_death> reminds me of people changing *read-default-float-format* in a general context
<Nilby> yes, another good one
<_death> all is fine, until some code with single-float declarations and safety 0 nudges you into insanity because someone passed 5.31 to it
aartaka has quit [Ping timeout: 265 seconds]
theothor` has joined #lisp
<Nilby> wow, let's keep everything rationals
<_death> speaking of rationals, what about them integers?
<_death> why does GCD not work on integers?
<_death> I mean Gaussian integers of course
<Nilby> exactly
<_death> we need a new CL standard..
<Nilby> agree
<Nilby> we now see how the numeric tower can crumble
gioyik has joined #lisp
theothor` has quit [Remote host closed the connection]
theothor` has joined #lisp
theothor` has joined #lisp
<Nilby> i think we should recode the numeric tower in p-adic church primes
<phoe> Nilby: (push nil *features*) won't work
<_death> :nil
<phoe> you need to push :nil because #+ looks in the KEYWORD package which does not import CL:NIL
<_death> the defensive nil'er uses #+cl:nil
* Nilby is patching the "survive this sexp" game repo
abhixec has quit [Read error: Connection reset by peer]
theothor` has quit [Remote host closed the connection]
theothor` has joined #lisp
amb007 has quit [Ping timeout: 256 seconds]
<albusp> How can we tell lisp to ignore an undefined symbol for a class slot? I have this example and my-fn gives an obvious warning: https://www.codepile.net/pile/Ajy2W4QP
gaqwas has quit [Ping timeout: 264 seconds]
luis0 is now known as luis
<Bike> even if you compile-file this whole thing?
amb007 has joined #lisp
theothor` has quit [Ping timeout: 272 seconds]
theothor` has joined #lisp
gaqwas has joined #lisp
theothor` has quit [Read error: Connection reset by peer]
theothor` has joined #lisp
attila_lendvai_ has joined #lisp
h4ck3r9696 has quit [Ping timeout: 246 seconds]
gaqwas has quit [Ping timeout: 256 seconds]
attila_lendvai has quit [Ping timeout: 265 seconds]
dtman34 has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
theothor` has quit [Ping timeout: 240 seconds]
h4ck3r9696 has joined #lisp
<albusp> Bike: it doesn't after compile
<phoe> albusp: if you are loading the file, then define my-fn earlier
<phoe> if you are compiling the whole file, then this should be a non-issue
<albusp> then the class is not defined warning for the function
<phoe> class is not defined? what do you mean
<phoe> MY-FN does not make use of class A in any way
<albusp> sorry s2 not defined if function is before
shka_ has quit [Ping timeout: 264 seconds]
<albusp> This is an example case of the cyclic definition I have
<phoe> S2 does not need to be defined, it is a slot name
<phoe> which implementation and version are you using?
<phoe> no error for me
<phoe> no warning for me
<phoe> everything is clean
<albusp> goodness my example was bad. Actually I should've added an accessor for s2. Let me fix
<albusp> this is a better example: https://www.codepile.net/pile/b1MxEPpY
<phoe> I never really worry about such things, because I compile whole files most of the time
<phoe> or rather, ASDF does it for me
jt_ has joined #lisp
<phoe> I'd compile the file and then load the resulting FASL to get the goodness of having the compiler treat the whole file as a compilation unit
jt_ has quit [Remote host closed the connection]
dtman34 has joined #lisp
dtman34 has quit [Client Quit]
dtman34 has joined #lisp
pfdietz has joined #lisp
imode has joined #lisp
abhixec has joined #lisp
[d] has quit [Remote host closed the connection]
kpoeck has quit [Ping timeout: 240 seconds]
[d] has joined #lisp
cl-arthu1 has joined #lisp
cage_ has quit [Quit: Leaving]
dtman34 has quit [Quit: ZNC 1.7.2+deb3 - https://znc.in]
cl-arthur has quit [Ping timeout: 246 seconds]
dtman34 has joined #lisp
<albusp> phoe: thanks for checking. oh well, you're probably right, don't worry. I was wondering if an ignorable declaration is possible with slots
<_death> you can wrap your load form with with-compilation-unit, that may help
dtman34 has quit [Client Quit]
Inline__ is now known as Inline
<pve> I'm wondering if there is an established technique to "scan" a stream for a string that would correspond to the characters READ would have consumed.
<[d]> <_​death#0000> you can wrap your load form with with-compilation-unit, that may help
<pve> Silly example: (with-input-from-string (s "( 123 ) some more stuff") (scan s)) => "( 123 )"
<[d]> <p​ve#0000> I'm wondering if there is an established technique to "scan" a stream for a string that would correspond to the characters READ would have consumed.
<[d]> <a​lbusp#0000> phoe: thanks for checking. oh well, you're probably right, don't worry. I was wondering if an ignorable declaration is possible with slots
<[d]> <p​ve#0000> Silly example: (with-input-from-string (s "( 123 ) some more stuff") (scan s)) => "( 123 )"
<[d]> <_​death#0000> [edit]:
<[d]> <p​ve#0000> [edit]:
<[d]> <a​lbusp#0000> [edit]:
<[d]> <p​ve#0000> [edit]:
<_death> pve: maybe you can utilize read-from-string's second value
pfdietz has quit [Quit: Ping timeout (120 seconds)]
Bike has quit [Quit: Ping timeout (120 seconds)]
jeosol has quit [Quit: Ping timeout (120 seconds)]
Bike has joined #lisp
theothor` has joined #lisp
<pve> _death: Yes that would work, but I'm not sure I can collect everything in the stream up to EOF into a string.. need to investigate further
theothor` has left #lisp [#lisp]
theothornhill has joined #lisp
<_death> oh, also check out make-echo-stream
<pve> let me see
<_death> (with-output-to-string (out) (with-input-from-string (stream "( 123 ) some more stuff") (let ((e (make-echo-stream stream out))) (read e))))
ljavorsk has joined #lisp
<pve> _death: thanks, you made my day :)
<_death> I don't think I have any code that uses echo streams, so it's an interesting use case
hendursa1 has quit [Ping timeout: 268 seconds]
theothornhill has quit [Ping timeout: 256 seconds]
pfdietz has joined #lisp
anticrisis_ has joined #lisp
dtman34 has joined #lisp
Anonymous_ has quit [Remote host closed the connection]
hendursa1 has joined #lisp
h4ck3r9696 has left #lisp [#lisp]
attila_lendvai has joined #lisp
[d] was banned on #lisp by phoe [*!*discord@*.hsd1.wa.comcast.net]
[d] was kicked from #lisp by phoe [this bridge bot is misconfigured and spams the channel - please fix it and then ask a mod to lift the ban]
anticrisis has quit [Ping timeout: 240 seconds]
attila_lendvai_ has quit [Ping timeout: 272 seconds]
<phoe> Xach: was float-features updated for the recent quicklisp dist?
<phoe> the Jan 2021 dist does not seem to have the most recent changes from https://github.com/Shinmera/float-features/blob/master/float-features.lisp that export e.g. SHORT-FLOAT-NAN
<mfiano> phoe: That was commited before the dist release, but only merged yesterday
<Xach> aha
attila_lendvai has quit [Ping timeout: 246 seconds]
<Xach> i'm off the hook
dtman34 has left #lisp [#lisp]
jonatack has quit [Read error: Connection reset by peer]
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
IPmonger has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
<phoe> ooooh
amb007 has joined #lisp
dtman34 has joined #lisp
karlosz has quit [Quit: karlosz]
akoana has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
scymtym_ has joined #lisp
scymtym has quit [Ping timeout: 240 seconds]
theothor` has joined #lisp
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
IPmonger has joined #lisp
scymtym__ has joined #lisp
hjudt has quit [Ping timeout: 240 seconds]
scymtym_ has quit [Ping timeout: 256 seconds]
theothor` has quit [Ping timeout: 265 seconds]
johnjay has quit [Ping timeout: 260 seconds]
kam1 has joined #lisp
johnjay has joined #lisp
amerlyq has joined #lisp
theothor` has joined #lisp
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
IPmonger has joined #lisp
theothor` has quit [Ping timeout: 240 seconds]
Fare has quit [Ping timeout: 264 seconds]
scymtym__ has quit [Remote host closed the connection]
scymtym has joined #lisp
ralt has joined #lisp
Fare has joined #lisp
Bike has quit [Quit: Connection closed]
Anonymous_ has joined #lisp
jonatack has joined #lisp
amerlyq has quit [Quit: amerlyq]
IPmonger has quit [Quit: ZNC 1.7.5+deb4 - https://znc.in]
IPmonger has joined #lisp
Blukunfando has quit [Ping timeout: 265 seconds]
ganjajim has joined #lisp
contrapunctus has left #lisp ["Disconnected: closed"]
contrapunctus has joined #lisp
theothor` has joined #lisp
Nilby has quit [Ping timeout: 264 seconds]
theothor` has quit [Ping timeout: 256 seconds]
aindilis has quit [Ping timeout: 240 seconds]
theothor` has joined #lisp
galex-713 has quit [Ping timeout: 265 seconds]
galex-713 has joined #lisp
theothor` has quit [Ping timeout: 264 seconds]
jeosol has joined #lisp
notzmv has quit [Remote host closed the connection]
hiroaki has quit [Ping timeout: 240 seconds]
surabax has quit [Quit: Leaving]
notzmv has joined #lisp
fengshaun has quit [Ping timeout: 256 seconds]
notzmv has quit [Remote host closed the connection]
notzmv has joined #lisp
amb007 has quit [Read error: Connection reset by peer]
amb007 has joined #lisp
hendursa1 has quit [Remote host closed the connection]
aeth has quit [Ping timeout: 256 seconds]
hendursa1 has joined #lisp
notzmv has quit [Remote host closed the connection]
pillton has joined #lisp
aeth has joined #lisp
notzmv has joined #lisp
theothor` has joined #lisp
xantoz has quit [Ping timeout: 265 seconds]
theothor` has quit [Ping timeout: 240 seconds]
Fare has quit [Ping timeout: 260 seconds]
igemnace has joined #lisp
Lycurgus has joined #lisp
Bike has joined #lisp
fengshaun has joined #lisp
logand``` has quit [Read error: Connection reset by peer]
logand``` has joined #lisp
abhixec has quit [Quit: leaving]
theothor` has joined #lisp
rgherdt has quit [Ping timeout: 258 seconds]
aeth has quit [Ping timeout: 265 seconds]
theothor` has quit [Ping timeout: 256 seconds]
aeth has joined #lisp
PuercoPop has joined #lisp
xantoz has joined #lisp
pve has quit [Quit: leaving]
random-nick has quit [Ping timeout: 256 seconds]
zacts has joined #lisp