diff options
author | colin <colin@cicadas.surf> | 2024-06-29 09:58:36 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-06-29 09:58:36 -0700 |
commit | aa9b248cc07cb3a41fc7ec27941bf1ac9720dc5f (patch) | |
tree | 23962faa8dc32cd88cd47b72ddae0662d81be5fe /def.lisp | |
parent | 80721ec1795e2edd2ef1aa9efacdb13262748615 (diff) |
Fix: initargs
Diffstat (limited to 'def.lisp')
-rw-r--r-- | def.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -89,7 +89,10 @@ E.g. (parse-class-options (kwargs) (loop :for (key val . more) :on kwargs :by #'cddr - :collect (list key val)))) + :if (listp val) + :collect (cons key val) + :else + :collect (list key val)))) (let* ((slot-defs (loop :for expr :in slots-and-options :while (listp expr) @@ -144,3 +147,5 @@ E.g. (values ,return-type) (optimize (speed 3) (safety 0))) ,@(if docstring (rest body) body))))) + + |