From: jsancho Date: Sun, 1 Nov 2009 11:58:01 +0000 (+0000) Subject: (no commit message) X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=edd70b0d0e5f54a346fcf6850ab6e10335ac6751;p=gacela.git --- diff --git a/gacela_mobs.lisp b/gacela_mobs.lisp index 558a1b6..79a8be2 100755 --- a/gacela_mobs.lisp +++ b/gacela_mobs.lisp @@ -15,19 +15,23 @@ ;;; along with this program. If not, see . +;;; World of Mob + (in-package :gacela) -;;; World of Mob +(defmacro makemob (name variables &rest methods) + `(lambda , + (defmacro defmob (name variables &key init logic render) `(let ((make-name ',(intern (concatenate 'string "MAKE-" (string name))))) (setf (symbol-function make-name) (makemob ,variables :init ,init :logic ,logic :render ,render)) make-name)) -(defmacro makemob (variables &key init logic render) - `(lambda - ,(if (null variables) () (cons '&key variables)) - (mob-structure ,variables ,init ,logic ,render))) +;(defmacro makemob (variables &key init logic render) +; `(lambda +; ,(if (null variables) () (cons '&key variables)) +; (mob-structure ,variables ,init ,logic ,render))) (defmacro mob-structure (variables init logic render) `(list