From: Christoph Senjak <christoph@christoph-senjaks-macbook-pro.local>
Date: Mon, 24 Aug 2009 06:15:38 +0000 (+0200)
Subject: Huch... Bug... Removed.
X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=commitdiff_plain;h=14d2adfb7390a616ed7a9a26bfd406d7d37d6774

Huch... Bug... Removed.
---

diff --git a/leveleditor.lisp b/leveleditor.lisp
index 61b38c8..bf2a9f7 100644
--- a/leveleditor.lisp
+++ b/leveleditor.lisp
@@ -205,7 +205,8 @@ form (x y object arg1 arg2 ...)."
 							   "Symbolname: \"" (symbol-name (car sym)) "\"~%"
 							   "First argument: \"" (cadr sym) "\"~%"
 							   "Second argument: \"" (caddr sym) "\"")))
-			      (ltk:do-msg "There doesnt seem to be anything here."))))
+			      (ltk:do-msg "There doesnt seem to be anything here."))
+			  (return-from react)))
 		       ((eql current-chosen-object 'uxul-world::anchor)
 			(cond
 			  ((string= (ltk:text argument1-entry) "")