@@ -4,6 +4,15 @@

   `(with-accessors ,(ensure-mapping accessors) ,object

      ,@body))

+(defmacro keys ((op &rest args))

+  (multiple-value-bind (positional keywords) (split-at  '&key args)

+    `(,op

+       ,@positional

+       ,@(mapcan (lambda (_1)

+                   (list (alexandria:make-keyword _1)

+                         _1))

+                 (cdr keywords)))))

+

 (defmacro new (class &rest initializer-syms)

   (multiple-value-bind (required optional rest) (parse-ordinary-lambda-list initializer-syms)

     (when optional

@@ -354,3 +354,14 @@

         (when ,flag-sym

           (setf ,flag-sym nil)

           (go start)))))

+

+(defun split-at (el list &key (test #'eql) (key nil))

+  (if key

+      (loop for it on list

+            until (funcall test (funcall key (car it)) el)

+            collect (car it) into head

+            finally (return (values head it)))

+      (loop for it on list

+            until (funcall test (car it) el)

+            collect (car it) into head

+            finally (return (values head it)))))

@@ -33,7 +33,7 @@

            #:define-cluser-entrypoint #:new #:make-constructor #:dive

            #:empty-hash-table-like #:v-assoc #:defclass+

            #:closing #:inits #:retry-once #:hashtable-slot-mixin #:hsm-doc #:adjoinf

-           #:it))

+           #:it :keys))

 (defpackage :fwoar.lisputils.shortcuts