From 69b45b9d2d36662c3e1c70bebd2c776958a70515 Mon Sep 17 00:00:00 2001 From: jsancho Date: Mon, 2 Nov 2009 19:11:20 +0000 Subject: [PATCH] --- gacela_mobs.lisp | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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))))) -- 2.39.2