@@ -2,6 +2,14 @@

 (in-package #:fwoar.lisputils)

+(defmacro neither (&rest forms) `(not (or ,@forms)))

+

+(defmacro neither-null (&rest forms)

+  `(neither ,@(loop for form

+                    in forms

+                    collecting `(null ,form))))

+

+

 (defmacro let-each ((&key (be '*)) &body forms)

   "Bind each element successively to the symbol specified via :be"

   `(let* ,(loop for form in forms

@@ -66,6 +74,15 @@

                         (go start))))))

         (helper (reverse list) body t))))

+(defmacro m-lambda (sym &rest args)

+  (let ((arglist (loop for x in args

+                       unless (member x (list '&optional '&key '&rest))

+                       collect (ctypecase x

+                                          (cons                  (car x))

+                                          ((or symbol keyword string) x)))))

+    `(lambda (,@args)

+       (,sym ,@arglist))))

+

 (defmacro destructuring-lambda ((&rest args) &body body)

   "A lambda whose arguments can be lambda-lists to be destructured"

   (let* ((args-syms (mapcar (alambda (gensym "arg"))

@@ -8,5 +8,6 @@

            #:copy-slots #:transform-alist #:%json-pair-transform

            #:%default-pair-transform #:default-when

            #:transform-result #:slots-to-pairs #:normalize-html

-           #:destructuring-lambda #:let-each #:let-first #:let-second))

+           #:destructuring-lambda #:let-each #:let-first #:let-second

+           #:neither #:neither-null #:m-lambda))