diff options
author | colin <colin@cicadas.surf> | 2024-06-01 11:51:49 -0700 |
---|---|---|
committer | colin <colin@cicadas.surf> | 2024-06-01 11:51:49 -0700 |
commit | 54d3ebe78702e64b8185f6df8da85ab329c26128 (patch) | |
tree | 576d85c5b66a556eebb7c115616635a4994442dd /src/util.lisp | |
parent | 4bc773964ae3c48b806fc2ad30dd5811571d902a (diff) |
Fix: bug in instr
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/util.lisp b/src/util.lisp index e561778..79367ac 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -60,7 +60,7 @@ CLASS-OPTIONS is a PLIST of class options." (parse-slot-spec-expr (expr) " (names ... &key kwargs)" (multiple-value-bind (slot-names kwargs) (take-until #'keywordp expr) - (multiple-value-bind (kwargs singles) (partition #'singlep kwargs) + (multiple-value-bind (singles kwargs) (partition #'singlep kwargs) (loop :with prefix-accessor? := (find ':prefix singles :test #'eq) :for slot :in slot-names |