GitList

Edward Langley authored on 28/09/2022 06:14:14
Showing 1 changed files

@@ -111,6 +111,21 @@
                          (funcall fun it)
                          it)))
                 +(defmacro conj (&rest fns)
                 +  (let ((dat (gensym "dat")))
                 +    `(lambda (,dat)
                 +       (and ,@(mapcar (lambda (fn)
                 +                        `(funcall ,fn ,dat))
                 +                      fns)))))
+                +
                 +(defmacro disj (&rest fns)
                 +  (let ((dat (gensym "dat")))
                 +    `(lambda (,dat)
                 +       (or ,@(mapcar (lambda (fn)
                 +                       `(funcall ,fn ,dat))
                 +                     fns)))))
+                +
+                +
                  (defun-ct sorted (comparator &rest r &key key)
                    (declare (ignore key))
                    (lambda (it)