Xach 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>
Noisytoot_ has joined #commonlisp
lisp123 has joined #commonlisp
mister_m` has quit [Ping timeout: 255 seconds]
Noisytoot_ is now known as Noisytoot
lisp123 has quit [Ping timeout: 255 seconds]
derelict has joined #commonlisp
tfb has quit [Ping timeout: 258 seconds]
dsk has quit [Ping timeout: 255 seconds]
taiju has quit [Ping timeout: 240 seconds]
tfb has joined #commonlisp
jmes has joined #commonlisp
random-nick has quit [Ping timeout: 252 seconds]
selwyn has joined #commonlisp
waleee has quit [Ping timeout: 255 seconds]
tfb has quit [Ping timeout: 255 seconds]
Oladon1 has joined #commonlisp
selwyn has quit [Read error: Connection reset by peer]
Oladon has quit [Ping timeout: 268 seconds]
Oladon1 has quit [Client Quit]
derelict has quit [Ping timeout: 255 seconds]
tfb has joined #commonlisp
tyson2 has quit [Remote host closed the connection]
tfb has quit [Ping timeout: 255 seconds]
taiju has joined #commonlisp
prxq_ has joined #commonlisp
prxq has quit [Ping timeout: 255 seconds]
<beach> Good morning everyone!
tfb has joined #commonlisp
<recordgroovy> have to stop constantly refreshing pages
zacts has joined #commonlisp
char has joined #commonlisp
PinealGlandOptic has joined #commonlisp
PinealGlandOptic has quit [Client Quit]
PinealGlandOptic has joined #commonlisp
recordgroovy has quit [Ping timeout: 252 seconds]
PinealGlandOptic has quit [Client Quit]
recordgroovy has joined #commonlisp
tfb has quit [Ping timeout: 258 seconds]
char has quit [Ping timeout: 255 seconds]
char has joined #commonlisp
derelict has joined #commonlisp
zacts has quit [Quit: zacts]
tfb has joined #commonlisp
zacts has joined #commonlisp
akoana has quit [Quit: leaving]
zacts has quit [Client Quit]
lisp123 has joined #commonlisp
lisp123 has quit [Ping timeout: 255 seconds]
tfb has quit [Ping timeout: 255 seconds]
char has quit [Remote host closed the connection]
CrashTestDummy3 has joined #commonlisp
CrashTestDummy2 has quit [Ping timeout: 255 seconds]
caz has joined #commonlisp
<jackdaniel> your mind got hacked
<jackdaniel> (by admittedly very clever, yet unethical, cognitive science professionals)
tfb has joined #commonlisp
<moon-child> 'the best minds of my generation are figuring out how to make people click on ads' --some facebook employee
OlCe has quit [Ping timeout: 252 seconds]
tfb has quit [Ping timeout: 265 seconds]
dtman34 has quit [Ping timeout: 252 seconds]
Bike has quit [Quit: Lost terminal]
dtman34 has joined #commonlisp
tfb has joined #commonlisp
tfb has quit [Ping timeout: 246 seconds]
lisp123 has joined #commonlisp
<susam> Good morning, beach!
<susam> Good morning everyone! Hope you are having a good weekend.
<beach> Thanks, you too!
tfb has joined #commonlisp
domovod has joined #commonlisp
pve has joined #commonlisp
lad has joined #commonlisp
lad_ has quit [Ping timeout: 265 seconds]
pve_ has joined #commonlisp
lad_ has joined #commonlisp
pve has quit [Ping timeout: 255 seconds]
lad has quit [Ping timeout: 255 seconds]
pve_ is now known as pve
lisp123 has quit [Ping timeout: 246 seconds]
hendursa1 has joined #commonlisp
hendursaga has quit [Ping timeout: 244 seconds]
pve has quit [Quit: leaving]
selwyn has joined #commonlisp
tfb has quit [Ping timeout: 255 seconds]
selwyn has quit [Remote host closed the connection]
pve has joined #commonlisp
selwyn has joined #commonlisp
Lord_of_Life_ has joined #commonlisp
Inline has quit [Quit: Leaving]
Lord_of_Life has quit [Ping timeout: 255 seconds]
Lord_of_Life_ is now known as Lord_of_Life
tfb has joined #commonlisp
Inline has joined #commonlisp
selwyn has quit [Ping timeout: 265 seconds]
SAL9000_ is now known as SAL9000
selwyn has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
tfb has quit [Remote host closed the connection]
tfb has joined #commonlisp
random-nick has joined #commonlisp
mcfrdy has quit []
rgherdt has joined #commonlisp
mcfrdy has joined #commonlisp
Guest35 has joined #commonlisp
gaqwas has joined #commonlisp
pjb has joined #commonlisp
ems has joined #commonlisp
frgo has quit [Remote host closed the connection]
frgo has joined #commonlisp
kakuhen has quit [Quit: Leaving...]
tyson2 has joined #commonlisp
Guest35 has quit [Quit: Client closed]
zacts has joined #commonlisp
scymtym has quit [Ping timeout: 252 seconds]
zacts has quit [Quit: Client closed]
zacts has joined #commonlisp
scymtym has joined #commonlisp
peterhil has quit [Ping timeout: 255 seconds]
dsk has joined #commonlisp
peterhil has joined #commonlisp
rt is now known as robin
zacts has quit [Quit: Client closed]
zacts86 has joined #commonlisp
zacts86 is now known as zacts
Oddity has quit [Ping timeout: 252 seconds]
zacts has quit [Quit: Client closed]
Oddity has joined #commonlisp
tfb has quit [Quit: died]
zacts has joined #commonlisp
lisp123 has joined #commonlisp
lad_ has quit [Ping timeout: 255 seconds]
Guest77 has joined #commonlisp
peterhil_ has joined #commonlisp
peterhil has quit [Ping timeout: 268 seconds]
domovod has quit [Ping timeout: 255 seconds]
lisp123 has quit [Remote host closed the connection]
lisp123 has joined #commonlisp
lisp123 has quit [Remote host closed the connection]
lisp123 has joined #commonlisp
<lucerne> I want sth like `~&`, but for two-lines, not just one. I.e., I want to ensure that at some point in the output, there are at least two new-lines present.
<beach> clhs peek-char
<beach> Can someone give me a reason why the second situation in Exceptional Situations is not redundant?
lisp123 has quit [Remote host closed the connection]
<beach> The three taken together seem to me to be that if either EOF-ERROR-P is true or RECURSIVE-P is true, then an error of type end-of-file is signaled. No?
lisp123 has joined #commonlisp
lisp123 has quit [Ping timeout: 252 seconds]
<pjb> lucerne: ~2&
<lucerne> pjb: I think that will insert a newline in any situation
<pjb> lucerne: well, for at-least 2 lines, perhaps ~2% would be better. Of ~&~V% (1- n)
<pjb> lucerne: the output streams won't count the newlines. Only if the current column is zero.
<lucerne> pjb: I want to insert a newline only if the last two inserted characters are not new-lines. Any way to do this with format?
<pjb> No you have to count the newlines yourself.
<pjb> You could use ~/newline/ implementing a cl-user::newline formatter function to do the counting, instead of ~& or ~%
<pjb> if ~/nl/ if you prefer.
cage has joined #commonlisp
selwyn has quit [Read error: Connection reset by peer]
lisp123 has joined #commonlisp
Guest15 has joined #commonlisp
lisp123 has quit [Ping timeout: 258 seconds]
Guest15 has quit [Client Quit]
tyson2 has quit [Quit: ERC (IRC client for Emacs 27.2)]
zacts has quit [Quit: zacts]
Jach has quit [Quit: Leaving.]
pranavats has left #commonlisp [Disconnected: Replaced by new connection]
pranavats has joined #commonlisp
Guest77 has quit [Quit: Ping timeout (120 seconds)]
Guest77 has joined #commonlisp
cage has quit [Quit: rcirc on GNU Emacs 27.1]
Guest77 has quit [Quit: Client closed]
treflip has joined #commonlisp
treflip has quit [Remote host closed the connection]
treflip has joined #commonlisp
Guest77 has joined #commonlisp
pjb has quit [Remote host closed the connection]
<jcowan> beach: Looking into it.
<jcowan> I think you are clearly right. If A and B imply Z, then plainly A and B and C imply Z.
<jcowan> I note also that the issue ARGUMENTS-UNDERSPECIFIED is referred to, but that issue does not refer to PEEK-CHAR.
<jcowan> However, that's trivial: it's relevant because the issue resolution says that an eof-char, despite its name, is of type T rather than being restricted to characters.
mister_m` has joined #commonlisp
jeosol has quit [Ping timeout: 268 seconds]
mister_m has quit [Ping timeout: 268 seconds]
elf_fortrez has joined #commonlisp
Lycurgus has joined #commonlisp
elf_fortrez has quit [Quit: Client closed]
kpoeck has joined #commonlisp
Guest77 has quit [Quit: Client closed]
hendursa1 has quit [Ping timeout: 244 seconds]
hendursa1 has joined #commonlisp
froggey has quit [Ping timeout: 256 seconds]
<beach> jcowan: Thanks.
<beach> jcowan: EOF-CHAR? Are you sure about that?
<jcowan> See the table in http://www.lispworks.com/documentation/HyperSpec/Issues/iss013_w.htm, specifically the line about "READ and others".
<beach> There is no EOF-CHAR in there.
<jcowan> ... sorry, EOF-VLAUE.
<beach> Ah, OK.
tyson2 has joined #commonlisp
froggey has joined #commonlisp
treflip has quit [Remote host closed the connection]
pjb has joined #commonlisp
domovod has joined #commonlisp
tyson2 has quit [Quit: ERC (IRC client for Emacs 27.2)]
Lycurgus has quit [Quit: Exeunt]
waleee has joined #commonlisp
Bike has joined #commonlisp
lad_ has joined #commonlisp
froggey has quit [Ping timeout: 246 seconds]
akoana has joined #commonlisp
froggey has joined #commonlisp
silasfox has joined #commonlisp
Bike has quit [Quit: Client closed]
recordgroovy has quit [Ping timeout: 258 seconds]
mcfrdy has quit [Ping timeout: 255 seconds]
mcfrdy has joined #commonlisp
mcfrdy has joined #commonlisp
recordgroovy has joined #commonlisp
OlCe has joined #commonlisp
OlCe has quit [Ping timeout: 255 seconds]
<alanz> I a, looking at the macro-expansion of rotatef in SBCL, and am confused. https://gist.github.com/alanz/e39f7bb5f94f5307511042365885bfb2
<alanz> The two setq's are in the same scope, using the same variable names #:new1. But they have different effects. What am I missing?
<pjb> alanz: (eql '#:new '#:new) #| --> nil |#
<pjb> alanz: try: (let ((*print-circle* t)) (macroexpand-1 '(rotatef a b)))
PinealGlandOptic has joined #commonlisp
ems has quit [Quit: Konversation terminated!]
PinealGlandOptic has quit [Client Quit]
ems has joined #commonlisp
<dsk> More like (format t "~&~:W~%" (macroexpand-1 '(rotatef a b)))
PinealGlandOptic has joined #commonlisp
PinealGlandOptic has quit [Client Quit]
PinealGlandOptic has joined #commonlisp
<dsk> i.e. you'd need to print the output of MACROEXPAND-1 for the binding of *PRINT-CIRCLE* to have an effect.
<alanz> ok
CrashTestDummy2 has joined #commonlisp
<alanz> pjb, dsk: Its a bit of a brain bender, but I think I see what is going on
CrashTestDummy3 has quit [Ping timeout: 258 seconds]
<alanz> aha. thanks
hendursa1 has quit [Quit: hendursa1]
ems has quit [Quit: Konversation terminated!]
hendursaga has joined #commonlisp
recordgroovy has quit [Ping timeout: 268 seconds]
recordgroovy has joined #commonlisp
hendursaga has quit [Remote host closed the connection]
amb007 has quit [Ping timeout: 252 seconds]
amb007 has joined #commonlisp
domovod has quit [Quit: WeeChat 3.2]
hendursaga has joined #commonlisp
jmhimara has joined #commonlisp
pjb has quit [Remote host closed the connection]
jmhimara has quit [Client Quit]
Oddity has quit [Remote host closed the connection]
kevingal has joined #commonlisp
mcfrdy has quit [Ping timeout: 255 seconds]
mcfrdy has joined #commonlisp
mcfrdy has joined #commonlisp
attila_lendvai has joined #commonlisp
cage has joined #commonlisp
<lucerne> How do I convert `#P"/sth/" to `#P"/sth"`?
<lucerne> (I want to check for symlinks, and `osicat:file-kind` returns the wrong result when the last slash is present.)
<_death> can't use TRUENAME?
peterhil_ has quit [Read error: Connection reset by peer]
<lucerne> _death: I want to check if a pathname is a symlink or not. Are you suggesting `(equalp (truename path) path)`?
<lucerne> I think this will encounter edge cases
<lucerne> I am currently using an SBCL-only solution courtesy of https://stackoverflow.com/questions/32927250/sbcl-determine-if-symbolic-link , but I was hoping to find a portable solution in a library
tyson2 has joined #commonlisp
<_death> maybe, I've not tried it.. I'm quick to turn to native namestrings for that stuff
<moon-child> it occurs to me that if you put every macro in its own package, you can elide 'gensym'
cage has quit [Quit: rcirc on GNU Emacs 27.1]
hafat has joined #commonlisp
scymtym has quit [Ping timeout: 246 seconds]
tfb has joined #commonlisp
tfb has quit [Client Quit]
Lord_Nightmare has quit [Ping timeout: 245 seconds]
pjb has joined #commonlisp
tyson2 has quit [Quit: ERC (IRC client for Emacs 27.2)]
hendursaga has quit [Remote host closed the connection]
hendursaga has joined #commonlisp
scymtym has joined #commonlisp
ems has joined #commonlisp
ems has quit [Client Quit]
attila_lendvai has quit [Ping timeout: 246 seconds]
Lord_Nightmare has joined #commonlisp
pve has quit [Quit: leaving]
mcfrdy has quit [Ping timeout: 255 seconds]
mcfrdy has joined #commonlisp
mcfrdy has joined #commonlisp
amb007 has quit [Ping timeout: 265 seconds]
amb007 has joined #commonlisp
kpoeck has quit [Quit: Client closed]
<pjb> alanz: dsk: yes, sorry, I forgot the pprint I usually use: (let ((*print-circle* t)) (pprint (macroexpand-1 '(rotatef a b)))) #| (multiple-value-bind (#2=#:g17704) a (multiple-value-bind (#1=#:g17705) b (progn (setq a #1#) (setq b #2#) nil))) |#
amb007 has quit [Ping timeout: 246 seconds]
amb007 has joined #commonlisp
kakuhen has joined #commonlisp
OlCe has joined #commonlisp
<alanz> pjb: thanks, that shows it clearly.
lotuseater has joined #commonlisp
OlCe has quit [Remote host closed the connection]
lisp123 has joined #commonlisp
lisp123 has quit [Remote host closed the connection]
lisp123 has joined #commonlisp
lisp123 has quit [Ping timeout: 255 seconds]
frgo has quit [Remote host closed the connection]
frgo has joined #commonlisp
gaqwas has quit [Ping timeout: 268 seconds]
tyson2 has joined #commonlisp
lisp123 has joined #commonlisp
PinealGlandOptic has quit [Quit: leaving]
PinealGlandOptic has joined #commonlisp
isekaijin has quit [Ping timeout: 252 seconds]
lisp123 has quit [Ping timeout: 252 seconds]
tyson2 has quit [Quit: ERC (IRC client for Emacs 27.2)]
kevingal has quit [Remote host closed the connection]
selwyn has joined #commonlisp
random-nick has quit [Ping timeout: 265 seconds]
igemnace has joined #commonlisp
mcfrdy has quit [Ping timeout: 268 seconds]
mcfrdy has joined #commonlisp
mcfrdy has joined #commonlisp
igemnace has quit [Remote host closed the connection]
lad_ has quit [Ping timeout: 268 seconds]
tyson2 has joined #commonlisp