From 54d3ebe78702e64b8185f6df8da85ab329c26128 Mon Sep 17 00:00:00 2001 From: colin Date: Sat, 1 Jun 2024 11:51:49 -0700 Subject: Fix: bug in instr --- src/util.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/util.lisp') 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 -- cgit v1.2.3