diff options
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 |