Menu
▾
▴
[Euslisp-commit] SF.net SVN: euslisp:[622] trunk/EusLisp/models
|
From: <sn...@us...> - 2013-05-01 04:43:27
|
Revision: 622
http://sourceforge.net/p/euslisp/code/622
Author: snozawa
Date: 2013-05-01 04:43:15 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]
Modified Paths:
--------------
trunk/EusLisp/models/room73b2-73b2-ground-object.l
trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l
trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l
trunk/EusLisp/models/room73b2-askul-1400-desk-object.l
trunk/EusLisp/models/room73b2-azuma-broom-object.l
trunk/EusLisp/models/room73b2-azuma-short-broom-object.l
trunk/EusLisp/models/room73b2-bamboo-broom-object.l
trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l
trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l
trunk/EusLisp/models/room73b2-bariera-1200-right-object.l
trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l
trunk/EusLisp/models/room73b2-bariera-900-left-object.l
trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l
trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l
trunk/EusLisp/models/room73b2-bottle-object.l
trunk/EusLisp/models/room73b2-broom-object.l
trunk/EusLisp/models/room73b2-chair0-object.l
trunk/EusLisp/models/room73b2-chair1-object.l
trunk/EusLisp/models/room73b2-coe-450-shelf-object.l
trunk/EusLisp/models/room73b2-coe-800-shelf-object.l
trunk/EusLisp/models/room73b2-cup-object.l
trunk/EusLisp/models/room73b2-cupboard-left-object.l
trunk/EusLisp/models/room73b2-cupboard-right-object.l
trunk/EusLisp/models/room73b2-desk-0-object.l
trunk/EusLisp/models/room73b2-desk-1-object.l
trunk/EusLisp/models/room73b2-desk-2-object.l
trunk/EusLisp/models/room73b2-dish-object.l
trunk/EusLisp/models/room73b2-door-left-object.l
trunk/EusLisp/models/room73b2-door-right-object.l
trunk/EusLisp/models/room73b2-empty-box-object.l
trunk/EusLisp/models/room73b2-foldable-desk-object.l
trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l
trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l
trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l
trunk/EusLisp/models/room73b2-kettle-object.l
trunk/EusLisp/models/room73b2-kitchen-object.l
trunk/EusLisp/models/room73b2-kitchen-shelf-object.l
trunk/EusLisp/models/room73b2-knife-object.l
trunk/EusLisp/models/room73b2-locker1-object.l
trunk/EusLisp/models/room73b2-locker2-object.l
trunk/EusLisp/models/room73b2-mug-cup-object.l
trunk/EusLisp/models/room73b2-panelwall-0-object.l
trunk/EusLisp/models/room73b2-picaladder-object.l
trunk/EusLisp/models/room73b2-plus-590-locker-object.l
trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l
trunk/EusLisp/models/room73b2-sponge-object.l
trunk/EusLisp/models/room73b2-sushi-cup-object.l
trunk/EusLisp/models/room73b2-sushi-cup2-object.l
trunk/EusLisp/models/room73b2-toshiba-clacio-refrigerator-object.l
trunk/EusLisp/models/room73b2-trashbox0-object.l
trunk/EusLisp/models/room73b2-tray-object.l
trunk/EusLisp/models/room73b2-uchida-shelf-1100-object.l
trunk/EusLisp/models/room73b2-uchida-shelf-1300-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-0-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-1-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-2-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-3-object.l
trunk/EusLisp/models/room73b2-unknown-1200-desk-4-object.l
trunk/EusLisp/models/room73b2-x-leg-desk-object.l
Modified: trunk/EusLisp/models/room73b2-73b2-ground-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-73b2-ground-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-73b2-ground-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-73b2-ground (&rest args) (instance* room73b2-73b2-ground-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1000x700-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1000x700-desk (&rest args) (instance* room73b2-askul-1000x700-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-0 (&rest args) (instance* room73b2-askul-1200x700-desk-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-1 (&rest args) (instance* room73b2-askul-1200x700-desk-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-2 (&rest args) (instance* room73b2-askul-1200x700-desk-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-3-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-3 (&rest args) (instance* room73b2-askul-1200x700-desk-3-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-4-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-4 (&rest args) (instance* room73b2-askul-1200x700-desk-4-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-5-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-5 (&rest args) (instance* room73b2-askul-1200x700-desk-5-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-6-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-6 (&rest args) (instance* room73b2-askul-1200x700-desk-6-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1200x700-desk-7-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1200x700-desk-7 (&rest args) (instance* room73b2-askul-1200x700-desk-7-object :init args))
Modified: trunk/EusLisp/models/room73b2-askul-1400-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-askul-1400-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-askul-1400-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -119,9 +119,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-askul-1400-desk (&rest args) (instance* room73b2-askul-1400-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-azuma-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-azuma-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-azuma-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -86,12 +86,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-azuma-broom (&rest args) (instance* room73b2-azuma-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-azuma-short-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-azuma-short-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-azuma-short-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -95,12 +95,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-azuma-short-broom (&rest args) (instance* room73b2-azuma-short-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-bamboo-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bamboo-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bamboo-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bamboo-broom (&rest args) (instance* room73b2-bamboo-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-corner-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -316,10 +316,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-corner (&rest args) (instance* room73b2-bariera-1200-corner-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-0 (&rest args) (instance* room73b2-bariera-1200-middle-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-1 (&rest args) (instance* room73b2-bariera-1200-middle-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle-2 (&rest args) (instance* room73b2-bariera-1200-middle-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle2 (&rest args) (instance* room73b2-bariera-1200-middle2-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle3-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle3-0 (&rest args) (instance* room73b2-bariera-1200-middle3-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-middle3-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -255,10 +255,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-middle3-1 (&rest args) (instance* room73b2-bariera-1200-middle3-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1200-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1200-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1200-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -348,10 +348,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1200-right (&rest args) (instance* room73b2-bariera-1200-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-1400-middle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -232,10 +232,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-1400-middle (&rest args) (instance* room73b2-bariera-1400-middle-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -310,10 +310,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-left (&rest args) (instance* room73b2-bariera-900-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-middle-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,10 +301,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-middle-0 (&rest args) (instance* room73b2-bariera-900-middle-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bariera-900-middle-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,10 +301,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bariera-900-middle-1 (&rest args) (instance* room73b2-bariera-900-middle-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-bottle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-bottle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-bottle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -134,11 +134,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-bottle (&rest args) (instance* room73b2-bottle-object :init args))
Modified: trunk/EusLisp/models/room73b2-broom-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-broom-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-broom-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -82,12 +82,12 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-broom (&rest args) (instance* room73b2-broom-object :init args))
Modified: trunk/EusLisp/models/room73b2-chair0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-chair0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-chair0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -451,11 +451,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-chair0 (&rest args) (instance* room73b2-chair0-object :init args))
Modified: trunk/EusLisp/models/room73b2-chair1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-chair1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-chair1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -451,11 +451,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-chair1 (&rest args) (instance* room73b2-chair1-object :init args))
Modified: trunk/EusLisp/models/room73b2-coe-450-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-coe-450-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-coe-450-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -110,10 +110,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-coe-450-shelf (&rest args) (instance* room73b2-coe-450-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-coe-800-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-coe-800-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-coe-800-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -101,10 +101,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-coe-800-shelf (&rest args) (instance* room73b2-coe-800-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -282,11 +282,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cup (&rest args) (instance* room73b2-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-cupboard-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cupboard-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cupboard-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -258,10 +258,10 @@
(:door-upper-left (&rest args) (forward-message-to joint1 args))
(:door-lower-right (&rest args) (forward-message-to joint2 args))
(:door-lower-left (&rest args) (forward-message-to joint3 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cupboard-left (&rest args) (instance* room73b2-cupboard-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-cupboard-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-cupboard-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-cupboard-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -312,10 +312,10 @@
(:drawer (&rest args) (forward-message-to joint2 args))
(:door-lower-right (&rest args) (forward-message-to joint3 args))
(:door-lower-left (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-cupboard-right (&rest args) (instance* room73b2-cupboard-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-desk-0 (&rest args) (instance* room73b2-desk-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-desk-1 (&rest args) (instance* room73b2-desk-1-object :init args))
Modified: trunk/EusLisp/models/room73b2-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-desk-2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-desk-2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -85,9 +85,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-desk-2 (&rest args) (instance* room73b2-desk-2-object :init args))
Modified: trunk/EusLisp/models/room73b2-dish-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-dish-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-dish-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -261,18 +261,18 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7))
- (:handle-handle0 () handle0)
- (:handle-handle1 () handle1)
- (:handle-handle2 () handle2)
- (:handle-handle3 () handle3)
- (:handle-handle4 () handle4)
- (:handle-handle5 () handle5)
- (:handle-handle6 () handle6)
- (:handle-handle7 () handle7)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-handle1 (&rest args) (forward-message-to handle1 args))
+ (:handle-handle2 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:handle-handle4 (&rest args) (forward-message-to handle4 args))
+ (:handle-handle5 (&rest args) (forward-message-to handle5 args))
+ (:handle-handle6 (&rest args) (forward-message-to handle6 args))
+ (:handle-handle7 (&rest args) (forward-message-to handle7 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-dish (&rest args) (instance* room73b2-dish-object :init args))
Modified: trunk/EusLisp/models/room73b2-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-door-left-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-door-left-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -126,9 +126,9 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-door-left (&rest args) (instance* room73b2-door-left-object :init args))
Modified: trunk/EusLisp/models/room73b2-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-door-right-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-door-right-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -301,12 +301,12 @@
(:door (&rest args) (forward-message-to joint0 args))
(:knob (&rest args) (forward-message-to joint1 args))
(:lock (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2))
- (:handle-rear-knob () handle0)
- (:handle-front-knob () handle1)
- (:handle-lock () handle2)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2) args))
+ (:handle-rear-knob (&rest args) (forward-message-to handle0 args))
+ (:handle-front-knob (&rest args) (forward-message-to handle1 args))
+ (:handle-lock (&rest args) (forward-message-to handle2 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-door-right (&rest args) (instance* room73b2-door-right-object :init args))
Modified: trunk/EusLisp/models/room73b2-empty-box-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-empty-box-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-empty-box-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -65,10 +65,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-empty-box (&rest args) (instance* room73b2-empty-box-object :init args))
Modified: trunk/EusLisp/models/room73b2-foldable-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-foldable-desk-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-foldable-desk-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -289,11 +289,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-rarm () handle0)
- (:handle-larm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-rarm (&rest args) (forward-message-to handle0 args))
+ (:handle-larm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-foldable-desk (&rest args) (instance* room73b2-foldable-desk-object :init args))
Modified: trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-gifuplastic-900-cart-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -351,11 +351,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0 handle1))
- (:handle-larm () handle0)
- (:handle-rarm () handle1)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1) args))
+ (:handle-larm (&rest args) (forward-message-to handle0 args))
+ (:handle-rarm (&rest args) (forward-message-to handle1 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-gifuplastic-900-cart (&rest args) (instance* room73b2-gifuplastic-900-cart-object :init args))
Modified: trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-hitachi-fiesta-refrigerator-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -271,13 +271,13 @@
(:door1 (&rest args) (forward-message-to joint0 args))
(:drawer1 (&rest args) (forward-message-to joint1 args))
(:drawer2 (&rest args) (forward-message-to joint2 args))
- (:handle () (list handle0 handle1 handle2 handle3))
- (:handle-drawer2 () handle0)
- (:handle-drawer1 () handle1)
- (:handle-door1 () handle2)
- (:handle-handle3 () handle3)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3) args))
+ (:handle-drawer2 (&rest args) (forward-message-to handle0 args))
+ (:handle-drawer1 (&rest args) (forward-message-to handle1 args))
+ (:handle-door1 (&rest args) (forward-message-to handle2 args))
+ (:handle-handle3 (&rest args) (forward-message-to handle3 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-hitachi-fiesta-refrigerator (&rest args) (instance* room73b2-hitachi-fiesta-refrigerator-object :init args))
Modified: trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-hrp2-parts-drawer-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -493,15 +493,15 @@
(:drawer2 (&rest args) (forward-message-to joint2 args))
(:drawer3 (&rest args) (forward-message-to joint3 args))
(:drawer4 (&rest args) (forward-message-to joint4 args))
- (:handle () (list handle0 handle1 handle2 handle3 handle4 handle5))
- (:handle-handle0 () handle0)
- (:handle-drawer-handle0 () handle1)
- (:handle-drawer-handle1 () handle2)
- (:handle-drawer-handle2 () handle3)
- (:handle-drawer-handle3 () handle4)
- (:handle-drawer-handle4 () handle5)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0 handle1 handle2 handle3 handle4 handle5) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:handle-drawer-handle0 (&rest args) (forward-message-to handle1 args))
+ (:handle-drawer-handle1 (&rest args) (forward-message-to handle2 args))
+ (:handle-drawer-handle2 (&rest args) (forward-message-to handle3 args))
+ (:handle-drawer-handle3 (&rest args) (forward-message-to handle4 args))
+ (:handle-drawer-handle4 (&rest args) (forward-message-to handle5 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-hrp2-parts-drawer (&rest args) (instance* room73b2-hrp2-parts-drawer-object :init args))
Modified: trunk/EusLisp/models/room73b2-kettle-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kettle-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kettle-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -604,11 +604,11 @@
(forward-message-to-all (list) args))
(:handle-joint (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kettle (&rest args) (instance* room73b2-kettle-object :init args))
Modified: trunk/EusLisp/models/room73b2-kitchen-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kitchen-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kitchen-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -665,10 +665,10 @@
(:door-5 (&rest args) (forward-message-to joint8 args))
(:tap-tube-joint (&rest args) (forward-message-to joint9 args))
(:tap-handle-joint (&rest args) (forward-message-to joint10 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kitchen (&rest args) (instance* room73b2-kitchen-object :init args))
Modified: trunk/EusLisp/models/room73b2-kitchen-shelf-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-kitchen-shelf-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-kitchen-shelf-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -343,10 +343,10 @@
(:door-3 (&rest args) (forward-message-to joint3 args))
(:door-4 (&rest args) (forward-message-to joint4 args))
(:door-5 (&rest args) (forward-message-to joint5 args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-kitchen-shelf (&rest args) (instance* room73b2-kitchen-shelf-object :init args))
Modified: trunk/EusLisp/models/room73b2-knife-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-knife-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-knife-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -65,10 +65,10 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-knife (&rest args) (instance* room73b2-knife-object :init args))
Modified: trunk/EusLisp/models/room73b2-locker1-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-locker1-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-locker1-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -168,10 +168,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-locker1 (&rest args) (instance* room73b2-locker1-object :init args))
Modified: trunk/EusLisp/models/room73b2-locker2-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-locker2-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-locker2-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -168,10 +168,10 @@
(forward-message-to-all (list) args))
(:door (&rest args) (forward-message-to joint0 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-locker2 (&rest args) (instance* room73b2-locker2-object :init args))
Modified: trunk/EusLisp/models/room73b2-mug-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-mug-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-mug-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -148,11 +148,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-mug-cup (&rest args) (instance* room73b2-mug-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-panelwall-0-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-panelwall-0-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-panelwall-0-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -53,9 +53,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-panelwall-0 (&rest args) (instance* room73b2-panelwall-0-object :init args))
Modified: trunk/EusLisp/models/room73b2-picaladder-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-picaladder-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-picaladder-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -159,9 +159,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-picaladder (&rest args) (instance* room73b2-picaladder-object :init args))
Modified: trunk/EusLisp/models/room73b2-plus-590-locker-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-plus-590-locker-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-plus-590-locker-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -206,10 +206,10 @@
(:door-left (&rest args) (forward-message-to joint0 args))
(:door-right (&rest args) (forward-message-to joint1 args))
- (:handle () (list handle0))
- (:handle-door-handle () handle0)
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-door-handle (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-plus-590-locker (&rest args) (instance* room73b2-plus-590-locker-object :init args))
Modified: trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sharp-52-aquostv-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -137,9 +137,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-sharp-52-aquostv (&rest args) (instance* room73b2-sharp-52-aquostv-object :init args))
Modified: trunk/EusLisp/models/room73b2-sponge-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sponge-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sponge-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -60,9 +60,9 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list ))
- (:attention () (list ))
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list ) args))
+ (:attention (&rest args) (forward-message-to-all (list ) args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-sponge (&rest args) (instance* room73b2-sponge-object :init args))
Modified: trunk/EusLisp/models/room73b2-sushi-cup-object.l
===================================================================
--- trunk/EusLisp/models/room73b2-sushi-cup-object.l 2013-05-01 04:36:56 UTC (rev 621)
+++ trunk/EusLisp/models/room73b2-sushi-cup-object.l 2013-05-01 04:43:15 UTC (rev 622)
@@ -631,11 +631,11 @@
(:cameras (&rest args)
(forward-message-to-all (list) args))
- (:handle () (list handle0))
- (:handle-handle0 () handle0)
- (:attention () (list attention0))
- (:attention-attention0 () attention0)
- (:button () (list ))
+ (:handle (&rest args) (forward-message-to-all (list handle0) args))
+ (:handle-handle0 (&rest args) (forward-message-to handle0 args))
+ (:attention (&rest args) (forward-message-to-all (list attention0) args))
+ (:attention-attention0 (&rest args) (forward-message-to attention0 args))
+ (:button (&rest args) (forward-message-to-all (list ) args))
)
(defun room73b2-sushi-cup (&rest args) (instance* room73b2-sushi-cup-object :init args))
Modified: trunk/EusLisp/models/room73b2-sushi-cup2-object.l
============...
[truncated message content] |
