From b3612a88f73d22c19d0726e04c0a2e44c26b9bd2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marc=20Halbr=C3=BCgge?= Date: Wed, 8 Jun 2016 16:24:41 +0200 Subject: [PATCH] disabled some logging to ease running without ACT-CV --- kitchen assistant model.lisp | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/kitchen assistant model.lisp b/kitchen assistant model.lisp index d161e1e..cd33e7a 100644 --- a/kitchen assistant model.lisp +++ b/kitchen assistant model.lisp @@ -287,7 +287,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) #| ?vocal> state free @@ -340,7 +340,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) @@ -431,7 +431,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) @@ -1081,7 +1081,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) @@ -1157,7 +1157,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) (p retrieve-check-world-start-2 =goal> @@ -1176,7 +1176,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) #| @@ -1888,7 +1888,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) #| +vocal> isa speak @@ -2534,7 +2534,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) (p next-step-main-mismatch-first =goal> @@ -2678,7 +2678,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) (p next-step-is-finish-imag2 =goal> @@ -2696,7 +2696,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA =goal> state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) (p next-step-is-finish-imag3 =goal> @@ -2714,7 +2714,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA =goal> state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) ) (p next-step-is-finish-imag4 =goal> @@ -2732,7 +2732,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA =goal> state check-world-start worldmark nil - !eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) + ;!eval! (EvalToVoid (format nil "(START-WORLD-STRATEGY ~W)" (mp-time))) )