<div dir="ltr"><div dir="ltr"><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Wed, Jul 13, 2022 at 10:53 PM Ville Voutilainen <<a href="mailto:ville.voutilainen@gmail.com">ville.voutilainen@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">On Thu, 14 Jul 2022 at 05:33, Alan Ruttenberg <<a href="mailto:alanruttenberg@gmail.com" target="_blank">alanruttenberg@gmail.com</a>> wrote:<br>
><br>
> Comments inline<br>
> Seems to work, as long as you don't allow the source transform. Currently I'm experimenting with a new option to defstruct. So<br>
><br>
> I compile a file with<br>
> (defstruct (test2 (:optimize nil)) a b)<br>
<br>
I'm thinking I'm stupid, since I'm not sure what you mean by "source<br>
transform",</blockquote><div><br></div><div>ABCL has a mechanism for source transformations, which effectively inline some code instead of calling a function. You can get a source transformation with</div><div>sys:function-info. For example:<br></div><div><br></div><div><span style="font-family:monospace">(sys::function-info my-accessor)<br>((:source-transform . #<anonymous-function abcl_b09e0b54_a7c4_4513_86e6_fd9effb1fb25 {27C03870}>))</span></div><div> </div><div>These are applied in the compiler and aren't affected, currently, by the (declare (optimize ..)) settings. They are used for defstruct in define-reader and define-writer. <br></div><div><br></div><div>The implementation I discuss is here:</div><div><a href="https://github.com/alanruttenberg/abcl/commit/a9c5541d372012d24c0daa704a22fc637398e086">https://github.com/alanruttenberg/abcl/commit/a9c5541d372012d24c0daa704a22fc637398e086</a></div><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"> but I can with fair confidence say that if<br>
you can ensure that all defstructs use the option you add as a<br>
custom-thingy, then the rest of the concerns I spoke of<br>
are moot. :P You're basically saying "this is not a regular defstruct,<br>
it's a special one, don't do the usual stuff, and then<br>
I can make it mean whatever I want it to mean, side-stepping the<br>
problems". If that works for your use cases, sure,<br>
seems plausible in general. Or have I misunderstood your approach?<br></blockquote><div><br></div><div>Sort of. There's no usual stuff around redefining defstructs, so it's more of an added feature. It is implementation dependent, but then so is JSS which I understand many people find useful.  I'm hoping it would be useful for anyone who needs to develop defstructs during initial code writing and testing. It doesn't change any behavior if you don't use the option, so it's safe. It's not a perfect solution, but the perfect is the enemy of the good. I will keep thinking about whether there's a way to remove the potential gotchas.<br></div><div><br></div><div>FWIW, my use case is developing some code using <a href="https://github.com/j3pic/lisp-binary">lisp-binary </a>(super useful for parsing binary files). It generates defstructs with some extra code around them. <br></div><div>But since I don't know it well enough I'm still making mistakes and needing to redefine things. Before this change the only option was to restart lisp if I made a mistake, which gets old quickly.  If I had my druthers, lisp-binary would have generated classes instead of defstructs, since there are no problems with redefinitions there. I may try to modify lisp-binary to do that at some point... <br></div><div><br></div><div>There's a more conservative approach which fits better with "regular" defstruct usage, which is to allow adding slots to defstruct, but not reordering or deleting. Even that can't be done now. I started to implement that, which wouldn't need as much care to use it. But it turned out that just wasn't enough for the development I was doing now. Not having even that capability has burned me in the past.<br></div><div><br></div><div>YMMV.<br></div><div><br></div><div>Alan</div><div><br></div></div></div>