yitzi has quit [Remote host closed the connection]
<Shinmera>
In case Colleen or irclog or plaster or other services of mine mysteriously go missing again, there's now a status page: https://status.tymoon.eu
<ixelp>
TyNET Status
<Shinmera>
It's on a completely independent server, so it'll stay up regardless of what happens to the rest
<bike>
very convenient, thank you.
jonatack has quit [Read error: Connection reset by peer]
jonatack has joined #commonlisp
pfdietz has joined #commonlisp
<masinter>
who does the Lisp and Scheme weekly?
akoana has quit [Quit: leaving]
<aeth>
the what? why isn't that on planet lisp, which is quite inactive?
gxt has quit [Remote host closed the connection]
gxt has joined #commonlisp
akyv13 has quit [Read error: Connection reset by peer]
AstraGravityGirl has quit [Quit: AstraGravityGirl]
mdaadoun has joined #commonlisp
asarch has joined #commonlisp
Pixel_Outlaw has joined #commonlisp
bilegeek has quit [Remote host closed the connection]
Warr has joined #commonlisp
Warr has quit [Remote host closed the connection]
kevingal has quit [Ping timeout: 255 seconds]
asarch has quit [Quit: Leaving]
pranavats has left #commonlisp [Disconnected: Replaced by new connection]
pranavats has joined #commonlisp
attila_lendvai has joined #commonlisp
prokhor has quit [Remote host closed the connection]
Pixel_Outlaw has quit [Quit: Leaving]
chomwitt has joined #commonlisp
rtypo has quit [Ping timeout: 248 seconds]
kstuart has quit [Remote host closed the connection]
attila_lendvai has quit [Ping timeout: 240 seconds]
czy has quit [Quit: ERC 5.6-git (IRC client for GNU Emacs 30.0.50)]
czy` has quit [Remote host closed the connection]
amoroso has quit [Client Quit]
czy has joined #commonlisp
herjazz has quit [Quit: leaving]
zxcvz has joined #commonlisp
igemnace has quit [Read error: Connection reset by peer]
seok has quit [Quit: Client closed]
seok has joined #commonlisp
<phoe>
is there any prior work to making swank a little bit more secure by employing public key crypto, i.e. wrapping swank traffic in an OpenSSL stream and instructing OpenSSL to only accept connections with valid certificates?
seok has quit [Client Quit]
seok has joined #commonlisp
<jcowan>
do people actually use swank across differnet machines, never mind different domains
<jcowan>
?
<jcowan>
if no, I don't see much point in encrypting it
<phoe>
yes, they do
<phoe>
hence my question!
<yitzi>
There was issue #345 ... I don't think anything happened with it.
<mgl>
I'd appreciate suggestions for real-lifeish benchmarks of EQ hash tables. Do you perhaps have code that's bottlenecked by the hash table?
<beach>
mgl: Why do you care? Plus, it is going to be very implementation specific, as there are many ways of organizing a hash table.
<beach>
mgl: Every decent implementation should provide O(1) expected time for every operation, but the constant may vary.
Gleefre has joined #commonlisp
<mgl>
Because I'd like to test my changes to SBCL's hash table implementation on non-synthentic benchmarks.
<beach>
Oh, so you want people who use SBCL?
<mgl>
Not necessarily.
<mgl>
I'd like CL code (ideally quite self-contained) that's heavy on EQ hash tables.
<beach>
Maybe hayley can help. Because hayley implemented SICL hash tables.
prokhor has quit [Remote host closed the connection]
tyson2 has quit [Remote host closed the connection]
<phantomics>
I've built a few getter/setter methods using setf updater functions. However, I find that doing nested (setf)s with these functions doesn't work.
<phantomics>
For instance, (setf (getf (getf a b) c d)) works to do a nested update, but with my own functions (setf (updater1 (updater2 thing key1) key2) new-value) fails. Is there something more I should do to enable the nested updates?
mdaadoun has quit [Remote host closed the connection]
<bike>
you probably need to define an actual setf expansion, if you mean you've just defined (setf updater1) functions. if you macroexpand that setf getf, you'll notice the expansion is more complicated than calling (setf getf)
<bike>
i think anyway
<NotThatRPG>
phantomics: Have you been careful to ensure that the updater methods all return the value set so that they can be chained? Posting a gist or something with the error would be helpful, too: "fails" is not suff detailed
kevingal has quit [Ping timeout: 258 seconds]
<phantomics>
beach: I've just defined (setf updater1), would I do the former using (define-setf-expander)?
<bike>
returning the value just means returning the value from the setf function, so you don't need define-setf-expander for that
<bike>
depending on the type of updating you're doing, setf functions may or may not be adequate
<bike>
you need an expander for something like getf, since for e.g. (let ((x nil)) (setf (getf x indicator) value)) the setf needs to expand into essentially (setq x (list* indicator value x)), and that's not possible if it just calls a function
<bike>
but if you're just mutating slots or something you're good
<phantomics>
The of-array-spec function is working properly, but when attempting to set the as-defvar function it fails; apparently the setter method for as-defvar is not accessed and instead the getter method is used
<phantomics>
The methods should all return the changed list at the end
<bike>
well these look freakin complicated
<phantomics>
from-system-file is complicated but that's not where the problem is I think
<bike>
let me just explain what i mean: (setf (of-array-spec (as-defvar ...) ...) value) will expand to essentially (funcall #'(setf of-array-spec) value (as-defvar ...))
<bike>
as you should be able to see if you try macroexpanding the setf
<bike>
so no, it won't go through (setf as-defvar). if you need it to, you'll need a setf expander for of-array-spec
<bike>
(setf of-array-spec) looks wrong.
<bike>
you do (destructuring-bind (call shape &rest props) spec ... (setf shape ...)). but shape is just a local variable. you're not mutating the list, spec.
<phantomics>
Ok, I haven't done a shape mod yet, I'll keep that in mind
<bike>
you do mutate it for props afterward but that won't cover shape
<phantomics>
Correct, I'll fix that
<phantomics>
Like you said, the macroexpand starts with a clause (LET* ((#:G501 (AS-DEFVAR '*CELL-MATRIX* (FROM-SYSTEM-FILE PACKAGE "sheet.lisp" :CELLS))) ...
<phantomics>
So it's not setting the as-defvar property, I need to define an expander for it to work?
<bike>
if of-array-spec needs to change a place and not just a value, yes.
<phantomics>
Ok, it transforms part of a (make-array) form, so sounds like it qualifies