(no commit message)

[gacela.git] / gacela_mobs.lisp

diff --git a/gacela_mobs.lisp b/gacela_mobs.lisp
index 3c6fec0831830540895f716f4e4907e343ae998e..0b844111098a4ce0d0c17227ba3496d228282af2 100755 (executable)
--- a/gacela_mobs.lisp
+++ b/gacela_mobs.lisp
@@ -47,7 +47,8 @@
     (do ((mob (pop mobs-to-add) (pop mobs-to-add))) ((null mob))
        (push mob running-mobs)
        (funcall (symbol-function mob) :init))
-    (setq running-mobs (reverse (set-difference running-mobs mobs-to-quit))))
+    (setq running-mobs (reverse (set-difference running-mobs mobs-to-quit)))
+    (setq mobs-to-quit nil))
 
   (defun quit-all-mobs ()
     (setq running-mobs nil mobs-to-add nil mobs-to-quit nil)))