triffid has quit [Remote host closed the connection]
triffid has joined #commonlisp
Brucio-61 has quit [Ping timeout: 248 seconds]
scymtym has quit [Ping timeout: 256 seconds]
ec has quit [Quit: ec]
ec has joined #commonlisp
knusbaum has quit [Ping timeout: 248 seconds]
knusbaum has joined #commonlisp
ec has quit [Quit: ec]
ec has joined #commonlisp
Repsil has quit []
karlosz_ has quit [Ping timeout: 276 seconds]
Brucio-61 has joined #commonlisp
<Alfr>
jeosol, do you care for empty line at the start of a record?
<Alfr>
*lines
<Alfr>
jeosol, and what about those within?
ec has quit [Quit: ec]
ec has joined #commonlisp
<dieggsy>
Suppose I'll ask here since it's quiet in #clpm: does clpm have a way of installing dependency sources in the project source tree, kind of like quicklisp bundles? (so you could distribute a project without clpm itself as a dependency)
knusbaum has quit [Ping timeout: 256 seconds]
random-nick has quit [Ping timeout: 246 seconds]
knusbaum has joined #commonlisp
igemnace has quit [Remote host closed the connection]
<jeosol>
Alfr: I think empty lines are fine. I assume you mean in the *part* files
Brucio-61 has quit [Ping timeout: 246 seconds]
random-nick has joined #commonlisp
Brucio-61 has joined #commonlisp
leeb has joined #commonlisp
dre has joined #commonlisp
leeb has quit [Client Quit]
<guest74>
Every now and then emacs/slime decides to stop displaying function lambda lists. Anybody know how to fix this besides restarting?
<mfiano>
jeosol: Sorry I took a nap. Did you figure it out?
<jeosol>
mfiano: no worries. I also went to do some exercise and just got back. I did some back-and-forth with Alfr
<mfiano>
dieggsy: I don't believe so. etimmons has been very busy lately. I saw your message but when etimmons sees it he will answer. In the meantime, I would suggest filing an issue on the repository, so it doesn't get lost, and it is quite likely if it is not possible etimmons will provide a way.
<jeosol>
Alfr: thanks for the snippet. It looks very nice and much better. I see what you meant by empty lines. Basically I did that check to keep the *part* files smaller
igemnace has joined #commonlisp
knusbaum has quit [Ping timeout: 276 seconds]
leeb has quit [Ping timeout: 256 seconds]
leeb has joined #commonlisp
gxt has quit [Remote host closed the connection]
gxt has joined #commonlisp
knusbaum has joined #commonlisp
ebrasca has quit [Remote host closed the connection]
<dieggsy>
mfiano: thanks for the reply! filing a ticket is a good idea
guest74 has quit [Quit: Connection closed]
<Alfr>
jeosol, just considered it prudent tell you about the difference, I don't know whether you have something allergic to empty lines in consumers of the output.
<jeosol>
Alfr: I am integrating the code now. I don't think that should be a problem
<jeosol>
Just added the check for end-of-file to readline
notzmv has quit [Ping timeout: 248 seconds]
<Alfr>
jeosol, not sure that'd be right, assuming a complete run terminates with a line with that magic string, then hitting eof there would indicate that there's incomplete data.
<jeosol>
really? I was only able to get it to work when I add the :eof piece
<Alfr>
jeosol, I wouldn't know why it would error, unless the last non-empty line of your input file does not contain the magic string.
<jeosol>
still debugging it, it appears the first file only has the sentinel string
<jeosol>
the magic string only appears to indicate we have a new page coming. It will not be at the end, only at the beginning of what could be a new page
<Alfr>
jeosol, ah, okay. You'll need that eof check. ;D
<jeosol>
more like: MAGIC-STRING stufff MAGIC-STRING stuff MAGIC-STRING stuff
<jeosol>
The above should then result in 3 pages
<Alfr>
jeosol, guess you'll have to tinker with it a bit more, I assumed: stuff MAGIC stuff MAGIC ...
akoana has joined #commonlisp
<jeosol>
Alfr: yeah I am
waleee has quit [Ping timeout: 260 seconds]
<jeosol>
I have almost gotten the logic, it's just where place the MAGIC string check
Brucio-61 has quit [Ping timeout: 276 seconds]
notzmv has joined #commonlisp
euandreh has quit [Quit: WeeChat 3.5]
knusbaum has quit [Ping timeout: 246 seconds]
knusbaum has joined #commonlisp
euandreh has joined #commonlisp
Bike has quit [Quit: leaving]
Bike has joined #commonlisp
knusbaum has quit [Ping timeout: 260 seconds]
<beach>
Good morning everyone!
knusbaum has joined #commonlisp
tyson2 has quit [Remote host closed the connection]
<ck_>
as your attorney I advise you to arm yourself, with holidays, ... to the teeth
<beach>
Me?
<edgar-rft>
ck_: do not arm the bears
yauhsien has joined #commonlisp
knusbaum has quit [Ping timeout: 248 seconds]
Brucio-61 has joined #commonlisp
<ck_>
sorry, technical difficulties. the message was not meant for this channel
knusbaum has joined #commonlisp
brettgilio has joined #commonlisp
knusbaum has quit [Ping timeout: 276 seconds]
OlCe`` has quit [Ping timeout: 260 seconds]
knusbaum has joined #commonlisp
Catie has quit [Quit: sQuit]
Bike has quit [Quit: sleep]
pranavats has left #commonlisp [Error from remote client]
OlCe``` has joined #commonlisp
semz_ has joined #commonlisp
semz has quit [Ping timeout: 260 seconds]
<contrapunctus>
Thanks for the pro bono legal advice, ck_ 😏
hashfunc1ebd has quit [Ping timeout: 248 seconds]
slowButPresent has quit [Quit: leaving]
yauhsien has quit [Ping timeout: 276 seconds]
yauhsien has joined #commonlisp
akoana has quit [Quit: leaving]
yauhsien has quit [Remote host closed the connection]
yauhsien has joined #commonlisp
yauhsien has quit [Ping timeout: 248 seconds]
razetime has joined #commonlisp
triffid has quit [Remote host closed the connection]
triffid has joined #commonlisp
rotateq has quit [Ping timeout: 260 seconds]
Inline has quit [Remote host closed the connection]
<mfiano>
I tried dynamically binding various values of the various printer variables, to no avail. I'm not sure if this is a REPL issue or not
Dynom has joined #commonlisp
<mfiano>
It seems I have to manually adjust *print-right-margin* depending on the output...too little and it wraps long lines. Too much and it all prints on a single line.
<jackdaniel>
did you tinker with *print-right-margin* ?
amk has quit [Remote host closed the connection]
amk has joined #commonlisp
<mfiano>
and I also must manually call #'print. The REPL doesn't seem to obey these for print-object values returned at the REPL
<mfiano>
Both are unfortunate, especially the former, but at least I can get work done now
<jackdaniel>
perhaps pprint-dispatch could help with the repl
<jackdaniel>
(and calculating the margin)
<mfiano>
jackdaniel: Thanks, but this is just for quick testing my algorithm in the REPL. It's a one-off thing so I'll deal
shka has joined #commonlisp
razetime has quit [Ping timeout: 246 seconds]
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
frgo has quit [Ping timeout: 250 seconds]
varjag has quit [Quit: ERC (IRC client for Emacs 26.3)]
<pl>
Anyone recalls a CL COM interface for one of the open source implementations?
OlCe``` has quit []
OlCe has joined #commonlisp
<Shinmera>
pl: you mean that lisp functions would be exposed via COM, or?
<pl>
Both ways, but for starters I would like to access COM objects
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
yewscion has quit [Quit: Ping timeout (120 seconds)]
rotateq has quit [Remote host closed the connection]
frgo has joined #commonlisp
frgo has quit [Remote host closed the connection]
frgo has joined #commonlisp
Noisytoot has quit [Ping timeout: 256 seconds]
Noisytoot has joined #commonlisp
gxt has quit [Remote host closed the connection]
attila_lendvai has quit [Read error: Connection reset by peer]
gxt has joined #commonlisp
attila_lendvai has joined #commonlisp
dlowe has joined #commonlisp
varjag has quit [Quit: ERC (IRC client for Emacs 26.3)]
MajorBiscuit has quit [Ping timeout: 260 seconds]
MajorBiscuit has joined #commonlisp
parjanya has quit [Remote host closed the connection]
mbrndtgn has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
OlCe has joined #commonlisp
attila_lendvai has joined #commonlisp
ec has quit [Quit: ec]
ec has joined #commonlisp
jeosol has quit [Quit: Client closed]
karlosz has quit [Quit: Client closed]
guest74 has joined #commonlisp
morganw has joined #commonlisp
ec has quit [Remote host closed the connection]
ec has joined #commonlisp
szkl has quit [Quit: Connection closed for inactivity]
kiki_lam1 has joined #commonlisp
kiki_lamb has quit [Ping timeout: 248 seconds]
cage has joined #commonlisp
rotateq has joined #commonlisp
rotateq has quit [Remote host closed the connection]
rotateq has joined #commonlisp
MajorBiscuit has quit [Ping timeout: 256 seconds]
yauhsien has quit [Remote host closed the connection]
yauhsien has joined #commonlisp
ec has quit [Quit: ec]
ec has joined #commonlisp
kevingal has quit [Ping timeout: 248 seconds]
yauhsien has quit [Ping timeout: 248 seconds]
<bollu>
hm, how do I `mapcar` on a list with access to an index?
<bollu>
in haskell, i'd zip with an infinite stream of 0, 1... In C, I'd keep a counter. I'd like to know what the idiom is in Common Lisp
attila_lendvai has quit [Read error: Connection reset by peer]
<contrapunctus>
bollu: `(loop for elt in '(a b c) for i from 0 ...)`
<jackdaniel>
(loop for i from 0 for elt in list do something)
<bollu>
thanks!
<jackdaniel>
if you insist on mapcar, then this is not a problem too: (mapcar (let ((i 0)) (lambda (elt) ... (incf i))) elements)
<contrapunctus>
jackdaniel: wow, TIL!
<bollu>
jackdaniel that's neat! I should have thought of that =)
attila_lendvai has joined #commonlisp
<contrapunctus>
The few times I tried to use mapcar that way, I had probably wrapped the `let` around the `mapcar` - never realized I could wrap it around the `lambda` too.
<bollu>
another question: if I have some code in C, like { x = 10; a = f(x); g(x); b = h(a); k(b); } , my natural instinct is to translate it to (let* ((x 10) (a (f x)) (g x) (let ((b (h a)) (k b))
attila_lendvai has quit [Read error: Connection reset by peer]
NotThatRPG has quit [Ping timeout: 246 seconds]
<bollu>
but this is annoying, since I feel like my "flow" is interrupted by having to decide what the statements in the `let` are, and what the bindings in the `let` are
<bollu>
is there a more idiomatic way to write the above?
<rotateq>
Never saw C code like "a = f(x)" but I think I know what you mean. :)
<rotateq>
bollu: For lexical defined functions you use FLET or LABELS.
attila_lendvai has joined #commonlisp
<rotateq>
Or is "f(x)" a value?
orestarod has joined #commonlisp
<bollu>
rotateq f(x) was a function call, yes. I was asking how to get around having to bother about the extra bracketing around the let bindings versus the let evaluations
<bollu>
Hmm, another question: | (declare (type (pathname) file-path))| gives me the error ; bad thing to be a type specifier: (PATHNAME)
<rotateq>
Hm in C the g(x) and k(b) might be statements.
<bollu>
rotateq yeah, it's the interleaving of statements and bindings which I find annoying to translate to common lisp
<bollu>
I'm wondering if this is because I don't know a nice way to write them
<rotateq>
Yes you just write (declare (type pathname file-path)).
<contrapunctus>
I remember coming across a macro which basically let you define local functions, macros, and variables, all in the same `let` -like construct...
<rotateq>
That would be new to me.
<bollu>
rotateq thanks! So does `(pathname)` mean anything legal in a type specifier?
<bollu>
Also, can I declare the return type of a function? :)
<bollu>
Hm, can I declare a type such as "list of pathnames"?
<guest74>
are you by any chance a c programmer?
<rotateq>
'List of Foo' sounds more like algebraic data types and not just primitive. :)
<rotateq>
bollu: No, not in CL. And also doing (declare (type (simple-array pathname (*)))) would result in (declare (type (simple-array t (*)))) afaik.
<rotateq>
bollu: But what you *could* do is define a predicate that states every element in a list is of type PATHNAME and then a DEFTYPE form with this like: (eval-when (:compile-toplevel :load-toplevel :execute) (defun pathname-list-p (list) (when (listp list) (every #'pathnamep list))) (deftype pathname-list () '(and list (satisfies pathname-list-p)))) and then use CHECK-TYPE at some points to look if it fits.
ldb has quit [Read error: Connection reset by peer]
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
triffid has quit [Quit: triffid]
<pjb>
bollu: (let (x a b) (setf x 10 a (f x) b (progn (g x) (h a))) (k b)) or: (let* ((x 10) (a (f x)) (b (progn (g x) (h a)))) (k b))
Bike has quit [Quit: Connection closed]
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
ebrasca has joined #commonlisp
jeosol has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
Bike has joined #commonlisp
NotThatRPG has joined #commonlisp
genpaku has quit [Ping timeout: 240 seconds]
szkl has joined #commonlisp
genpaku has joined #commonlisp
matt` has joined #commonlisp
tyson2 has joined #commonlisp
guest74 has quit [Quit: Connection closed]
Oddity has joined #commonlisp
karlosz has joined #commonlisp
kpoeck has joined #commonlisp
yauhsien_ has quit [Remote host closed the connection]
yauhsien has joined #commonlisp
ldb has joined #commonlisp
<ldb>
good morning
yauhsien has quit [Ping timeout: 260 seconds]
tane has joined #commonlisp
tane has joined #commonlisp
tane has quit [Changing host]
karlosz has quit [Quit: karlosz]
abrantesasf has quit [Remote host closed the connection]
azimut has quit [Remote host closed the connection]
azimut has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
karlosz has joined #commonlisp
rotateq has quit [Ping timeout: 248 seconds]
karlosz has quit [Quit: karlosz]
jmdaemon has joined #commonlisp
triffid has joined #commonlisp
tyson2 has quit [Remote host closed the connection]
cage has quit [Quit: rcirc on GNU Emacs 27.1]
Brucio-61 has quit [Ping timeout: 260 seconds]
ec has quit [Ping timeout: 240 seconds]
scymtym has quit [Ping timeout: 260 seconds]
ec has joined #commonlisp
treflip has quit [Remote host closed the connection]
jeffrey has joined #commonlisp
dlowe has quit [Remote host closed the connection]
Bike has quit [Quit: Connection closed]
jmes has joined #commonlisp
Madsy has quit [Ping timeout: 276 seconds]
Bike has joined #commonlisp
aartaka has quit [Ping timeout: 240 seconds]
Dynom has quit [Quit: WeeChat 3.5]
karrq has quit [Ping timeout: 260 seconds]
tyson2 has joined #commonlisp
aartaka has joined #commonlisp
tane has quit [Quit: Leaving]
matt` has quit [Remote host closed the connection]
<Alfr>
bollu, on cheap append: push and reverse at the end
kevingal has joined #commonlisp
<Alfr>
bollu, or if you need the ordering to be correct in between: Start with (list nil), then keep a reference to this list's head and last cons, let's just call those s and tail. To append X, you'd (setf (cdr tail) (setf tail (list X))), and the list you've accumulated always is (rest s).
aartaka has quit [Ping timeout: 260 seconds]
tyson2 has quit [Remote host closed the connection]
szkl has quit [Quit: Connection closed for inactivity]
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
hashfunc65d has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
jeffrey has quit [Quit: Client quit]
attila_lendvai has joined #commonlisp
shka has quit [Ping timeout: 260 seconds]
palter has quit []
mrcom has quit [Quit: This computer has gone to sleep]
kpoeck has quit [Quit: Client closed]
mrcom has joined #commonlisp
yauhsien has joined #commonlisp
tyson2 has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
orestarod has quit [Ping timeout: 240 seconds]
attila_lendvai has joined #commonlisp
yauhsien has quit [Remote host closed the connection]
yauhsien has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
yauhsien has quit [Ping timeout: 256 seconds]
attila_lendvai has joined #commonlisp
ec has quit [Ping timeout: 240 seconds]
ec has joined #commonlisp
guest74 has joined #commonlisp
attila_lendvai_ has joined #commonlisp
attila_lendvai has quit [Read error: Connection reset by peer]
attila_lendvai_ has quit [Read error: Connection reset by peer]
Madsy has joined #commonlisp
karlosz has joined #commonlisp
attila_lendvai_ has joined #commonlisp
karlosz has quit [Client Quit]
Bike has quit [Quit: Connection closed]
attila_lendvai_ has quit [Ping timeout: 256 seconds]
attila_lendvai has joined #commonlisp
NotThatRPG has quit [Quit: My MacBook has gone to sleep. ZZZzzz…]
yauhsien has joined #commonlisp
attila_lendvai has quit [Remote host closed the connection]
attila_lendvai has joined #commonlisp
seok has joined #commonlisp
<seok>
does cl-prevalence store lisp objects with all its references intact? Like hashes, slot values etc
kevingal has quit [Remote host closed the connection]
waleee has joined #commonlisp
pve has quit [Quit: leaving]
yauhsien has quit [Remote host closed the connection]
edgar-rft has quit [Ping timeout: 246 seconds]
attila_lendvai_ has joined #commonlisp
yauhsien has joined #commonlisp
edgar-rft has joined #commonlisp
Demosthenex has quit [Ping timeout: 256 seconds]
attila_lendvai has quit [Read error: Connection reset by peer]
Demosthenex has joined #commonlisp
<hashfunc65d>
what's the difference between the PREDICATEP and PREDICATE-P idiom?
aeth has quit [Ping timeout: 260 seconds]
aeth has joined #commonlisp
ec has quit [Ping timeout: 240 seconds]
yauhsien has quit [Ping timeout: 276 seconds]
<mfiano>
The latter isn't an idiom because it isn't multiple words.
<mfiano>
Even though I still use it for single words. Only I can blame myself though. I don't think anyone reads my code :)
ec has joined #commonlisp
<hashfunc65d>
mfiano: oh yeah i forgot about that. so it's all dependent on how many words the predicate is
Bike has joined #commonlisp
OlCe has quit [Remote host closed the connection]
Demosthenex has quit [Ping timeout: 246 seconds]
igemnace has quit [Remote host closed the connection]
guest74 has quit [Quit: Connection closed]
Demosthenex has joined #commonlisp
yauhsien has joined #commonlisp
morganw has quit [Read error: Connection reset by peer]