Commit e2480f34 authored by Nikodemus Siivola's avatar Nikodemus Siivola
Browse files


parent bb423c64
......@@ -15,7 +15,8 @@ it must be a function name and its FDEFINITION is returned."
(define-modify-macro ensure-functionf/1 () ensure-function)
(defmacro ensure-functionf (&rest places)
"Multiple-place modify macro for ENSURE-FUNCTION: ensures that each of
PLACES contains a function."
`(progn ,@(mapcar (lambda (x) `(ensure-functionf/1 ,x)) places)))
(defun disjoin (predicate &rest more-predicates)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment