X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_mobs.lisp;h=0b844111098a4ce0d0c17227ba3496d228282af2;hb=978e906d4f01dcc3dd386e4b0d2fa32564ecc83c;hp=3c6fec0831830540895f716f4e4907e343ae998e;hpb=f10809a34db64030c3ae87bd78e7b8b634d5ae34;p=gacela.git

diff --git a/gacela_mobs.lisp b/gacela_mobs.lisp
index 3c6fec0..0b84411 100755
--- 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)))