(labels ((options (m &aux (option (car m)) (body (cadr m)))
(cond ((null m) nil)
(t (cons (list option `(apply ,body (cdr args))) (options (cddr m)))))))
(labels ((options (m &aux (option (car m)) (body (cadr m)))
(cond ((null m) nil)
(t (cons (list option `(apply ,body (cdr args))) (options (cddr m)))))))
(defun run-mobs (option &key args function)
(dolist (mob running-mobs)
(cond (function (funcall function)))
(defun run-mobs (option &key args function)
(dolist (mob running-mobs)
(cond (function (funcall function)))