Commit eaa5d605 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix with-all-lisps to conform to new without-stopping calling convention.

parent 483c696e
......@@ -8,7 +8,7 @@
(funcall thunk l)))))))
(if fail-fast
(progn (map () 'funcall thunks) (success))
(apply 'call-without-stopping thunks))))
(call-without-stopping thunks))))
(defmacro with-all-lisps ((lisp-var lisps &key (fail-fast t)) &body body)
`(call-with-all-lisps (lambda (,lisp-var) ,@body) :lisps ,lisps :fail-fast ,fail-fast))
......
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