From aa9b248cc07cb3a41fc7ec27941bf1ac9720dc5f Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sat, 29 Jun 2024 09:58:36 -0700
Subject: Fix: initargs

---
 def.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'def.lisp')

diff --git a/def.lisp b/def.lisp
index aea5bb9..4b0e613 100644
--- a/def.lisp
+++ b/def.lisp
@@ -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)))))
+
+
-- 
cgit v1.2.3