]> git.jsancho.org Git - gacela.git/commitdiff
(no commit message)
authorjsancho <devnull@localhost>
Mon, 2 Nov 2009 18:46:09 +0000 (18:46 +0000)
committerjsancho <devnull@localhost>
Mon, 2 Nov 2009 18:46:09 +0000 (18:46 +0000)
gacela_mobs.lisp

index 0cd56ae480c57e16a48ac0a7903c15d8df9c461a..d6d420b7a301dc3a3326f403538c7c265957c21e 100755 (executable)
 
 ;(in-package :gacela)
 
-(defmacro makemob (name variables &rest methods)
-  `(let ,variables
-     (defun ,name (&rest args &aux (option (car args)))
-       ,(mob-options methods))))
-
-(defun mob-options (methods)
-  (labels ((options (m &aux (option (car m)) (vars (cadr m)) (body (caddr m)))
-                   (cond ((null m) nil)
-                         (t (cons option (cons (lambda body (options (cdddr m))))))))
-         (cons 'case (cons 'option (options methods)))))
+(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))))))))
 
 (defmacro defmob (name variables &key init logic render)
   `(let ((make-name ',(intern (concatenate 'string "MAKE-" (string name)))))