(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 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))