From: jsancho Date: Mon, 2 Nov 2009 19:11:20 +0000 (+0000) Subject: (no commit message) X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=69b45b9d2d36662c3e1c70bebd2c776958a70515;p=gacela.git --- diff --git a/gacela_mobs.lisp b/gacela_mobs.lisp index d6d420b..8ea8c5e 100755 --- a/gacela_mobs.lisp +++ b/gacela_mobs.lisp @@ -21,11 +21,14 @@ (defmacro makemob (name &rest methods) `(defun ,name (&rest args &aux (option (car args))) - ,(cond (methods - (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))))))) - (cons 'case (cons 'option (options methods)))))))) + ,(union + `(case option + (:on (mob-on #',name)) + (:off (mob-off #',name))) + (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))))))) + (options methods))))) (defmacro defmob (name variables &key init logic render) `(let ((make-name ',(intern (concatenate 'string "MAKE-" (string name)))))