jackdaniel changed the topic of #commonlisp to: Common Lisp, the #1=(programmable . #1#) programming language | Wiki: <https://www.cliki.net> | IRC Logs: <https://irclog.tymoon.eu/libera/%23commonlisp> | Cookbook: <https://lispcookbook.github.io/cl-cookbook> | Pastebin: <https://plaster.tymoon.eu/>
Gleefre has quit [Remote host closed the connection]
occ has joined #commonlisp
modula2 has joined #commonlisp
modula has quit [Ping timeout: 250 seconds]
modula2 has quit [Ping timeout: 260 seconds]
modula2 has joined #commonlisp
kevingal has quit [Ping timeout: 240 seconds]
akasha has joined #commonlisp
Gernn has joined #commonlisp
akoana has joined #commonlisp
Gernn has quit [Quit: ERC 5.5 (IRC client for GNU Emacs 29.0.60)]
Gernn has joined #commonlisp
Gernn has quit [Client Quit]
Gernn has joined #commonlisp
bjorkintosh has joined #commonlisp
bjorkintosh has joined #commonlisp
bjorkintosh has quit [Changing host]
johnjaye has quit [Ping timeout: 240 seconds]
johnjaye has joined #commonlisp
ornyx has quit [Ping timeout: 250 seconds]
akasha has quit []
jurassic has quit [*.net *.split]
habamax has quit [*.net *.split]
molson has quit [*.net *.split]
ioa has quit [*.net *.split]
copec has quit [*.net *.split]
cross has quit [*.net *.split]
patrix has quit [*.net *.split]
hrberg has quit [*.net *.split]
Lord_Nightmare has quit [*.net *.split]
pranavats has quit [*.net *.split]
dim has quit [*.net *.split]
tertek has quit [*.net *.split]
\f has quit [*.net *.split]
jonlevin has quit [*.net *.split]
sm2n has quit [*.net *.split]
whereiseveryone has quit [*.net *.split]
zyd has quit [*.net *.split]
artyn has quit [*.net *.split]
theesm has quit [*.net *.split]
sirufer has quit [*.net *.split]
milesrout has quit [*.net *.split]
payphone has quit [*.net *.split]
nytpu has quit [*.net *.split]
timmy has quit [*.net *.split]
mcoll has quit [*.net *.split]
jasom has quit [*.net *.split]
theothornhill has quit [*.net *.split]
zoglesby has quit [*.net *.split]
pvac has quit [*.net *.split]
ggb has quit [*.net *.split]
csos95 has quit [*.net *.split]
hrberg has joined #commonlisp
Lord_Nightmare has joined #commonlisp
habamax has joined #commonlisp
zyd has joined #commonlisp
copec has joined #commonlisp
jurassic has joined #commonlisp
patrix has joined #commonlisp
cross has joined #commonlisp
\f has joined #commonlisp
sm2n has joined #commonlisp
jonlevin has joined #commonlisp
nytpu has joined #commonlisp
sirufer has joined #commonlisp
whereiseveryone has joined #commonlisp
milesrout has joined #commonlisp
artyn has joined #commonlisp
timmy has joined #commonlisp
mcoll has joined #commonlisp
theesm has joined #commonlisp
jasom has joined #commonlisp
theothornhill has joined #commonlisp
ggb has joined #commonlisp
tertek has joined #commonlisp
dim has joined #commonlisp
molson has joined #commonlisp
ioa has joined #commonlisp
payphone has joined #commonlisp
pranavats has joined #commonlisp
zoglesby has joined #commonlisp
pvac has joined #commonlisp
csos95 has joined #commonlisp
cross has quit [Max SendQ exceeded]
cross has joined #commonlisp
ixelp has quit [Ping timeout: 250 seconds]
gilberth has quit [Ping timeout: 240 seconds]
akoana has quit [Quit: leaving]
ixelp has joined #commonlisp
Perflosopher has joined #commonlisp
ronald has quit [Ping timeout: 264 seconds]
ronald has joined #commonlisp
occ has quit [Ping timeout: 260 seconds]
bird_ has quit [Ping timeout: 246 seconds]
bird_ has joined #commonlisp
occ has joined #commonlisp
msavoritias has joined #commonlisp
ezakimak has quit [Ping timeout: 250 seconds]
jeosol has joined #commonlisp
splatt990 has quit [Ping timeout: 264 seconds]
akasha has joined #commonlisp
Gleefre has joined #commonlisp
yitzi has quit [Server closed connection]
yitzi has joined #commonlisp
rgherdt has joined #commonlisp
jon_atack has quit [Read error: Connection reset by peer]
jon_atack has joined #commonlisp
ezakimak has joined #commonlisp
easye has joined #commonlisp
Gleefre has quit [Ping timeout: 246 seconds]
rgherdt_ has joined #commonlisp
rgherdt has quit [Ping timeout: 260 seconds]
amb007 has joined #commonlisp
ronald has quit [Ping timeout: 260 seconds]
ronald has joined #commonlisp
ronald has quit [Ping timeout: 250 seconds]
ronald has joined #commonlisp
semz has quit [Quit: ZNC 1.8.2+deb2build5 - https://znc.in]
semz has joined #commonlisp
pve has joined #commonlisp
rgherdt_ is now known as rgherdt
amb007 has quit [Ping timeout: 246 seconds]
amb007 has joined #commonlisp
igemnace has joined #commonlisp
rainthree has joined #commonlisp
chrcav has quit [Ping timeout: 264 seconds]
attila_lendvai_ has joined #commonlisp
chrcav has joined #commonlisp
shka has joined #commonlisp
Grauwolf has joined #commonlisp
attila_lendvai_ is now known as attila_lendvai
thollief has joined #commonlisp
mgl has joined #commonlisp
qhong has quit [Read error: Connection reset by peer]
qhong has joined #commonlisp
rainthree has quit [Ping timeout: 245 seconds]
Inline has joined #commonlisp
LW has joined #commonlisp
LW has quit [Client Quit]
Inline has quit [Remote host closed the connection]
azimut has quit [Ping timeout: 240 seconds]
dino_tutter has joined #commonlisp
habamax has quit [Quit: ERC 5.4 (IRC client for GNU Emacs 28.2)]
rtypo has joined #commonlisp
random-nick has joined #commonlisp
thollief has quit [Ping timeout: 245 seconds]
remexre_ has joined #commonlisp
remexre has quit [Read error: Connection reset by peer]
remexre_ is now known as remexre
BrownJenkin has quit [Server closed connection]
rainthree has joined #commonlisp
_whitelogger has joined #commonlisp
thollief has joined #commonlisp
dino_tutter has quit [Ping timeout: 260 seconds]
rtypo has quit [Quit: WeeChat 3.8]
Lord_of_Life_ has joined #commonlisp
Lord_of_Life has quit [Ping timeout: 260 seconds]
Lord_of_Life_ is now known as Lord_of_Life
occ has quit [Ping timeout: 260 seconds]
greaser|q has joined #commonlisp
greaser|q has quit [Changing host]
greaser|q is now known as GreaseMonkey
Gleefre has joined #commonlisp
euandreh has quit [Remote host closed the connection]
euandreh has joined #commonlisp
dino_tutter has joined #commonlisp
euandreh has quit [Client Quit]
mm007emko has joined #commonlisp
mm007emko has quit [Quit: Client closed]
rainthree3 has joined #commonlisp
rainthree has quit [Ping timeout: 245 seconds]
BierLiebHaber has quit [Remote host closed the connection]
seanw has joined #commonlisp
<ogamita> jasonmw: You could ask chatgpt to answer in the context of the book: https://dpaste.org/dk5Ju
<ixelp> dpaste/dk5Ju (Common Lisp)
habamax has joined #commonlisp
shka has quit [Read error: Connection reset by peer]
shka has joined #commonlisp
antoszka has quit [Server closed connection]
antoszka has joined #commonlisp
<hayley> 0/10 not once was "It's important to understand that" uttered
<hayley> Is it possible to break up a pattern in Trivia? I'm writing a peephole optimizer and don't want to nest patterns so much. Say, the pattern should look like (where (list a b) ((a (foo ...)) (b (bar ...)))) rather than (list (foo ...) (bar ...))
occ has joined #commonlisp
<hayley> Seems that (trivia:defpattern where (pattern &rest bindings) (alexandria:with-gensyms (value) `(trivia:guard1 ,value t ,value ,pattern ,@bindings))) [with different syntax for bindings].
Nilby has joined #commonlisp
Nilby has quit [Client Quit]
Nilby has joined #commonlisp
mister_m has quit [Server closed connection]
mister_m has joined #commonlisp
kevingal has joined #commonlisp
renatoathaydes has joined #commonlisp
<renatoathaydes> Hey! I was wondering if anyone has a simple GitHub Actions setup that actually works with multiple CL implementations. Tried the 40ants stuff but that only seems to work with SBCL.
<renatoathaydes> trying to configure any other impls just fails.
gilberth has joined #commonlisp
<yitzi> renatoathaydes Its still pretty fresh and it only does Linux. https://github.com/yitzchak/archlinux-cl
<ixelp> GitHub - yitzchak/archlinux-cl: Docker Arch Linux image with Common Lisp implementations
<renatoathaydes> nice, lots of CL implementations.
<yitzi> Here is a more involved example which clones multiple dependencies https://github.com/yitzchak/Inravina/blob/main/.github/workflows/test.yml
<ixelp> Inravina/.github/workflows/test.yml at main · yitzchak/Inravina · GitHub
<renatoathaydes> thanks...
<renatoathaydes> I was looking at the logs from this project and it seems it has test failures but did not fail the build... maybe something they should check...
<renatoathaydes> "2 failures with 0 unexpected failures and 0 unexpected successes out of 229 tests."
<yitzi> Its intentional. There are expected failures.
habamax has quit [Quit: ERC 5.5.0.29.1 (IRC client for GNU Emacs 29.0.92)]
<renatoathaydes> Shouldn't expected failures be handled and reported as success? Or this is like "feature-not-implemented-yet" kind of failure?
<yitzi> They are handled as success. The error message is just phrased strangely. Some of them are missing features.
occ has quit [Ping timeout: 245 seconds]
<jackdaniel> successfully failed to succeed
renatoathaydes has quit [Ping timeout: 245 seconds]
tyson2 has joined #commonlisp
ronald has quit [Ping timeout: 250 seconds]
occ has joined #commonlisp
holycow has joined #commonlisp
dre has quit [Ping timeout: 246 seconds]
msavoritias has quit [Ping timeout: 260 seconds]
Ellenor is now known as Reinhilde
holycow has quit [Client Quit]
waleee has joined #commonlisp
occ has quit [Ping timeout: 240 seconds]
occ has joined #commonlisp
bird_ has quit [Ping timeout: 246 seconds]
bird_ has joined #commonlisp
Gernn has quit [Ping timeout: 246 seconds]
Brucio-61 has quit [Ping timeout: 240 seconds]
Brucio-61 has joined #commonlisp
lucasta has joined #commonlisp
karlosz has joined #commonlisp
SmitSanghvi has joined #commonlisp
Brucio-61 has quit [Ping timeout: 240 seconds]
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
Brucio-61 has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
SmitSanghvi has quit [Quit: Quit]
Gleefre has quit [Remote host closed the connection]
SmitSanghvi has joined #commonlisp
Gleefre has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
Brucio-61 has quit [Ping timeout: 240 seconds]
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
jurassic has quit [Remote host closed the connection]
SmitSanghvi has quit [Ping timeout: 240 seconds]
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
torbo has joined #commonlisp
Brucio-61 has joined #commonlisp
waleee has quit [Ping timeout: 240 seconds]
ronald has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
renatoathaydes has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
renatoathaydes has quit [Ping timeout: 245 seconds]
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
mrvdb has quit [Server closed connection]
mrvdb has joined #commonlisp
Gleefre has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
jeffrey has joined #commonlisp
semz has quit [Quit: ZNC 1.8.2+deb2build5 - https://znc.in]
semz has joined #commonlisp
Gleefre has joined #commonlisp
qhong has quit [Read error: Connection reset by peer]
qhong has joined #commonlisp
waleee has joined #commonlisp
tyson2 has quit [Remote host closed the connection]
occ has quit [Ping timeout: 240 seconds]
occ has joined #commonlisp
renatoathaydes has joined #commonlisp
agm has joined #commonlisp
Enapiuz[m] has quit [Remote host closed the connection]
renatoathaydes has quit [Ping timeout: 264 seconds]
mason has left #commonlisp [#commonlisp]
<agm> i see that (let ((x 0)) (declare (special x)) (let ((x 1)) x)) evaluates to 1 in common implementations, but I don't get why. the inner binding is surely lexical, but the inner reference should fall under the declaration and so be special, evaluating to 0 in my understanding
Psybur has joined #commonlisp
<beach> I am pretty sure the inner reference is lexical.
<bike> the inner reference is just as lexical as the binding is, yeah
<Gleefre> Maybe inner binding also falls under the declaration and is special?
<bike> it does not
<beach> No.
<bike> having a new binding makes that binding and everything in it lexical. the outer special declaration is shadowed, essentially
<Gleefre> Ah, right
<Gleefre> And it is possible to access "outer x" with (locally (declare (special x)) x)
<bike> or just symbol-value
agm has quit [Ping timeout: 260 seconds]
mi6x3m has joined #commonlisp
<mi6x3m> hey, can I update the value of a do varaible with a setf in the do body?
rainthree3 has quit [Read error: Connection reset by peer]
rainthree3 has joined #commonlisp
<yitzi> mi6x3m: The variables of DO are just bound with LET, so yet. Try `(macroexpand-1 '(do ((x 1 (+1 x))) (nil)))`
<yitzi> s/yet/yes/
<mi6x3m> thanks :)
azimut has joined #commonlisp
renatoathaydes has joined #commonlisp
mi6x3m has quit [Remote host closed the connection]
kevingal has quit [Ping timeout: 245 seconds]
tyson2 has joined #commonlisp
dino_tutter has quit [Ping timeout: 245 seconds]
waleee has quit [Ping timeout: 245 seconds]
jsatk_ has quit [Server closed connection]
jsatk_ has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
dcb has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
Gleefre has quit [Remote host closed the connection]
Gleefre has joined #commonlisp
<pjb> agm: the explanation is simple: in (let ((x 0)) (declare (special x)) (let ((x 1)) x)) the declaration ensure that WHILE the outer let is evaluated, x is a dynamic variable. But then, in the inner let, x is back to the normal lexical binding, so the inner let returns 1. But in any case if you called a function that uses also x with a special declaration, you'd get the dynamic binding: (defun f () (declare (special x)) x) (let ((x 0))
<pjb> (declare (special x)) (let ((x 1)) (f))) #| --> 0 |# Note that (f) is called in the lexical scope of x=1.
ns12 has quit [Quit: bye]
ns12 has joined #commonlisp
lucasta has quit [Remote host closed the connection]
avocadoist has joined #commonlisp
czy has quit [Read error: Connection reset by peer]
zxcvz has joined #commonlisp
zxcvz has quit [Client Quit]
makomo has joined #commonlisp
rainthree3 has quit [Ping timeout: 245 seconds]
Gernn` has joined #commonlisp
modula2 has left #commonlisp [#commonlisp]
Gleefre has quit [Remote host closed the connection]
agm has joined #commonlisp
Gleefre has joined #commonlisp
markb1 has quit [Ping timeout: 264 seconds]
Gleefre has quit [Remote host closed the connection]
<agm> thanks
rgherdt has quit [Read error: No route to host]
rgherdt has joined #commonlisp
mgl has quit [Quit: Client closed]
markb1 has joined #commonlisp
tyson2 has quit [Remote host closed the connection]
zxcvz has joined #commonlisp
zxcvz has quit [Client Quit]
xaotuk[m] has quit [Server closed connection]
xaotuk[m] has joined #commonlisp
dcb has quit [Ping timeout: 245 seconds]
alcor has joined #commonlisp
dcb has joined #commonlisp
nicm[m] has quit [Server closed connection]
nicm[m] has joined #commonlisp
Gleefre has joined #commonlisp
dino_tutter has joined #commonlisp
jeffrey has quit [Ping timeout: 250 seconds]
tyson2 has joined #commonlisp
<ober> in bt how do you get a handle for a given tid? e.g. (bt:destroy-thread 12345) won't work.
<pjb> You can find the threads in (bt:all-threads)
<bike> I don't think BT deals with tids.
<pjb> ober: have a look at: com.informatimago.tools.thread:list-threads and com.informatimago.tools.thread:kill-thread
<ober> yeah I have the tid from bt:all-threads.
<ober> thanks
<ixelp> tools/thread.lisp · master · com-informatimago / com.informatimago · GitLab
<ober> is that in ql?
jeffrey has joined #commonlisp
<pjb> Nope. git clone it in ~/quicklisp/local-projects/
<ober> ul?
<pjb> there's (mapcar 'ccl:process-serial-number (bt:all-threads))
<ixelp> com-informatimago / com.informatimago · GitLab
<pjb> and ccl:external-process-id, but that's not for threads…
<aeth> if you don't use CCL, you can also just symbolic link in ~/quicklisp/local-projects/ but CCL doesn't follow links there, but if you load it first in another implementation it will still show up in ~/quicklisp/local-projects/system-index.txt and still be discoverable from CCL
<aeth> unless CCL patched this since this advice was last tested
<ober> just sbcl.
<pjb> Or nowadays, what I do is to put the path of my own directory on ql:*local-project-directories*
<pjb> So there's not even a notion of TID.
<ober> sb-thread it is...
igemnace has quit [Remote host closed the connection]
makomo has quit [Quit: WeeChat 3.6]
attila_lendvai has quit [Read error: Connection reset by peer]
renatoathaydes has quit [Remote host closed the connection]
renatoathaydes has joined #commonlisp
<ober> derp... slime-list-threads
renatoathaydes has quit [Ping timeout: 245 seconds]
thollief has quit [Quit: Leaving]
mariari has quit [Ping timeout: 246 seconds]
attila_lendvai has joined #commonlisp
beach` has joined #commonlisp
dino_tutter has quit [Ping timeout: 258 seconds]
attila_lendvai has quit [Ping timeout: 240 seconds]
mariari has joined #commonlisp
beach has quit [Ping timeout: 240 seconds]
Brucio-61 has quit [Ping timeout: 240 seconds]
Brucio-61 has joined #commonlisp
renatoathaydes has joined #commonlisp
Brucio-61 has quit [Ping timeout: 245 seconds]
renatoathaydes has quit [Ping timeout: 240 seconds]
renatoathaydes has joined #commonlisp
mgl has joined #commonlisp
<Gleefre> Is it defined anywhere whether it is allowed to unintern keyword symbols like :external (return values of standard functions) and what should happen in this case?
<Gleefre> Clasp just locks #:keyword package and doesn't allow to unintern any symbols
<pjb> Gleefre: one problem is that if you use symbol-plist, you lose it.
<Gleefre> Other implementations [sbcl,ccl,cmucl,clisp,ecl,abcl,acl,lispworks] just unintern that symbol, and standard functions like FIND-SYMBOL return an uninterned symbol afterwards
<pjb> ccl doesn't seem to unintern it really. (setf (symbol-plist :foo) '(:a 1)) (values (symbol-plist :foo) (unintern :foo) (symbol-plist (intern "FOO" "KEYWORD"))) #| --> (:a 1) ; nil ; (:a 1) |#
<Gleefre> pjb: do you mean values accessible by indicator :key that was uninterned?
<Gleefre> Also, you need to unintern it from the #:keyword package
<Gleefre> (It is not present in #:cl-user anyway)
rgherdt has quit [Ping timeout: 245 seconds]
agm has quit [Ping timeout: 240 seconds]
<pjb> Gleefre: just (symbol-plist s)
<pjb> The indicators can be any symbols, it doesn't matter.
<pjb> Implementations just don't unintern keywords: https://termbin.com/y85e
attila_lendvai has joined #commonlisp
<Gleefre> pjb: They do, you need to specify keyword package
<Gleefre> (let ((s :key)) (unintern :key '#:keyword) s) ; => #:KEY
avocadoist has quit [Ping timeout: 252 seconds]
avocadoist has joined #commonlisp
szkl has quit [Quit: Connection closed for inactivity]
sunarch has quit [Ping timeout: 264 seconds]
shka has quit [Ping timeout: 240 seconds]
dino_tutter has joined #commonlisp
sunarch has joined #commonlisp
Brucio-61 has joined #commonlisp
amb007 has quit [Remote host closed the connection]
rgherdt has joined #commonlisp
mgl has quit [Quit: Client closed]
Gernn` has quit [Quit: ERC 5.5 (IRC client for GNU Emacs 29.0.60)]
renatoathaydes has quit [Ping timeout: 260 seconds]
renatoathaydes has joined #commonlisp
pve has quit [Quit: leaving]
renatoathaydes has quit [Ping timeout: 245 seconds]
czy has joined #commonlisp
rgherdt has quit [Remote host closed the connection]
Gleefre has quit [Ping timeout: 246 seconds]
alcor has quit [Remote host closed the connection]
renatoathaydes has joined #commonlisp
renatoathaydes has quit [Ping timeout: 250 seconds]
attila_lendvai has quit [Ping timeout: 240 seconds]
robin_ has quit [Read error: Connection reset by peer]
robin has joined #commonlisp
renatoathaydes has joined #commonlisp
occ has quit [Ping timeout: 240 seconds]
habamax has joined #commonlisp
renatoathaydes has quit [Ping timeout: 245 seconds]
jmdaemon has joined #commonlisp
rtoy has quit [Quit: rtoy]
renatoathaydes has joined #commonlisp
renatoathaydes has quit [Ping timeout: 250 seconds]
<jasonmw> ogamita, that is interesting, i have not explored chatgpt but it gave a reasonable answer. I did later find why he used it - he said answer all with an iterative approach which i assume he means using do, all that had been covered for iteration up to that point
dino_tutter has quit [Ping timeout: 240 seconds]
renatoathaydes has joined #commonlisp
renatoathaydes has quit [Ping timeout: 240 seconds]
dre has joined #commonlisp
dre has quit [Remote host closed the connection]
renatoathaydes has joined #commonlisp