Fix `Undefined function (SETF CCL:SLOT-DEFINITION-INITARGS)` in CCL
The MOP calls this an "accessor" so I feel like I shouldn't need to do this, but
CCL only defines this function as a reader. Instead of `setf`ing it, we can
wrap `make-instance` and hack the initargs we pass to `call-next-method`.
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 21 Aug 2020 00:34:26 -0400 |
| parents |
a2712b3d3b16 |
| children |
(none) |
#+ecl (setf compiler:*user-cc-flags* "-Wno-shift-negative-value")
(ql:quickload :jarl :silent t)
(asdf:test-system :jarl)
(quit)