euslisp-commit Mailing List for EusLisp (Page 4)

Brought to you by: inaba-jsk, k-okada, kyouhei

euslisp-commit — euslisp commit mailing list

You can subscribe to this list here.

2013	_Jan	_Feb	_Mar	_Apr (31)	_May (50)	_Jun (6)	_Jul (8)	_Aug (4)	_Sep (2)	_Oct (4)	_Nov (6)	_Dec
2014	_Jan (24)	_Feb (2)	_Mar	_Apr	_May (2)	_Jun	_Jul	_Aug	_Sep	_Oct	_Nov	_Dec

Flat | Threaded

<< < 1 2 3 4 5 6 > >> (Page 4 of 6)

[Euslisp-commit] SF.net SVN: euslisp:[635] trunk/EusLisp/doc

From: <k-...@us...> - 2013-05-20 15:25:18

Revision: 635
          http://sourceforge.net/p/euslisp/code/635
Author:   k-okada
Date:     2013-05-20 15:25:12 +0000 (Mon, 20 May 2013)
Log Message:
-----------
update jmanual

Modified Paths:
--------------
    trunk/EusLisp/doc/jlatex/jmanual.dvi
    trunk/EusLisp/doc/jlatex/jmanual.pdf
    trunk/EusLisp/doc/latex/manual.dvi
    trunk/EusLisp/doc/latex/manual.pdf

Modified: trunk/EusLisp/doc/jlatex/jmanual.dvi
===================================================================
(Binary files differ)

Modified: trunk/EusLisp/doc/jlatex/jmanual.pdf
===================================================================
(Binary files differ)

Modified: trunk/EusLisp/doc/latex/manual.dvi
===================================================================
(Binary files differ)

Modified: trunk/EusLisp/doc/latex/manual.pdf
===================================================================
(Binary files differ)

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[634] trunk/EusLisp/doc/jlatex

From: <k-...@us...> - 2013-05-20 14:56:49

Revision: 634
          http://sourceforge.net/p/euslisp/code/634
Author:   k-okada
Date:     2013-05-20 14:56:33 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix \ character

Modified Paths:
--------------
    trunk/EusLisp/doc/jlatex/jarith.tex
    trunk/EusLisp/doc/jlatex/jcontact.tex
    trunk/EusLisp/doc/jlatex/jcontrols.tex
    trunk/EusLisp/doc/jlatex/jevaluation.tex
    trunk/EusLisp/doc/jlatex/jgenerals.tex
    trunk/EusLisp/doc/jlatex/jgraphics.tex
    trunk/EusLisp/doc/jlatex/jimage.tex
    trunk/EusLisp/doc/jlatex/jintro.tex
    trunk/EusLisp/doc/jlatex/jmanual.dvi
    trunk/EusLisp/doc/jlatex/jmanual.pdf
    trunk/EusLisp/doc/jlatex/jmatrix.tex
    trunk/EusLisp/doc/jlatex/jmthread.tex
    trunk/EusLisp/doc/jlatex/jsequences.tex
    trunk/EusLisp/doc/jlatex/jsymbols.tex
    trunk/EusLisp/doc/jlatex/jsysfunc.tex
    trunk/EusLisp/doc/jlatex/jvoronoi.tex
    trunk/EusLisp/doc/jlatex/jvxw.tex
    trunk/EusLisp/doc/jlatex/jxtoolkit.tex
    trunk/EusLisp/doc/jlatex/jxwindow.tex
    trunk/EusLisp/doc/jlatex/tape.tex

Modified: trunk/EusLisp/doc/jlatex/jarith.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jarith.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jarith.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,213 +1,213 @@
-\section{$@?tCM1i;;(J}
-\markright{\arabic{section}. $@?tCM1i;;(J}
-\subsection{$@?tCM1i;;Dj?t(J}
+\section{$@?tCM1i;;(B}
+\markright{\arabic{section}. $@?tCM1i;;(B}
+\subsection{$@?tCM1i;;Dj?t(B}
 \begin{refdesc}
-\constdesc{most-positive-fixnum}{\#x1fffffff=536,870,911$@!#(J{\tt integer}$@$N@5$N:GBgCM!#(J}
-\constdesc{most-negative-fixnum}{-\#x20000000= -536,870,912$@!#(J{\tt integer}$@$NIi$N:GBgCM(J}
-\constdesc{short-float-epsilon}{IEEE$@$NIbF0>.?tE@I=8=7A<0$G$"$k(J{\tt float}$@$O!"(J
-21$@%S%C%H$N8GDj>.?t(J($@$&$AId9f(J
-$@$,(J1$@%S%C%H(J)$@$H(J7$@%S%C%H$N;X?t(J($@$&$AId9f$,(J1$@%S%C%H(J)$@$G9=@.$5$l$F$$$k!#(J
-$@$7$?$,$C$F!"IbF0>.?tE@8m:9(J$\epsilon$$@$O(J $2^{-21}= 4.768368 \times 10^{-7}$$@$H$J$k!#(J}
-\constdesc{single-float-epsilon}{{\bf short-float-epsilon}$@$HF1MM$K(J $2^{-21}$$@$G$"$k!#(J}
-\constdesc{long-float-epsilon}{Euslisp$@$K$O!"(Jdouble$@$b(Jlong float$@$b$J$$$?$a!"(J
-{\bf short-float-epsilon}$@$HF1MM$K(J$2^{-21}$$@$G$"$k!#(J}
-\constdesc{pi}{$\pi$$@!#(J $@<B:]$K$O(J 3.14159203$@$G!"(J 3.14159265$@$G$O$J$$!#(J}
-\constdesc{2pi}{$2\times \pi$$@!#(J}
-\constdesc{pi/2}{$\pi/2$$@!#(J}
-\constdesc{-pi}{-3.14159203$@!#(J}
-\constdesc{-2pi}{$-2\times \pi$$@!#(J}
-\constdesc{-pi/2}{$-\pi/2$$@!#(J}
+\constdesc{most-positive-fixnum}{\#x1fffffff=536,870,911$@!#(B{\tt integer}$@$N@5$N:GBgCM!#(B}
+\constdesc{most-negative-fixnum}{-\#x20000000= -536,870,912$@!#(B{\tt integer}$@$NIi$N:GBgCM(B}
+\constdesc{short-float-epsilon}{IEEE$@$NIbF0>.?tE@I=8=7A<0$G$"$k(B{\tt float}$@$O!"(B
+21$@%S%C%H$N8GDj>.?t(B($@$&$AId9f(B
+$@$,(B1$@%S%C%H(B)$@$H(B7$@%S%C%H$N;X?t(B($@$&$AId9f$,(B1$@%S%C%H(B)$@$G9=@.$5$l$F$$$k!#(B
+$@$7$?$,$C$F!"IbF0>.?tE@8m:9(B$\epsilon$$@$O(B $2^{-21}= 4.768368 \times 10^{-7}$$@$H$J$k!#(B}
+\constdesc{single-float-epsilon}{{\bf short-float-epsilon}$@$HF1MM$K(B $2^{-21}$$@$G$"$k!#(B}
+\constdesc{long-float-epsilon}{Euslisp$@$K$O!"(Bdouble$@$b(Blong float$@$b$J$$$?$a!"(B
+{\bf short-float-epsilon}$@$HF1MM$K(B$2^{-21}$$@$G$"$k!#(B}
+\constdesc{pi}{$\pi$$@!#(B $@<B:]$K$O(B 3.14159203$@$G!"(B 3.14159265$@$G$O$J$$!#(B}
+\constdesc{2pi}{$2\times \pi$$@!#(B}
+\constdesc{pi/2}{$\pi/2$$@!#(B}
+\constdesc{-pi}{-3.14159203$@!#(B}
+\constdesc{-2pi}{$-2\times \pi$$@!#(B}
+\constdesc{-pi/2}{$-\pi/2$$@!#(B}
 \end{refdesc}
 
-\subsection{$@Hf3S1i;;4X?t(J}
+\subsection{$@Hf3S1i;;4X?t(B}
 \begin{refdesc}
 \funcdesc{numberp}{object}{
-{\em object}$@$,(J{\tt integer}$@$+(J{\tt float}$@$N;~!"(JT$@$rJV$9!#(J
-$@$=$NJ8;z$,?t;z$G9=@.$5$l$F$$$k$H$-$bF1MM$G$"$k!#(J}
+{\em object}$@$,(B{\tt integer}$@$+(B{\tt float}$@$N;~!"(BT$@$rJV$9!#(B
+$@$=$NJ8;z$,?t;z$G9=@.$5$l$F$$$k$H$-$bF1MM$G$"$k!#(B}
 \funcdesc{integerp}{object}{
-{\em object}$@$,(J{\tt integer}$@$N;~!"(JT$@$rJV$9!#(J
-{\tt float}$@$O(J{\bf round, trunc}$@$*$h$S(J{\bf ceiling}$@4X?t$G(J{\tt integer}$@$KJQ49$G$-$k!#(J}
-\funcdesc{floatp}{object}{ {\em object} $@$,(J {\tt float} $@$N;~(J T $@$rJV$9!#(J
-{\tt integer}$@$O(J{\bf float}$@4X?t$G(J{\tt float}$@$KJQ49$G$-$k!#(J}
+{\em object}$@$,(B{\tt integer}$@$N;~!"(BT$@$rJV$9!#(B
+{\tt float}$@$O(B{\bf round, trunc}$@$*$h$S(B{\bf ceiling}$@4X?t$G(B{\tt integer}$@$KJQ49$G$-$k!#(B}
+\funcdesc{floatp}{object}{ {\em object} $@$,(B {\tt float} $@$N;~(B T $@$rJV$9!#(B
+{\tt integer}$@$O(B{\bf float}$@4X?t$G(B{\tt float}$@$KJQ49$G$-$k!#(B}
 
-\funcdesc{zerop}{number}{ {\em number}$@$,(J{\tt integer}$@$N%<%m$^$?$O(J
-{\tt float}$@$N(J0.0$@$N;~!"(J T$@$rJV$9!#(J}
-\funcdesc{plusp}{number}{{\em number}$@$,@5(J($@%<%m$O4^$^$J$$(J)$@$N$H$-!"(JT$@$rJV$9!#(J}
-\funcdesc{minusp}{number}{{\em number}$@$,Ii$N$H$-!"(JT$@$rJV$9!#(J}
+\funcdesc{zerop}{number}{ {\em number}$@$,(B{\tt integer}$@$N%<%m$^$?$O(B
+{\tt float}$@$N(B0.0$@$N;~!"(B T$@$rJV$9!#(B}
+\funcdesc{plusp}{number}{{\em number}$@$,@5(B($@%<%m$O4^$^$J$$(B)$@$N$H$-!"(BT$@$rJV$9!#(B}
+\funcdesc{minusp}{number}{{\em number}$@$,Ii$N$H$-!"(BT$@$rJV$9!#(B}
 
 \funcdesc{oddp}{integer}{
-{\em integer}$@$,4q?t$N$H$-!"(JT$@$rJV$9!#0z?t$O(J{\tt integer}$@$N$_M-8z!#(J}
+{\em integer}$@$,4q?t$N$H$-!"(BT$@$rJV$9!#0z?t$O(B{\tt integer}$@$N$_M-8z!#(B}
 
 \funcdesc{evenp}{integer}{
-{\em integer}$@$,6v?t$N$H$-!"(JT$@$rJV$9!#0z?t$O(J{\tt integer}$@$N$_M-8z!#(J}
+{\em integer}$@$,6v?t$N$H$-!"(BT$@$rJV$9!#0z?t$O(B{\tt integer}$@$N$_M-8z!#(B}
 
 \funcdesc{/=}{num1 num2}{
-{\em num1}$@$,(J{\em num2}$@$HEy$7$/$J$$$H$-!"(JT$@$rJV$9!#(J
-{\em num1}$@$H(J{\em num2}$@$O?tCM$G$"$k$3$H!#(J}
+{\em num1}$@$,(B{\em num2}$@$HEy$7$/$J$$$H$-!"(BT$@$rJV$9!#(B
+{\em num1}$@$H(B{\em num2}$@$O?tCM$G$"$k$3$H!#(B}
 
 \funcdesc{=}{num1 num2 \&rest more-numbers}{
-{\em num1}$@$H(J{\em num2}$@Ey$7$$$H$-$r!"(JT$@JV$9!#(J
-{\em num1}$@$H(J{\em num2}$@$O?tCM$G$"$k$3$H!#(J}
+{\em num1}$@$H(B{\em num2}$@Ey$7$$$H$-$r!"(BT$@JV$9!#(B
+{\em num1}$@$H(B{\em num2}$@$O?tCM$G$"$k$3$H!#(B}
 
 \fundesc{$>$}{num1 num2 \&rest more-numbers}
 \fundesc{$<$}{num1 num2 \&rest more-numbers}
 \fundesc{$>=$}{num1 num2 \&rest more-numbers}
 \funcdesc{$<=$}{num1 num2 \&rest more-numbers}{
-$@$3$l$i$NHf3S1i;;$O!"?tCM$N$_E,MQ$G$-$k!#8m:9$r4^$a$??tCMHf3S$KBP$7$F$O!"(J
-\ref{Geometry}$@>O$K=q$+$l$F$$$k4X?t!J$3$l$i$NHf3S1i;;;R$NA0$K(J{\bf eps}$@$,(J
-$@$D$$$F$$$k!K$r;HMQ$9$k!#(J}
+$@$3$l$i$NHf3S1i;;$O!"?tCM$N$_E,MQ$G$-$k!#8m:9$r4^$a$??tCMHf3S$KBP$7$F$O!"(B
+\ref{Geometry}$@>O$K=q$+$l$F$$$k4X?t!J$3$l$i$NHf3S1i;;;R$NA0$K(B{\bf eps}$@$,(B
+$@$D$$$F$$$k!K$r;HMQ$9$k!#(B}
 \end{refdesc}
 
-\subsection{$@@0?t$H%S%C%HKh$NA`:n4X?t(J}
-$@0J2<$N4X?t$N0z?t$O!"$9$Y$F(J{\tt integer}$@$H$9$k!#(J
+\subsection{$@@0?t$H%S%C%HKh$NA`:n4X?t(B}
+$@0J2<$N4X?t$N0z?t$O!"$9$Y$F(B{\tt integer}$@$H$9$k!#(B
 
 \begin{refdesc}
 \funcdesc{mod}{dividend divisor}{
-{\em dividend} $@$r(J {\em divisor}$@$G3d$C$?M>$j$rJV$9!#(J
+{\em dividend} $@$r(B {\em divisor}$@$G3d$C$?M>$j$rJV$9!#(B
 {\tt (mod 6 5)=1, (mod -6 5)=-1, (mod 6 -5)=1, (mod -6 -5)=-1}.}
 
 \funcdesc{1-}{integer}{
-$integer-1$ $@$rJV$9!#%3%s%Q%$%i$G$O!"0z?t$r(J {\tt integer} $@$H2>Dj$9$k!#(J}
+$integer-1$ $@$rJV$9!#%3%s%Q%$%i$G$O!"0z?t$r(B {\tt integer} $@$H2>Dj$9$k!#(B}
 
 \funcdesc{1+}{integer}{
-$integer+1$ $@$rJV$9!#(J
-{\bf 1+} $@$H(J {\bf 1$-$} $@$N0z?t$O!"(J{\tt integer} $@$G$J$1$l$P$J$i$J$$!#(J}
-\funcdesc{logand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#A#N#D!#(J}
-\funcdesc{logior}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#O#R!#(J}
-\funcdesc{logxor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#X#O#R!#(J}
+$integer+1$ $@$rJV$9!#(B
+{\bf 1+} $@$H(B {\bf 1$-$} $@$N0z?t$O!"(B{\tt integer} $@$G$J$1$l$P$J$i$J$$!#(B}
+\funcdesc{logand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#A#N#D!#(B}
+\funcdesc{logior}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#O#R!#(B}
+\funcdesc{logxor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#X#O#R!#(B}
 \funcdesc{logeqv}{\&rest integers}{
-{\bf logeqv}$@$O(J{\tt (lognot (logxor ...))}$@$HF1Ey$G$"$k!#(J}
-\funcdesc{lognand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#A#N#D!#(J}
-\funcdesc{lognor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#O#R!#(J}
-\funcdesc{lognot}{integer}{{\em integer}$@$N%S%C%HH?E>!#(J}
+{\bf logeqv}$@$O(B{\tt (lognot (logxor ...))}$@$HF1Ey$G$"$k!#(B}
+\funcdesc{lognand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#A#N#D!#(B}
+\funcdesc{lognor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#O#R!#(B}
+\funcdesc{lognot}{integer}{{\em integer}$@$N%S%C%HH?E>!#(B}
 \funcdesc{logtest}{integer1 integer2}{
-{\tt (logand {\em integer1 integer2})}$@$,%<%m$G$J$$$H$-(J T $@$rJV$9!#(J}
+{\tt (logand {\em integer1 integer2})}$@$,%<%m$G$J$$$H$-(B T $@$rJV$9!#(B}
 
 \funcdesc{logbitp}{index integer}{
-{\em integer}$@$,(JNIL$@$G$J$1$l$P!"(JLSB$@$+$i?t$($F(J {\em index}$@HVL\$N(J 
-$@%S%C%H$,(J 1 $@$N$H$-(J T $@$rJV$9!#(J}
+{\em integer}$@$,(BNIL$@$G$J$1$l$P!"(BLSB$@$+$i?t$($F(B {\em index}$@HVL\$N(B 
+$@%S%C%H$,(B 1 $@$N$H$-(B T $@$rJV$9!#(B}
 
 \funcdesc{ash}{integer count}{
-$@?tCM1i;;:8%7%U%H!#(J
-$@$b$7(J {\em count} $@$,@5$N$H$-!"(J{\em integer}$@$r:8$K%7%U%H$9$k!#(J
-$@$b$7(J {\em count} $@$,Ii$N$H$-!"(J
-{\em integer} $@$r(J $\vert${\em count}$\vert$ $@%S%C%H1&$K%7%U%H$9$k!#(J}
+$@?tCM1i;;:8%7%U%H!#(B
+$@$b$7(B {\em count} $@$,@5$N$H$-!"(B{\em integer}$@$r:8$K%7%U%H$9$k!#(B
+$@$b$7(B {\em count} $@$,Ii$N$H$-!"(B
+{\em integer} $@$r(B $\vert${\em count}$\vert$ $@%S%C%H1&$K%7%U%H$9$k!#(B}
 
 \funcdesc{ldb}{target position width}{
 LoaD Byte.
-{\bf ldb} $@$d(J {\bf dpb} $@$N(JByte$@7?$O!"(J EusLisp$@$K$J$$$?$a!"Be$j$K(J
-2$@8D$N(J {\tt integer} $@$r;HMQ$9$k!#(J
-{\em target} $@$N(JLSB$@$h$j(J{\em position}$@HVL\$N0LCV$+$i(JMSB$@$X(J {\em width} $@%S%C%H$N(J
-$@HO0O$rH4$-=P$9!#Nc$($P!"(J {\tt (ldb \#x1234 4 4)} $@$O(J 3$@$H$J$k!#(J}
+{\bf ldb} $@$d(B {\bf dpb} $@$N(BByte$@7?$O!"(B EusLisp$@$K$J$$$?$a!"Be$j$K(B
+2$@8D$N(B {\tt integer} $@$r;HMQ$9$k!#(B
+{\em target} $@$N(BLSB$@$h$j(B{\em position}$@HVL\$N0LCV$+$i(BMSB$@$X(B {\em width} $@%S%C%H$N(B
+$@HO0O$rH4$-=P$9!#Nc$($P!"(B {\tt (ldb \#x1234 4 4)} $@$O(B 3$@$H$J$k!#(B}
 
 \funcdesc{dpb}{value target position width}{
 DePosit Byte.
-{\em target}$@$N(JLSB$@$h$j(J{\em position}$@HVL\$N0LCV$X(J{\em value}$@$r(J
-{\em width}$@%S%C%HCV$-49$($k!#(J}
+{\em target}$@$N(BLSB$@$h$j(B{\em position}$@HVL\$N0LCV$X(B{\em value}$@$r(B
+{\em width}$@%S%C%HCV$-49$($k!#(B}
 
 \end{refdesc}
 
 
-\subsection{$@0lHL?tCM4X?t(J}
+\subsection{$@0lHL?tCM4X?t(B}
 \begin{refdesc}
-\funcdesc{+}{\&rest numbers}{{\em numbers}$@$NOB$rJV$9!#(J}
+\funcdesc{+}{\&rest numbers}{{\em numbers}$@$NOB$rJV$9!#(B}
 \funcdesc{-}{num \&rest more-numbers}{
-$@$b$7(J {\em more-numbers} $@$,M?$($i$l$?$H$-!"(J{\em num}$@$h$j0z$/!#(J
-$@$=$&$G$J$$$H$-!"(J{\em num} $@$OId9fH?E>$5$l$k!#(J}
-\funcdesc{*}{\&rest numbers}{{\em numbers}$@$N@Q$rJV$9!#(J}
+$@$b$7(B {\em more-numbers} $@$,M?$($i$l$?$H$-!"(B{\em num}$@$h$j0z$/!#(B
+$@$=$&$G$J$$$H$-!"(B{\em num} $@$OId9fH?E>$5$l$k!#(B}
+\funcdesc{*}{\&rest numbers}{{\em numbers}$@$N@Q$rJV$9!#(B}
 \funcdesc{/}{num1 num2 \&rest more-numbers}{
-{\em num1} $@$r!"(J{\em num2} $@$d(J {\em more-numbers}$@$G3d$j;;$9$k!#(J
-$@A4$F$N0z?t$,(J{\tt integer}$@$N$H$-!"(J{\tt integer}$@$rJV$7!"(J
-$@0z?t$K(J1$@$D$G$b(J{\tt float}$@$,$"$C$?$H$-$O!"(J{\tt float}$@$rJV$9!#(J}
-\funcdesc{abs}{number}{{\em number}$@$N@dBPCM$rJV$9!#(J}
+{\em num1} $@$r!"(B{\em num2} $@$d(B {\em more-numbers}$@$G3d$j;;$9$k!#(B
+$@A4$F$N0z?t$,(B{\tt integer}$@$N$H$-!"(B{\tt integer}$@$rJV$7!"(B
+$@0z?t$K(B1$@$D$G$b(B{\tt float}$@$,$"$C$?$H$-$O!"(B{\tt float}$@$rJV$9!#(B}
+\funcdesc{abs}{number}{{\em number}$@$N@dBPCM$rJV$9!#(B}
 \funcdesc{round}{number}{
-{\em number}$@$N>.?tBh(J1$@0L$r;M<N8^F~$7(J {\tt integer}$@$rJV$9!#(J
+{\em number}$@$N>.?tBh(B1$@0L$r;M<N8^F~$7(B {\tt integer}$@$rJV$9!#(B
 {\tt (round 1.5)=2, (round -1.5)=2}.}
 
 \funcdesc{floor}{number}{
-{\em number}$@$N>.?t$r@Z<N$F$k!#(J
+{\em number}$@$N>.?t$r@Z<N$F$k!#(B
 {\tt (floor 1.5)=1, (floor -1.5)=-2}.}
 
 \funcdesc{ceiling}{number}{
-{\em number}$@$N>.?t$r@Z$j>e$2$k!#(J
+{\em number}$@$N>.?t$r@Z$j>e$2$k!#(B
 {\tt (ceiling 1.5)=2, (ceiling -1.5)=-1}.}
 
 \funcdesc{truncate}{number}{
-{\em number}$@$,@5$N$H$-$O@Z<N$F!"Ii$N$H$-$O@Z$j>e$2$k!#(J
+{\em number}$@$,@5$N$H$-$O@Z<N$F!"Ii$N$H$-$O@Z$j>e$2$k!#(B
 {\tt (truncate 1.5)=1, (truncate -1.5)=-1}.}
 
 \funcdesc{float}{number}{
- {\em number}$@$r(J{\tt float}$@$K$7$FJV$9!#(J}
+ {\em number}$@$r(B{\tt float}$@$K$7$FJV$9!#(B}
 
 \funcdesc{max}{\&rest numbers}{
- {\em numbers}$@$NCf$+$i!":GBgCM$r$5$,$9!#(J}
+ {\em numbers}$@$NCf$+$i!":GBgCM$r$5$,$9!#(B}
 
 \funcdesc{min}{\&rest numbers}{
-{\em numbers}$@$NCf$+$i!":G>.CM$r$5$,$9!#(J}
+{\em numbers}$@$NCf$+$i!":G>.CM$r$5$,$9!#(B}
 
 \funcdesc{random}{range \&optional (randstate *random-state*)}{
- 0$@$"$k$$$O(J0.0 $@$+$i(J {\em range}$@$^$G$NMp?t$rJV$9!#(J
-$@$b$7(J {\em range} $@$,(J {\tt integer}$@$N$H$-!"(J
-{\tt integer} $@$KJQ49$7$FJV$9!#(J
-$@$=$&$G$J$$$H$-!"(J{\tt float} $@$rJV$9!#(J
-$@%*%W%7%g%s$N(J{\em randstate} $@$O!"7h$^$C$?Mp?tNs$GI=$5$l$k!#(J
-{\em randstate}$@$KFCJL$J%G!<%?$N7?$O$J$/!"(J
-2$@$D$NMWAG$+$i$J$k(J $@@0?t%Y%/%H%k$GI=$5$l$k!#(J
+ 0$@$"$k$$$O(B0.0 $@$+$i(B {\em range}$@$^$G$NMp?t$rJV$9!#(B
+$@$b$7(B {\em range} $@$,(B {\tt integer}$@$N$H$-!"(B
+{\tt integer} $@$KJQ49$7$FJV$9!#(B
+$@$=$&$G$J$$$H$-!"(B{\tt float} $@$rJV$9!#(B
+$@%*%W%7%g%s$N(B{\em randstate} $@$O!"7h$^$C$?Mp?tNs$GI=$5$l$k!#(B
+{\em randstate}$@$KFCJL$J%G!<%?$N7?$O$J$/!"(B
+2$@$D$NMWAG$+$i$J$k(B $@@0?t%Y%/%H%k$GI=$5$l$k!#(B
 }
 
 \macrodesc{incf}{variable \&optional (increment 1)}{
-{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(J
-{\em variable} $@$O!"(J{\em increment}$@$@$1A}2C$5$l!"(J
-{\em variable}$@$KLa$5$l$k!#(J}
+{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(B
+{\em variable} $@$O!"(B{\em increment}$@$@$1A}2C$5$l!"(B
+{\em variable}$@$KLa$5$l$k!#(B}
 \macrodesc{decf}{variable \&optional decrement}{
-{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(J
-{\em variable} $@$O!"(J{\em decrement}$@$@$18:>/$5$l!"(J
-{\em variable}$@$KLa$5$l$k!#(J}
+{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(B
+{\em variable} $@$O!"(B{\em decrement}$@$@$18:>/$5$l!"(B
+{\em variable}$@$KLa$5$l$k!#(B}
 
 \funcdesc{reduce}{func seq}{
-2$@JQ?tA`:n$N(J{\em func}$@4X?t$rMQ$$$F!"(J{\em seq}$@$NCf$NA4$F$NMWAG$r7k9g$5$;$k!#(J
-$@Nc$($P!"(J{\tt (reduce \#'expt '(2 3 4)) = (expt (expt 2 3) 4)=4096}.}
+2$@JQ?tA`:n$N(B{\em func}$@4X?t$rMQ$$$F!"(B{\em seq}$@$NCf$NA4$F$NMWAG$r7k9g$5$;$k!#(B
+$@Nc$($P!"(B{\tt (reduce \#'expt '(2 3 4)) = (expt (expt 2 3) 4)=4096}.}
 
-\funcdesc{rad2deg}{radian}{$@%i%8%"%sCM$r(J $@EY?tI=8=$KJQ49$9$k!#(J
-\#R $@$OF1$8$b$N$G$"$k!#(J
-EusLisp $@$NCf$G$N3QEY$NI=5-$O%i%8%"%s$G$"$j!"(J
-EusLisp $@Fb$NA4$F$N4X?t$,MW5a$9$k3QEY0z?t$O!"%i%8%"%sI=8=$G$"$k!#(J}
+\funcdesc{rad2deg}{radian}{$@%i%8%"%sCM$r(B $@EY?tI=8=$KJQ49$9$k!#(B
+\#R $@$OF1$8$b$N$G$"$k!#(B
+EusLisp $@$NCf$G$N3QEY$NI=5-$O%i%8%"%s$G$"$j!"(B
+EusLisp $@Fb$NA4$F$N4X?t$,MW5a$9$k3QEY0z?t$O!"%i%8%"%sI=8=$G$"$k!#(B}
 
-\funcdesc{deg2rad}{degree}{$@3QEYCM$r%i%8%"%sI=8=$KJQ49$9$k!#(J
-$@$^$?(J \#D $@$G$b<B9T$G$-$k!#(J}
+\funcdesc{deg2rad}{degree}{$@3QEYCM$r%i%8%"%sI=8=$KJQ49$9$k!#(B
+$@$^$?(B \#D $@$G$b<B9T$G$-$k!#(B}
 \end{refdesc}
 
-\subsection{$@4pK\4X?t(J}
+\subsection{$@4pK\4X?t(B}
 \begin{refdesc}
-\funcdesc{sin}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(J {\tt float} $@CM!#(J
-$\sin(theta)$$@$rJV$9!#(J}
-\funcdesc{cos}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(J {\tt float} $@CM!#(J
-$\cos(theta)$$@$rJV$9!#(J}
-\funcdesc{tan}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(J {\tt float} $@CM!#(J
-$\tan(theta)$$@$rJV$9!#(J}
-\funcdesc{sinh}{x}{ hyperbolic sine$@!"(J
-$\frac{e^{x}-e^{-x}}{2}$$@$GI=$5$l$k!#(J}
-\funcdesc{cosh}{x}{ hyperbolic cosine$@!"(J
-$\frac{e^{x}+e^{-x}}{2}$$@$GI=$5$l$k!#(J}
-\funcdesc{tanh}{x}{ hyperbolic tangent$@!"(J
-$\frac{e^{x}+e^{-x}}{e^{x}-e^{-x}}$$@$GI=$5$l$k!#(J}
-\funcdesc{asin}{number}{{\em number}$@$N(Jarc sine$@$rJV$9!#(J}
-\funcdesc{acos}{number}{{\em number}$@$N(Jarc cosine$@$rJV$9!#(J}
+\funcdesc{sin}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(B {\tt float} $@CM!#(B
+$\sin(theta)$$@$rJV$9!#(B}
+\funcdesc{cos}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(B {\tt float} $@CM!#(B
+$\cos(theta)$$@$rJV$9!#(B}
+\funcdesc{tan}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(B {\tt float} $@CM!#(B
+$\tan(theta)$$@$rJV$9!#(B}
+\funcdesc{sinh}{x}{ hyperbolic sine$@!"(B
+$\frac{e^{x}-e^{-x}}{2}$$@$GI=$5$l$k!#(B}
+\funcdesc{cosh}{x}{ hyperbolic cosine$@!"(B
+$\frac{e^{x}+e^{-x}}{2}$$@$GI=$5$l$k!#(B}
+\funcdesc{tanh}{x}{ hyperbolic tangent$@!"(B
+$\frac{e^{x}+e^{-x}}{e^{x}-e^{-x}}$$@$GI=$5$l$k!#(B}
+\funcdesc{asin}{number}{{\em number}$@$N(Barc sine$@$rJV$9!#(B}
+\funcdesc{acos}{number}{{\em number}$@$N(Barc cosine$@$rJV$9!#(B}
 \funcdesc{atan}{y \&optional x}{
-{\bf atan} $@$,(J1$@$D$N0z?t$@$1$N$H$-!"(Jarctangent $@$r7W;;$9$k!#(J
-2$@$D$N0z?t$N$H$-!"(J{\tt atan}$(y/x)$ $@$r7W;;$9$k!#(J}
+{\bf atan} $@$,(B1$@$D$N0z?t$@$1$N$H$-!"(Barctangent $@$r7W;;$9$k!#(B
+2$@$D$N0z?t$N$H$-!"(B{\tt atan}$(y/x)$ $@$r7W;;$9$k!#(B}
 \funcdesc{asinh}{x}{hyperbolic arc sine.}
 \funcdesc{acosh}{x}{hyperbolic arc cosine.}
 \funcdesc{atanh}{x}{hyperbolic arc tangent.}
 
-\funcdesc{sqrt}{number}{{\em number} $@$NJ?J}:,$rJV$9!#(J}
+\funcdesc{sqrt}{number}{{\em number} $@$NJ?J}:,$rJV$9!#(B}
 
-\funcdesc{log}{number}{{\em number} $@$N<+A3BP?t$rJV$9!#(J}
+\funcdesc{log}{number}{{\em number} $@$N<+A3BP?t$rJV$9!#(B}
 
-\funcdesc{exp}{x}{$e^{x}$$@$rJV$9!#(J}
+\funcdesc{exp}{x}{$e^{x}$$@$rJV$9!#(B}
 
 \funcdesc{expt}{a x}{
-{\em a}$@$N(J{\em x}$@>h$rJV$9!#(J}
+{\em a}$@$N(B{\em x}$@>h$rJV$9!#(B}
 \end{refdesc}
 
 \newpage

Modified: trunk/EusLisp/doc/jlatex/jcontact.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jcontact.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jcontact.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,21 +1,21 @@
-\subsection{\label{Contact}$@N)BN$N@\?(>uBV2r@O(J}
+\subsection{\label{Contact}$@N)BN$N@\?(>uBV2r@O(B}
 
-$@$3$N@a$N%a%=%C%I$*$h$S4X?t$O!"<!$N%U%!%$%k$K5-=R$5$l$F$$$k!#(J
+$@$3$N@a$N%a%=%C%I$*$h$S4X?t$O!"<!$N%U%!%$%k$K5-=R$5$l$F$$$k!#(B
 {\bf contact/model2const.l, con\-tact/in\-e\-qual\-i\-ties.l, contact/drawconst.l}
 
 \begin{refdesc}
 
-\funcdesc{constrained-motion}{c}{$@94B+(J{\em c}$@$rK~$?$7$F$$$k(J
-$@F0:n$N%j%9%H$rJV$9!#(J}
+\funcdesc{constrained-motion}{c}{$@94B+(B{\em c}$@$rK~$?$7$F$$$k(B
+$@F0:n$N%j%9%H$rJV$9!#(B}
 
-\funcdesc{constrained-force}{m}{$@94B+$5$l$F$$$k(J{\bf body}$@$+$i(J
-$@94B+$7$F$$$k(J{\bf body}$@$K2C$o$kNO$rJV$9!#(J{\em m}$@$O!"(J{\bf constrained-motion}
-$@$+$iJV$5$l$kF0:n$N%j%9%H$G$"$k!#(J}
+\funcdesc{constrained-force}{m}{$@94B+$5$l$F$$$k(B{\bf body}$@$+$i(B
+$@94B+$7$F$$$k(B{\bf body}$@$K2C$o$kNO$rJV$9!#(B{\em m}$@$O!"(B{\bf constrained-motion}
+$@$+$iJV$5$l$kF0:n$N%j%9%H$G$"$k!#(B}
 
-\funcdesc{draw-constraint}{c}{$@94B+(J{\em c}$@$rIA$/!#(J}
+\funcdesc{draw-constraint}{c}{$@94B+(B{\em c}$@$rIA$/!#(B}
 
-\funcdesc{draw-motion}{m a b}{{\em a}$@$,(J{\em b}$@$K@\?($7$F$$$k$H$-$K(J
-$@<h$jF@$kF0:n$rIA$/!#%j%?!<%s%-!<$r2!$9$3$H$K$h$jIA2h$r;O$a$k!#(J}
+\funcdesc{draw-motion}{m a b}{{\em a}$@$,(B{\em b}$@$K@\?($7$F$$$k$H$-$K(B
+$@<h$jF@$kF0:n$rIA$/!#%j%?!<%s%-!<$r2!$9$3$H$K$h$jIA2h$r;O$a$k!#(B}
 \end{refdesc}
 Example\\
 \begin{verbatim}
@@ -50,7 +50,7 @@
 (draw-motion m)
 \end{verbatim}
 \clearpage
-$@94B+$NNc$r<!$N?^$G<($9!#?^$N>.$5$JLp0u$O!$%Z%0$KBP$9$k94B+$r<($9!#(J
+$@94B+$NNc$r<!$N?^$G<($9!#?^$N>.$5$JLp0u$O!$%Z%0$KBP$9$k94B+$r<($9!#(B
 \\
 \begin{figure}[h]
 \epsfile{file=fig/fig-peg-in-hole1.ps,width=7.9cm}
@@ -61,8 +61,8 @@
 \label{fig:peg-in-hole}
 \end{figure}
 \clearpage
-$@%Z%0$r7j$KF~$l$k:n6H$K$*$$$F<h$jF@$kF0:n$NNc$r<!$N?^$G<($9!#(J
-$@$3$NNc$O!$>e5-$N%W%m%0%i%`$H0lCW$7$F$$$k!#(J
+$@%Z%0$r7j$KF~$l$k:n6H$K$*$$$F<h$jF@$kF0:n$NNc$r<!$N?^$G<($9!#(B
+$@$3$NNc$O!$>e5-$N%W%m%0%i%`$H0lCW$7$F$$$k!#(B
 \begin{figure}[h]
 \begin{center}
 \epsfile{file=fig/fig-peg-naname-m1.ps,width=7.9cm}

Modified: trunk/EusLisp/doc/jlatex/jcontrols.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jcontrols.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jcontrols.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,164 +1,164 @@
-\section{$@@)8f9=B$(J}
-\markright{\arabic{section}. $@@)8f9=B$(J}
-\subsection{$@>r7oJ8(J}
+\section{$@@)8f9=B$(B}
+\markright{\arabic{section}. $@@)8f9=B$(B}
+\subsection{$@>r7oJ8(B}
 
-{\bf and,or}$@$*$h$S(J{\bf cond}$@$O!"(JCommon Lisp$@$K$*$$$F%^%/%m$H$7$FCN$i$l$F$$$k$,!"(J
-EusLisp$@$G$O%$%s%?%W%j%?;~$N8zN($r2~A1$9$k$?$a$KFC<l=q<0$H$7$F<B9T$5$l$k!#(J
+{\bf and,or}$@$*$h$S(B{\bf cond}$@$O!"(BCommon Lisp$@$K$*$$$F%^%/%m$H$7$FCN$i$l$F$$$k$,!"(B
+EusLisp$@$G$O%$%s%?%W%j%?;~$N8zN($r2~A1$9$k$?$a$KFC<l=q<0$H$7$F<B9T$5$l$k!#(B
 
 \begin{refdesc}
 \specialdesc{and}{\{form\}*}{
-{\em form}$@$O!"(JNIL$@$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(J
-$@$b$7!"A4$F$N=q<0$,(Jnon-NIL$@$H$7$FI>2A$5$l$k$J$i$P!"(J
-$@:G8e$NCM$,JV$5$l$k!#(J}
+{\em form}$@$O!"(BNIL$@$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(B
+$@$b$7!"A4$F$N=q<0$,(Bnon-NIL$@$H$7$FI>2A$5$l$k$J$i$P!"(B
+$@:G8e$NCM$,JV$5$l$k!#(B}
 
 \specialdesc{or}{\{form\}*}{
-{\em form}$@$O!"(Jnon-NIL$@CM$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(J
-$@$=$7$F!"$=$NCM$,JV$5$l$k!#(J
-$@$b$7!"A4$F$N=q<0$,(JNIL$@$H$7$FI>2A$5$l$k$J$i$P!"(JNIL$@$rJV$9!#(J}
+{\em form}$@$O!"(Bnon-NIL$@CM$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(B
+$@$=$7$F!"$=$NCM$,JV$5$l$k!#(B
+$@$b$7!"A4$F$N=q<0$,(BNIL$@$H$7$FI>2A$5$l$k$J$i$P!"(BNIL$@$rJV$9!#(B}
 
 \specialdesc{if}{test then [else]}{
-{\bf if}$@$O!"#1$D$N(J{\it then}$@$H(J{\it else}$@=q<0$N$_$r;}$D$3$H$,$G$-$k!#(J
-$@$=$3$KB?=E=q<0$r=q$-$?$$$H$-$O!"(J{\bf progn}$@$r;H$C$F(J
-$@%0%k!<%W2=$7$J$1$l$P$J$i$J$$!#(J}
+{\bf if}$@$O!"#1$D$N(B{\it then}$@$H(B{\it else}$@=q<0$N$_$r;}$D$3$H$,$G$-$k!#(B
+$@$=$3$KB?=E=q<0$r=q$-$?$$$H$-$O!"(B{\bf progn}$@$r;H$C$F(B
+$@%0%k!<%W2=$7$J$1$l$P$J$i$J$$!#(B}
 
 \macrodesc{when}{test forms}{
-{\bf if}$@$H0c$C$F!"(J
-{\bf when}$@$H(J{\bf unless}$@$O!"B?=E(J{\em $@=q<0(J}$@$G=q$/$3$H$r5v2D$7$F$$$k!#(J
-{\em test}$@$NI>2A$,(Jnon-NIL$@$N$H$-!"(J{\bf when}$@$O<B9T$5$l!"(J
-$@I>2A$,(JNIL$@$N$H$-!"(J{\em unless}$@$O<B9T$5$l$k!#(J
-$@$b$&0lJ}$G!"$3$l$i$N%^%/%m$O(J{\em else}$@=q<0$rDI2C$9$k$3$H$r(J
-$@5v2D$7$F$$$J$$!#(J}
+{\bf if}$@$H0c$C$F!"(B
+{\bf when}$@$H(B{\bf unless}$@$O!"B?=E(B{\em $@=q<0(B}$@$G=q$/$3$H$r5v2D$7$F$$$k!#(B
+{\em test}$@$NI>2A$,(Bnon-NIL$@$N$H$-!"(B{\bf when}$@$O<B9T$5$l!"(B
+$@I>2A$,(BNIL$@$N$H$-!"(B{\em unless}$@$O<B9T$5$l$k!#(B
+$@$b$&0lJ}$G!"$3$l$i$N%^%/%m$O(B{\em else}$@=q<0$rDI2C$9$k$3$H$r(B
+$@5v2D$7$F$$$J$$!#(B}
 
 \macrodesc{unless}{test forms}{
-{\tt(when (not {\em test}) . {\em forms})}$@$HF1Ey$G$"$k!#(J}
+{\tt(when (not {\em test}) . {\em forms})}$@$HF1Ey$G$"$k!#(B}
 
 \specialdesc{cond}{{(test \{form\}*)}*}{
-$@G$0U$N?t$N>r7o9`$O!"(J{\bf cond}$@$N8e$KB3$1$k$3$H$,$G$-$k!#(J
-$@$=$l$>$l$N>r7o9`$K$*$$$F!":G=i$N=q<0(J{\em test}$@$,I>2A$5$l$k!#(J
-$@$b$7!"(Jnon-NIL$@$G$"$C$?$H$-!"$=$N>r7o9`$N;D$j$N=q<0$O!"B3$$$FI>2A$5$l$k!#(J
-$@$=$7$F!":G8e$NCM$,JV$5$l$k!#(J
-$@$b$7!"(J{\em test}$@$N$"$H$K=q<0$,$J$+$C$?$J$i$P!"(J
-{\em test}$@$NCM$,JV$5$l$k!#(J
-{\em test}$@$,<:GT$7$?$H$-!"<!$N>r7o9`$O(J{\em test}$@$,(Jnon-NIL$@I>2A$5$l$k$+$^$?$O(J
-$@A4$F$N>r7o9`$,?T$-$F$7$^$&$^$G7+$jJV$5$l$k!#(J
-$@>r7o9`$,?T$-$F$7$^$C$?>l9g!"(J{\bf cond}$@$O(JNIL$@$rJV$9!#(J}
+$@G$0U$N?t$N>r7o9`$O!"(B{\bf cond}$@$N8e$KB3$1$k$3$H$,$G$-$k!#(B
+$@$=$l$>$l$N>r7o9`$K$*$$$F!":G=i$N=q<0(B{\em test}$@$,I>2A$5$l$k!#(B
+$@$b$7!"(Bnon-NIL$@$G$"$C$?$H$-!"$=$N>r7o9`$N;D$j$N=q<0$O!"B3$$$FI>2A$5$l$k!#(B
+$@$=$7$F!":G8e$NCM$,JV$5$l$k!#(B
+$@$b$7!"(B{\em test}$@$N$"$H$K=q<0$,$J$+$C$?$J$i$P!"(B
+{\em test}$@$NCM$,JV$5$l$k!#(B
+{\em test}$@$,<:GT$7$?$H$-!"<!$N>r7o9`$O(B{\em test}$@$,(Bnon-NIL$@I>2A$5$l$k$+$^$?$O(B
+$@A4$F$N>r7o9`$,?T$-$F$7$^$&$^$G7+$jJV$5$l$k!#(B
+$@>r7o9`$,?T$-$F$7$^$C$?>l9g!"(B{\bf cond}$@$O(BNIL$@$rJV$9!#(B}
 
 \macrodesc{case}{key \{(\{label $|$ (\{lab\}*) \{form\}*)\}*}{
-{\em key}$@$H(J{\em label}$@$,0lCW$7$?>r7o9`$K$D$$$F!"(J
-{\em form}$@$,I>2A$5$l!":G8e$NCM$,JV$5$l$k!#(J
-{\em key}$@$H(J{\em label}$@$N4V$NEy2A$O!"(J{\bf eq}$@$^$?$O(J
-{\bf memq}$@$G9T$o$l!"(J{\bf equal}$@$G$O$J$$!#(J}
+{\em key}$@$H(B{\em label}$@$,0lCW$7$?>r7o9`$K$D$$$F!"(B
+{\em form}$@$,I>2A$5$l!":G8e$NCM$,JV$5$l$k!#(B
+{\em key}$@$H(B{\em label}$@$N4V$NEy2A$O!"(B{\bf eq}$@$^$?$O(B
+{\bf memq}$@$G9T$o$l!"(B{\bf equal}$@$G$O$J$$!#(B}
 
 \end{refdesc}
 
-\subsection{$@C`<!<B9T$H(JLet}
+\subsection{$@C`<!<B9T$H(BLet}
 
 \begin{refdesc}
 \funcdesc{prog1}{form1 \&rest forms}{
-{\em form1}$@$H(J{\em forms}$@$O!"<!!9$HI>2A$5$l!"(J
-{\em form1}$@$+$iJV$5$l$kCM$,(J{\bf prog1}$@$NCM$H$7$FJV$5$l$k!#(J}
+{\em form1}$@$H(B{\em forms}$@$O!"<!!9$HI>2A$5$l!"(B
+{\em form1}$@$+$iJV$5$l$kCM$,(B{\bf prog1}$@$NCM$H$7$FJV$5$l$k!#(B}
 
 \specialdesc{progn}{\{form\}*}{
-{\em form}$@$O<!!9$KI>2A$5$l!":G8e$N(J{\em form}$@$NCM$,JV$5$l$k!#(J
-{\bf progn}$@$OFC<l=q<0$G$"$k!#$J$<$J$i!"%U%!%$%k$N:G=i$K8=$l$?$H$-(J
-$@FCJL$J0UL#$r;}$D$+$i$G$"$k!#(J
-$@$=$N$h$&$J=q<0$,%3%s%Q%$%k$5$l$?$H$-!"FbIt=q<0$O$9$Y$F:G=i$K8=$l$?(J
-$@$H$7$F8+$J$9!#(J
-$@%^%/%m$,(J{\bf defun}$@$d(J{\bf defmethod}$@$NO"B3$G3HD%$5$l$k>l9g!"$=$l$,:G=i$K(J
-$@8=$o$l$J$1$l$P$J$i$J$$$H$-$KLrN)$D!#(J}
+{\em form}$@$O<!!9$KI>2A$5$l!":G8e$N(B{\em form}$@$NCM$,JV$5$l$k!#(B
+{\bf progn}$@$OFC<l=q<0$G$"$k!#$J$<$J$i!"%U%!%$%k$N:G=i$K8=$l$?$H$-(B
+$@FCJL$J0UL#$r;}$D$+$i$G$"$k!#(B
+$@$=$N$h$&$J=q<0$,%3%s%Q%$%k$5$l$?$H$-!"FbIt=q<0$O$9$Y$F:G=i$K8=$l$?(B
+$@$H$7$F8+$J$9!#(B
+$@%^%/%m$,(B{\bf defun}$@$d(B{\bf defmethod}$@$NO"B3$G3HD%$5$l$k>l9g!"$=$l$,:G=i$K(B
+$@8=$o$l$J$1$l$P$J$i$J$$$H$-$KLrN)$D!#(B}
 
 \macrodesc{setf}{\{access-form value\}*}{
-{\em value}$@$r0lHL2=JQ?t(J{\em access-form}$@$K3d$jEv$F$k!#(J}
+{\em value}$@$r0lHL2=JQ?t(B{\em access-form}$@$K3d$jEv$F$k!#(B}
 
 \specialdesc{let}{(\{var $|$ (var [value])\}*) \{declare\}* \{form\}*}{
-$@%m!<%+%kJQ?t$r@8@.$9$k!#(J
-$@$9$Y$F$N(J{\em value}$@$OI>2A$5$l!"JB9T$7$F(J{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(J
-{\tt (let ((a 1)) (let ((a (1+ a)) (b a)) (list a b)))} $@$N7k2L$O(J
-(2 1)$@$G$"$k!#(J}
+$@%m!<%+%kJQ?t$r@8@.$9$k!#(B
+$@$9$Y$F$N(B{\em value}$@$OI>2A$5$l!"JB9T$7$F(B{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(B
+{\tt (let ((a 1)) (let ((a (1+ a)) (b a)) (list a b)))} $@$N7k2L$O(B
+(2 1)$@$G$"$k!#(B}
 
 \specialdesc{let*}{(\{var $|$ (var [value])\}*) \{declare\}* \{form\}*}{
-$@%m!<%+%kJQ?t$r@8@.$9$k!#(J
-$@A4$F$N(J{\em value}$@$O<!!9$KI>2A$5$l!"(J{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(J
-{\tt (let ((a 1)) (let* ((a (1+ a)) (b a)) (list a b)))}$@$N7k2L$O(J
-(2 2)$@$G$"$k!#(J}
+$@%m!<%+%kJQ?t$r@8@.$9$k!#(B
+$@A4$F$N(B{\em value}$@$O<!!9$KI>2A$5$l!"(B{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(B
+{\tt (let ((a 1)) (let* ((a (1+ a)) (b a)) (list a b)))}$@$N7k2L$O(B
+(2 2)$@$G$"$k!#(B}
 \end{refdesc}
 
-\subsection{$@%m!<%+%k4X?t(J}
+\subsection{$@%m!<%+%k4X?t(B}
 \begin{refdesc}
 \specialdesc{flet}{ (\{(fname lambda-list . body)\}*) \{form\}*}{
-$@%m!<%+%k4X?t$rDj5A$9$k!#(J}
+$@%m!<%+%k4X?t$rDj5A$9$k!#(B}
 
 \specialdesc{labels}{ (\{(fname lambda-list . body)\}*) \{form\}*}{
-$@%m!<%+%k$J%9%3!<%W$H$J$k4X?t$rDj5A$9$k!#(J
-{\bf flet}$@$H(J{\bf labels}$@$H$N0c$$$O!"(J
-{\bf flet}$@$GDj5A$5$l$?%m!<%+%k4X?t$O!"$=$NB>$N4X?t$r;2>H$^$?$O:F5"$G$-$J$$$,!"(J
-{\bf labels}$@$OAj8_$N;2>H$r5v2D$9$k!#(J}
+$@%m!<%+%k$J%9%3!<%W$H$J$k4X?t$rDj5A$9$k!#(B
+{\bf flet}$@$H(B{\bf labels}$@$H$N0c$$$O!"(B
+{\bf flet}$@$GDj5A$5$l$?%m!<%+%k4X?t$O!"$=$NB>$N4X?t$r;2>H$^$?$O:F5"$G$-$J$$$,!"(B
+{\bf labels}$@$OAj8_$N;2>H$r5v2D$9$k!#(B}
 \end{refdesc}
 
-\subsection{$@%V%m%C%/$H(JExit}
+\subsection{$@%V%m%C%/$H(BExit}
 \begin{refdesc}
 \specialdesc{block}{tag \{form\}*}{
-{\bf return-from}$@$K$h$C$FC&=P2DG=$J%m!<%+%k%V%m%C%/$r:n$k!#(J
-{\em tag}$@$O!"%m!<%+%k$K%9%3!<%W$5$l!"I>2A$5$l$J$$!#(J}
+{\bf return-from}$@$K$h$C$FC&=P2DG=$J%m!<%+%k%V%m%C%/$r:n$k!#(B
+{\em tag}$@$O!"%m!<%+%k$K%9%3!<%W$5$l!"I>2A$5$l$J$$!#(B}
 
 \specialdesc{return-from}{tag value}{
-{\em tag}$@$K$h$C$F<($5$l$?%V%m%C%/$rC&=P$9$k!#(J
-{\bf return-from}$@$O!"4X?t$d%a%=%C%I$+$iC&=P$9$k$H$-$K;HMQ$5$l$k!#(J
-$@4X?t$d%a%=%C%I$O!"$=$NK\BN$r$9$Y$F<h$j0O$s$@ItJ,$r%V%m%C%/$H$7$F(J
-$@<+F0E*$K3NDj$5$l!"$=$N4X?t$^$?$O%a%=%C%I$NL>A0$rIU$1$k!#(J}
+{\em tag}$@$K$h$C$F<($5$l$?%V%m%C%/$rC&=P$9$k!#(B
+{\bf return-from}$@$O!"4X?t$d%a%=%C%I$+$iC&=P$9$k$H$-$K;HMQ$5$l$k!#(B
+$@4X?t$d%a%=%C%I$O!"$=$NK\BN$r$9$Y$F<h$j0O$s$@ItJ,$r%V%m%C%/$H$7$F(B
+$@<+F0E*$K3NDj$5$l!"$=$N4X?t$^$?$O%a%=%C%I$NL>A0$rIU$1$k!#(B}
 
 \macrodesc{return}{value}{
-{\tt  (return x)}$@$O!"(J{\tt (return-from nil x)}$@$HF1Ey$G$"$k!#(J
-{\bf loop, while, do, dolist, dotimes}$@$O!"0EL[E*$K(JNIL$@$HL>A0$,IU$1$i$l$?(J
-$@%V%m%C%/$H$7$F3NDj$5$l$k$?$a!"$3$l$i$NFC<l=q<0$HAH$_9g$o$;$F;HMQ$9$k!#(J}
+{\tt  (return x)}$@$O!"(B{\tt (return-from nil x)}$@$HF1Ey$G$"$k!#(B
+{\bf loop, while, do, dolist, dotimes}$@$O!"0EL[E*$K(BNIL$@$HL>A0$,IU$1$i$l$?(B
+$@%V%m%C%/$H$7$F3NDj$5$l$k$?$a!"$3$l$i$NFC<l=q<0$HAH$_9g$o$;$F;HMQ$9$k!#(B}
 
 \specialdesc{catch}{ tag \{form\}*}{
-{\bf throw}$@$K$h$C$FC&=P$^$?$OCM$rJV$9$?$a$NF0E*$J%V%m%C%/$r3NDj$9$k!#(J
-{\em tag}$@$OI>2A$5$l$k!#(J
+{\bf throw}$@$K$h$C$FC&=P$^$?$OCM$rJV$9$?$a$NF0E*$J%V%m%C%/$r3NDj$9$k!#(B
+{\em tag}$@$OI>2A$5$l$k!#(B
 
-$@A4$F8+$($k(J{\bf catch}$@$N(J{\em tag}$@$O!"(J{\tt sys:list-all-catchers}$@$+$iF@$k$3$H$,$G$-$k!#(J}
+$@A4$F8+$($k(B{\bf catch}$@$N(B{\em tag}$@$O!"(B{\tt sys:list-all-catchers}$@$+$iF@$k$3$H$,$G$-$k!#(B}
 
 \specialdesc{throw}{tag value}{
-{\bf catch}$@%V%m%C%/$+$iC&=P$^$?$O(J{\em value}$@$rJV$9!#(J
-{\em tag}$@$H(J{\em value}$@$OI>2A$5$l$k!#(J}
+{\bf catch}$@%V%m%C%/$+$iC&=P$^$?$O(B{\em value}$@$rJV$9!#(B
+{\em tag}$@$H(B{\em value}$@$OI>2A$5$l$k!#(B}
 
 \specialdesc{unwind-protect}{protected-form \{cleanup-form\}*}{
-{\em protected-form}$@$NI>2A$,=*$C$?8e!"(J
-{\em cleanup-form}$@$,I>2A$5$l$k!#(J
-{\bf unwind-protect}$@$N30B&$K%V%m%C%/$^$?$O(J{\bf catch}
-$@%V%m%C%/$r:n$C$F$b9=$o$J$$!#(J
+{\em protected-form}$@$NI>2A$,=*$C$?8e!"(B
+{\em cleanup-form}$@$,I>2A$5$l$k!#(B
+{\bf unwind-protect}$@$N30B&$K%V%m%C%/$^$?$O(B{\bf catch}
+$@%V%m%C%/$r:n$C$F$b9=$o$J$$!#(B
 
-{\bf return-from}$@$d(J{\bf throw}$@$G$5$(!"$=$N$h$&$J%V%m%C%/$+$i(J
-$@H4$1=P$9$?$a$K$O(J{\em protected-form}$@$NCf$G<B9T$5$l$k!#(J
-{\em cleanup-form}$@$O!"I>2A$5$l$k$3$H$,J]>Z$5$l$F$$$k!#(J
-$@$^$?!"$b$7(J{\em protected-form}$@$,<B9T$5$l$F$$$k4V$K%(%i!<$,5/$3$C$?$J$i$P!"(J
-{\em cleanup-form}$@$O$$$D$b(J{\bf reset}$@$K$h$C$F<B9T$5$l$k!#(J}
+{\bf return-from}$@$d(B{\bf throw}$@$G$5$(!"$=$N$h$&$J%V%m%C%/$+$i(B
+$@H4$1=P$9$?$a$K$O(B{\em protected-form}$@$NCf$G<B9T$5$l$k!#(B
+{\em cleanup-form}$@$O!"I>2A$5$l$k$3$H$,J]>Z$5$l$F$$$k!#(B
+$@$^$?!"$b$7(B{\em protected-form}$@$,<B9T$5$l$F$$$k4V$K%(%i!<$,5/$3$C$?$J$i$P!"(B
+{\em cleanup-form}$@$O$$$D$b(B{\bf reset}$@$K$h$C$F<B9T$5$l$k!#(B}
 
 \end{refdesc}
 
-\subsection{$@7+JV$7(J}
+\subsection{$@7+JV$7(B}
 
 \begin{refdesc}
 
 \specialdesc{while}{test \{form\}*}{
-{\em test}$@$,(Jnon-NIL$@$HI>2A$5$l$F$$$k4V!"(J
-{\em form}$@$O!"7+JV$7I>2A$5$l$k!#(J
-{\bf while}$@$O!"(J{\em form}$@$N$^$o$j$K(JNIL$@$HL>IU$1$i$l$k%V%m%C%/$r<+F0E*$K3NDj$9$k(J
-$@FC<l=q<0$G$"$k!#(J
-{\bf return}$@$O!"$=$N%k!<%W$+$iH4$1=P$9$?$a$K;HMQ$9$k$3$H$,$G$-$k!#(J}
+{\em test}$@$,(Bnon-NIL$@$HI>2A$5$l$F$$$k4V!"(B
+{\em form}$@$O!"7+JV$7I>2A$5$l$k!#(B
+{\bf while}$@$O!"(B{\em form}$@$N$^$o$j$K(BNIL$@$HL>IU$1$i$l$k%V%m%C%/$r<+F0E*$K3NDj$9$k(B
+$@FC<l=q<0$G$"$k!#(B
+{\bf return}$@$O!"$=$N%k!<%W$+$iH4$1=P$9$?$a$K;HMQ$9$k$3$H$,$G$-$k!#(B}
 
 \specialdesc{tagbody}{\{tag $|$ statement\}*}{
-{\em tag}$@$O!"(J{\bf go}$@$N$?$a$KL>IU$1$i$l$k!#(J
-{\bf tagbody}$@$NCf$N$_(J{\bf go}$@$r;HMQ$9$k$3$H$,$G$-$k!#(J}
+{\em tag}$@$O!"(B{\bf go}$@$N$?$a$KL>IU$1$i$l$k!#(B
+{\bf tagbody}$@$NCf$N$_(B{\bf go}$@$r;HMQ$9$k$3$H$,$G$-$k!#(B}
 
 \specialdesc{go}{tag}{
-$@%m!<%+%k$K%9%3!<%W$5$l$?(J{\bf tagbody}$@$N$J$+$K8=$l$k(J{\em tag}$@$ND>8e$N(J
-$@=q<0$K@)8f$r0\$9!#(J
-$@%m!<%+%k%9%3!<%W$r2#@Z$C$F0c$&(J{\bf tagbody}$@$N(Jtag$@$K@)8f$r0\$9$3$H$O(J
-$@6X;_$5$l$F$$$k!#(J}
+$@%m!<%+%k$K%9%3!<%W$5$l$?(B{\bf tagbody}$@$N$J$+$K8=$l$k(B{\em tag}$@$ND>8e$N(B
+$@=q<0$K@)8f$r0\$9!#(B
+$@%m!<%+%k%9%3!<%W$r2#@Z$C$F0c$&(B{\bf tagbody}$@$N(Btag$@$K@)8f$r0\$9$3$H$O(B
+$@6X;_$5$l$F$$$k!#(B}
 
 \macrodesc{prog}{(\{var $|$ (var [init])\}*) \{tag $|$ statement\}*}{
-{\bf prog}$@$O%^%/%m$G!"0J2<$N$h$&$KE83+$5$l$k!#(J
+{\bf prog}$@$O%^%/%m$G!"0J2<$N$h$&$KE83+$5$l$k!#(B
 \ptext{
 (block nil 
     (let {\em var}
@@ -168,92 +168,92 @@
 
 \macrodesc{do}{(\{(var init [next])\}*) (endtest [result])\{declare\} \{form\}
 *}
-{{\em var}$@$O%m!<%+%kJQ?t$G$"$k!#(J
-$@$=$l$>$l$N(J{\em var}$@$K!"(J{\em init}$@$OJB9T$KI>2A$5$l!"3d$jEv$F$i$l$k!#(J
-$@$D$.$K!"(J{\em endtest}$@$,I>2A$5$l!"$b$7??$N$H$-(J{\bf do}$@$O(J{\em result}$@$rJV$9!#(J
- ($@$=$&$G$J$$$H$-$O!"(JNIL$@$rJV$9(J)
-$@$b$7(J{\em endtest}$@$,(JNIL$@$rJV$7$?$J$i$P!"$=$l$>$l$N(J{\em form}$@$O!"(J
-$@=gHV$KI>2A$5$l$k!#(J
-$@=q<0$NI>2A8e!"(J{\em next}$@$,I>2A$5$l!"$=$NCM$O(J
-$@$=$l$>$l$N(J{\em var}$@$K:F3dEv$5$l!"<!$N7+JV$7$,;O$^$k!#(J}
+{{\em var}$@$O%m!<%+%kJQ?t$G$"$k!#(B
+$@$=$l$>$l$N(B{\em var}$@$K!"(B{\em init}$@$OJB9T$KI>2A$5$l!"3d$jEv$F$i$l$k!#(B
+$@$D$.$K!"(B{\em endtest}$@$,I>2A$5$l!"$b$7??$N$H$-(B{\bf do}$@$O(B{\em result}$@$rJV$9!#(B
+ ($@$=$&$G$J$$$H$-$O!"(BNIL$@$rJV$9(B)
+$@$b$7(B{\em endtest}$@$,(BNIL$@$rJV$7$?$J$i$P!"$=$l$>$l$N(B{\em form}$@$O!"(B
+$@=gHV$KI>2A$5$l$k!#(B
+$@=q<0$NI>2A8e!"(B{\em next}$@$,I>2A$5$l!"$=$NCM$O(B
+$@$=$l$>$l$N(B{\em var}$@$K:F3dEv$5$l!"<!$N7+JV$7$,;O$^$k!#(B}
 
 \macrodesc{do*}{(\{var init [next]\}*) (endtest [result])\{declare\} \{form\}*}
-{{\bf do*}$@$O!"(J{\em init}$@$H(J{\em next}$@$NI>2A$H(J
-{\em var}$@$X$N3d$jEv$F$,O"B3E*$K5/$3$k$3$H$r=|$$$F!"(J{\bf do}$@$HF1MM$G$"$k!#(J}
+{{\bf do*}$@$O!"(B{\em init}$@$H(B{\em next}$@$NI>2A$H(B
+{\em var}$@$X$N3d$jEv$F$,O"B3E*$K5/$3$k$3$H$r=|$$$F!"(B{\bf do}$@$HF1MM$G$"$k!#(B}
 
 \macrodesc{dotimes}{(var count [result]) \{forms\}*}{
-{\em forms}$@$NI>2A$r(J{\em count}$@2s9T$&!#(J
-{\em count}$@$O!"0l2s$N$_I>2A$5$l$k!#(J
-$@$=$l$>$l$NI>2A$NCf$G!"(J{\em var}$@$O@0?t$N%<%m$+$i(J
-{\em count}-1$@$^$GA}2C$9$k!#(J}
+{\em forms}$@$NI>2A$r(B{\em count}$@2s9T$&!#(B
+{\em count}$@$O!"0l2s$N$_I>2A$5$l$k!#(B
+$@$=$l$>$l$NI>2A$NCf$G!"(B{\em var}$@$O@0?t$N%<%m$+$i(B
+{\em count}-1$@$^$GA}2C$9$k!#(B}
 
 \macrodesc{dolist}{(var list [result]) \{forms\}*}{
-{\em list}$@$N$=$l$>$l$NMWAG$O!"(J{\em var}$@$KO"B3E*$KM?$($i$l$k!#(J
-$@$=$7$F(J{\em forms}$@$O!"$=$l$>$l$NCM$GI>2A$5$l$k!#(J
-{\bf dolist}$@$O!"B>$N7+JV$7$h$jAa$/<B9T$5$l$k!#$?$H$($P!"(J
-{\bf mapcar}$@$d:F5"E*4X?t$N$h$&$J$b$N$h$j!#(J
-$@$=$l$O!"(J{\bf dolist}$@$,4X?t$N(Jclosure$@$r:n$C$?$jE,MQ$7$?$j$9$kI,MW$,(J
-$@$J$/!"?7$7$$%Q%i%a!<%?$N%P%$%s%I$,I,MW$G$J$$$?$a!#(J}
+{\em list}$@$N$=$l$>$l$NMWAG$O!"(B{\em var}$@$KO"B3E*$KM?$($i$l$k!#(B
+$@$=$7$F(B{\em forms}$@$O!"$=$l$>$l$NCM$GI>2A$5$l$k!#(B
+{\bf dolist}$@$O!"B>$N7+JV$7$h$jAa$/<B9T$5$l$k!#$?$H$($P!"(B
+{\bf mapcar}$@$d:F5"E*4X?t$N$h$&$J$b$N$h$j!#(B
+$@$=$l$O!"(B{\bf dolist}$@$,4X?t$N(Bclosure$@$r:n$C$?$jE,MQ$7$?$j$9$kI,MW$,(B
+$@$J$/!"?7$7$$%Q%i%a!<%?$N%P%$%s%I$,I,MW$G$J$$$?$a!#(B}
 
 \macrodesc{until}{condition \{forms\}*}{
-{\em condition}$@$,K~$?$5$l$F$$$k4V!"(J{\em forms}$@$rI>2A$9$k!#(J}
+{\em condition}$@$,K~$?$5$l$F$$$k4V!"(B{\em forms}$@$rI>2A$9$k!#(B}
 
 \macrodesc{loop}{\{forms\}*}{
-{\em forms}$@$r1J1s$KI>2A$9$k!#(J
-$@<B9T$r;_$a$k$?$a$K$O!"(J{\bf return-from, throw}$@$^$?$O(J{\bf go}$@$,(J
-{\em forms}$@$N$J$+$GI>2A$5$l$J$1$l$P$J$i$J$$!#(J}
+{\em forms}$@$r1J1s$KI>2A$9$k!#(B
+$@<B9T$r;_$a$k$?$a$K$O!"(B{\bf return-from, throw}$@$^$?$O(B{\bf go}$@$,(B
+{\em forms}$@$N$J$+$GI>2A$5$l$J$1$l$P$J$i$J$$!#(B}
 
-\subsection{$@=R8l(J}
+\subsection{$@=R8l(B}
 
-Common Lisp$@$N(J{\bf typep}$@$H(J{\bf subtypep}$@$O$J$$$N$G!"(J
-{\bf subclassp}$@$d(J{\bf derivedp}$@$G5?;w<B8=$9$k$3$H!#(J
+Common Lisp$@$N(B{\bf typep}$@$H(B{\bf subtypep}$@$O$J$$$N$G!"(B
+{\bf subclassp}$@$d(B{\bf derivedp}$@$G5?;w<B8=$9$k$3$H!#(B
 
 \begin{refdesc}
 
-\funcdesc{eq}{obj1 obj2}{{\em obj1}$@$H(J{\em obj2}$@$,F1$8%*%V%8%'%/%H$r;X$9%]%$%s%?$"$k$$$OF1$8(J
-$@?tCM$N$H$-(JT$@$rJV$9!#(J
-$@Nc$($P(J:{\tt (eq 'a 'a)}$@$O(JT$@!"(J{\tt (eq 1 1)}$@$O(JT$@!"(J{\tt (eq 1. 1.0)}$@$O(JNIL$@!"(J
-{\tt (eq "a" "a")}$@$O(JNIL$@$G$"$k!#(J}
+\funcdesc{eq}{obj1 obj2}{{\em obj1}$@$H(B{\em obj2}$@$,F1$8%*%V%8%'%/%H$r;X$9%]%$%s%?$"$k$$$OF1$8(B
+$@?tCM$N$H$-(BT$@$rJV$9!#(B
+$@Nc$($P(B:{\tt (eq 'a 'a)}$@$O(BT$@!"(B{\tt (eq 1 1)}$@$O(BT$@!"(B{\tt (eq 1. 1.0)}$@$O(BNIL$@!"(B
+{\tt (eq "a" "a")}$@$O(BNIL$@$G$"$k!#(B}
 \funcdesc{eql}{obj1 obj2}{
-EusLisp$@$NCf$G?tCM$OA4$FD>@\CM$GI=8=$5$l$k$?$a!"(J{\bf eq}$@$H(J{\bf eql}$@$O(J
-$@F10l$G$"$k!#(J}
+EusLisp$@$NCf$G?tCM$OA4$FD>@\CM$GI=8=$5$l$k$?$a!"(B{\bf eq}$@$H(B{\bf eql}$@$O(B
+$@F10l$G$"$k!#(B}
 \funcdesc{equal}{obj1 obj2}{
-$@$$$m$s$J9=B$$N%*%V%8%'%/%H$NEy2A@-$r%A%'%C%/$9$k!#%*%V%8%'%/%H$O!"J8;zNs!&%Y%/%H%k!&(J
-$@9TNs$J$I$G:F5"E*$K;2>H$7$F$J$$$3$H$,J]>Z$5$l$J$1$l$P$J$i$J$$!#(J
-{\em obj1}$@$d(J{\em obj2}$@$,:F5"E*$K;2>H$5$l$F$$$?$H$9$k$H!"(J
-{\bf equal}$@$OL58B%k!<%W$H$J$k!#(J}
+$@$$$m$s$J9=B$$N%*%V%8%'%/%H$NEy2A@-$r%A%'%C%/$9$k!#%*%V%8%'%/%H$O!"J8;zNs!&%Y%/%H%k!&(B
+$@9TNs$J$I$G:F5"E*$K;2>H$7$F$J$$$3$H$,J]>Z$5$l$J$1$l$P$J$i$J$$!#(B
+{\em obj1}$@$d(B{\em obj2}$@$,:F5"E*$K;2>H$5$l$F$$$?$H$9$k$H!"(B
+{\bf equal}$@$OL58B%k!<%W$H$J$k!#(B}
 \funcdesc{superequal}{obj1 obj2}{
-{\bf superequal}$@$O!"4D>u;2>H$r%A%'%C%/$9$k$N$GCY$$!#$7$+$7%m%P%9%H$JEy2A$,F@$i$l$k!#(J}
+{\bf superequal}$@$O!"4D>u;2>H$r%A%'%C%/$9$k$N$GCY$$!#$7$+$7%m%P%9%H$JEy2A$,F@$i$l$k!#(B}
 
-\funcdesc{null}{object}{{\em object}$@$,(JNIL$@$N$H$-!"(JT$@$rJV$9!#(J
-{\tt (eq {\em object} nil)}$@$rI>2A$9$k!#(J}
+\funcdesc{null}{object}{{\em object}$@$,(BNIL$@$N$H$-!"(BT$@$rJV$9!#(B
+{\tt (eq {\em object} nil)}$@$rI>2A$9$k!#(B}
 \funcdesc{not}{object}{
-{\bf not}$@$O!"(J{\bf null}$@$HF10l$G$"$k!#(J}
+{\bf not}$@$O!"(B{\bf null}$@$HF10l$G$"$k!#(B}
 \funcdesc{atom}{object}{
-$@%*%V%8%'%/%H$,(Jcons$@$N%$%s%9%?%s%9$G$"$k;~$N$_!"(JNIL$@$rJV$9!#(J
+$@%*%V%8%'%/%H$,(Bcons$@$N%$%s%9%?%s%9$G$"$k;~$N$_!"(BNIL$@$rJV$9!#(B
 {\tt (atom nil) = (atom '()) = T)}\\
-$@Cm0U(J:vectors, strings, read-table, hash-table$@$J$I$KBP$7$F$O!"$=$l$i$,$I$s$J$K(J
-$@J#;($J%*%V%8%'%/%H$H$J$C$F$$$F$b(J{\bf atom}$@$O(JT$@$rJV$9!#(J}
+$@Cm0U(B:vectors, strings, read-table, hash-table$@$J$I$KBP$7$F$O!"$=$l$i$,$I$s$J$K(B
+$@J#;($J%*%V%8%'%/%H$H$J$C$F$$$F$b(B{\bf atom}$@$O(BT$@$rJV$9!#(B}
 \funcdesc{every}{pred \&rest args}{
-$@A4$F$N(J{\em args}$@$,(J{\em pred}$@$K$D$$$F(JT$@$rJV$7$?;~$N$_(J
-T$@$rJV$9!#(J{\bf every}$@$O!"(J{\em pred}$@$,A4$F$N(J{\em args}$@$KBP$7$F8zNO$,$"$k$+$I$&$+$r(J
-$@8!::$9$k;~$K;HMQ$5$l$k!#(J}
+$@A4$F$N(B{\em args}$@$,(B{\em pred}$@$K$D$$$F(BT$@$rJV$7$?;~$N$_(B
+T$@$rJV$9!#(B{\bf every}$@$O!"(B{\em pred}$@$,A4$F$N(B{\em args}$@$KBP$7$F8zNO$,$"$k$+$I$&$+$r(B
+$@8!::$9$k;~$K;HMQ$5$l$k!#(B}
 \funcdesc{some}{pred \&rest args}{
-{\em args}$@$N$&$A$I$l$+(J1$@$D$,(J{\em pred}$@$K$D$$$F(JT$@$rJV$7$?$H$-(J
-T$@$rJV$9!#(J{\bf some}$@$O!"(J{\em pred}$@$,(J{\em args}$@$N$I$l$+$KBP$7$F8zNO$,$"$k$+$I$&$+$r(J
-$@8!::$9$k;~$K;HMQ$5$l$k!#(J}
+{\em args}$@$N$&$A$I$l$+(B1$@$D$,(B{\em pred}$@$K$D$$$F(BT$@$rJV$7$?$H$-(B
+T$@$rJV$9!#(B{\bf some}$@$O!"(B{\em pred}$@$,(B{\em args}$@$N$I$l$+$KBP$7$F8zNO$,$"$k$+$I$&$+$r(B
+$@8!::$9$k;~$K;HMQ$5$l$k!#(B}
 \end{refdesc}
 \funcdesc{functionp}{object}{
-{\em object}$@$,(J{\bf apply}$@$d(J{\bf funcall}$@$GM?$($i$l$k4X?t%*%V%8%'%/%H$G$"$k$J$i(JT$@$rJV$9!#(J\\
-$@Cm0U(J:$@%^%/%m$O(J{\bf apply}$@$d(J{\bf funcall}$@$rE,MQ$9$k$3$H$,$G$-$J$$!#(J
-{\bf functionp}$@$O!"(J{\em object}$@$,!"(Jtype=0$@$N%3%s%Q%$%k%3!<%I$+!"4X?tDj5A$r;}$D(Jsymbol$@$+!"(J
-lambda-form$@$+$"$k$$$O(Jlambda-closure$@$G$"$C$?$H$-!"(JT$@$rJV$9!#(J
+{\em object}$@$,(B{\bf apply}$@$d(B{\bf funcall}$@$GM?$($i$l$k4X?t%*%V%8%'%/%H$G$"$k$J$i(BT$@$rJV$9!#(B\\
+$@Cm0U(B:$@%^%/%m$O(B{\bf apply}$@$d(B{\bf funcall}$@$rE,MQ$9$k$3$H$,$G$-$J$$!#(B
+{\bf functionp}$@$O!"(B{\em object}$@$,!"(Btype=0$@$N%3%s%Q%$%k%3!<%I$+!"4X?tDj5A$r;}$D(Bsymbol$@$+!"(B
+lambda-form$@$+$"$k$$$O(Blambda-closure$@$G$"$C$?$H$-!"(BT$@$rJV$9!#(B
 {\tt Examples: (functionp 'car) = T, (functionp 'do) = NIL}}
 \funcdesc{compiled-function-p}{object}{
-{\em object}$@$,!"%3%s%Q%$%k%3!<%I$N%$%s%9%?%s%9$G$"$C$?$H$-!"(JT$@$rJV$9!#(J
-$@$=$N%3%s%Q%$%k%3!<%I$,4X?t$+$^$?$O%^%/%m$+$rCN$k$?$a$K$O!"(J
-$@$=$N%*%V%8%'%/%H$K(J{\tt :type}$@%a%C%;!<%8$rAw$j!"$=$NJV$jCM$,(J
-{\tt function}$@$H(J{\tt macro}$@$N$I$A$i$K$J$C$F$$$k$+$rD4$Y$k!#(J}
+{\em object}$@$,!"%3%s%Q%$%k%3!<%I$N%$%s%9%?%s%9$G$"$C$?$H$-!"(BT$@$rJV$9!#(B
+$@$=$N%3%s%Q%$%k%3!<%I$,4X?t$+$^$?$O%^%/%m$+$rCN$k$?$a$K$O!"(B
+$@$=$N%*%V%8%'%/%H$K(B{\tt :type}$@%a%C%;!<%8$rAw$j!"$=$NJV$jCM$,(B
+{\tt function}$@$H(B{\tt macro}$@$N$I$A$i$K$J$C$F$$$k$+$rD4$Y$k!#(B}
 
 \end{refdesc}
 

Modified: trunk/EusLisp/doc/jlatex/jevaluation.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jevaluation.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jevaluation.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,684 +1,684 @@
-\section{$@I>2A(J}
-\markright{\arabic{section}. $@I>2A(J}
+\section{$@I>2A(B}
+\markright{\arabic{section}. $@I>2A(B}
 
-\subsection{$@I>2A4X?t(J}
+\subsection{$@I>2A4X?t(B}
 
-$@%(%i!<$d%7%0%J%k(J(signal)$@$K4X$9$k?6$kIq$$$r<($9$?$a$K!"(J
-$@$"$i$+$8$a$=$l$>$lFCJL$NJQ?t(J{\bf *error-handler*}$@$H(J{\bf *signal-handler*}
-$@$KE,Ev$J4X?t$r@_Dj$9$k!#(J
-$@=$@5$"$k$$$OB39T$G$-$k%(%i!<$O$J$$!#(J
-$@%(%i!<$r2r@O8e!"8=:_$N<B9T$r(J{\bf reset}$@$^$?$O>e0L%l%Y%k$X$NE,Ev$J(J{\bf throw}
-$@$K$h$C$FDd;_$7$J$1$l$P$J$i$J$$!#(J
-Euslisp$@$N:G>e0L%l%Y%k$G(J{\tt 0}$@$HL>IU$1$i$l$?(Jcatch frame$@$r:n@.$7$F$$$k$N$G!"(J
-{\bf reset}$@$O!"(J{\tt (throw 0 NIL)}$@$HF1Ey$G$"$k!#(J
+$@%(%i!<$d%7%0%J%k(B(signal)$@$K4X$9$k?6$kIq$$$r<($9$?$a$K!"(B
+$@$"$i$+$8$a$=$l$>$lFCJL$NJQ?t(B{\bf *error-handler*}$@$H(B{\bf *signal-handler*}
+$@$KE,Ev$J4X?t$r@_Dj$9$k!#(B
+$@=$@5$"$k$$$OB39T$G$-$k%(%i!<$O$J$$!#(B
+$@%(%i!<$r2r@O8e!"8=:_$N<B9T$r(B{\bf reset}$@$^$?$O>e0L%l%Y%k$X$NE,Ev$J(B{\bf throw}
+$@$K$h$C$FDd;_$7$J$1$l$P$J$i$J$$!#(B
+Euslisp$@$N:G>e0L%l%Y%k$G(B{\tt 0}$@$HL>IU$1$i$l$?(Bcatch frame$@$r:n@.$7$F$$$k$N$G!"(B
+{\bf reset}$@$O!"(B{\tt (throw 0 NIL)}$@$HF1Ey$G$"$k!#(B
 
-$@%(%i!<%O%s%I%i!<$O!"(J{\em code msg1 form \&optional (msg2)}
-$@$H$$$&(J3$@$D$"$k$$$O(J4$@$D$N0z$-?t$r;}$D4X?t$H$7$FDj5A$7$J$1$l$P$J$i$J$$!#(J
-{\em code}$@$O%(%i!<%3!<%I$G!"%7%9%F%`$GDj5A$5$l$?%(%i!<$r<($9!#(J
-$@Nc$($P!"(J14$@$,(J'$@0z$-?t$,9g$o$J$$(J'$@!"(J13$@$,(J'$@4X?t$,Dj5A$5$l$F$$$J$$(J'$@$H$J$k!#(J
-$@$3$l$i$NDj5A$O!"(J"c/eus.h"$@$NCf$KDj5A$5$l$F$$$k!#(J
-{\em msg1}$@$H(J{\em msg2}$@$O!"%f!<%6!<$K<($5$l$k%a%C%;!<%8$G$"$k!#(J
-{\em form}$@$O!"%(%i!<$K$h$C$F@8$8$?(Js$@I=8=$G$"$k!#(J
+$@%(%i!<%O%s%I%i!<$O!"(B{\em code msg1 form \&optional (msg2)}
+$@$H$$$&(B3$@$D$"$k$$$O(B4$@$D$N0z$-?t$r;}$D4X?t$H$7$FDj5A$7$J$1$l$P$J$i$J$$!#(B
+{\em code}$@$O%(%i!<%3!<%I$G!"%7%9%F%`$GDj5A$5$l$?%(%i!<$r<($9!#(B
+$@Nc$($P!"(B14$@$,(B'$@0z$-?t$,9g$o$J$$(B'$@!"(B13$@$,(B'$@4X?t$,Dj5A$5$l$F$$$J$$(B'$@$H$J$k!#(B
+$@$3$l$i$NDj5A$O!"(B"c/eus.h"$@$NCf$KDj5A$5$l$F$$$k!#(B
+{\em msg1}$@$H(B{\em msg2}$@$O!"%f!<%6!<$K<($5$l$k%a%C%;!<%8$G$"$k!#(B
+{\em form}$@$O!"%(%i!<$K$h$C$F@8$8$?(Bs$@I=8=$G$"$k!#(B
 
-$@%7%0%J%k%O%s%I%i!<$O!"(J{\em sig}$@$H(J{\em code}$@$N(J2$@$D$N0z$-?t$r<u$1$k4X?t$H$7$F(J
-$@Dj5A$5$l$J$1$l$P$J$i$J$$!#(J
-{\em sig}$@$O!"(J1$@$+$i(J30$@$^$G$N%7%0%J%kHV9f$G$"$k!#(J
-{\em code}$@$O!"%7%0%J%kHV9f$NCf$KDj5A$5$l$?Jd=uHV9f$G$"$k!#(J
+$@%7%0%J%k%O%s%I%i!<$O!"(B{\em sig}$@$H(B{\em code}$@$N(B2$@$D$N0z$-?t$r<u$1$k4X?t$H$7$F(B
+$@Dj5A$5$l$J$1$l$P$J$i$J$$!#(B
+{\em sig}$@$O!"(B1$@$+$i(B30$@$^$G$N%7%0%J%kHV9f$G$"$k!#(B
+{\em code}$@$O!"%7%0%J%kHV9f$NCf$KDj5A$5$l$?Jd=uHV9f$G$"$k!#(B
 
-$@:G>e0L%l%Y%k$G$N(J\verb+^+D({\em end-of-file})$@$O!"(JEuslisp$@$N3hF0$rDd;_$5$;$k!#(J
-$@$3$l$O!"(JEuslisp$@$r%U%#%k%?!<$H$7$F%W%m%0%i%`$5$l$F$$$k$H$-(J
-$@Lr$KN)$D!#(J
+$@:G>e0L%l%Y%k$G$N(B\verb+^+D({\em end-of-file})$@$O!"(BEuslisp$@$N3hF0$rDd;_$5$;$k!#(B
+$@$3$l$O!"(BEuslisp$@$r%U%#%k%?!<$H$7$F%W%m%0%i%`$5$l$F$$$k$H$-(B
+$@Lr$KN)$D!#(B
 
-{\bf eval-dynamic}$@$O!"(Jlet$@$d(Jlambda$@JQ?t$H$7$F;HMQ$5$l$k(Jsymbol$@$K7k$SIU$/(J
-$@F0E*$JJQ?t$rA\$94X?t$G$"$k!#(J
-$@%G%P%C%0$9$k$H$-$KLr$KN)$D!#(J
+{\bf eval-dynamic}$@$O!"(Blet$@$d(Blambda$@JQ?t$H$7$F;HMQ$5$l$k(Bsymbol$@$K7k$SIU$/(B
+$@F0E*$JJQ?t$rA\$94X?t$G$"$k!#(B
+$@%G%P%C%0$9$k$H$-$KLr$KN)$D!#(B
 
 \begin{refdesc}
 
 \funcdesc{identity}{obj}{
-{\em obj}$@<+?H$rJV$9!#(J
-{\bf idnetity}$@$H(J{\bf quote}$@$H$N0c$$$KCm0U$9$k$3$H!#(J
-{\bf identity}$@$,4X?t$G$"$k$N$KBP$7$F(J{\bf quote}$@$O!"FC<l=q<0(J(special form)
-$@$G$"$k!#(J
-$@$7$?$,$C$F!"(J{\tt (identity 'abc)}$@$O(J{\tt abc}$@$HI>2A$5$l$k$,!"(J
-{\tt (quote 'abc) == (quote (quote abc))}$@$O(J{\tt 'abc}$@$HI>2A$5$l$k!#(J
-{\bf identity}$@$O!"B?$/$N0lHLNs4X?t$N(J{\em :key}$@%Q%i%a!<%?$N%G%U%)%k%HCM(J
-$@$H$7$F$7$P$7$PMQ$$$i$l$k!#(J}
+{\em obj}$@<+?H$rJV$9!#(B
+{\bf idnetity}$@$H(B{\bf quote}$@$H$N0c$$$KCm0U$9$k$3$H!#(B
+{\bf identity}$@$,4X?t$G$"$k$N$KBP$7$F(B{\bf quote}$@$O!"FC<l=q<0(B(special form)
+$@$G$"$k!#(B
+$@$7$?$,$C$F!"(B{\tt (identity 'abc)}$@$O(B{\tt abc}$@$HI>2A$5$l$k$,!"(B
+{\tt (quote 'abc) == (quote (quote abc))}$@$O(B{\tt 'abc}$@$HI>2A$5$l$k!#(B
+{\bf identity}$@$O!"B?$/$N0lHLNs4X?t$N(B{\em :key}$@%Q%i%a!<%?$N%G%U%)%k%HCM(B
+$@$H$7$F$7$P$7$PMQ$$$i$l$k!#(B}
 
 \funcdesc{eval}{form [environment]}{
-{\em form}$@$rI>2A$7$F!"$=$NCM$rJV$9!#(J
-$@$b$7!"(J{\bf *evalhook*}$@$K(J{\em form}$@$d(J{\em environment}$@$r<u$1$k4X?t$r(J
-$@@_Dj$9$k$J$i$P!"(Jhook$@4X?t$rI>2A$KF~$kA0$K8F$S=P$9$3$H$,$G$-$k!#(J}
+{\em form}$@$rI>2A$7$F!"$=$NCM$rJV$9!#(B
+$@$b$7!"(B{\bf *evalhook*}$@$K(B{\em form}$@$d(B{\em environment}$@$r<u$1$k4X?t$r(B
+$@@_Dj$9$k$J$i$P!"(Bhook$@4X?t$rI>2A$KF~$kA0$K8F$S=P$9$3$H$,$G$-$k!#(B}
 
 \funcdesc{apply}{func \&rest args}{
-{\em args}$@$K(J{\em func}$@$rE,MQ$9$k!#(J
-{\em func}$@$O!"4X?t(Jsymbol$@$+(Jlambda$@=q<0$+(Jclosure$@$G$J$1$l$P$J$i$J$$!#(J
-$@%^%/%m$HFC<l=q<0(J(special form)$@$OE,MQ=PMh$J$$!#(J
-{\em args}$@$N:G8e$NMWAG$O!"B>$N(J{\em args}$@$,6u$N0z$-?t$G$"$k$J$i(J
-$@0z$-?t$N%j%9%H$G$J$1$l$P$J$i$J$$!#(J
-$@$3$N$h$&$K!"$b$7!"(J{\em args}$@$N:G8e$,(JNIL$@$G$"$C$?$J$i$P!"(J
-{\bf apply}$@$O$[$H$s$I(J{\bf funcall}$@$HF1$8$G$"$k!#(J
-$@$?$@$7!"(J{\bf apply}$@$O(J{\bf funcall}$@$h$j(J1$@$DB?$/$N0z$-?t$r;}$D$3$H$,$G$-$k!#(J
+{\em args}$@$K(B{\em func}$@$rE,MQ$9$k!#(B
+{\em func}$@$O!"4X?t(Bsymbol$@$+(Blambda$@=q<0$+(Bclosure$@$G$J$1$l$P$J$i$J$$!#(B
+$@%^%/%m$HFC<l=q<0(B(special form)$@$OE,MQ=PMh$J$$!#(B
+{\em args}$@$N:G8e$NMWAG$O!"B>$N(B{\em args}$@$,6u$N0z$-?t$G$"$k$J$i(B
+$@0z$-?t$N%j%9%H$G$J$1$l$P$J$i$J$$!#(B
+$@$3$N$h$&$K!"$b$7!"(B{\em args}$@$N:G8e$,(BNIL$@$G$"$C$?$J$i$P!"(B
+{\bf apply}$@$O$[$H$s$I(B{\bf funcall}$@$HF1$8$G$"$k!#(B
+$@$?$@$7!"(B{\bf apply}$@$O(B{\bf funcall}$@$h$j(B1$@$DB?$/$N0z$-?t$r;}$D$3$H$,$G$-$k!#(B
 {\tt (apply \#'max 2 5 3 '(8 2)) --> 8}.}
 
 \funcdesc{funcall}{func \&rest args}{
-{\em args}$@$K(J{\em func}$@$rE,MQ$9$k!#(J
-{\em args}$@$N?t$O!"(J{\em func}$@$GMW5a$5$l$F$$$k0z$-?t$N?t$H0lCW$7$J$1$l$P(J
-$@$J$i$J$$!#(J}
+{\em args}$@$K(B{\em func}$@$rE,MQ$9$k!#(B
+{\em args}$@$N?t$O!"(B{\em func}$@$GMW5a$5$l$F$$$k0z$-?t$N?t$H0lCW$7$J$1$l$P(B
+$@$J$i$J$$!#(B}
 
-\specialdesc{quote}{obj}{{\em obj}$@<+?H$rI>2A$9$k!#(J}
+\specialdesc{quote}{obj}{{\em obj}$@<+?H$rI>2A$9$k!#(B}
 
-\specialdesc{function}{func}{closure$@4X?t$r:n$k!#(J
-$@$b$7!"(J{\em func}$@$,(Jsymbol$@$J$i$P!"$=$N4X?tDj5A$,8!:w$5$l$k!#(J}
+\specialdesc{function}{func}{closure$@4X?t$r:n$k!#(B
+$@$b$7!"(B{\em func}$@$,(Bsymbol$@$J$i$P!"$=$N4X?tDj5A$,8!:w$5$l$k!#(B}
 
 \funcdesc{evalhook}{hookfunc form [env]}{
-{\em hookfun}$@$r(J{\bf *evalhook*}$@$K7k$SIU$1$?8e!"(J{\em form}$@$r0lEYI>2A$9$k!#(J}
+{\em hookfun}$@$r(B{\bf *evalhook*}$@$K7k$SIU$1$?8e!"(B{\em form}$@$r0lEYI>2A$9$k!#(B}
 
 \funcdesc{eval-dynamic}{variable}{
-$@%9%?%C%/$K$"$k(J{\em variable}(symbol)$@$NCM$rA\$9!#(J}
+$@%9%?%C%/$K$"$k(B{\em variable}(symbol)$@$NCM$rA\$9!#(B}
 
 \funcdesc{macroexpand}{form}{
-$@$b$7!"(J{\em form}$@$,%^%/%m(Jcall$@$G$"$k$J$i!"$=$l$rE83+$9$k!#(J
-$@$b$7!"E83+$7$?$b$N$,$^$@%^%/%m(Jcall$@$r4^$s$G$$$k$J$i$P!"(J
-$@%^%/%m(Jcall$@$N$J$$7k2L$H$J$k$^$G$/$jJV$7E83+$9$k!#(J}
+$@$b$7!"(B{\em form}$@$,%^%/%m(Bcall$@$G$"$k$J$i!"$=$l$rE83+$9$k!#(B
+$@$b$7!"E83+$7$?$b$N$,$^$@%^%/%m(Bcall$@$r4^$s$G$$$k$J$i$P!"(B
+$@%^%/%m(Bcall$@$N$J$$7k2L$H$J$k$^$G$/$jJV$7E83+$9$k!#(B}
 
 \specialdesc{eval-when}{situation \{form\}*}{
-{\em situation}$@$O(J{\tt compile, load, eval}$@$N%j%9%H$G$"$k!#(J
-{\em form}$@$O!"8=:_$N<B9T%b!<%I$,(J{\em situation}$@$H0lCW$9$k$H$-$KI>2A$5$l$k!#(J
-{\bf eval-when}$@$O!"%3%s%Q%$%i$G$NF0:n$d4D6-$r@)8f$9$k$?$a$K=EMW$J$b$N$G$"$k!#(J
-$@$b$7!"(J{\tt compile}$@$,;XDj$5$l$?$J$i$P!"(J{\em form}$@$O%3%s%Q%$%i$K$h$C$F(J
-$@I>2A$5$l$k$N$G!"$=$N7k2L$O%3%s%Q%$%k7k2L$K1F6A$r5Z$\$9$3$H$K$J$k!#(J
-$@Nc$($P!"(J{\bf defmacro}$@$O%3%s%Q%$%k;~$K%^%/%m(Jcall$@$rE83+$9$k$?$a$K%3%s%Q%$%i$G(J
-$@I>2A$5$l$J$1$l$P$J$i$J$$!#(J
-$@$b$7!"(J{\tt load}$@$,(J{\em situation}$@$N%j%9%H$KM?$($i$l$?$J$i$P!"(J
-{\em form}$@$O(Jload$@;~$K(Jload$@$^$?$OI>2A$5$l$k$?$a$K%3%s%Q%$%k$5$l$k!#(J
-$@$9$J$o$A!"(Jload$@;~$K%3%s%Q%$%k$5$l$?4X?t$,Dj5A$5$l$k!#(J
-$@$3$l$O!"%3%s%Q%$%i$K4|BT$5$l$k0lHLE*$J5!G=$G$"$k!#(J
-{\tt load}$@$O!"%3%s%Q%$%i$N4D6-$r@)8f$9$k$?$a$K;HMQ$5$l$k!#(J
-$@$b$7!"(J{\tt eval}$@$,(J{\em situation}$@$N%j%9%H$K4^$^$l$F$$$k$J$i$P!"(J
-{\em form}$@$O%=!<%9%3!<%I$,(Jload$@$5$l$k$H$-$KI>2A$5$l$k!#(J}
+{\em situation}$@$O(B{\tt compile, load, eval}$@$N%j%9%H$G$"$k!#(B
+{\em form}$@$O!"8=:_$N<B9T%b!<%I$,(B{\em situation}$@$H0lCW$9$k$H$-$KI>2A$5$l$k!#(B
+{\bf eval-when}$@$O!"%3%s%Q%$%i$G$NF0:n$d4D6-$r@)8f$9$k$?$a$K=EMW$J$b$N$G$"$k!#(B
+$@$b$7!"(B{\tt compile}$@$,;XDj$5$l$?$J$i$P!"(B{\em form}$@$O%3%s%Q%$%i$K$h$C$F(B
+$@I>2A$5$l$k$N$G!"$=$N7k2L$O%3%s%Q%$%k7k2L$K1F6A$r5Z$\$9$3$H$K$J$k!#(B
+$@Nc$($P!"(B{\bf defmacro}$@$O%3%s%Q%$%k;~$K%^%/%m(Bcall$@$rE83+$9$k$?$a$K%3%s%Q%$%i$G(B
+$@I>2A$5$l$J$1$l$P$J$i$J$$!#(B
+$@$b$7!"(B{\tt load}$@$,(B{\em situation}$@$N%j%9%H$KM?$($i$l$?$J$i$P!"(B
+{\em form}$@$O(Bload$@;~$K(Bload$@$^$?$OI>2A$5$l$k$?$a$K%3%s%Q%$%k$5$l$k!#(B
+$@$9$J$o$A!"(Bload$@;~$K%3%s%Q%$%k$5$l$?4X?t$,Dj5A$5$l$k!#(B
+$@$3$l$O!"%3%s%Q%$%i$K4|BT$5$l$k0lHLE*$J5!G=$G$"$k!#(B
+{\tt load}$@$O!"%3%s%Q%$%i$N4D6-$r@)8f$9$k$?$a$K;HMQ$5$l$k!#(B
+$@$b$7!"(B{\tt eval}$@$,(B{\em situation}$@$N%j%9%H$K4^$^$l$F$$$k$J$i$P!"(B
+{\em form}$@$O%=!<%9%3!<%I$,(Bload$@$5$l$k$H$-$KI>2A$5$l$k!#(B}
 
 \specialdesc{the}{type form}{
-{\em form}$@$r(J{\em type}$@$H$7$F@k8@$9$k!#(J
-{\em type}$@$O!"(J{\tt :integer, :fixnum, :float}$@$G<($5$l$k%/%i%9%*%V%8%'%/%H(J
-$@$N$I$l$+$G$"$k!#(J}
+{\em form}$@$r(B{\em type}$@$H$7$F@k8@$9$k!#(B
+{\em type}$@$O!"(B{\tt :integer, :fixnum, :float}$@$G<($5$l$k%/%i%9%*%V%8%'%/%H(B
+$@$N$I$l$+$G$"$k!#(B}
 
 \specialdesc{declare}{declaration*}{
-$@$=$l$>$l(J{\em declaration}$@$O!"@k8@;XDj$d@0?t$"$k$$$OL\E*$N(Jsymbol$@$N%j%9%H$G$"$k!#(J
-$@@k8@$O!"%3%s%Q%$%i$,9bB.$J%3!<%I$r@8@.$9$k$?$a$K=EMW$G$"$k!#(J
+$@$=$l$>$l(B{\em declaration}$@$O!"@k8@;XDj$d@0?t$"$k$$$OL\E*$N(Bsymbol$@$N%j%9%H$G$"$k!#(B
+$@@k8@$O!"%3%s%Q%$%i$,9bB.$J%3!<%I$r@8@.$9$k$?$a$K=EMW$G$"$k!#(B
 \begin{description}
-\item {special} $@FC<lJQ?t$r@k8@$9$k!#(J
-\item {type} $@JQ?t$N7?$r@k8@$9$k!#(J; {\tt (type integer count)};
-$@M-8z$J7?;XDj;R$O(J{\em integer}, {\em :integer}, {\em fixnum},
-{\em :float}$@$H(J{\em float}$@$G$"$k!#7?;XDj;R$,$3$3$K<($7$?$b$N$N#1$D$G$"$k(J
-$@$J$i$P!"(J{\bf type}$@%-!<%o!<%I$r:o=|$7$F$bNI$$!#$=$N$?$a!"(J
-{\tt (integer count)}$@$O@5$7$$@k8@$G$"$k!#(J
-{\em float-vector},{\em integer-vector}$@$J$I$N$h$&$J!"$=$NB>$N7?!J%/%i%9!K$G$O!"(J
-{\tt (type float-vector vec1)}$@$N$h$&$K(J{\bf type}$@$rA0$KIU$1$kI,MW$,$"$k!#(J
-\item {ftype} $@4X?t$N7k2L$N7?$r@k8@$9$k!#(J
-\item {optimize} $@%3%s%Q%$%i$N(J*optimize*$@%Q%i%a!<%?$KCM(J(0--3)$@$r@_Dj$9$k!#(J
-\item {safety} $@%3%s%Q%$%i$N(J*safety*$@%Q%i%a!<%?$KCM(J(0--3)$@$r@_Dj$9$k!#(J
-\item {space}  $@%3%s%Q%$%i$N(J*space*$@%Q%i%a!<%?$KCM(J(0--3)$@$r@_Dj$9$k!#(J
-\item {inline} $@G'<1$7$J$$!#(J
-\item {not-inline} $@G'<1$7$J$$!#(J
+\item {special} $@FC<lJQ?t$r@k8@$9$k!#(B
+\item {type} $@JQ?t$N7?$r@k8@$9$k!#(B; {\tt (type integer count)};
+$@M-8z$J7?;XDj;R$O(B{\em integer}, {\em :integer}, {\em fixnum},
+{\em :float}$@$H(B{\em float}$@$G$"$k!#7?;XDj;R$,$3$3$K<($7$?$b$N$N#1$D$G$"$k(B
+$@$J$i$P!"(B{\bf type}$@%-!<%o!<%I$r:o=|$7$F$bNI$$!#$=$N$?$a!"(B
+{\tt (integer count)}$@$O@5$7$$@k8@$G$"$k!#(B
+{\em float-vector},{\em integer-vector}$@$J$I$N$h$&$J!"$=$NB>$N7?!J%/%i%9!K$G$O!"(B
+{\tt (type float-vector vec1)}$@$N$h$&$K(B{\bf type}$@$rA0$KIU$1$kI,MW$,$"$k!#(B
+\item {ftype} $@4X?t$N7k2L$N7?$r@k8@$9$k!#(B
+\item {optimize} $@%3%s%Q%$%i$N(B*optimize*$@%Q%i%a!<%?$KCM(B(0--3)$@$r@_Dj$9$k!#(B
+\item {safety} $@%3%s%Q%$%i$N(B*safety*$@%Q%i%a!<%?$KCM(B(0--3)$@$r@_Dj$9$k!#(B
+\item {space}  $@%3%s%Q%$%i$N(B*space*$@%Q%i%a!<%?$KCM(B(0--3)$@$r@_Dj$9$k!#(B
+\item {inline} $@G'<1$7$J$$!#(B
+\item {not-inline} $@G'<1$7$J$$!#(B
 \end{description}
 
 }
 \funcdesc{proclaim}{proclamation}{
-$@JQ?t$d%3%s%Q%$%i%*%W%7%g%s$r%0%m!<%P%k$K@k8@$9$k!#(J
-$@F1MM$J@k8@$O!"(J{\bf declare}$@FC<l=q<0$K$h$C$F5-=R$9$k$3$H$,$G$-$k!#(J
-$@$7$+$7$J$,$i!"(J{\bf proclaim}$@$O!"(J1$@$D$N0z?t$r;}$D4X?t$G$"$j!"(J
-$@@k8@$rI>2A$9$k!#(J}
+$@JQ?t$d%3%s%Q%$%i%*%W%7%g%s$r%0%m!<%P%k$K@k8@$9$k!#(B
+$@F1MM$J@k8@$O!"(B{\bf declare}$@FC<l=q<0$K$h$C$F5-=R$9$k$3$H$,$G$-$k!#(B
+$@$7$+$7$J$,$i!"(B{\bf proclaim}$@$O!"(B1$@$D$N0z?t$r;}$D4X?t$G$"$j!"(B
+$@@k8@$rI>2A$9$k!#(B}
 
 \funcdesc{warn}{format-string \&rest args}{
-{\em format-string}$@$H(J{\em args}$@$GM?$($i$l$k7Y9p%a%C%;!<%8$r(J
-{\bf *error-output*}$@$K=PNO$9$k!#(J}
+{\em format-string}$@$H(B{\em args}$@$GM?$($i$l$k7Y9p%a%C%;!<%8$r(B
+{\bf *error-output*}$@$K=PNO$9$k!#(B}
 \funcdesc{error}{format-string \&rest args}{
-{\bf *error-handler*}$@$K7k$SIU$/8=:_$N%(%i!<%O%s%I%i!<4X?t$r8F$S=P$9!#(J
-$@%G%U%)%k%H$N%(%i!<%O%s%I%i!<(J'euserror'$@$r(J{\bf *error-output*}$@$K:G=i$K=PNO$7(J
-{\em format-string}$@$H(J{\em args}$@$r(J{\bf format}$@$rMQ$$$F=PNO$9$k!#(J
-$@$=$N8e!"?7$7$$:G>e0L%l%Y%k$N%;%C%7%g%s(J(session)$@$KF~$k!#(J
-$@%W%m%s%W%H$K$O!"%(%i!<%;%C%7%g%s$N?<$5$r<($9!#(J
-{\bf throw}$@$K$=$NHV9f$rM?$($k$3$H$K$h$j!"Dc$$%(%i!<%l%Y%k$N%;%C%7%g%s$XLa$k$3$H$,$G$-$k!#(J}
+{\bf *error-handler*}$@$K7k$SIU$/8=:_$N%(%i!<%O%s%I%i!<4X?t$r8F$S=P$9!#(B
+$@%G%U%)%k%H$N%(%i!<%O%s%I%i!<(B'euserror'$@$r(B{\bf *error-output*}$@$K:G=i$K=PNO$7(B
+{\em format-string}$@$H(B{\em args}$@$r(B{\bf format}$@$rMQ$$$F=PNO$9$k!#(B
+$@$=$N8e!"?7$7$$:G>e0L%l%Y%k$N%;%C%7%g%s(B(session)$@$KF~$k!#(B
+$@%W%m%s%W%H$K$O!"%(%i!<%;%C%7%g%s$N?<$5$r<($9!#(B
+{\bf throw}$@$K$=$NHV9f$rM?$($k$3$H$K$h$j!"Dc$$%(%i!<%l%Y%k$N%;%C%7%g%s$XLa$k$3$H$,$G$-$k!#(B}
 \end{refdesc}
 
-$@%^%k%A%9%l%C%I(JEuslisp$@$K$*$$$F!"FC<lJQ?t$O%9%l%C%I4V$G6&M-$5$l!"(J
-$@F1$8(J{\bf *error-handler*}$@$,0[$J$C$?%9%l%C%I$+$i;2>H$5$l$k!#(J
-$@$3$NIT<+M3$rHr$1$k$?$a$K!"%^%k%A%9%l%C%I(JEuslisp$@$O(J{\bf install-error-handler}
-$@4X?t$rHw$($F$$$k!#$=$N4X?t$O!"$=$l$>$l$N%9%l%C%I$KBP$7$F(J
-$@0[$J$C$?%(%i!<%O%s%I%i!<$r%$%s%9%H!<%k$9$k!#(J
+$@%^%k%A%9%l%C%I(BEuslisp$@$K$*$$$F!"FC<lJQ?t$O%9%l%C%I4V$G6&M-$5$l!"(B
+$@F1$8(B{\bf *error-handler*}$@$,0[$J$C$?%9%l%C%I$+$i;2>H$5$l$k!#(B
+$@$3$NIT<+M3$rHr$1$k$?$a$K!"%^%k%A%9%l%C%I(BEuslisp$@$O(B{\bf install-error-handler}
+$@4X?t$rHw$($F$$$k!#$=$N4X?t$O!"$=$l$>$l$N%9%l%C%I$KBP$7$F(B
+$@0[$J$C$?%(%i!<%O%s%I%i!<$r%$%s%9%H!<%k$9$k!#(B
 
 \begin{refdesc}
 \funcdesc{install-error-handler}{handler}{
-{\em handler}$@$r8=:_$N%9%l%C%I$N%(%i!<%O%s%I%i!<$H$7$F%$%s%9%H!<%k$9$k!#(J}
+{\em handler}$@$r8=:_$N%9%l%C%I$N%(%i!<%O%s%I%i!<$H$7$F%$%s%9%H!<%k$9$k!#(B}
 \end{refdesc}
 
 \newpage
 
-\subsection{$@:G>e0L%l%Y%k$NBPOC(J}
+\subsection{$@:G>e0L%l%Y%k$NBPOC(B}
 
-EusLisp$@$NI8=`$N:G>e0L%l%Y%k$NF~NO!]I>2A!]=PNO$N%k!<%W(J(loop)$@$O!"(J{\bf eustop}
-$@$K$h$j@)8f$5$l$F$$$k!#(J
+EusLisp$@$NI8=`$N:G>e0L%l%Y%k$NF~NO!]I>2A!]=PNO$N%k!<%W(B(loop)$@$O!"(B{\bf eustop}
+$@$K$h$j@)8f$5$l$F$$$k!#(B
 % which is also responsible for the initial loading of files.
-euslisp$@$,8F$S=P$5$l$?$H$-!"(J
-{\bf eustop}$@$O!"%[!<%`%G%#%l%/%H%j$+$i(J{\tt ".eusrc"}$@$H$$$&%U%!%$%k$r(J
-$@$"$k$$$O(J{\tt EUSRC}$@4D6-JQ?t$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(J
-$@$=$l$+$i!"(Jeuslisp$@$O!"0z$-?t%j%9%H$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(J
-$@$3$l$i$N%m!<%I$,=*N;8e!"(J{\bf eustop}$@$O!"IaDL$NBPOC%;%C%7%g%s(J(session)$@$KF~$k!#(J
+euslisp$@$,8F$S=P$5$l$?$H$-!"(B
+{\bf eustop}$@$O!"%[!<%`%G%#%l%/%H%j$+$i(B{\tt ".eusrc"}$@$H$$$&%U%!%$%k$r(B
+$@$"$k$$$O(B{\tt EUSRC}$@4D6-JQ?t$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(B
+$@$=$l$+$i!"(Beuslisp$@$O!"0z$-?t%j%9%H$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(B
+$@$3$l$i$N%m!<%I$,=*N;8e!"(B{\bf eustop}$@$O!"IaDL$NBPOC%;%C%7%g%s(B(session)$@$KF~$k!#(B
 
-{\bf *standard-input*}$@$K%f!<%6!<$N(JTTY$@$,@\B3$5$l$?$H$-!"(J
-{\bf eustop}$@$O!"(J{\bf *prompt-string*}$@!J%G%U%)%k%H$H$7$F(J{\tt "eus\$"}$@$,(J
-$@@_Dj$5$l$F$$$k!K$K@_Dj$5$l$?%W%m%s%W%H$r=PNO$9$k!#(J
-$@$=$7$F!"(J{\bf *terminal-io*}$@%9%H%j!<%`$+$iL?Na$rF~NO$9$k!#(J
-$@$b$7!"$=$NF~NO$,%+%C%3$G3g$i$l$?9T$J$i$P!"(J
-{\bf eval}$@$K$h$C$F(Jlisp$@=q<0$H$7$F07$o$l$k!#(J
-$@$b$7!"F~NO9T$N:G=i$N(Jsymbol$@$K4X?tDj5A$,$"$C$?>l9g!"$=$N9T$K<+F0E*$K(J
-$@%+%C%3$,F~$l$i$l!"I>2A$5$l$k!#(J
-$@$b$7!"4X?tDj5A$,8+$D$+$i$J$+$C$?>l9g!"$=$NFC<lCM(J(special value)$@$,(J
-$@D4::$5$l!"$=$NCM$,=PNO$5$l$k!#(J
-$@$b$7!"$=$N(Jsymbol$@$K$J$K$bDj5A$5$l$F$J$$$J$i$P!"(J
-$@$=$N9T$O(JUNIX$@L?Na$H$_$J$5$l!"(Jsh(Bourn's shell)$@$XEO$5$l$k!#(J
-$@$b$7!"(Jsh$@$,0lCW$9$k(JUNIX$@L?Na$rA\$;$J$+$C$?$H$-!"(J
-"command unrecognized"$@$H$$$&%a%C%;!<%8$r=PNO$9$k!#(J
-$@$3$N$h$&$K!"(J{\bf eustop}$@$O(Jlisp$@$N%$%s%?!<%W%j%?$*$h$S(JUNIX$@$N%7%'%k$H$7$FF0:n$9$k!#(J
-$@$b$7!"F~NO$r(JUNIX$@L?Na$H$7$F<B9T$7$?$/$J$$$H$-!"(J
-$@9T$N:G=i$K%3%s%^(J','$@$rIU$1...
 
[truncated message content]

[Euslisp-commit] SF.net SVN: euslisp:[634] trunk/EusLisp/doc/jlatex

From: <k-...@us...> - 2013-05-20 14:56:45

Revision: 634
          http://sourceforge.net/p/euslisp/code/634
Author:   k-okada
Date:     2013-05-20 14:56:33 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix \ character

Modified Paths:
--------------
    trunk/EusLisp/doc/jlatex/jarith.tex
    trunk/EusLisp/doc/jlatex/jcontact.tex
    trunk/EusLisp/doc/jlatex/jcontrols.tex
    trunk/EusLisp/doc/jlatex/jevaluation.tex
    trunk/EusLisp/doc/jlatex/jgenerals.tex
    trunk/EusLisp/doc/jlatex/jgraphics.tex
    trunk/EusLisp/doc/jlatex/jimage.tex
    trunk/EusLisp/doc/jlatex/jintro.tex
    trunk/EusLisp/doc/jlatex/jmanual.dvi
    trunk/EusLisp/doc/jlatex/jmanual.pdf
    trunk/EusLisp/doc/jlatex/jmatrix.tex
    trunk/EusLisp/doc/jlatex/jmthread.tex
    trunk/EusLisp/doc/jlatex/jsequences.tex
    trunk/EusLisp/doc/jlatex/jsymbols.tex
    trunk/EusLisp/doc/jlatex/jsysfunc.tex
    trunk/EusLisp/doc/jlatex/jvoronoi.tex
    trunk/EusLisp/doc/jlatex/jvxw.tex
    trunk/EusLisp/doc/jlatex/jxtoolkit.tex
    trunk/EusLisp/doc/jlatex/jxwindow.tex
    trunk/EusLisp/doc/jlatex/tape.tex

Modified: trunk/EusLisp/doc/jlatex/jarith.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jarith.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jarith.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,213 +1,213 @@
-\section{$@?tCM1i;;(J}
-\markright{\arabic{section}. $@?tCM1i;;(J}
-\subsection{$@?tCM1i;;Dj?t(J}
+\section{$@?tCM1i;;(B}
+\markright{\arabic{section}. $@?tCM1i;;(B}
+\subsection{$@?tCM1i;;Dj?t(B}
 \begin{refdesc}
-\constdesc{most-positive-fixnum}{\#x1fffffff=536,870,911$@!#(J{\tt integer}$@$N@5$N:GBgCM!#(J}
-\constdesc{most-negative-fixnum}{-\#x20000000= -536,870,912$@!#(J{\tt integer}$@$NIi$N:GBgCM(J}
-\constdesc{short-float-epsilon}{IEEE$@$NIbF0>.?tE@I=8=7A<0$G$"$k(J{\tt float}$@$O!"(J
-21$@%S%C%H$N8GDj>.?t(J($@$&$AId9f(J
-$@$,(J1$@%S%C%H(J)$@$H(J7$@%S%C%H$N;X?t(J($@$&$AId9f$,(J1$@%S%C%H(J)$@$G9=@.$5$l$F$$$k!#(J
-$@$7$?$,$C$F!"IbF0>.?tE@8m:9(J$\epsilon$$@$O(J $2^{-21}= 4.768368 \times 10^{-7}$$@$H$J$k!#(J}
-\constdesc{single-float-epsilon}{{\bf short-float-epsilon}$@$HF1MM$K(J $2^{-21}$$@$G$"$k!#(J}
-\constdesc{long-float-epsilon}{Euslisp$@$K$O!"(Jdouble$@$b(Jlong float$@$b$J$$$?$a!"(J
-{\bf short-float-epsilon}$@$HF1MM$K(J$2^{-21}$$@$G$"$k!#(J}
-\constdesc{pi}{$\pi$$@!#(J $@<B:]$K$O(J 3.14159203$@$G!"(J 3.14159265$@$G$O$J$$!#(J}
-\constdesc{2pi}{$2\times \pi$$@!#(J}
-\constdesc{pi/2}{$\pi/2$$@!#(J}
-\constdesc{-pi}{-3.14159203$@!#(J}
-\constdesc{-2pi}{$-2\times \pi$$@!#(J}
-\constdesc{-pi/2}{$-\pi/2$$@!#(J}
+\constdesc{most-positive-fixnum}{\#x1fffffff=536,870,911$@!#(B{\tt integer}$@$N@5$N:GBgCM!#(B}
+\constdesc{most-negative-fixnum}{-\#x20000000= -536,870,912$@!#(B{\tt integer}$@$NIi$N:GBgCM(B}
+\constdesc{short-float-epsilon}{IEEE$@$NIbF0>.?tE@I=8=7A<0$G$"$k(B{\tt float}$@$O!"(B
+21$@%S%C%H$N8GDj>.?t(B($@$&$AId9f(B
+$@$,(B1$@%S%C%H(B)$@$H(B7$@%S%C%H$N;X?t(B($@$&$AId9f$,(B1$@%S%C%H(B)$@$G9=@.$5$l$F$$$k!#(B
+$@$7$?$,$C$F!"IbF0>.?tE@8m:9(B$\epsilon$$@$O(B $2^{-21}= 4.768368 \times 10^{-7}$$@$H$J$k!#(B}
+\constdesc{single-float-epsilon}{{\bf short-float-epsilon}$@$HF1MM$K(B $2^{-21}$$@$G$"$k!#(B}
+\constdesc{long-float-epsilon}{Euslisp$@$K$O!"(Bdouble$@$b(Blong float$@$b$J$$$?$a!"(B
+{\bf short-float-epsilon}$@$HF1MM$K(B$2^{-21}$$@$G$"$k!#(B}
+\constdesc{pi}{$\pi$$@!#(B $@<B:]$K$O(B 3.14159203$@$G!"(B 3.14159265$@$G$O$J$$!#(B}
+\constdesc{2pi}{$2\times \pi$$@!#(B}
+\constdesc{pi/2}{$\pi/2$$@!#(B}
+\constdesc{-pi}{-3.14159203$@!#(B}
+\constdesc{-2pi}{$-2\times \pi$$@!#(B}
+\constdesc{-pi/2}{$-\pi/2$$@!#(B}
 \end{refdesc}
 
-\subsection{$@Hf3S1i;;4X?t(J}
+\subsection{$@Hf3S1i;;4X?t(B}
 \begin{refdesc}
 \funcdesc{numberp}{object}{
-{\em object}$@$,(J{\tt integer}$@$+(J{\tt float}$@$N;~!"(JT$@$rJV$9!#(J
-$@$=$NJ8;z$,?t;z$G9=@.$5$l$F$$$k$H$-$bF1MM$G$"$k!#(J}
+{\em object}$@$,(B{\tt integer}$@$+(B{\tt float}$@$N;~!"(BT$@$rJV$9!#(B
+$@$=$NJ8;z$,?t;z$G9=@.$5$l$F$$$k$H$-$bF1MM$G$"$k!#(B}
 \funcdesc{integerp}{object}{
-{\em object}$@$,(J{\tt integer}$@$N;~!"(JT$@$rJV$9!#(J
-{\tt float}$@$O(J{\bf round, trunc}$@$*$h$S(J{\bf ceiling}$@4X?t$G(J{\tt integer}$@$KJQ49$G$-$k!#(J}
-\funcdesc{floatp}{object}{ {\em object} $@$,(J {\tt float} $@$N;~(J T $@$rJV$9!#(J
-{\tt integer}$@$O(J{\bf float}$@4X?t$G(J{\tt float}$@$KJQ49$G$-$k!#(J}
+{\em object}$@$,(B{\tt integer}$@$N;~!"(BT$@$rJV$9!#(B
+{\tt float}$@$O(B{\bf round, trunc}$@$*$h$S(B{\bf ceiling}$@4X?t$G(B{\tt integer}$@$KJQ49$G$-$k!#(B}
+\funcdesc{floatp}{object}{ {\em object} $@$,(B {\tt float} $@$N;~(B T $@$rJV$9!#(B
+{\tt integer}$@$O(B{\bf float}$@4X?t$G(B{\tt float}$@$KJQ49$G$-$k!#(B}
 
-\funcdesc{zerop}{number}{ {\em number}$@$,(J{\tt integer}$@$N%<%m$^$?$O(J
-{\tt float}$@$N(J0.0$@$N;~!"(J T$@$rJV$9!#(J}
-\funcdesc{plusp}{number}{{\em number}$@$,@5(J($@%<%m$O4^$^$J$$(J)$@$N$H$-!"(JT$@$rJV$9!#(J}
-\funcdesc{minusp}{number}{{\em number}$@$,Ii$N$H$-!"(JT$@$rJV$9!#(J}
+\funcdesc{zerop}{number}{ {\em number}$@$,(B{\tt integer}$@$N%<%m$^$?$O(B
+{\tt float}$@$N(B0.0$@$N;~!"(B T$@$rJV$9!#(B}
+\funcdesc{plusp}{number}{{\em number}$@$,@5(B($@%<%m$O4^$^$J$$(B)$@$N$H$-!"(BT$@$rJV$9!#(B}
+\funcdesc{minusp}{number}{{\em number}$@$,Ii$N$H$-!"(BT$@$rJV$9!#(B}
 
 \funcdesc{oddp}{integer}{
-{\em integer}$@$,4q?t$N$H$-!"(JT$@$rJV$9!#0z?t$O(J{\tt integer}$@$N$_M-8z!#(J}
+{\em integer}$@$,4q?t$N$H$-!"(BT$@$rJV$9!#0z?t$O(B{\tt integer}$@$N$_M-8z!#(B}
 
 \funcdesc{evenp}{integer}{
-{\em integer}$@$,6v?t$N$H$-!"(JT$@$rJV$9!#0z?t$O(J{\tt integer}$@$N$_M-8z!#(J}
+{\em integer}$@$,6v?t$N$H$-!"(BT$@$rJV$9!#0z?t$O(B{\tt integer}$@$N$_M-8z!#(B}
 
 \funcdesc{/=}{num1 num2}{
-{\em num1}$@$,(J{\em num2}$@$HEy$7$/$J$$$H$-!"(JT$@$rJV$9!#(J
-{\em num1}$@$H(J{\em num2}$@$O?tCM$G$"$k$3$H!#(J}
+{\em num1}$@$,(B{\em num2}$@$HEy$7$/$J$$$H$-!"(BT$@$rJV$9!#(B
+{\em num1}$@$H(B{\em num2}$@$O?tCM$G$"$k$3$H!#(B}
 
 \funcdesc{=}{num1 num2 \&rest more-numbers}{
-{\em num1}$@$H(J{\em num2}$@Ey$7$$$H$-$r!"(JT$@JV$9!#(J
-{\em num1}$@$H(J{\em num2}$@$O?tCM$G$"$k$3$H!#(J}
+{\em num1}$@$H(B{\em num2}$@Ey$7$$$H$-$r!"(BT$@JV$9!#(B
+{\em num1}$@$H(B{\em num2}$@$O?tCM$G$"$k$3$H!#(B}
 
 \fundesc{$>$}{num1 num2 \&rest more-numbers}
 \fundesc{$<$}{num1 num2 \&rest more-numbers}
 \fundesc{$>=$}{num1 num2 \&rest more-numbers}
 \funcdesc{$<=$}{num1 num2 \&rest more-numbers}{
-$@$3$l$i$NHf3S1i;;$O!"?tCM$N$_E,MQ$G$-$k!#8m:9$r4^$a$??tCMHf3S$KBP$7$F$O!"(J
-\ref{Geometry}$@>O$K=q$+$l$F$$$k4X?t!J$3$l$i$NHf3S1i;;;R$NA0$K(J{\bf eps}$@$,(J
-$@$D$$$F$$$k!K$r;HMQ$9$k!#(J}
+$@$3$l$i$NHf3S1i;;$O!"?tCM$N$_E,MQ$G$-$k!#8m:9$r4^$a$??tCMHf3S$KBP$7$F$O!"(B
+\ref{Geometry}$@>O$K=q$+$l$F$$$k4X?t!J$3$l$i$NHf3S1i;;;R$NA0$K(B{\bf eps}$@$,(B
+$@$D$$$F$$$k!K$r;HMQ$9$k!#(B}
 \end{refdesc}
 
-\subsection{$@@0?t$H%S%C%HKh$NA`:n4X?t(J}
-$@0J2<$N4X?t$N0z?t$O!"$9$Y$F(J{\tt integer}$@$H$9$k!#(J
+\subsection{$@@0?t$H%S%C%HKh$NA`:n4X?t(B}
+$@0J2<$N4X?t$N0z?t$O!"$9$Y$F(B{\tt integer}$@$H$9$k!#(B
 
 \begin{refdesc}
 \funcdesc{mod}{dividend divisor}{
-{\em dividend} $@$r(J {\em divisor}$@$G3d$C$?M>$j$rJV$9!#(J
+{\em dividend} $@$r(B {\em divisor}$@$G3d$C$?M>$j$rJV$9!#(B
 {\tt (mod 6 5)=1, (mod -6 5)=-1, (mod 6 -5)=1, (mod -6 -5)=-1}.}
 
 \funcdesc{1-}{integer}{
-$integer-1$ $@$rJV$9!#%3%s%Q%$%i$G$O!"0z?t$r(J {\tt integer} $@$H2>Dj$9$k!#(J}
+$integer-1$ $@$rJV$9!#%3%s%Q%$%i$G$O!"0z?t$r(B {\tt integer} $@$H2>Dj$9$k!#(B}
 
 \funcdesc{1+}{integer}{
-$integer+1$ $@$rJV$9!#(J
-{\bf 1+} $@$H(J {\bf 1$-$} $@$N0z?t$O!"(J{\tt integer} $@$G$J$1$l$P$J$i$J$$!#(J}
-\funcdesc{logand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#A#N#D!#(J}
-\funcdesc{logior}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#O#R!#(J}
-\funcdesc{logxor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#X#O#R!#(J}
+$integer+1$ $@$rJV$9!#(B
+{\bf 1+} $@$H(B {\bf 1$-$} $@$N0z?t$O!"(B{\tt integer} $@$G$J$1$l$P$J$i$J$$!#(B}
+\funcdesc{logand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#A#N#D!#(B}
+\funcdesc{logior}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#O#R!#(B}
+\funcdesc{logxor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#X#O#R!#(B}
 \funcdesc{logeqv}{\&rest integers}{
-{\bf logeqv}$@$O(J{\tt (lognot (logxor ...))}$@$HF1Ey$G$"$k!#(J}
-\funcdesc{lognand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#A#N#D!#(J}
-\funcdesc{lognor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#O#R!#(J}
-\funcdesc{lognot}{integer}{{\em integer}$@$N%S%C%HH?E>!#(J}
+{\bf logeqv}$@$O(B{\tt (lognot (logxor ...))}$@$HF1Ey$G$"$k!#(B}
+\funcdesc{lognand}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#A#N#D!#(B}
+\funcdesc{lognor}{\&rest integers}{{\em integers}$@$N%S%C%HC10L#N#O#R!#(B}
+\funcdesc{lognot}{integer}{{\em integer}$@$N%S%C%HH?E>!#(B}
 \funcdesc{logtest}{integer1 integer2}{
-{\tt (logand {\em integer1 integer2})}$@$,%<%m$G$J$$$H$-(J T $@$rJV$9!#(J}
+{\tt (logand {\em integer1 integer2})}$@$,%<%m$G$J$$$H$-(B T $@$rJV$9!#(B}
 
 \funcdesc{logbitp}{index integer}{
-{\em integer}$@$,(JNIL$@$G$J$1$l$P!"(JLSB$@$+$i?t$($F(J {\em index}$@HVL\$N(J 
-$@%S%C%H$,(J 1 $@$N$H$-(J T $@$rJV$9!#(J}
+{\em integer}$@$,(BNIL$@$G$J$1$l$P!"(BLSB$@$+$i?t$($F(B {\em index}$@HVL\$N(B 
+$@%S%C%H$,(B 1 $@$N$H$-(B T $@$rJV$9!#(B}
 
 \funcdesc{ash}{integer count}{
-$@?tCM1i;;:8%7%U%H!#(J
-$@$b$7(J {\em count} $@$,@5$N$H$-!"(J{\em integer}$@$r:8$K%7%U%H$9$k!#(J
-$@$b$7(J {\em count} $@$,Ii$N$H$-!"(J
-{\em integer} $@$r(J $\vert${\em count}$\vert$ $@%S%C%H1&$K%7%U%H$9$k!#(J}
+$@?tCM1i;;:8%7%U%H!#(B
+$@$b$7(B {\em count} $@$,@5$N$H$-!"(B{\em integer}$@$r:8$K%7%U%H$9$k!#(B
+$@$b$7(B {\em count} $@$,Ii$N$H$-!"(B
+{\em integer} $@$r(B $\vert${\em count}$\vert$ $@%S%C%H1&$K%7%U%H$9$k!#(B}
 
 \funcdesc{ldb}{target position width}{
 LoaD Byte.
-{\bf ldb} $@$d(J {\bf dpb} $@$N(JByte$@7?$O!"(J EusLisp$@$K$J$$$?$a!"Be$j$K(J
-2$@8D$N(J {\tt integer} $@$r;HMQ$9$k!#(J
-{\em target} $@$N(JLSB$@$h$j(J{\em position}$@HVL\$N0LCV$+$i(JMSB$@$X(J {\em width} $@%S%C%H$N(J
-$@HO0O$rH4$-=P$9!#Nc$($P!"(J {\tt (ldb \#x1234 4 4)} $@$O(J 3$@$H$J$k!#(J}
+{\bf ldb} $@$d(B {\bf dpb} $@$N(BByte$@7?$O!"(B EusLisp$@$K$J$$$?$a!"Be$j$K(B
+2$@8D$N(B {\tt integer} $@$r;HMQ$9$k!#(B
+{\em target} $@$N(BLSB$@$h$j(B{\em position}$@HVL\$N0LCV$+$i(BMSB$@$X(B {\em width} $@%S%C%H$N(B
+$@HO0O$rH4$-=P$9!#Nc$($P!"(B {\tt (ldb \#x1234 4 4)} $@$O(B 3$@$H$J$k!#(B}
 
 \funcdesc{dpb}{value target position width}{
 DePosit Byte.
-{\em target}$@$N(JLSB$@$h$j(J{\em position}$@HVL\$N0LCV$X(J{\em value}$@$r(J
-{\em width}$@%S%C%HCV$-49$($k!#(J}
+{\em target}$@$N(BLSB$@$h$j(B{\em position}$@HVL\$N0LCV$X(B{\em value}$@$r(B
+{\em width}$@%S%C%HCV$-49$($k!#(B}
 
 \end{refdesc}
 
 
-\subsection{$@0lHL?tCM4X?t(J}
+\subsection{$@0lHL?tCM4X?t(B}
 \begin{refdesc}
-\funcdesc{+}{\&rest numbers}{{\em numbers}$@$NOB$rJV$9!#(J}
+\funcdesc{+}{\&rest numbers}{{\em numbers}$@$NOB$rJV$9!#(B}
 \funcdesc{-}{num \&rest more-numbers}{
-$@$b$7(J {\em more-numbers} $@$,M?$($i$l$?$H$-!"(J{\em num}$@$h$j0z$/!#(J
-$@$=$&$G$J$$$H$-!"(J{\em num} $@$OId9fH?E>$5$l$k!#(J}
-\funcdesc{*}{\&rest numbers}{{\em numbers}$@$N@Q$rJV$9!#(J}
+$@$b$7(B {\em more-numbers} $@$,M?$($i$l$?$H$-!"(B{\em num}$@$h$j0z$/!#(B
+$@$=$&$G$J$$$H$-!"(B{\em num} $@$OId9fH?E>$5$l$k!#(B}
+\funcdesc{*}{\&rest numbers}{{\em numbers}$@$N@Q$rJV$9!#(B}
 \funcdesc{/}{num1 num2 \&rest more-numbers}{
-{\em num1} $@$r!"(J{\em num2} $@$d(J {\em more-numbers}$@$G3d$j;;$9$k!#(J
-$@A4$F$N0z?t$,(J{\tt integer}$@$N$H$-!"(J{\tt integer}$@$rJV$7!"(J
-$@0z?t$K(J1$@$D$G$b(J{\tt float}$@$,$"$C$?$H$-$O!"(J{\tt float}$@$rJV$9!#(J}
-\funcdesc{abs}{number}{{\em number}$@$N@dBPCM$rJV$9!#(J}
+{\em num1} $@$r!"(B{\em num2} $@$d(B {\em more-numbers}$@$G3d$j;;$9$k!#(B
+$@A4$F$N0z?t$,(B{\tt integer}$@$N$H$-!"(B{\tt integer}$@$rJV$7!"(B
+$@0z?t$K(B1$@$D$G$b(B{\tt float}$@$,$"$C$?$H$-$O!"(B{\tt float}$@$rJV$9!#(B}
+\funcdesc{abs}{number}{{\em number}$@$N@dBPCM$rJV$9!#(B}
 \funcdesc{round}{number}{
-{\em number}$@$N>.?tBh(J1$@0L$r;M<N8^F~$7(J {\tt integer}$@$rJV$9!#(J
+{\em number}$@$N>.?tBh(B1$@0L$r;M<N8^F~$7(B {\tt integer}$@$rJV$9!#(B
 {\tt (round 1.5)=2, (round -1.5)=2}.}
 
 \funcdesc{floor}{number}{
-{\em number}$@$N>.?t$r@Z<N$F$k!#(J
+{\em number}$@$N>.?t$r@Z<N$F$k!#(B
 {\tt (floor 1.5)=1, (floor -1.5)=-2}.}
 
 \funcdesc{ceiling}{number}{
-{\em number}$@$N>.?t$r@Z$j>e$2$k!#(J
+{\em number}$@$N>.?t$r@Z$j>e$2$k!#(B
 {\tt (ceiling 1.5)=2, (ceiling -1.5)=-1}.}
 
 \funcdesc{truncate}{number}{
-{\em number}$@$,@5$N$H$-$O@Z<N$F!"Ii$N$H$-$O@Z$j>e$2$k!#(J
+{\em number}$@$,@5$N$H$-$O@Z<N$F!"Ii$N$H$-$O@Z$j>e$2$k!#(B
 {\tt (truncate 1.5)=1, (truncate -1.5)=-1}.}
 
 \funcdesc{float}{number}{
- {\em number}$@$r(J{\tt float}$@$K$7$FJV$9!#(J}
+ {\em number}$@$r(B{\tt float}$@$K$7$FJV$9!#(B}
 
 \funcdesc{max}{\&rest numbers}{
- {\em numbers}$@$NCf$+$i!":GBgCM$r$5$,$9!#(J}
+ {\em numbers}$@$NCf$+$i!":GBgCM$r$5$,$9!#(B}
 
 \funcdesc{min}{\&rest numbers}{
-{\em numbers}$@$NCf$+$i!":G>.CM$r$5$,$9!#(J}
+{\em numbers}$@$NCf$+$i!":G>.CM$r$5$,$9!#(B}
 
 \funcdesc{random}{range \&optional (randstate *random-state*)}{
- 0$@$"$k$$$O(J0.0 $@$+$i(J {\em range}$@$^$G$NMp?t$rJV$9!#(J
-$@$b$7(J {\em range} $@$,(J {\tt integer}$@$N$H$-!"(J
-{\tt integer} $@$KJQ49$7$FJV$9!#(J
-$@$=$&$G$J$$$H$-!"(J{\tt float} $@$rJV$9!#(J
-$@%*%W%7%g%s$N(J{\em randstate} $@$O!"7h$^$C$?Mp?tNs$GI=$5$l$k!#(J
-{\em randstate}$@$KFCJL$J%G!<%?$N7?$O$J$/!"(J
-2$@$D$NMWAG$+$i$J$k(J $@@0?t%Y%/%H%k$GI=$5$l$k!#(J
+ 0$@$"$k$$$O(B0.0 $@$+$i(B {\em range}$@$^$G$NMp?t$rJV$9!#(B
+$@$b$7(B {\em range} $@$,(B {\tt integer}$@$N$H$-!"(B
+{\tt integer} $@$KJQ49$7$FJV$9!#(B
+$@$=$&$G$J$$$H$-!"(B{\tt float} $@$rJV$9!#(B
+$@%*%W%7%g%s$N(B{\em randstate} $@$O!"7h$^$C$?Mp?tNs$GI=$5$l$k!#(B
+{\em randstate}$@$KFCJL$J%G!<%?$N7?$O$J$/!"(B
+2$@$D$NMWAG$+$i$J$k(B $@@0?t%Y%/%H%k$GI=$5$l$k!#(B
 }
 
 \macrodesc{incf}{variable \&optional (increment 1)}{
-{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(J
-{\em variable} $@$O!"(J{\em increment}$@$@$1A}2C$5$l!"(J
-{\em variable}$@$KLa$5$l$k!#(J}
+{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(B
+{\em variable} $@$O!"(B{\em increment}$@$@$1A}2C$5$l!"(B
+{\em variable}$@$KLa$5$l$k!#(B}
 \macrodesc{decf}{variable \&optional decrement}{
-{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(J
-{\em variable} $@$O!"(J{\em decrement}$@$@$18:>/$5$l!"(J
-{\em variable}$@$KLa$5$l$k!#(J}
+{\em variable} $@$O0lHL$NJQ?t$G$"$k!#(B
+{\em variable} $@$O!"(B{\em decrement}$@$@$18:>/$5$l!"(B
+{\em variable}$@$KLa$5$l$k!#(B}
 
 \funcdesc{reduce}{func seq}{
-2$@JQ?tA`:n$N(J{\em func}$@4X?t$rMQ$$$F!"(J{\em seq}$@$NCf$NA4$F$NMWAG$r7k9g$5$;$k!#(J
-$@Nc$($P!"(J{\tt (reduce \#'expt '(2 3 4)) = (expt (expt 2 3) 4)=4096}.}
+2$@JQ?tA`:n$N(B{\em func}$@4X?t$rMQ$$$F!"(B{\em seq}$@$NCf$NA4$F$NMWAG$r7k9g$5$;$k!#(B
+$@Nc$($P!"(B{\tt (reduce \#'expt '(2 3 4)) = (expt (expt 2 3) 4)=4096}.}
 
-\funcdesc{rad2deg}{radian}{$@%i%8%"%sCM$r(J $@EY?tI=8=$KJQ49$9$k!#(J
-\#R $@$OF1$8$b$N$G$"$k!#(J
-EusLisp $@$NCf$G$N3QEY$NI=5-$O%i%8%"%s$G$"$j!"(J
-EusLisp $@Fb$NA4$F$N4X?t$,MW5a$9$k3QEY0z?t$O!"%i%8%"%sI=8=$G$"$k!#(J}
+\funcdesc{rad2deg}{radian}{$@%i%8%"%sCM$r(B $@EY?tI=8=$KJQ49$9$k!#(B
+\#R $@$OF1$8$b$N$G$"$k!#(B
+EusLisp $@$NCf$G$N3QEY$NI=5-$O%i%8%"%s$G$"$j!"(B
+EusLisp $@Fb$NA4$F$N4X?t$,MW5a$9$k3QEY0z?t$O!"%i%8%"%sI=8=$G$"$k!#(B}
 
-\funcdesc{deg2rad}{degree}{$@3QEYCM$r%i%8%"%sI=8=$KJQ49$9$k!#(J
-$@$^$?(J \#D $@$G$b<B9T$G$-$k!#(J}
+\funcdesc{deg2rad}{degree}{$@3QEYCM$r%i%8%"%sI=8=$KJQ49$9$k!#(B
+$@$^$?(B \#D $@$G$b<B9T$G$-$k!#(B}
 \end{refdesc}
 
-\subsection{$@4pK\4X?t(J}
+\subsection{$@4pK\4X?t(B}
 \begin{refdesc}
-\funcdesc{sin}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(J {\tt float} $@CM!#(J
-$\sin(theta)$$@$rJV$9!#(J}
-\funcdesc{cos}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(J {\tt float} $@CM!#(J
-$\cos(theta)$$@$rJV$9!#(J}
-\funcdesc{tan}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(J {\tt float} $@CM!#(J
-$\tan(theta)$$@$rJV$9!#(J}
-\funcdesc{sinh}{x}{ hyperbolic sine$@!"(J
-$\frac{e^{x}-e^{-x}}{2}$$@$GI=$5$l$k!#(J}
-\funcdesc{cosh}{x}{ hyperbolic cosine$@!"(J
-$\frac{e^{x}+e^{-x}}{2}$$@$GI=$5$l$k!#(J}
-\funcdesc{tanh}{x}{ hyperbolic tangent$@!"(J
-$\frac{e^{x}+e^{-x}}{e^{x}-e^{-x}}$$@$GI=$5$l$k!#(J}
-\funcdesc{asin}{number}{{\em number}$@$N(Jarc sine$@$rJV$9!#(J}
-\funcdesc{acos}{number}{{\em number}$@$N(Jarc cosine$@$rJV$9!#(J}
+\funcdesc{sin}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(B {\tt float} $@CM!#(B
+$\sin(theta)$$@$rJV$9!#(B}
+\funcdesc{cos}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(B {\tt float} $@CM!#(B
+$\cos(theta)$$@$rJV$9!#(B}
+\funcdesc{tan}{theta}{{\em theta} $@$O%i%8%"%s$GI=$5$l$k(B {\tt float} $@CM!#(B
+$\tan(theta)$$@$rJV$9!#(B}
+\funcdesc{sinh}{x}{ hyperbolic sine$@!"(B
+$\frac{e^{x}-e^{-x}}{2}$$@$GI=$5$l$k!#(B}
+\funcdesc{cosh}{x}{ hyperbolic cosine$@!"(B
+$\frac{e^{x}+e^{-x}}{2}$$@$GI=$5$l$k!#(B}
+\funcdesc{tanh}{x}{ hyperbolic tangent$@!"(B
+$\frac{e^{x}+e^{-x}}{e^{x}-e^{-x}}$$@$GI=$5$l$k!#(B}
+\funcdesc{asin}{number}{{\em number}$@$N(Barc sine$@$rJV$9!#(B}
+\funcdesc{acos}{number}{{\em number}$@$N(Barc cosine$@$rJV$9!#(B}
 \funcdesc{atan}{y \&optional x}{
-{\bf atan} $@$,(J1$@$D$N0z?t$@$1$N$H$-!"(Jarctangent $@$r7W;;$9$k!#(J
-2$@$D$N0z?t$N$H$-!"(J{\tt atan}$(y/x)$ $@$r7W;;$9$k!#(J}
+{\bf atan} $@$,(B1$@$D$N0z?t$@$1$N$H$-!"(Barctangent $@$r7W;;$9$k!#(B
+2$@$D$N0z?t$N$H$-!"(B{\tt atan}$(y/x)$ $@$r7W;;$9$k!#(B}
 \funcdesc{asinh}{x}{hyperbolic arc sine.}
 \funcdesc{acosh}{x}{hyperbolic arc cosine.}
 \funcdesc{atanh}{x}{hyperbolic arc tangent.}
 
-\funcdesc{sqrt}{number}{{\em number} $@$NJ?J}:,$rJV$9!#(J}
+\funcdesc{sqrt}{number}{{\em number} $@$NJ?J}:,$rJV$9!#(B}
 
-\funcdesc{log}{number}{{\em number} $@$N<+A3BP?t$rJV$9!#(J}
+\funcdesc{log}{number}{{\em number} $@$N<+A3BP?t$rJV$9!#(B}
 
-\funcdesc{exp}{x}{$e^{x}$$@$rJV$9!#(J}
+\funcdesc{exp}{x}{$e^{x}$$@$rJV$9!#(B}
 
 \funcdesc{expt}{a x}{
-{\em a}$@$N(J{\em x}$@>h$rJV$9!#(J}
+{\em a}$@$N(B{\em x}$@>h$rJV$9!#(B}
 \end{refdesc}
 
 \newpage

Modified: trunk/EusLisp/doc/jlatex/jcontact.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jcontact.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jcontact.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,21 +1,21 @@
-\subsection{\label{Contact}$@N)BN$N@\?(>uBV2r@O(J}
+\subsection{\label{Contact}$@N)BN$N@\?(>uBV2r@O(B}
 
-$@$3$N@a$N%a%=%C%I$*$h$S4X?t$O!"<!$N%U%!%$%k$K5-=R$5$l$F$$$k!#(J
+$@$3$N@a$N%a%=%C%I$*$h$S4X?t$O!"<!$N%U%!%$%k$K5-=R$5$l$F$$$k!#(B
 {\bf contact/model2const.l, con\-tact/in\-e\-qual\-i\-ties.l, contact/drawconst.l}
 
 \begin{refdesc}
 
-\funcdesc{constrained-motion}{c}{$@94B+(J{\em c}$@$rK~$?$7$F$$$k(J
-$@F0:n$N%j%9%H$rJV$9!#(J}
+\funcdesc{constrained-motion}{c}{$@94B+(B{\em c}$@$rK~$?$7$F$$$k(B
+$@F0:n$N%j%9%H$rJV$9!#(B}
 
-\funcdesc{constrained-force}{m}{$@94B+$5$l$F$$$k(J{\bf body}$@$+$i(J
-$@94B+$7$F$$$k(J{\bf body}$@$K2C$o$kNO$rJV$9!#(J{\em m}$@$O!"(J{\bf constrained-motion}
-$@$+$iJV$5$l$kF0:n$N%j%9%H$G$"$k!#(J}
+\funcdesc{constrained-force}{m}{$@94B+$5$l$F$$$k(B{\bf body}$@$+$i(B
+$@94B+$7$F$$$k(B{\bf body}$@$K2C$o$kNO$rJV$9!#(B{\em m}$@$O!"(B{\bf constrained-motion}
+$@$+$iJV$5$l$kF0:n$N%j%9%H$G$"$k!#(B}
 
-\funcdesc{draw-constraint}{c}{$@94B+(J{\em c}$@$rIA$/!#(J}
+\funcdesc{draw-constraint}{c}{$@94B+(B{\em c}$@$rIA$/!#(B}
 
-\funcdesc{draw-motion}{m a b}{{\em a}$@$,(J{\em b}$@$K@\?($7$F$$$k$H$-$K(J
-$@<h$jF@$kF0:n$rIA$/!#%j%?!<%s%-!<$r2!$9$3$H$K$h$jIA2h$r;O$a$k!#(J}
+\funcdesc{draw-motion}{m a b}{{\em a}$@$,(B{\em b}$@$K@\?($7$F$$$k$H$-$K(B
+$@<h$jF@$kF0:n$rIA$/!#%j%?!<%s%-!<$r2!$9$3$H$K$h$jIA2h$r;O$a$k!#(B}
 \end{refdesc}
 Example\\
 \begin{verbatim}
@@ -50,7 +50,7 @@
 (draw-motion m)
 \end{verbatim}
 \clearpage
-$@94B+$NNc$r<!$N?^$G<($9!#?^$N>.$5$JLp0u$O!$%Z%0$KBP$9$k94B+$r<($9!#(J
+$@94B+$NNc$r<!$N?^$G<($9!#?^$N>.$5$JLp0u$O!$%Z%0$KBP$9$k94B+$r<($9!#(B
 \\
 \begin{figure}[h]
 \epsfile{file=fig/fig-peg-in-hole1.ps,width=7.9cm}
@@ -61,8 +61,8 @@
 \label{fig:peg-in-hole}
 \end{figure}
 \clearpage
-$@%Z%0$r7j$KF~$l$k:n6H$K$*$$$F<h$jF@$kF0:n$NNc$r<!$N?^$G<($9!#(J
-$@$3$NNc$O!$>e5-$N%W%m%0%i%`$H0lCW$7$F$$$k!#(J
+$@%Z%0$r7j$KF~$l$k:n6H$K$*$$$F<h$jF@$kF0:n$NNc$r<!$N?^$G<($9!#(B
+$@$3$NNc$O!$>e5-$N%W%m%0%i%`$H0lCW$7$F$$$k!#(B
 \begin{figure}[h]
 \begin{center}
 \epsfile{file=fig/fig-peg-naname-m1.ps,width=7.9cm}

Modified: trunk/EusLisp/doc/jlatex/jcontrols.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jcontrols.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jcontrols.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,164 +1,164 @@
-\section{$@@)8f9=B$(J}
-\markright{\arabic{section}. $@@)8f9=B$(J}
-\subsection{$@>r7oJ8(J}
+\section{$@@)8f9=B$(B}
+\markright{\arabic{section}. $@@)8f9=B$(B}
+\subsection{$@>r7oJ8(B}
 
-{\bf and,or}$@$*$h$S(J{\bf cond}$@$O!"(JCommon Lisp$@$K$*$$$F%^%/%m$H$7$FCN$i$l$F$$$k$,!"(J
-EusLisp$@$G$O%$%s%?%W%j%?;~$N8zN($r2~A1$9$k$?$a$KFC<l=q<0$H$7$F<B9T$5$l$k!#(J
+{\bf and,or}$@$*$h$S(B{\bf cond}$@$O!"(BCommon Lisp$@$K$*$$$F%^%/%m$H$7$FCN$i$l$F$$$k$,!"(B
+EusLisp$@$G$O%$%s%?%W%j%?;~$N8zN($r2~A1$9$k$?$a$KFC<l=q<0$H$7$F<B9T$5$l$k!#(B
 
 \begin{refdesc}
 \specialdesc{and}{\{form\}*}{
-{\em form}$@$O!"(JNIL$@$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(J
-$@$b$7!"A4$F$N=q<0$,(Jnon-NIL$@$H$7$FI>2A$5$l$k$J$i$P!"(J
-$@:G8e$NCM$,JV$5$l$k!#(J}
+{\em form}$@$O!"(BNIL$@$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(B
+$@$b$7!"A4$F$N=q<0$,(Bnon-NIL$@$H$7$FI>2A$5$l$k$J$i$P!"(B
+$@:G8e$NCM$,JV$5$l$k!#(B}
 
 \specialdesc{or}{\{form\}*}{
-{\em form}$@$O!"(Jnon-NIL$@CM$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(J
-$@$=$7$F!"$=$NCM$,JV$5$l$k!#(J
-$@$b$7!"A4$F$N=q<0$,(JNIL$@$H$7$FI>2A$5$l$k$J$i$P!"(JNIL$@$rJV$9!#(J}
+{\em form}$@$O!"(Bnon-NIL$@CM$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(B
+$@$=$7$F!"$=$NCM$,JV$5$l$k!#(B
+$@$b$7!"A4$F$N=q<0$,(BNIL$@$H$7$FI>2A$5$l$k$J$i$P!"(BNIL$@$rJV$9!#(B}
 
 \specialdesc{if}{test then [else]}{
-{\bf if}$@$O!"#1$D$N(J{\it then}$@$H(J{\it else}$@=q<0$N$_$r;}$D$3$H$,$G$-$k!#(J
-$@$=$3$KB?=E=q<0$r=q$-$?$$$H$-$O!"(J{\bf progn}$@$r;H$C$F(J
-$@%0%k!<%W2=$7$J$1$l$P$J$i$J$$!#(J}
+{\bf if}$@$O!"#1$D$N(B{\it then}$@$H(B{\it else}$@=q<0$N$_$r;}$D$3$H$,$G$-$k!#(B
+$@$=$3$KB?=E=q<0$r=q$-$?$$$H$-$O!"(B{\bf progn}$@$r;H$C$F(B
+$@%0%k!<%W2=$7$J$1$l$P$J$i$J$$!#(B}
 
 \macrodesc{when}{test forms}{
-{\bf if}$@$H0c$C$F!"(J
-{\bf when}$@$H(J{\bf unless}$@$O!"B?=E(J{\em $@=q<0(J}$@$G=q$/$3$H$r5v2D$7$F$$$k!#(J
-{\em test}$@$NI>2A$,(Jnon-NIL$@$N$H$-!"(J{\bf when}$@$O<B9T$5$l!"(J
-$@I>2A$,(JNIL$@$N$H$-!"(J{\em unless}$@$O<B9T$5$l$k!#(J
-$@$b$&0lJ}$G!"$3$l$i$N%^%/%m$O(J{\em else}$@=q<0$rDI2C$9$k$3$H$r(J
-$@5v2D$7$F$$$J$$!#(J}
+{\bf if}$@$H0c$C$F!"(B
+{\bf when}$@$H(B{\bf unless}$@$O!"B?=E(B{\em $@=q<0(B}$@$G=q$/$3$H$r5v2D$7$F$$$k!#(B
+{\em test}$@$NI>2A$,(Bnon-NIL$@$N$H$-!"(B{\bf when}$@$O<B9T$5$l!"(B
+$@I>2A$,(BNIL$@$N$H$-!"(B{\em unless}$@$O<B9T$5$l$k!#(B
+$@$b$&0lJ}$G!"$3$l$i$N%^%/%m$O(B{\em else}$@=q<0$rDI2C$9$k$3$H$r(B
+$@5v2D$7$F$$$J$$!#(B}
 
 \macrodesc{unless}{test forms}{
-{\tt(when (not {\em test}) . {\em forms})}$@$HF1Ey$G$"$k!#(J}
+{\tt(when (not {\em test}) . {\em forms})}$@$HF1Ey$G$"$k!#(B}
 
 \specialdesc{cond}{{(test \{form\}*)}*}{
-$@G$0U$N?t$N>r7o9`$O!"(J{\bf cond}$@$N8e$KB3$1$k$3$H$,$G$-$k!#(J
-$@$=$l$>$l$N>r7o9`$K$*$$$F!":G=i$N=q<0(J{\em test}$@$,I>2A$5$l$k!#(J
-$@$b$7!"(Jnon-NIL$@$G$"$C$?$H$-!"$=$N>r7o9`$N;D$j$N=q<0$O!"B3$$$FI>2A$5$l$k!#(J
-$@$=$7$F!":G8e$NCM$,JV$5$l$k!#(J
-$@$b$7!"(J{\em test}$@$N$"$H$K=q<0$,$J$+$C$?$J$i$P!"(J
-{\em test}$@$NCM$,JV$5$l$k!#(J
-{\em test}$@$,<:GT$7$?$H$-!"<!$N>r7o9`$O(J{\em test}$@$,(Jnon-NIL$@I>2A$5$l$k$+$^$?$O(J
-$@A4$F$N>r7o9`$,?T$-$F$7$^$&$^$G7+$jJV$5$l$k!#(J
-$@>r7o9`$,?T$-$F$7$^$C$?>l9g!"(J{\bf cond}$@$O(JNIL$@$rJV$9!#(J}
+$@G$0U$N?t$N>r7o9`$O!"(B{\bf cond}$@$N8e$KB3$1$k$3$H$,$G$-$k!#(B
+$@$=$l$>$l$N>r7o9`$K$*$$$F!":G=i$N=q<0(B{\em test}$@$,I>2A$5$l$k!#(B
+$@$b$7!"(Bnon-NIL$@$G$"$C$?$H$-!"$=$N>r7o9`$N;D$j$N=q<0$O!"B3$$$FI>2A$5$l$k!#(B
+$@$=$7$F!":G8e$NCM$,JV$5$l$k!#(B
+$@$b$7!"(B{\em test}$@$N$"$H$K=q<0$,$J$+$C$?$J$i$P!"(B
+{\em test}$@$NCM$,JV$5$l$k!#(B
+{\em test}$@$,<:GT$7$?$H$-!"<!$N>r7o9`$O(B{\em test}$@$,(Bnon-NIL$@I>2A$5$l$k$+$^$?$O(B
+$@A4$F$N>r7o9`$,?T$-$F$7$^$&$^$G7+$jJV$5$l$k!#(B
+$@>r7o9`$,?T$-$F$7$^$C$?>l9g!"(B{\bf cond}$@$O(BNIL$@$rJV$9!#(B}
 
 \macrodesc{case}{key \{(\{label $|$ (\{lab\}*) \{form\}*)\}*}{
-{\em key}$@$H(J{\em label}$@$,0lCW$7$?>r7o9`$K$D$$$F!"(J
-{\em form}$@$,I>2A$5$l!":G8e$NCM$,JV$5$l$k!#(J
-{\em key}$@$H(J{\em label}$@$N4V$NEy2A$O!"(J{\bf eq}$@$^$?$O(J
-{\bf memq}$@$G9T$o$l!"(J{\bf equal}$@$G$O$J$$!#(J}
+{\em key}$@$H(B{\em label}$@$,0lCW$7$?>r7o9`$K$D$$$F!"(B
+{\em form}$@$,I>2A$5$l!":G8e$NCM$,JV$5$l$k!#(B
+{\em key}$@$H(B{\em label}$@$N4V$NEy2A$O!"(B{\bf eq}$@$^$?$O(B
+{\bf memq}$@$G9T$o$l!"(B{\bf equal}$@$G$O$J$$!#(B}
 
 \end{refdesc}
 
-\subsection{$@C`<!<B9T$H(JLet}
+\subsection{$@C`<!<B9T$H(BLet}
 
 \begin{refdesc}
 \funcdesc{prog1}{form1 \&rest forms}{
-{\em form1}$@$H(J{\em forms}$@$O!"<!!9$HI>2A$5$l!"(J
-{\em form1}$@$+$iJV$5$l$kCM$,(J{\bf prog1}$@$NCM$H$7$FJV$5$l$k!#(J}
+{\em form1}$@$H(B{\em forms}$@$O!"<!!9$HI>2A$5$l!"(B
+{\em form1}$@$+$iJV$5$l$kCM$,(B{\bf prog1}$@$NCM$H$7$FJV$5$l$k!#(B}
 
 \specialdesc{progn}{\{form\}*}{
-{\em form}$@$O<!!9$KI>2A$5$l!":G8e$N(J{\em form}$@$NCM$,JV$5$l$k!#(J
-{\bf progn}$@$OFC<l=q<0$G$"$k!#$J$<$J$i!"%U%!%$%k$N:G=i$K8=$l$?$H$-(J
-$@FCJL$J0UL#$r;}$D$+$i$G$"$k!#(J
-$@$=$N$h$&$J=q<0$,%3%s%Q%$%k$5$l$?$H$-!"FbIt=q<0$O$9$Y$F:G=i$K8=$l$?(J
-$@$H$7$F8+$J$9!#(J
-$@%^%/%m$,(J{\bf defun}$@$d(J{\bf defmethod}$@$NO"B3$G3HD%$5$l$k>l9g!"$=$l$,:G=i$K(J
-$@8=$o$l$J$1$l$P$J$i$J$$$H$-$KLrN)$D!#(J}
+{\em form}$@$O<!!9$KI>2A$5$l!":G8e$N(B{\em form}$@$NCM$,JV$5$l$k!#(B
+{\bf progn}$@$OFC<l=q<0$G$"$k!#$J$<$J$i!"%U%!%$%k$N:G=i$K8=$l$?$H$-(B
+$@FCJL$J0UL#$r;}$D$+$i$G$"$k!#(B
+$@$=$N$h$&$J=q<0$,%3%s%Q%$%k$5$l$?$H$-!"FbIt=q<0$O$9$Y$F:G=i$K8=$l$?(B
+$@$H$7$F8+$J$9!#(B
+$@%^%/%m$,(B{\bf defun}$@$d(B{\bf defmethod}$@$NO"B3$G3HD%$5$l$k>l9g!"$=$l$,:G=i$K(B
+$@8=$o$l$J$1$l$P$J$i$J$$$H$-$KLrN)$D!#(B}
 
 \macrodesc{setf}{\{access-form value\}*}{
-{\em value}$@$r0lHL2=JQ?t(J{\em access-form}$@$K3d$jEv$F$k!#(J}
+{\em value}$@$r0lHL2=JQ?t(B{\em access-form}$@$K3d$jEv$F$k!#(B}
 
 \specialdesc{let}{(\{var $|$ (var [value])\}*) \{declare\}* \{form\}*}{
-$@%m!<%+%kJQ?t$r@8@.$9$k!#(J
-$@$9$Y$F$N(J{\em value}$@$OI>2A$5$l!"JB9T$7$F(J{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(J
-{\tt (let ((a 1)) (let ((a (1+ a)) (b a)) (list a b)))} $@$N7k2L$O(J
-(2 1)$@$G$"$k!#(J}
+$@%m!<%+%kJQ?t$r@8@.$9$k!#(B
+$@$9$Y$F$N(B{\em value}$@$OI>2A$5$l!"JB9T$7$F(B{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(B
+{\tt (let ((a 1)) (let ((a (1+ a)) (b a)) (list a b)))} $@$N7k2L$O(B
+(2 1)$@$G$"$k!#(B}
 
 \specialdesc{let*}{(\{var $|$ (var [value])\}*) \{declare\}* \{form\}*}{
-$@%m!<%+%kJQ?t$r@8@.$9$k!#(J
-$@A4$F$N(J{\em value}$@$O<!!9$KI>2A$5$l!"(J{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(J
-{\tt (let ((a 1)) (let* ((a (1+ a)) (b a)) (list a b)))}$@$N7k2L$O(J
-(2 2)$@$G$"$k!#(J}
+$@%m!<%+%kJQ?t$r@8@.$9$k!#(B
+$@A4$F$N(B{\em value}$@$O<!!9$KI>2A$5$l!"(B{\em var}$@$K3d$jEv$F$i$l$k!#$9$J$o$A!"(B
+{\tt (let ((a 1)) (let* ((a (1+ a)) (b a)) (list a b)))}$@$N7k2L$O(B
+(2 2)$@$G$"$k!#(B}
 \end{refdesc}
 
-\subsection{$@%m!<%+%k4X?t(J}
+\subsection{$@%m!<%+%k4X?t(B}
 \begin{refdesc}
 \specialdesc{flet}{ (\{(fname lambda-list . body)\}*) \{form\}*}{
-$@%m!<%+%k4X?t$rDj5A$9$k!#(J}
+$@%m!<%+%k4X?t$rDj5A$9$k!#(B}
 
 \specialdesc{labels}{ (\{(fname lambda-list . body)\}*) \{form\}*}{
-$@%m!<%+%k$J%9%3!<%W$H$J$k4X?t$rDj5A$9$k!#(J
-{\bf flet}$@$H(J{\bf labels}$@$H$N0c$$$O!"(J
-{\bf flet}$@$GDj5A$5$l$?%m!<%+%k4X?t$O!"$=$NB>$N4X?t$r;2>H$^$?$O:F5"$G$-$J$$$,!"(J
-{\bf labels}$@$OAj8_$N;2>H$r5v2D$9$k!#(J}
+$@%m!<%+%k$J%9%3!<%W$H$J$k4X?t$rDj5A$9$k!#(B
+{\bf flet}$@$H(B{\bf labels}$@$H$N0c$$$O!"(B
+{\bf flet}$@$GDj5A$5$l$?%m!<%+%k4X?t$O!"$=$NB>$N4X?t$r;2>H$^$?$O:F5"$G$-$J$$$,!"(B
+{\bf labels}$@$OAj8_$N;2>H$r5v2D$9$k!#(B}
 \end{refdesc}
 
-\subsection{$@%V%m%C%/$H(JExit}
+\subsection{$@%V%m%C%/$H(BExit}
 \begin{refdesc}
 \specialdesc{block}{tag \{form\}*}{
-{\bf return-from}$@$K$h$C$FC&=P2DG=$J%m!<%+%k%V%m%C%/$r:n$k!#(J
-{\em tag}$@$O!"%m!<%+%k$K%9%3!<%W$5$l!"I>2A$5$l$J$$!#(J}
+{\bf return-from}$@$K$h$C$FC&=P2DG=$J%m!<%+%k%V%m%C%/$r:n$k!#(B
+{\em tag}$@$O!"%m!<%+%k$K%9%3!<%W$5$l!"I>2A$5$l$J$$!#(B}
 
 \specialdesc{return-from}{tag value}{
-{\em tag}$@$K$h$C$F<($5$l$?%V%m%C%/$rC&=P$9$k!#(J
-{\bf return-from}$@$O!"4X?t$d%a%=%C%I$+$iC&=P$9$k$H$-$K;HMQ$5$l$k!#(J
-$@4X?t$d%a%=%C%I$O!"$=$NK\BN$r$9$Y$F<h$j0O$s$@ItJ,$r%V%m%C%/$H$7$F(J
-$@<+F0E*$K3NDj$5$l!"$=$N4X?t$^$?$O%a%=%C%I$NL>A0$rIU$1$k!#(J}
+{\em tag}$@$K$h$C$F<($5$l$?%V%m%C%/$rC&=P$9$k!#(B
+{\bf return-from}$@$O!"4X?t$d%a%=%C%I$+$iC&=P$9$k$H$-$K;HMQ$5$l$k!#(B
+$@4X?t$d%a%=%C%I$O!"$=$NK\BN$r$9$Y$F<h$j0O$s$@ItJ,$r%V%m%C%/$H$7$F(B
+$@<+F0E*$K3NDj$5$l!"$=$N4X?t$^$?$O%a%=%C%I$NL>A0$rIU$1$k!#(B}
 
 \macrodesc{return}{value}{
-{\tt  (return x)}$@$O!"(J{\tt (return-from nil x)}$@$HF1Ey$G$"$k!#(J
-{\bf loop, while, do, dolist, dotimes}$@$O!"0EL[E*$K(JNIL$@$HL>A0$,IU$1$i$l$?(J
-$@%V%m%C%/$H$7$F3NDj$5$l$k$?$a!"$3$l$i$NFC<l=q<0$HAH$_9g$o$;$F;HMQ$9$k!#(J}
+{\tt  (return x)}$@$O!"(B{\tt (return-from nil x)}$@$HF1Ey$G$"$k!#(B
+{\bf loop, while, do, dolist, dotimes}$@$O!"0EL[E*$K(BNIL$@$HL>A0$,IU$1$i$l$?(B
+$@%V%m%C%/$H$7$F3NDj$5$l$k$?$a!"$3$l$i$NFC<l=q<0$HAH$_9g$o$;$F;HMQ$9$k!#(B}
 
 \specialdesc{catch}{ tag \{form\}*}{
-{\bf throw}$@$K$h$C$FC&=P$^$?$OCM$rJV$9$?$a$NF0E*$J%V%m%C%/$r3NDj$9$k!#(J
-{\em tag}$@$OI>2A$5$l$k!#(J
+{\bf throw}$@$K$h$C$FC&=P$^$?$OCM$rJV$9$?$a$NF0E*$J%V%m%C%/$r3NDj$9$k!#(B
+{\em tag}$@$OI>2A$5$l$k!#(B
 
-$@A4$F8+$($k(J{\bf catch}$@$N(J{\em tag}$@$O!"(J{\tt sys:list-all-catchers}$@$+$iF@$k$3$H$,$G$-$k!#(J}
+$@A4$F8+$($k(B{\bf catch}$@$N(B{\em tag}$@$O!"(B{\tt sys:list-all-catchers}$@$+$iF@$k$3$H$,$G$-$k!#(B}
 
 \specialdesc{throw}{tag value}{
-{\bf catch}$@%V%m%C%/$+$iC&=P$^$?$O(J{\em value}$@$rJV$9!#(J
-{\em tag}$@$H(J{\em value}$@$OI>2A$5$l$k!#(J}
+{\bf catch}$@%V%m%C%/$+$iC&=P$^$?$O(B{\em value}$@$rJV$9!#(B
+{\em tag}$@$H(B{\em value}$@$OI>2A$5$l$k!#(B}
 
 \specialdesc{unwind-protect}{protected-form \{cleanup-form\}*}{
-{\em protected-form}$@$NI>2A$,=*$C$?8e!"(J
-{\em cleanup-form}$@$,I>2A$5$l$k!#(J
-{\bf unwind-protect}$@$N30B&$K%V%m%C%/$^$?$O(J{\bf catch}
-$@%V%m%C%/$r:n$C$F$b9=$o$J$$!#(J
+{\em protected-form}$@$NI>2A$,=*$C$?8e!"(B
+{\em cleanup-form}$@$,I>2A$5$l$k!#(B
+{\bf unwind-protect}$@$N30B&$K%V%m%C%/$^$?$O(B{\bf catch}
+$@%V%m%C%/$r:n$C$F$b9=$o$J$$!#(B
 
-{\bf return-from}$@$d(J{\bf throw}$@$G$5$(!"$=$N$h$&$J%V%m%C%/$+$i(J
-$@H4$1=P$9$?$a$K$O(J{\em protected-form}$@$NCf$G<B9T$5$l$k!#(J
-{\em cleanup-form}$@$O!"I>2A$5$l$k$3$H$,J]>Z$5$l$F$$$k!#(J
-$@$^$?!"$b$7(J{\em protected-form}$@$,<B9T$5$l$F$$$k4V$K%(%i!<$,5/$3$C$?$J$i$P!"(J
-{\em cleanup-form}$@$O$$$D$b(J{\bf reset}$@$K$h$C$F<B9T$5$l$k!#(J}
+{\bf return-from}$@$d(B{\bf throw}$@$G$5$(!"$=$N$h$&$J%V%m%C%/$+$i(B
+$@H4$1=P$9$?$a$K$O(B{\em protected-form}$@$NCf$G<B9T$5$l$k!#(B
+{\em cleanup-form}$@$O!"I>2A$5$l$k$3$H$,J]>Z$5$l$F$$$k!#(B
+$@$^$?!"$b$7(B{\em protected-form}$@$,<B9T$5$l$F$$$k4V$K%(%i!<$,5/$3$C$?$J$i$P!"(B
+{\em cleanup-form}$@$O$$$D$b(B{\bf reset}$@$K$h$C$F<B9T$5$l$k!#(B}
 
 \end{refdesc}
 
-\subsection{$@7+JV$7(J}
+\subsection{$@7+JV$7(B}
 
 \begin{refdesc}
 
 \specialdesc{while}{test \{form\}*}{
-{\em test}$@$,(Jnon-NIL$@$HI>2A$5$l$F$$$k4V!"(J
-{\em form}$@$O!"7+JV$7I>2A$5$l$k!#(J
-{\bf while}$@$O!"(J{\em form}$@$N$^$o$j$K(JNIL$@$HL>IU$1$i$l$k%V%m%C%/$r<+F0E*$K3NDj$9$k(J
-$@FC<l=q<0$G$"$k!#(J
-{\bf return}$@$O!"$=$N%k!<%W$+$iH4$1=P$9$?$a$K;HMQ$9$k$3$H$,$G$-$k!#(J}
+{\em test}$@$,(Bnon-NIL$@$HI>2A$5$l$F$$$k4V!"(B
+{\em form}$@$O!"7+JV$7I>2A$5$l$k!#(B
+{\bf while}$@$O!"(B{\em form}$@$N$^$o$j$K(BNIL$@$HL>IU$1$i$l$k%V%m%C%/$r<+F0E*$K3NDj$9$k(B
+$@FC<l=q<0$G$"$k!#(B
+{\bf return}$@$O!"$=$N%k!<%W$+$iH4$1=P$9$?$a$K;HMQ$9$k$3$H$,$G$-$k!#(B}
 
 \specialdesc{tagbody}{\{tag $|$ statement\}*}{
-{\em tag}$@$O!"(J{\bf go}$@$N$?$a$KL>IU$1$i$l$k!#(J
-{\bf tagbody}$@$NCf$N$_(J{\bf go}$@$r;HMQ$9$k$3$H$,$G$-$k!#(J}
+{\em tag}$@$O!"(B{\bf go}$@$N$?$a$KL>IU$1$i$l$k!#(B
+{\bf tagbody}$@$NCf$N$_(B{\bf go}$@$r;HMQ$9$k$3$H$,$G$-$k!#(B}
 
 \specialdesc{go}{tag}{
-$@%m!<%+%k$K%9%3!<%W$5$l$?(J{\bf tagbody}$@$N$J$+$K8=$l$k(J{\em tag}$@$ND>8e$N(J
-$@=q<0$K@)8f$r0\$9!#(J
-$@%m!<%+%k%9%3!<%W$r2#@Z$C$F0c$&(J{\bf tagbody}$@$N(Jtag$@$K@)8f$r0\$9$3$H$O(J
-$@6X;_$5$l$F$$$k!#(J}
+$@%m!<%+%k$K%9%3!<%W$5$l$?(B{\bf tagbody}$@$N$J$+$K8=$l$k(B{\em tag}$@$ND>8e$N(B
+$@=q<0$K@)8f$r0\$9!#(B
+$@%m!<%+%k%9%3!<%W$r2#@Z$C$F0c$&(B{\bf tagbody}$@$N(Btag$@$K@)8f$r0\$9$3$H$O(B
+$@6X;_$5$l$F$$$k!#(B}
 
 \macrodesc{prog}{(\{var $|$ (var [init])\}*) \{tag $|$ statement\}*}{
-{\bf prog}$@$O%^%/%m$G!"0J2<$N$h$&$KE83+$5$l$k!#(J
+{\bf prog}$@$O%^%/%m$G!"0J2<$N$h$&$KE83+$5$l$k!#(B
 \ptext{
 (block nil 
     (let {\em var}
@@ -168,92 +168,92 @@
 
 \macrodesc{do}{(\{(var init [next])\}*) (endtest [result])\{declare\} \{form\}
 *}
-{{\em var}$@$O%m!<%+%kJQ?t$G$"$k!#(J
-$@$=$l$>$l$N(J{\em var}$@$K!"(J{\em init}$@$OJB9T$KI>2A$5$l!"3d$jEv$F$i$l$k!#(J
-$@$D$.$K!"(J{\em endtest}$@$,I>2A$5$l!"$b$7??$N$H$-(J{\bf do}$@$O(J{\em result}$@$rJV$9!#(J
- ($@$=$&$G$J$$$H$-$O!"(JNIL$@$rJV$9(J)
-$@$b$7(J{\em endtest}$@$,(JNIL$@$rJV$7$?$J$i$P!"$=$l$>$l$N(J{\em form}$@$O!"(J
-$@=gHV$KI>2A$5$l$k!#(J
-$@=q<0$NI>2A8e!"(J{\em next}$@$,I>2A$5$l!"$=$NCM$O(J
-$@$=$l$>$l$N(J{\em var}$@$K:F3dEv$5$l!"<!$N7+JV$7$,;O$^$k!#(J}
+{{\em var}$@$O%m!<%+%kJQ?t$G$"$k!#(B
+$@$=$l$>$l$N(B{\em var}$@$K!"(B{\em init}$@$OJB9T$KI>2A$5$l!"3d$jEv$F$i$l$k!#(B
+$@$D$.$K!"(B{\em endtest}$@$,I>2A$5$l!"$b$7??$N$H$-(B{\bf do}$@$O(B{\em result}$@$rJV$9!#(B
+ ($@$=$&$G$J$$$H$-$O!"(BNIL$@$rJV$9(B)
+$@$b$7(B{\em endtest}$@$,(BNIL$@$rJV$7$?$J$i$P!"$=$l$>$l$N(B{\em form}$@$O!"(B
+$@=gHV$KI>2A$5$l$k!#(B
+$@=q<0$NI>2A8e!"(B{\em next}$@$,I>2A$5$l!"$=$NCM$O(B
+$@$=$l$>$l$N(B{\em var}$@$K:F3dEv$5$l!"<!$N7+JV$7$,;O$^$k!#(B}
 
 \macrodesc{do*}{(\{var init [next]\}*) (endtest [result])\{declare\} \{form\}*}
-{{\bf do*}$@$O!"(J{\em init}$@$H(J{\em next}$@$NI>2A$H(J
-{\em var}$@$X$N3d$jEv$F$,O"B3E*$K5/$3$k$3$H$r=|$$$F!"(J{\bf do}$@$HF1MM$G$"$k!#(J}
+{{\bf do*}$@$O!"(B{\em init}$@$H(B{\em next}$@$NI>2A$H(B
+{\em var}$@$X$N3d$jEv$F$,O"B3E*$K5/$3$k$3$H$r=|$$$F!"(B{\bf do}$@$HF1MM$G$"$k!#(B}
 
 \macrodesc{dotimes}{(var count [result]) \{forms\}*}{
-{\em forms}$@$NI>2A$r(J{\em count}$@2s9T$&!#(J
-{\em count}$@$O!"0l2s$N$_I>2A$5$l$k!#(J
-$@$=$l$>$l$NI>2A$NCf$G!"(J{\em var}$@$O@0?t$N%<%m$+$i(J
-{\em count}-1$@$^$GA}2C$9$k!#(J}
+{\em forms}$@$NI>2A$r(B{\em count}$@2s9T$&!#(B
+{\em count}$@$O!"0l2s$N$_I>2A$5$l$k!#(B
+$@$=$l$>$l$NI>2A$NCf$G!"(B{\em var}$@$O@0?t$N%<%m$+$i(B
+{\em count}-1$@$^$GA}2C$9$k!#(B}
 
 \macrodesc{dolist}{(var list [result]) \{forms\}*}{
-{\em list}$@$N$=$l$>$l$NMWAG$O!"(J{\em var}$@$KO"B3E*$KM?$($i$l$k!#(J
-$@$=$7$F(J{\em forms}$@$O!"$=$l$>$l$NCM$GI>2A$5$l$k!#(J
-{\bf dolist}$@$O!"B>$N7+JV$7$h$jAa$/<B9T$5$l$k!#$?$H$($P!"(J
-{\bf mapcar}$@$d:F5"E*4X?t$N$h$&$J$b$N$h$j!#(J
-$@$=$l$O!"(J{\bf dolist}$@$,4X?t$N(Jclosure$@$r:n$C$?$jE,MQ$7$?$j$9$kI,MW$,(J
-$@$J$/!"?7$7$$%Q%i%a!<%?$N%P%$%s%I$,I,MW$G$J$$$?$a!#(J}
+{\em list}$@$N$=$l$>$l$NMWAG$O!"(B{\em var}$@$KO"B3E*$KM?$($i$l$k!#(B
+$@$=$7$F(B{\em forms}$@$O!"$=$l$>$l$NCM$GI>2A$5$l$k!#(B
+{\bf dolist}$@$O!"B>$N7+JV$7$h$jAa$/<B9T$5$l$k!#$?$H$($P!"(B
+{\bf mapcar}$@$d:F5"E*4X?t$N$h$&$J$b$N$h$j!#(B
+$@$=$l$O!"(B{\bf dolist}$@$,4X?t$N(Bclosure$@$r:n$C$?$jE,MQ$7$?$j$9$kI,MW$,(B
+$@$J$/!"?7$7$$%Q%i%a!<%?$N%P%$%s%I$,I,MW$G$J$$$?$a!#(B}
 
 \macrodesc{until}{condition \{forms\}*}{
-{\em condition}$@$,K~$?$5$l$F$$$k4V!"(J{\em forms}$@$rI>2A$9$k!#(J}
+{\em condition}$@$,K~$?$5$l$F$$$k4V!"(B{\em forms}$@$rI>2A$9$k!#(B}
 
 \macrodesc{loop}{\{forms\}*}{
-{\em forms}$@$r1J1s$KI>2A$9$k!#(J
-$@<B9T$r;_$a$k$?$a$K$O!"(J{\bf return-from, throw}$@$^$?$O(J{\bf go}$@$,(J
-{\em forms}$@$N$J$+$GI>2A$5$l$J$1$l$P$J$i$J$$!#(J}
+{\em forms}$@$r1J1s$KI>2A$9$k!#(B
+$@<B9T$r;_$a$k$?$a$K$O!"(B{\bf return-from, throw}$@$^$?$O(B{\bf go}$@$,(B
+{\em forms}$@$N$J$+$GI>2A$5$l$J$1$l$P$J$i$J$$!#(B}
 
-\subsection{$@=R8l(J}
+\subsection{$@=R8l(B}
 
-Common Lisp$@$N(J{\bf typep}$@$H(J{\bf subtypep}$@$O$J$$$N$G!"(J
-{\bf subclassp}$@$d(J{\bf derivedp}$@$G5?;w<B8=$9$k$3$H!#(J
+Common Lisp$@$N(B{\bf typep}$@$H(B{\bf subtypep}$@$O$J$$$N$G!"(B
+{\bf subclassp}$@$d(B{\bf derivedp}$@$G5?;w<B8=$9$k$3$H!#(B
 
 \begin{refdesc}
 
-\funcdesc{eq}{obj1 obj2}{{\em obj1}$@$H(J{\em obj2}$@$,F1$8%*%V%8%'%/%H$r;X$9%]%$%s%?$"$k$$$OF1$8(J
-$@?tCM$N$H$-(JT$@$rJV$9!#(J
-$@Nc$($P(J:{\tt (eq 'a 'a)}$@$O(JT$@!"(J{\tt (eq 1 1)}$@$O(JT$@!"(J{\tt (eq 1. 1.0)}$@$O(JNIL$@!"(J
-{\tt (eq "a" "a")}$@$O(JNIL$@$G$"$k!#(J}
+\funcdesc{eq}{obj1 obj2}{{\em obj1}$@$H(B{\em obj2}$@$,F1$8%*%V%8%'%/%H$r;X$9%]%$%s%?$"$k$$$OF1$8(B
+$@?tCM$N$H$-(BT$@$rJV$9!#(B
+$@Nc$($P(B:{\tt (eq 'a 'a)}$@$O(BT$@!"(B{\tt (eq 1 1)}$@$O(BT$@!"(B{\tt (eq 1. 1.0)}$@$O(BNIL$@!"(B
+{\tt (eq "a" "a")}$@$O(BNIL$@$G$"$k!#(B}
 \funcdesc{eql}{obj1 obj2}{
-EusLisp$@$NCf$G?tCM$OA4$FD>@\CM$GI=8=$5$l$k$?$a!"(J{\bf eq}$@$H(J{\bf eql}$@$O(J
-$@F10l$G$"$k!#(J}
+EusLisp$@$NCf$G?tCM$OA4$FD>@\CM$GI=8=$5$l$k$?$a!"(B{\bf eq}$@$H(B{\bf eql}$@$O(B
+$@F10l$G$"$k!#(B}
 \funcdesc{equal}{obj1 obj2}{
-$@$$$m$s$J9=B$$N%*%V%8%'%/%H$NEy2A@-$r%A%'%C%/$9$k!#%*%V%8%'%/%H$O!"J8;zNs!&%Y%/%H%k!&(J
-$@9TNs$J$I$G:F5"E*$K;2>H$7$F$J$$$3$H$,J]>Z$5$l$J$1$l$P$J$i$J$$!#(J
-{\em obj1}$@$d(J{\em obj2}$@$,:F5"E*$K;2>H$5$l$F$$$?$H$9$k$H!"(J
-{\bf equal}$@$OL58B%k!<%W$H$J$k!#(J}
+$@$$$m$s$J9=B$$N%*%V%8%'%/%H$NEy2A@-$r%A%'%C%/$9$k!#%*%V%8%'%/%H$O!"J8;zNs!&%Y%/%H%k!&(B
+$@9TNs$J$I$G:F5"E*$K;2>H$7$F$J$$$3$H$,J]>Z$5$l$J$1$l$P$J$i$J$$!#(B
+{\em obj1}$@$d(B{\em obj2}$@$,:F5"E*$K;2>H$5$l$F$$$?$H$9$k$H!"(B
+{\bf equal}$@$OL58B%k!<%W$H$J$k!#(B}
 \funcdesc{superequal}{obj1 obj2}{
-{\bf superequal}$@$O!"4D>u;2>H$r%A%'%C%/$9$k$N$GCY$$!#$7$+$7%m%P%9%H$JEy2A$,F@$i$l$k!#(J}
+{\bf superequal}$@$O!"4D>u;2>H$r%A%'%C%/$9$k$N$GCY$$!#$7$+$7%m%P%9%H$JEy2A$,F@$i$l$k!#(B}
 
-\funcdesc{null}{object}{{\em object}$@$,(JNIL$@$N$H$-!"(JT$@$rJV$9!#(J
-{\tt (eq {\em object} nil)}$@$rI>2A$9$k!#(J}
+\funcdesc{null}{object}{{\em object}$@$,(BNIL$@$N$H$-!"(BT$@$rJV$9!#(B
+{\tt (eq {\em object} nil)}$@$rI>2A$9$k!#(B}
 \funcdesc{not}{object}{
-{\bf not}$@$O!"(J{\bf null}$@$HF10l$G$"$k!#(J}
+{\bf not}$@$O!"(B{\bf null}$@$HF10l$G$"$k!#(B}
 \funcdesc{atom}{object}{
-$@%*%V%8%'%/%H$,(Jcons$@$N%$%s%9%?%s%9$G$"$k;~$N$_!"(JNIL$@$rJV$9!#(J
+$@%*%V%8%'%/%H$,(Bcons$@$N%$%s%9%?%s%9$G$"$k;~$N$_!"(BNIL$@$rJV$9!#(B
 {\tt (atom nil) = (atom '()) = T)}\\
-$@Cm0U(J:vectors, strings, read-table, hash-table$@$J$I$KBP$7$F$O!"$=$l$i$,$I$s$J$K(J
-$@J#;($J%*%V%8%'%/%H$H$J$C$F$$$F$b(J{\bf atom}$@$O(JT$@$rJV$9!#(J}
+$@Cm0U(B:vectors, strings, read-table, hash-table$@$J$I$KBP$7$F$O!"$=$l$i$,$I$s$J$K(B
+$@J#;($J%*%V%8%'%/%H$H$J$C$F$$$F$b(B{\bf atom}$@$O(BT$@$rJV$9!#(B}
 \funcdesc{every}{pred \&rest args}{
-$@A4$F$N(J{\em args}$@$,(J{\em pred}$@$K$D$$$F(JT$@$rJV$7$?;~$N$_(J
-T$@$rJV$9!#(J{\bf every}$@$O!"(J{\em pred}$@$,A4$F$N(J{\em args}$@$KBP$7$F8zNO$,$"$k$+$I$&$+$r(J
-$@8!::$9$k;~$K;HMQ$5$l$k!#(J}
+$@A4$F$N(B{\em args}$@$,(B{\em pred}$@$K$D$$$F(BT$@$rJV$7$?;~$N$_(B
+T$@$rJV$9!#(B{\bf every}$@$O!"(B{\em pred}$@$,A4$F$N(B{\em args}$@$KBP$7$F8zNO$,$"$k$+$I$&$+$r(B
+$@8!::$9$k;~$K;HMQ$5$l$k!#(B}
 \funcdesc{some}{pred \&rest args}{
-{\em args}$@$N$&$A$I$l$+(J1$@$D$,(J{\em pred}$@$K$D$$$F(JT$@$rJV$7$?$H$-(J
-T$@$rJV$9!#(J{\bf some}$@$O!"(J{\em pred}$@$,(J{\em args}$@$N$I$l$+$KBP$7$F8zNO$,$"$k$+$I$&$+$r(J
-$@8!::$9$k;~$K;HMQ$5$l$k!#(J}
+{\em args}$@$N$&$A$I$l$+(B1$@$D$,(B{\em pred}$@$K$D$$$F(BT$@$rJV$7$?$H$-(B
+T$@$rJV$9!#(B{\bf some}$@$O!"(B{\em pred}$@$,(B{\em args}$@$N$I$l$+$KBP$7$F8zNO$,$"$k$+$I$&$+$r(B
+$@8!::$9$k;~$K;HMQ$5$l$k!#(B}
 \end{refdesc}
 \funcdesc{functionp}{object}{
-{\em object}$@$,(J{\bf apply}$@$d(J{\bf funcall}$@$GM?$($i$l$k4X?t%*%V%8%'%/%H$G$"$k$J$i(JT$@$rJV$9!#(J\\
-$@Cm0U(J:$@%^%/%m$O(J{\bf apply}$@$d(J{\bf funcall}$@$rE,MQ$9$k$3$H$,$G$-$J$$!#(J
-{\bf functionp}$@$O!"(J{\em object}$@$,!"(Jtype=0$@$N%3%s%Q%$%k%3!<%I$+!"4X?tDj5A$r;}$D(Jsymbol$@$+!"(J
-lambda-form$@$+$"$k$$$O(Jlambda-closure$@$G$"$C$?$H$-!"(JT$@$rJV$9!#(J
+{\em object}$@$,(B{\bf apply}$@$d(B{\bf funcall}$@$GM?$($i$l$k4X?t%*%V%8%'%/%H$G$"$k$J$i(BT$@$rJV$9!#(B\\
+$@Cm0U(B:$@%^%/%m$O(B{\bf apply}$@$d(B{\bf funcall}$@$rE,MQ$9$k$3$H$,$G$-$J$$!#(B
+{\bf functionp}$@$O!"(B{\em object}$@$,!"(Btype=0$@$N%3%s%Q%$%k%3!<%I$+!"4X?tDj5A$r;}$D(Bsymbol$@$+!"(B
+lambda-form$@$+$"$k$$$O(Blambda-closure$@$G$"$C$?$H$-!"(BT$@$rJV$9!#(B
 {\tt Examples: (functionp 'car) = T, (functionp 'do) = NIL}}
 \funcdesc{compiled-function-p}{object}{
-{\em object}$@$,!"%3%s%Q%$%k%3!<%I$N%$%s%9%?%s%9$G$"$C$?$H$-!"(JT$@$rJV$9!#(J
-$@$=$N%3%s%Q%$%k%3!<%I$,4X?t$+$^$?$O%^%/%m$+$rCN$k$?$a$K$O!"(J
-$@$=$N%*%V%8%'%/%H$K(J{\tt :type}$@%a%C%;!<%8$rAw$j!"$=$NJV$jCM$,(J
-{\tt function}$@$H(J{\tt macro}$@$N$I$A$i$K$J$C$F$$$k$+$rD4$Y$k!#(J}
+{\em object}$@$,!"%3%s%Q%$%k%3!<%I$N%$%s%9%?%s%9$G$"$C$?$H$-!"(BT$@$rJV$9!#(B
+$@$=$N%3%s%Q%$%k%3!<%I$,4X?t$+$^$?$O%^%/%m$+$rCN$k$?$a$K$O!"(B
+$@$=$N%*%V%8%'%/%H$K(B{\tt :type}$@%a%C%;!<%8$rAw$j!"$=$NJV$jCM$,(B
+{\tt function}$@$H(B{\tt macro}$@$N$I$A$i$K$J$C$F$$$k$+$rD4$Y$k!#(B}
 
 \end{refdesc}
 

Modified: trunk/EusLisp/doc/jlatex/jevaluation.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jevaluation.tex	2013-05-20 14:44:58 UTC (rev 633)
+++ trunk/EusLisp/doc/jlatex/jevaluation.tex	2013-05-20 14:56:33 UTC (rev 634)
@@ -1,684 +1,684 @@
-\section{$@I>2A(J}
-\markright{\arabic{section}. $@I>2A(J}
+\section{$@I>2A(B}
+\markright{\arabic{section}. $@I>2A(B}
 
-\subsection{$@I>2A4X?t(J}
+\subsection{$@I>2A4X?t(B}
 
-$@%(%i!<$d%7%0%J%k(J(signal)$@$K4X$9$k?6$kIq$$$r<($9$?$a$K!"(J
-$@$"$i$+$8$a$=$l$>$lFCJL$NJQ?t(J{\bf *error-handler*}$@$H(J{\bf *signal-handler*}
-$@$KE,Ev$J4X?t$r@_Dj$9$k!#(J
-$@=$@5$"$k$$$OB39T$G$-$k%(%i!<$O$J$$!#(J
-$@%(%i!<$r2r@O8e!"8=:_$N<B9T$r(J{\bf reset}$@$^$?$O>e0L%l%Y%k$X$NE,Ev$J(J{\bf throw}
-$@$K$h$C$FDd;_$7$J$1$l$P$J$i$J$$!#(J
-Euslisp$@$N:G>e0L%l%Y%k$G(J{\tt 0}$@$HL>IU$1$i$l$?(Jcatch frame$@$r:n@.$7$F$$$k$N$G!"(J
-{\bf reset}$@$O!"(J{\tt (throw 0 NIL)}$@$HF1Ey$G$"$k!#(J
+$@%(%i!<$d%7%0%J%k(B(signal)$@$K4X$9$k?6$kIq$$$r<($9$?$a$K!"(B
+$@$"$i$+$8$a$=$l$>$lFCJL$NJQ?t(B{\bf *error-handler*}$@$H(B{\bf *signal-handler*}
+$@$KE,Ev$J4X?t$r@_Dj$9$k!#(B
+$@=$@5$"$k$$$OB39T$G$-$k%(%i!<$O$J$$!#(B
+$@%(%i!<$r2r@O8e!"8=:_$N<B9T$r(B{\bf reset}$@$^$?$O>e0L%l%Y%k$X$NE,Ev$J(B{\bf throw}
+$@$K$h$C$FDd;_$7$J$1$l$P$J$i$J$$!#(B
+Euslisp$@$N:G>e0L%l%Y%k$G(B{\tt 0}$@$HL>IU$1$i$l$?(Bcatch frame$@$r:n@.$7$F$$$k$N$G!"(B
+{\bf reset}$@$O!"(B{\tt (throw 0 NIL)}$@$HF1Ey$G$"$k!#(B
 
-$@%(%i!<%O%s%I%i!<$O!"(J{\em code msg1 form \&optional (msg2)}
-$@$H$$$&(J3$@$D$"$k$$$O(J4$@$D$N0z$-?t$r;}$D4X?t$H$7$FDj5A$7$J$1$l$P$J$i$J$$!#(J
-{\em code}$@$O%(%i!<%3!<%I$G!"%7%9%F%`$GDj5A$5$l$?%(%i!<$r<($9!#(J
-$@Nc$($P!"(J14$@$,(J'$@0z$-?t$,9g$o$J$$(J'$@!"(J13$@$,(J'$@4X?t$,Dj5A$5$l$F$$$J$$(J'$@$H$J$k!#(J
-$@$3$l$i$NDj5A$O!"(J"c/eus.h"$@$NCf$KDj5A$5$l$F$$$k!#(J
-{\em msg1}$@$H(J{\em msg2}$@$O!"%f!<%6!<$K<($5$l$k%a%C%;!<%8$G$"$k!#(J
-{\em form}$@$O!"%(%i!<$K$h$C$F@8$8$?(Js$@I=8=$G$"$k!#(J
+$@%(%i!<%O%s%I%i!<$O!"(B{\em code msg1 form \&optional (msg2)}
+$@$H$$$&(B3$@$D$"$k$$$O(B4$@$D$N0z$-?t$r;}$D4X?t$H$7$FDj5A$7$J$1$l$P$J$i$J$$!#(B
+{\em code}$@$O%(%i!<%3!<%I$G!"%7%9%F%`$GDj5A$5$l$?%(%i!<$r<($9!#(B
+$@Nc$($P!"(B14$@$,(B'$@0z$-?t$,9g$o$J$$(B'$@!"(B13$@$,(B'$@4X?t$,Dj5A$5$l$F$$$J$$(B'$@$H$J$k!#(B
+$@$3$l$i$NDj5A$O!"(B"c/eus.h"$@$NCf$KDj5A$5$l$F$$$k!#(B
+{\em msg1}$@$H(B{\em msg2}$@$O!"%f!<%6!<$K<($5$l$k%a%C%;!<%8$G$"$k!#(B
+{\em form}$@$O!"%(%i!<$K$h$C$F@8$8$?(Bs$@I=8=$G$"$k!#(B
 
-$@%7%0%J%k%O%s%I%i!<$O!"(J{\em sig}$@$H(J{\em code}$@$N(J2$@$D$N0z$-?t$r<u$1$k4X?t$H$7$F(J
-$@Dj5A$5$l$J$1$l$P$J$i$J$$!#(J
-{\em sig}$@$O!"(J1$@$+$i(J30$@$^$G$N%7%0%J%kHV9f$G$"$k!#(J
-{\em code}$@$O!"%7%0%J%kHV9f$NCf$KDj5A$5$l$?Jd=uHV9f$G$"$k!#(J
+$@%7%0%J%k%O%s%I%i!<$O!"(B{\em sig}$@$H(B{\em code}$@$N(B2$@$D$N0z$-?t$r<u$1$k4X?t$H$7$F(B
+$@Dj5A$5$l$J$1$l$P$J$i$J$$!#(B
+{\em sig}$@$O!"(B1$@$+$i(B30$@$^$G$N%7%0%J%kHV9f$G$"$k!#(B
+{\em code}$@$O!"%7%0%J%kHV9f$NCf$KDj5A$5$l$?Jd=uHV9f$G$"$k!#(B
 
-$@:G>e0L%l%Y%k$G$N(J\verb+^+D({\em end-of-file})$@$O!"(JEuslisp$@$N3hF0$rDd;_$5$;$k!#(J
-$@$3$l$O!"(JEuslisp$@$r%U%#%k%?!<$H$7$F%W%m%0%i%`$5$l$F$$$k$H$-(J
-$@Lr$KN)$D!#(J
+$@:G>e0L%l%Y%k$G$N(B\verb+^+D({\em end-of-file})$@$O!"(BEuslisp$@$N3hF0$rDd;_$5$;$k!#(B
+$@$3$l$O!"(BEuslisp$@$r%U%#%k%?!<$H$7$F%W%m%0%i%`$5$l$F$$$k$H$-(B
+$@Lr$KN)$D!#(B
 
-{\bf eval-dynamic}$@$O!"(Jlet$@$d(Jlambda$@JQ?t$H$7$F;HMQ$5$l$k(Jsymbol$@$K7k$SIU$/(J
-$@F0E*$JJQ?t$rA\$94X?t$G$"$k!#(J
-$@%G%P%C%0$9$k$H$-$KLr$KN)$D!#(J
+{\bf eval-dynamic}$@$O!"(Blet$@$d(Blambda$@JQ?t$H$7$F;HMQ$5$l$k(Bsymbol$@$K7k$SIU$/(B
+$@F0E*$JJQ?t$rA\$94X?t$G$"$k!#(B
+$@%G%P%C%0$9$k$H$-$KLr$KN)$D!#(B
 
 \begin{refdesc}
 
 \funcdesc{identity}{obj}{
-{\em obj}$@<+?H$rJV$9!#(J
-{\bf idnetity}$@$H(J{\bf quote}$@$H$N0c$$$KCm0U$9$k$3$H!#(J
-{\bf identity}$@$,4X?t$G$"$k$N$KBP$7$F(J{\bf quote}$@$O!"FC<l=q<0(J(special form)
-$@$G$"$k!#(J
-$@$7$?$,$C$F!"(J{\tt (identity 'abc)}$@$O(J{\tt abc}$@$HI>2A$5$l$k$,!"(J
-{\tt (quote 'abc) == (quote (quote abc))}$@$O(J{\tt 'abc}$@$HI>2A$5$l$k!#(J
-{\bf identity}$@$O!"B?$/$N0lHLNs4X?t$N(J{\em :key}$@%Q%i%a!<%?$N%G%U%)%k%HCM(J
-$@$H$7$F$7$P$7$PMQ$$$i$l$k!#(J}
+{\em obj}$@<+?H$rJV$9!#(B
+{\bf idnetity}$@$H(B{\bf quote}$@$H$N0c$$$KCm0U$9$k$3$H!#(B
+{\bf identity}$@$,4X?t$G$"$k$N$KBP$7$F(B{\bf quote}$@$O!"FC<l=q<0(B(special form)
+$@$G$"$k!#(B
+$@$7$?$,$C$F!"(B{\tt (identity 'abc)}$@$O(B{\tt abc}$@$HI>2A$5$l$k$,!"(B
+{\tt (quote 'abc) == (quote (quote abc))}$@$O(B{\tt 'abc}$@$HI>2A$5$l$k!#(B
+{\bf identity}$@$O!"B?$/$N0lHLNs4X?t$N(B{\em :key}$@%Q%i%a!<%?$N%G%U%)%k%HCM(B
+$@$H$7$F$7$P$7$PMQ$$$i$l$k!#(B}
 
 \funcdesc{eval}{form [environment]}{
-{\em form}$@$rI>2A$7$F!"$=$NCM$rJV$9!#(J
-$@$b$7!"(J{\bf *evalhook*}$@$K(J{\em form}$@$d(J{\em environment}$@$r<u$1$k4X?t$r(J
-$@@_Dj$9$k$J$i$P!"(Jhook$@4X?t$rI>2A$KF~$kA0$K8F$S=P$9$3$H$,$G$-$k!#(J}
+{\em form}$@$rI>2A$7$F!"$=$NCM$rJV$9!#(B
+$@$b$7!"(B{\bf *evalhook*}$@$K(B{\em form}$@$d(B{\em environment}$@$r<u$1$k4X?t$r(B
+$@@_Dj$9$k$J$i$P!"(Bhook$@4X?t$rI>2A$KF~$kA0$K8F$S=P$9$3$H$,$G$-$k!#(B}
 
 \funcdesc{apply}{func \&rest args}{
-{\em args}$@$K(J{\em func}$@$rE,MQ$9$k!#(J
-{\em func}$@$O!"4X?t(Jsymbol$@$+(Jlambda$@=q<0$+(Jclosure$@$G$J$1$l$P$J$i$J$$!#(J
-$@%^%/%m$HFC<l=q<0(J(special form)$@$OE,MQ=PMh$J$$!#(J
-{\em args}$@$N:G8e$NMWAG$O!"B>$N(J{\em args}$@$,6u$N0z$-?t$G$"$k$J$i(J
-$@0z$-?t$N%j%9%H$G$J$1$l$P$J$i$J$$!#(J
-$@$3$N$h$&$K!"$b$7!"(J{\em args}$@$N:G8e$,(JNIL$@$G$"$C$?$J$i$P!"(J
-{\bf apply}$@$O$[$H$s$I(J{\bf funcall}$@$HF1$8$G$"$k!#(J
-$@$?$@$7!"(J{\bf apply}$@$O(J{\bf funcall}$@$h$j(J1$@$DB?$/$N0z$-?t$r;}$D$3$H$,$G$-$k!#(J
+{\em args}$@$K(B{\em func}$@$rE,MQ$9$k!#(B
+{\em func}$@$O!"4X?t(Bsymbol$@$+(Blambda$@=q<0$+(Bclosure$@$G$J$1$l$P$J$i$J$$!#(B
+$@%^%/%m$HFC<l=q<0(B(special form)$@$OE,MQ=PMh$J$$!#(B
+{\em args}$@$N:G8e$NMWAG$O!"B>$N(B{\em args}$@$,6u$N0z$-?t$G$"$k$J$i(B
+$@0z$-?t$N%j%9%H$G$J$1$l$P$J$i$J$$!#(B
+$@$3$N$h$&$K!"$b$7!"(B{\em args}$@$N:G8e$,(BNIL$@$G$"$C$?$J$i$P!"(B
+{\bf apply}$@$O$[$H$s$I(B{\bf funcall}$@$HF1$8$G$"$k!#(B
+$@$?$@$7!"(B{\bf apply}$@$O(B{\bf funcall}$@$h$j(B1$@$DB?$/$N0z$-?t$r;}$D$3$H$,$G$-$k!#(B
 {\tt (apply \#'max 2 5 3 '(8 2)) --> 8}.}
 
 \funcdesc{funcall}{func \&rest args}{
-{\em args}$@$K(J{\em func}$@$rE,MQ$9$k!#(J
-{\em args}$@$N?t$O!"(J{\em func}$@$GMW5a$5$l$F$$$k0z$-?t$N?t$H0lCW$7$J$1$l$P(J
-$@$J$i$J$$!#(J}
+{\em args}$@$K(B{\em func}$@$rE,MQ$9$k!#(B
+{\em args}$@$N?t$O!"(B{\em func}$@$GMW5a$5$l$F$$$k0z$-?t$N?t$H0lCW$7$J$1$l$P(B
+$@$J$i$J$$!#(B}
 
-\specialdesc{quote}{obj}{{\em obj}$@<+?H$rI>2A$9$k!#(J}
+\specialdesc{quote}{obj}{{\em obj}$@<+?H$rI>2A$9$k!#(B}
 
-\specialdesc{function}{func}{closure$@4X?t$r:n$k!#(J
-$@$b$7!"(J{\em func}$@$,(Jsymbol$@$J$i$P!"$=$N4X?tDj5A$,8!:w$5$l$k!#(J}
+\specialdesc{function}{func}{closure$@4X?t$r:n$k!#(B
+$@$b$7!"(B{\em func}$@$,(Bsymbol$@$J$i$P!"$=$N4X?tDj5A$,8!:w$5$l$k!#(B}
 
 \funcdesc{evalhook}{hookfunc form [env]}{
-{\em hookfun}$@$r(J{\bf *evalhook*}$@$K7k$SIU$1$?8e!"(J{\em form}$@$r0lEYI>2A$9$k!#(J}
+{\em hookfun}$@$r(B{\bf *evalhook*}$@$K7k$SIU$1$?8e!"(B{\em form}$@$r0lEYI>2A$9$k!#(B}
 
 \funcdesc{eval-dynamic}{variable}{
-$@%9%?%C%/$K$"$k(J{\em variable}(symbol)$@$NCM$rA\$9!#(J}
+$@%9%?%C%/$K$"$k(B{\em variable}(symbol)$@$NCM$rA\$9!#(B}
 
 \funcdesc{macroexpand}{form}{
-$@$b$7!"(J{\em form}$@$,%^%/%m(Jcall$@$G$"$k$J$i!"$=$l$rE83+$9$k!#(J
-$@$b$7!"E83+$7$?$b$N$,$^$@%^%/%m(Jcall$@$r4^$s$G$$$k$J$i$P!"(J
-$@%^%/%m(Jcall$@$N$J$$7k2L$H$J$k$^$G$/$jJV$7E83+$9$k!#(J}
+$@$b$7!"(B{\em form}$@$,%^%/%m(Bcall$@$G$"$k$J$i!"$=$l$rE83+$9$k!#(B
+$@$b$7!"E83+$7$?$b$N$,$^$@%^%/%m(Bcall$@$r4^$s$G$$$k$J$i$P!"(B
+$@%^%/%m(Bcall$@$N$J$$7k2L$H$J$k$^$G$/$jJV$7E83+$9$k!#(B}
 
 \specialdesc{eval-when}{situation \{form\}*}{
-{\em situation}$@$O(J{\tt compile, load, eval}$@$N%j%9%H$G$"$k!#(J
-{\em form}$@$O!"8=:_$N<B9T%b!<%I$,(J{\em situation}$@$H0lCW$9$k$H$-$KI>2A$5$l$k!#(J
-{\bf eval-when}$@$O!"%3%s%Q%$%i$G$NF0:n$d4D6-$r@)8f$9$k$?$a$K=EMW$J$b$N$G$"$k!#(J
-$@$b$7!"(J{\tt compile}$@$,;XDj$5$l$?$J$i$P!"(J{\em form}$@$O%3%s%Q%$%i$K$h$C$F(J
-$@I>2A$5$l$k$N$G!"$=$N7k2L$O%3%s%Q%$%k7k2L$K1F6A$r5Z$\$9$3$H$K$J$k!#(J
-$@Nc$($P!"(J{\bf defmacro}$@$O%3%s%Q%$%k;~$K%^%/%m(Jcall$@$rE83+$9$k$?$a$K%3%s%Q%$%i$G(J
-$@I>2A$5$l$J$1$l$P$J$i$J$$!#(J
-$@$b$7!"(J{\tt load}$@$,(J{\em situation}$@$N%j%9%H$KM?$($i$l$?$J$i$P!"(J
-{\em form}$@$O(Jload$@;~$K(Jload$@$^$?$OI>2A$5$l$k$?$a$K%3%s%Q%$%k$5$l$k!#(J
-$@$9$J$o$A!"(Jload$@;~$K%3%s%Q%$%k$5$l$?4X?t$,Dj5A$5$l$k!#(J
-$@$3$l$O!"%3%s%Q%$%i$K4|BT$5$l$k0lHLE*$J5!G=$G$"$k!#(J
-{\tt load}$@$O!"%3%s%Q%$%i$N4D6-$r@)8f$9$k$?$a$K;HMQ$5$l$k!#(J
-$@$b$7!"(J{\tt eval}$@$,(J{\em situation}$@$N%j%9%H$K4^$^$l$F$$$k$J$i$P!"(J
-{\em form}$@$O%=!<%9%3!<%I$,(Jload$@$5$l$k$H$-$KI>2A$5$l$k!#(J}
+{\em situation}$@$O(B{\tt compile, load, eval}$@$N%j%9%H$G$"$k!#(B
+{\em form}$@$O!"8=:_$N<B9T%b!<%I$,(B{\em situation}$@$H0lCW$9$k$H$-$KI>2A$5$l$k!#(B
+{\bf eval-when}$@$O!"%3%s%Q%$%i$G$NF0:n$d4D6-$r@)8f$9$k$?$a$K=EMW$J$b$N$G$"$k!#(B
+$@$b$7!"(B{\tt compile}$@$,;XDj$5$l$?$J$i$P!"(B{\em form}$@$O%3%s%Q%$%i$K$h$C$F(B
+$@I>2A$5$l$k$N$G!"$=$N7k2L$O%3%s%Q%$%k7k2L$K1F6A$r5Z$\$9$3$H$K$J$k!#(B
+$@Nc$($P!"(B{\bf defmacro}$@$O%3%s%Q%$%k;~$K%^%/%m(Bcall$@$rE83+$9$k$?$a$K%3%s%Q%$%i$G(B
+$@I>2A$5$l$J$1$l$P$J$i$J$$!#(B
+$@$b$7!"(B{\tt load}$@$,(B{\em situation}$@$N%j%9%H$KM?$($i$l$?$J$i$P!"(B
+{\em form}$@$O(Bload$@;~$K(Bload$@$^$?$OI>2A$5$l$k$?$a$K%3%s%Q%$%k$5$l$k!#(B
+$@$9$J$o$A!"(Bload$@;~$K%3%s%Q%$%k$5$l$?4X?t$,Dj5A$5$l$k!#(B
+$@$3$l$O!"%3%s%Q%$%i$K4|BT$5$l$k0lHLE*$J5!G=$G$"$k!#(B
+{\tt load}$@$O!"%3%s%Q%$%i$N4D6-$r@)8f$9$k$?$a$K;HMQ$5$l$k!#(B
+$@$b$7!"(B{\tt eval}$@$,(B{\em situation}$@$N%j%9%H$K4^$^$l$F$$$k$J$i$P!"(B
+{\em form}$@$O%=!<%9%3!<%I$,(Bload$@$5$l$k$H$-$KI>2A$5$l$k!#(B}
 
 \specialdesc{the}{type form}{
-{\em form}$@$r(J{\em type}$@$H$7$F@k8@$9$k!#(J
-{\em type}$@$O!"(J{\tt :integer, :fixnum, :float}$@$G<($5$l$k%/%i%9%*%V%8%'%/%H(J
-$@$N$I$l$+$G$"$k!#(J}
+{\em form}$@$r(B{\em type}$@$H$7$F@k8@$9$k!#(B
+{\em type}$@$O!"(B{\tt :integer, :fixnum, :float}$@$G<($5$l$k%/%i%9%*%V%8%'%/%H(B
+$@$N$I$l$+$G$"$k!#(B}
 
 \specialdesc{declare}{declaration*}{
-$@$=$l$>$l(J{\em declaration}$@$O!"@k8@;XDj$d@0?t$"$k$$$OL\E*$N(Jsymbol$@$N%j%9%H$G$"$k!#(J
-$@@k8@$O!"%3%s%Q%$%i$,9bB.$J%3!<%I$r@8@.$9$k$?$a$K=EMW$G$"$k!#(J
+$@$=$l$>$l(B{\em declaration}$@$O!"@k8@;XDj$d@0?t$"$k$$$OL\E*$N(Bsymbol$@$N%j%9%H$G$"$k!#(B
+$@@k8@$O!"%3%s%Q%$%i$,9bB.$J%3!<%I$r@8@.$9$k$?$a$K=EMW$G$"$k!#(B
 \begin{description}
-\item {special} $@FC<lJQ?t$r@k8@$9$k!#(J
-\item {type} $@JQ?t$N7?$r@k8@$9$k!#(J; {\tt (type integer count)};
-$@M-8z$J7?;XDj;R$O(J{\em integer}, {\em :integer}, {\em fixnum},
-{\em :float}$@$H(J{\em float}$@$G$"$k!#7?;XDj;R$,$3$3$K<($7$?$b$N$N#1$D$G$"$k(J
-$@$J$i$P!"(J{\bf type}$@%-!<%o!<%I$r:o=|$7$F$bNI$$!#$=$N$?$a!"(J
-{\tt (integer count)}$@$O@5$7$$@k8@$G$"$k!#(J
-{\em float-vector},{\em integer-vector}$@$J$I$N$h$&$J!"$=$NB>$N7?!J%/%i%9!K$G$O!"(J
-{\tt (type float-vector vec1)}$@$N$h$&$K(J{\bf type}$@$rA0$KIU$1$kI,MW$,$"$k!#(J
-\item {ftype} $@4X?t$N7k2L$N7?$r@k8@$9$k!#(J
-\item {optimize} $@%3%s%Q%$%i$N(J*optimize*$@%Q%i%a!<%?$KCM(J(0--3)$@$r@_Dj$9$k!#(J
-\item {safety} $@%3%s%Q%$%i$N(J*safety*$@%Q%i%a!<%?$KCM(J(0--3)$@$r@_Dj$9$k!#(J
-\item {space}  $@%3%s%Q%$%i$N(J*space*$@%Q%i%a!<%?$KCM(J(0--3)$@$r@_Dj$9$k!#(J
-\item {inline} $@G'<1$7$J$$!#(J
-\item {not-inline} $@G'<1$7$J$$!#(J
+\item {special} $@FC<lJQ?t$r@k8@$9$k!#(B
+\item {type} $@JQ?t$N7?$r@k8@$9$k!#(B; {\tt (type integer count)};
+$@M-8z$J7?;XDj;R$O(B{\em integer}, {\em :integer}, {\em fixnum},
+{\em :float}$@$H(B{\em float}$@$G$"$k!#7?;XDj;R$,$3$3$K<($7$?$b$N$N#1$D$G$"$k(B
+$@$J$i$P!"(B{\bf type}$@%-!<%o!<%I$r:o=|$7$F$bNI$$!#$=$N$?$a!"(B
+{\tt (integer count)}$@$O@5$7$$@k8@$G$"$k!#(B
+{\em float-vector},{\em integer-vector}$@$J$I$N$h$&$J!"$=$NB>$N7?!J%/%i%9!K$G$O!"(B
+{\tt (type float-vector vec1)}$@$N$h$&$K(B{\bf type}$@$rA0$KIU$1$kI,MW$,$"$k!#(B
+\item {ftype} $@4X?t$N7k2L$N7?$r@k8@$9$k!#(B
+\item {optimize} $@%3%s%Q%$%i$N(B*optimize*$@%Q%i%a!<%?$KCM(B(0--3)$@$r@_Dj$9$k!#(B
+\item {safety} $@%3%s%Q%$%i$N(B*safety*$@%Q%i%a!<%?$KCM(B(0--3)$@$r@_Dj$9$k!#(B
+\item {space}  $@%3%s%Q%$%i$N(B*space*$@%Q%i%a!<%?$KCM(B(0--3)$@$r@_Dj$9$k!#(B
+\item {inline} $@G'<1$7$J$$!#(B
+\item {not-inline} $@G'<1$7$J$$!#(B
 \end{description}
 
 }
 \funcdesc{proclaim}{proclamation}{
-$@JQ?t$d%3%s%Q%$%i%*%W%7%g%s$r%0%m!<%P%k$K@k8@$9$k!#(J
-$@F1MM$J@k8@$O!"(J{\bf declare}$@FC<l=q<0$K$h$C$F5-=R$9$k$3$H$,$G$-$k!#(J
-$@$7$+$7$J$,$i!"(J{\bf proclaim}$@$O!"(J1$@$D$N0z?t$r;}$D4X?t$G$"$j!"(J
-$@@k8@$rI>2A$9$k!#(J}
+$@JQ?t$d%3%s%Q%$%i%*%W%7%g%s$r%0%m!<%P%k$K@k8@$9$k!#(B
+$@F1MM$J@k8@$O!"(B{\bf declare}$@FC<l=q<0$K$h$C$F5-=R$9$k$3$H$,$G$-$k!#(B
+$@$7$+$7$J$,$i!"(B{\bf proclaim}$@$O!"(B1$@$D$N0z?t$r;}$D4X?t$G$"$j!"(B
+$@@k8@$rI>2A$9$k!#(B}
 
 \funcdesc{warn}{format-string \&rest args}{
-{\em format-string}$@$H(J{\em args}$@$GM?$($i$l$k7Y9p%a%C%;!<%8$r(J
-{\bf *error-output*}$@$K=PNO$9$k!#(J}
+{\em format-string}$@$H(B{\em args}$@$GM?$($i$l$k7Y9p%a%C%;!<%8$r(B
+{\bf *error-output*}$@$K=PNO$9$k!#(B}
 \funcdesc{error}{format-string \&rest args}{
-{\bf *error-handler*}$@$K7k$SIU$/8=:_$N%(%i!<%O%s%I%i!<4X?t$r8F$S=P$9!#(J
-$@%G%U%)%k%H$N%(%i!<%O%s%I%i!<(J'euserror'$@$r(J{\bf *error-output*}$@$K:G=i$K=PNO$7(J
-{\em format-string}$@$H(J{\em args}$@$r(J{\bf format}$@$rMQ$$$F=PNO$9$k!#(J
-$@$=$N8e!"?7$7$$:G>e0L%l%Y%k$N%;%C%7%g%s(J(session)$@$KF~$k!#(J
-$@%W%m%s%W%H$K$O!"%(%i!<%;%C%7%g%s$N?<$5$r<($9!#(J
-{\bf throw}$@$K$=$NHV9f$rM?$($k$3$H$K$h$j!"Dc$$%(%i!<%l%Y%k$N%;%C%7%g%s$XLa$k$3$H$,$G$-$k!#(J}
+{\bf *error-handler*}$@$K7k$SIU$/8=:_$N%(%i!<%O%s%I%i!<4X?t$r8F$S=P$9!#(B
+$@%G%U%)%k%H$N%(%i!<%O%s%I%i!<(B'euserror'$@$r(B{\bf *error-output*}$@$K:G=i$K=PNO$7(B
+{\em format-string}$@$H(B{\em args}$@$r(B{\bf format}$@$rMQ$$$F=PNO$9$k!#(B
+$@$=$N8e!"?7$7$$:G>e0L%l%Y%k$N%;%C%7%g%s(B(session)$@$KF~$k!#(B
+$@%W%m%s%W%H$K$O!"%(%i!<%;%C%7%g%s$N?<$5$r<($9!#(B
+{\bf throw}$@$K$=$NHV9f$rM?$($k$3$H$K$h$j!"Dc$$%(%i!<%l%Y%k$N%;%C%7%g%s$XLa$k$3$H$,$G$-$k!#(B}
 \end{refdesc}
 
-$@%^%k%A%9%l%C%I(JEuslisp$@$K$*$$$F!"FC<lJQ?t$O%9%l%C%I4V$G6&M-$5$l!"(J
-$@F1$8(J{\bf *error-handler*}$@$,0[$J$C$?%9%l%C%I$+$i;2>H$5$l$k!#(J
-$@$3$NIT<+M3$rHr$1$k$?$a$K!"%^%k%A%9%l%C%I(JEuslisp$@$O(J{\bf install-error-handler}
-$@4X?t$rHw$($F$$$k!#$=$N4X?t$O!"$=$l$>$l$N%9%l%C%I$KBP$7$F(J
-$@0[$J$C$?%(%i!<%O%s%I%i!<$r%$%s%9%H!<%k$9$k!#(J
+$@%^%k%A%9%l%C%I(BEuslisp$@$K$*$$$F!"FC<lJQ?t$O%9%l%C%I4V$G6&M-$5$l!"(B
+$@F1$8(B{\bf *error-handler*}$@$,0[$J$C$?%9%l%C%I$+$i;2>H$5$l$k!#(B
+$@$3$NIT<+M3$rHr$1$k$?$a$K!"%^%k%A%9%l%C%I(BEuslisp$@$O(B{\bf install-error-handler}
+$@4X?t$rHw$($F$$$k!#$=$N4X?t$O!"$=$l$>$l$N%9%l%C%I$KBP$7$F(B
+$@0[$J$C$?%(%i!<%O%s%I%i!<$r%$%s%9%H!<%k$9$k!#(B
 
 \begin{refdesc}
 \funcdesc{install-error-handler}{handler}{
-{\em handler}$@$r8=:_$N%9%l%C%I$N%(%i!<%O%s%I%i!<$H$7$F%$%s%9%H!<%k$9$k!#(J}
+{\em handler}$@$r8=:_$N%9%l%C%I$N%(%i!<%O%s%I%i!<$H$7$F%$%s%9%H!<%k$9$k!#(B}
 \end{refdesc}
 
 \newpage
 
-\subsection{$@:G>e0L%l%Y%k$NBPOC(J}
+\subsection{$@:G>e0L%l%Y%k$NBPOC(B}
 
-EusLisp$@$NI8=`$N:G>e0L%l%Y%k$NF~NO!]I>2A!]=PNO$N%k!<%W(J(loop)$@$O!"(J{\bf eustop}
-$@$K$h$j@)8f$5$l$F$$$k!#(J
+EusLisp$@$NI8=`$N:G>e0L%l%Y%k$NF~NO!]I>2A!]=PNO$N%k!<%W(B(loop)$@$O!"(B{\bf eustop}
+$@$K$h$j@)8f$5$l$F$$$k!#(B
 % which is also responsible for the initial loading of files.
-euslisp$@$,8F$S=P$5$l$?$H$-!"(J
-{\bf eustop}$@$O!"%[!<%`%G%#%l%/%H%j$+$i(J{\tt ".eusrc"}$@$H$$$&%U%!%$%k$r(J
-$@$"$k$$$O(J{\tt EUSRC}$@4D6-JQ?t$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(J
-$@$=$l$+$i!"(Jeuslisp$@$O!"0z$-?t%j%9%H$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(J
-$@$3$l$i$N%m!<%I$,=*N;8e!"(J{\bf eustop}$@$O!"IaDL$NBPOC%;%C%7%g%s(J(session)$@$KF~$k!#(J
+euslisp$@$,8F$S=P$5$l$?$H$-!"(B
+{\bf eustop}$@$O!"%[!<%`%G%#%l%/%H%j$+$i(B{\tt ".eusrc"}$@$H$$$&%U%!%$%k$r(B
+$@$"$k$$$O(B{\tt EUSRC}$@4D6-JQ?t$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(B
+$@$=$l$+$i!"(Beuslisp$@$O!"0z$-?t%j%9%H$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(B
+$@$3$l$i$N%m!<%I$,=*N;8e!"(B{\bf eustop}$@$O!"IaDL$NBPOC%;%C%7%g%s(B(session)$@$KF~$k!#(B
 
-{\bf *standard-input*}$@$K%f!<%6!<$N(JTTY$@$,@\B3$5$l$?$H$-!"(J
-{\bf eustop}$@$O!"(J{\bf *prompt-string*}$@!J%G%U%)%k%H$H$7$F(J{\tt "eus\$"}$@$,(J
-$@@_Dj$5$l$F$$$k!K$K@_Dj$5$l$?%W%m%s%W%H$r=PNO$9$k!#(J
-$@$=$7$F!"(J{\bf *terminal-io*}$@%9%H%j!<%`$+$iL?Na$rF~NO$9$k!#(J
-$@$b$7!"$=$NF~NO$,%+%C%3$G3g$i$l$?9T$J$i$P!"(J
-{\bf eval}$@$K$h$C$F(Jlisp$@=q<0$H$7$F07$o$l$k!#(J
-$@$b$7!"F~NO9T$N:G=i$N(Jsymbol$@$K4X?tDj5A$,$"$C$?>l9g!"$=$N9T$K<+F0E*$K(J
-$@%+%C%3$,F~$l$i$l!"I>2A$5$l$k!#(J
-$@$b$7!"4X?tDj5A$,8+$D$+$i$J$+$C$?>l9g!"$=$NFC<lCM(J(special value)$@$,(J
-$@D4::$5$l!"$=$NCM$,=PNO$5$l$k!#(J
-$@$b$7!"$=$N(Jsymbol$@$K$J$K$bDj5A$5$l$F$J$$$J$i$P!"(J
-$@$=$N9T$O(JUNIX$@L?Na$H$_$J$5$l!"(Jsh(Bourn's shell)$@$XEO$5$l$k!#(J
-$@$b$7!"(Jsh$@$,0lCW$9$k(JUNIX$@L?Na$rA\$;$J$+$C$?$H$-!"(J
-"command unrecognized"$@$H$$$&%a%C%;!<%8$r=PNO$9$k!#(J
-$@$3$N$h$&$K!"(J{\bf eustop}$@$O(Jlisp$@$N%$%s%?!<%W%j%?$*$h$S(JUNIX$@$N%7%'%k$H$7$FF0:n$9$k!#(J
-$@$b$7!"F~NO$r(JUNIX$@L?Na$H$7$F<B9T$7$?$/$J$$$H$-!"(J
-$@9T$N:G=i$K%3%s%^(J','$@$rIU$1...
 
[truncated message content]

[Euslisp-commit] SF.net SVN: euslisp:[633] trunk/EusLisp/doc/HISTORY

From: <k-...@us...> - 2013-05-20 14:45:07

Revision: 633
          http://sourceforge.net/p/euslisp/code/633
Author:   k-okada
Date:     2013-05-20 14:44:58 +0000 (Mon, 20 May 2013)
Log Message:
-----------
update HISTORY

Modified Paths:
--------------
    trunk/EusLisp/doc/HISTORY

Modified: trunk/EusLisp/doc/HISTORY
===================================================================
--- trunk/EusLisp/doc/HISTORY	2013-05-20 14:20:25 UTC (rev 632)
+++ trunk/EusLisp/doc/HISTORY	2013-05-20 14:44:58 UTC (rev 633)
@@ -491,4 +491,13 @@
         mv fstringdouble
         fix, rewrite int to eusinteger_t, switch float to eusfloat_t for 64bit euslisp, 
         use strerror_r, remove sys_errlist
-
+2011-May
+        support Darwin
+2012-Nov
+        avoiding conflict with std::min, std::max when using c++
+2013-Jan
+        add for Cygwin64 and debug reduce definition in l/common.l for one length sequence
+2013-Feb
+        add functions for using double array in 32bit version :fstringdouble.c
+2013-Apr
+        expand MAXSTACK from 65536 to 8388608 and KEYWORDPARAMETERLIMIT from 32 to 128

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[633] trunk/EusLisp/doc/HISTORY

From: <k-...@us...> - 2013-05-20 14:45:05

Revision: 633
          http://sourceforge.net/p/euslisp/code/633
Author:   k-okada
Date:     2013-05-20 14:44:58 +0000 (Mon, 20 May 2013)
Log Message:
-----------
update HISTORY

Modified Paths:
--------------
    trunk/EusLisp/doc/HISTORY

Modified: trunk/EusLisp/doc/HISTORY
===================================================================
--- trunk/EusLisp/doc/HISTORY	2013-05-20 14:20:25 UTC (rev 632)
+++ trunk/EusLisp/doc/HISTORY	2013-05-20 14:44:58 UTC (rev 633)
@@ -491,4 +491,13 @@
         mv fstringdouble
         fix, rewrite int to eusinteger_t, switch float to eusfloat_t for 64bit euslisp, 
         use strerror_r, remove sys_errlist
-
+2011-May
+        support Darwin
+2012-Nov
+        avoiding conflict with std::min, std::max when using c++
+2013-Jan
+        add for Cygwin64 and debug reduce definition in l/common.l for one length sequence
+2013-Feb
+        add functions for using double array in 32bit version :fstringdouble.c
+2013-Apr
+        expand MAXSTACK from 65536 to 8388608 and KEYWORDPARAMETERLIMIT from 32 to 128

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[632] trunk/EusLisp/doc

From: <k-...@us...> - 2013-05-20 14:20:35

Revision: 632
          http://sourceforge.net/p/euslisp/code/632
Author:   k-okada
Date:     2013-05-20 14:20:25 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix license, update manual to 9.00

Modified Paths:
--------------
    trunk/EusLisp/doc/HISTORY
    trunk/EusLisp/doc/html/contents.pl
    trunk/EusLisp/doc/html/manual.html
    trunk/EusLisp/doc/html/node1.html
    trunk/EusLisp/doc/html/node11.html
    trunk/EusLisp/doc/html/node153.html
    trunk/EusLisp/doc/html/node154.html
    trunk/EusLisp/doc/html/node2.html
    trunk/EusLisp/doc/html/node73.html
    trunk/EusLisp/doc/html/sections.pl
    trunk/EusLisp/doc/jlatex/jintro.tex
    trunk/EusLisp/doc/jlatex/jmanual.tex
    trunk/EusLisp/doc/latex/man.tex
    trunk/EusLisp/doc/latex/manual.tex
    trunk/EusLisp/doc/latex/preface.tex

Modified: trunk/EusLisp/doc/HISTORY
===================================================================
--- trunk/EusLisp/doc/HISTORY	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/HISTORY	2013-05-20 14:20:25 UTC (rev 632)
@@ -483,3 +483,12 @@
 	manipulation on HTTP. Linking Fast-CGI library.
 	Base64 encoding. Crypt is added.
 	Documentation is updated.
+2010-July ; version 8.26
+        Update to New BSD license
+2010-July ; version 9.00
+        merge JSK codes
+        support gcc3
+        mv fstringdouble
+        fix, rewrite int to eusinteger_t, switch float to eusfloat_t for 64bit euslisp, 
+        use strerror_r, remove sys_errlist
+

Modified: trunk/EusLisp/doc/html/contents.pl
===================================================================
--- trunk/EusLisp/doc/html/contents.pl	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/contents.pl	2013-05-20 14:20:25 UTC (rev 632)
@@ -2,7 +2,7 @@
 # Associate contents original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
+$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $toc_section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;

Modified: trunk/EusLisp/doc/html/manual.html
===================================================================
--- trunk/EusLisp/doc/html/manual.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/manual.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -2,8 +2,8 @@
 <!--Converted with LaTeX2HTML 96.1 (Feb 5, 1996) by Nikos Drakos (ni...@cb...), CBLU, University of Leeds -->
 <HTML>
 <HEAD>
-<TITLE>EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
-<META NAME="description" CONTENT="EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
+<TITLE>EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
+<META NAME="description" CONTENT="EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
 <META NAME="keywords" CONTENT="manual">
 <META NAME="resource-type" CONTENT="document">
 <META NAME="distribution" CONTENT="global">
@@ -15,7 +15,7 @@
 <BR> <P>
 <P>
 <H1 ALIGN=CENTER><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: trunk/EusLisp/doc/html/node1.html
===================================================================
--- trunk/EusLisp/doc/html/node1.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node1.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,8 +12,8 @@
 <BODY LANG="EN">
  <A NAME="tex2html1693" HREF="node2.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1691" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1685" HREF="manual.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A>  <A NAME="tex2html1695" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1694" HREF="node2.html">EusLisp Basics</A>
-<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.00  Reference </A>
-<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 9.00  Reference </A>
+<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <BR> <P>
 <P><H2><A NAME="SECTION01000000000000000000">Contents</A></H2>
 <UL> 

Modified: trunk/EusLisp/doc/html/node11.html
===================================================================
--- trunk/EusLisp/doc/html/node11.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node11.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1976" HREF="node12.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1974" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1968" HREF="node10.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1978" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1979" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1977" HREF="node12.html">Data Types</A>
-<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1969" HREF="node10.html">Demonstrations</A>
 <BR> <P>
 <P><A NAME="SECTIONREF"><H2>References</H2></A><P>

Modified: trunk/EusLisp/doc/html/node153.html
===================================================================
--- trunk/EusLisp/doc/html/node153.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node153.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html3912" HREF="node154.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html3910" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3904" HREF="node152.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3914" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A>  <BR>
 <B> Next:</B> <A NAME="tex2html3913" HREF="node154.html">  About this document </A>
-<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3905" HREF="node152.html">System Overview</A>
 <BR> <P>
 <P><H2><A NAME="SECTION05000000000000000000">Index</A></H2>

Modified: trunk/EusLisp/doc/html/node154.html
===================================================================
--- trunk/EusLisp/doc/html/node154.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node154.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -11,13 +11,13 @@
 </HEAD>
 <BODY LANG="EN">
  <IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif_gr.gif"> <A NAME="tex2html3919" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3915" HREF="node153.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3921" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html3922" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
-<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3916" HREF="node153.html">Index</A>
 <BR> <P>
 <H1><A NAME="SECTION06000000000000000000">  About this document ... </A></H1>
 <P>
  <STRONG><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: trunk/EusLisp/doc/html/node2.html
===================================================================
--- trunk/EusLisp/doc/html/node2.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node2.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1857" HREF="node3.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1855" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1849" HREF="node1.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1859" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1860" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1858" HREF="node3.html">Introduction</A>
-<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1850" HREF="node1.html">Contents</A>
 <BR> <P>
 <H1><A NAME="SECTION02000000000000000000">EusLisp Basics</A></H1>

Modified: trunk/EusLisp/doc/html/node73.html
===================================================================
--- trunk/EusLisp/doc/html/node73.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node73.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html2814" HREF="node74.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html2812" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html2806" HREF="node72.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html2816" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html2817" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html2815" HREF="node74.html">System Functions</A>
-<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html2807" HREF="node72.html">Miscelaneous Functions</A>
 <BR> <P>
 <H1><A NAME="SECTION04000000000000000000">EusLisp Extensions</A></H1>

Modified: trunk/EusLisp/doc/html/sections.pl
===================================================================
--- trunk/EusLisp/doc/html/sections.pl	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/sections.pl	2013-05-20 14:20:25 UTC (rev 632)
@@ -2,7 +2,7 @@
 # Associate sections original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
+$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
 $done{"manual.html"} = 1;
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($section_info{$key}); 

Modified: trunk/EusLisp/doc/jlatex/jintro.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jintro.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/jlatex/jintro.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -249,20 +249,34 @@
 \end{table}
 
 \subsection{\label{License}$@%i%$%;%s%9(J}
-EusLisp$@$O(Jetlport.etl.go.jp (192.31.197.99)$@$+$i(Jftp$@7PM3$G(J
-$@%=!<%9%3!<%I$rF@$k$3$H$,$G$-$k!#(J
-EusLisp$@$r;HMQ$9$k?M!9$O!"<!$N>r9`$r8+$F%i%$%;%s%9F10U=q(J(doc/LICENCE)
-$@$N%3%T!<$r:n<T$KDs=P$7$J$1$l$P$J$i$J$$!#(J
-\begin{quote}
-\begin{tabbing}
-Toshihiro MATSUI \hspace{50mm} \= $@")(J305 $@0q>k8)$D$/$P;TG_1`(J1-1-4 \\
-Comunicating Intelligence Section,  \> $@EE;R5;=QAm9g8&5f=j(J \\
-Intelligent Systems Division, \> $@CNG=%7%9%F%`It(J $@DL?.CNG=8&5f<<(J \\
-Electrotechnical Laboratory  \> $@>>0f=S9@(J \\
-1-1-4 Umezono, Tsukuba, Ibaraki 305, JAPAN. \> email: ma...@et... \\
-\end{tabbing}
-\end{quote}
+EusLisp$B$O0J2<$N=$@5(JBSD$B%i%$%;%s%9$N85G[I[$5$l$F$$$k!%(J
 
+Copyright (c) 1984-2001, National Institute of Advanced Industrial Science
+All rights reserved.
+$B%=!<%9%3!<%I7A<0$+%P%$%J%j7A<0$+!"JQ99$9$k$+$7$J$$$+$rLd$o$:!"0J2<$N>r(J
+$B7o$rK~$?$9>l9g$K8B$j!":FHRI[$*$h$S;HMQ$,5v2D$5$l$^$9!#(J
+
+$B%=!<%9%3!<%I$r:FHRI[$9$k>l9g!">e5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-(J
+$BLH@U>r9`$r4^$a$k$3$H!#(J
+$B%P%$%J%j7A<0$G:FHRI[$9$k>l9g!"HRI[J*$KIUB0$N%I%-%e%a%s%HEy$N;qNA$K!">e(J
+$B5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-LH@U>r9`$r4^$a$k$3$H!#(J
+$B=qLL$K$h$kFCJL$N5v2D$J$7$K!"K\%=%U%H%&%'%"$+$iGI@8$7$?@=IJ$N@kEA$^$?$O(J
+$BHNGdB%?J$K!"(J<$BAH?%(J>$B$NL>A0$^$?$O%3%s%H%j%S%e!<%?!<$NL>A0$r;HMQ$7$F$O$J$i(J
+$B$J$$!#(J
+$BK\%=%U%H%&%'%"$O!"Cx:n8"<T$*$h$S%3%s%H%j%S%e!<%?!<$K$h$C$F!V8=>u$N$^$^!W(J
+$BDs6!$5$l$F$*$j!"L@<(L[<($rLd$o$:!">&6HE*$J;HMQ2DG=@-!"$*$h$SFCDj$NL\E*(J
+$B$KBP$9$kE,9g@-$K4X$9$k0EL[$NJ]>Z$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!"$$$+$J(J
+$B$kJ]>Z$b$"$j$^$;$s!#Cx:n8"<T$b%3%s%H%j%S%e!<%?!<$b!";vM3$N$$$+$s$rLd$o(J
+$B$:!"(J $BB;32H/@8$N860x$$$+$s$rLd$o$:!"$+$D@UG$$N:,5r$,7@Ls$G$"$k$+873J@U(J
+$BG$$G$"$k$+!J2a<:$=$NB>$N!KITK!9T0Y$G$"$k$+$rLd$o$:!"2>$K$=$N$h$&$JB;32(J
+$B$,H/@8$9$k2DG=@-$rCN$i$5$l$F$$$?$H$7$F$b!"K\%=%U%H%&%'%"$N;HMQ$K$h$C$F(J
+$BH/@8$7$?!JBeBXIJ$^$?$OBeMQ%5!<%S%9$ND4C#!";HMQ$NAS<:!"%G!<%?$NAS<:!"Mx(J
+  $B1W$NAS<:!"6HL3$NCfCG$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!KD>@\B;32!"4V@\B;(J
+$B32!"6vH/E*$JB;32!"FCJLB;32!"D(H3E*B;32!"$^$?$O7k2LB;32$K$D$$$F!"0l@Z@U(J
+$BG$$rIi$o$J$$$b$N$H$7$^$9!#(J
+
+$B$J$*(J8.25$BHG$^$G$O0J2<$N%i%$%;%s%9$GG[I[$5$l$F$$$?!%(J
+
 $@%f!<%6!<$O!"%a!<%j%s%0%j%9%H(J(eu...@et...)$@$KEPO?$5$l!"$=$3$K#Q!u#A!&%P%0!&(J
 $@%"%C%W%G!<%H>pJs$rN.$9!#(J
 $@$3$N>pJs$O!"(J{\tt *eusdir*/doc/mails}$@$KC_@Q$5$l$F$$$k!#(J

Modified: trunk/EusLisp/doc/jlatex/jmanual.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jmanual.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/jlatex/jmanual.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -118,7 +118,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\large \bf version 8.02} \\
+{\large \bf version 9.00} \\
 {\LARGE \bf $B%j%U%!%l%s%9%^%K%e%"%k(B} \\
 {\large -$B%^%k%A%9%l%C%I$H(BXToolKit$B$N<B8=(B-} \\
 \vspace{10mm}
@@ -143,7 +143,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp $B4pK\(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
 \input{jintro}
 \input{jgenerals}
 \input{jcontrols}
@@ -156,7 +156,7 @@
 \input{jevaluation}
 \newpage
 \part{EusLisp $B3HD%(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
 \input{jsysfunc}
 \input{jvxw}
 \input{jmthread}
@@ -172,7 +172,7 @@
 \input{jmars-pre}
 %
 \cleardoublepage
-\markboth{Euslisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
+\markboth{Euslisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: trunk/EusLisp/doc/latex/man.tex
===================================================================
--- trunk/EusLisp/doc/latex/man.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/latex/man.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.00} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.00 Reference Manual (Part I)}{Introduction}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Introduction}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -152,7 +152,7 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.00 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
 \input{matrix}
@@ -167,7 +167,7 @@
 \input{mars-pre}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.00 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: trunk/EusLisp/doc/latex/manual.tex
===================================================================
--- trunk/EusLisp/doc/latex/manual.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/latex/manual.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.25} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.25 Reference Manual (Part I)}{Basics}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Basics}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -154,10 +154,10 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.25 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
-\markboth{EusLisp version 8.25 Reference Manual (Part III)}{Geometric/Robot Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part III)}{Geometric/Robot Functions}
 \input{matrix}
 \input{geometry}
 \input{contact}
@@ -166,16 +166,16 @@
 \input{image}
 \input{manipulator}
 % \input{mars-pre}
-\markboth{EusLisp version 8.25 Reference Manual (Part IV)}{X-windows}
+\markboth{EusLisp version 9.00 Reference Manual (Part IV)}{X-windows}
 \input{xwindow}
 \input{xtoolkit} \newpage
-\markboth{EusLisp version 8.25 Reference Manual (Part V)}{Applications}
+\markboth{EusLisp version 9.00 Reference Manual (Part V)}{Applications}
 \input{database}
 \input{http}
 % \input{sound}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.25 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: trunk/EusLisp/doc/latex/preface.tex
===================================================================
--- trunk/EusLisp/doc/latex/preface.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/latex/preface.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -1,2 +1,2 @@
 This is the second version of the reference manual
-for the EusLisp version 8.00.
\ No newline at end of file
+for the EusLisp version 9.00.

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[632] trunk/EusLisp/doc

From: <k-...@us...> - 2013-05-20 14:20:32

Revision: 632
          http://sourceforge.net/p/euslisp/code/632
Author:   k-okada
Date:     2013-05-20 14:20:25 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix license, update manual to 9.00

Modified Paths:
--------------
    trunk/EusLisp/doc/HISTORY
    trunk/EusLisp/doc/html/contents.pl
    trunk/EusLisp/doc/html/manual.html
    trunk/EusLisp/doc/html/node1.html
    trunk/EusLisp/doc/html/node11.html
    trunk/EusLisp/doc/html/node153.html
    trunk/EusLisp/doc/html/node154.html
    trunk/EusLisp/doc/html/node2.html
    trunk/EusLisp/doc/html/node73.html
    trunk/EusLisp/doc/html/sections.pl
    trunk/EusLisp/doc/jlatex/jintro.tex
    trunk/EusLisp/doc/jlatex/jmanual.tex
    trunk/EusLisp/doc/latex/man.tex
    trunk/EusLisp/doc/latex/manual.tex
    trunk/EusLisp/doc/latex/preface.tex

Modified: trunk/EusLisp/doc/HISTORY
===================================================================
--- trunk/EusLisp/doc/HISTORY	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/HISTORY	2013-05-20 14:20:25 UTC (rev 632)
@@ -483,3 +483,12 @@
 	manipulation on HTTP. Linking Fast-CGI library.
 	Base64 encoding. Crypt is added.
 	Documentation is updated.
+2010-July ; version 8.26
+        Update to New BSD license
+2010-July ; version 9.00
+        merge JSK codes
+        support gcc3
+        mv fstringdouble
+        fix, rewrite int to eusinteger_t, switch float to eusfloat_t for 64bit euslisp, 
+        use strerror_r, remove sys_errlist
+

Modified: trunk/EusLisp/doc/html/contents.pl
===================================================================
--- trunk/EusLisp/doc/html/contents.pl	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/contents.pl	2013-05-20 14:20:25 UTC (rev 632)
@@ -2,7 +2,7 @@
 # Associate contents original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
+$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $toc_section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;

Modified: trunk/EusLisp/doc/html/manual.html
===================================================================
--- trunk/EusLisp/doc/html/manual.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/manual.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -2,8 +2,8 @@
 <!--Converted with LaTeX2HTML 96.1 (Feb 5, 1996) by Nikos Drakos (ni...@cb...), CBLU, University of Leeds -->
 <HTML>
 <HEAD>
-<TITLE>EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
-<META NAME="description" CONTENT="EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
+<TITLE>EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
+<META NAME="description" CONTENT="EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
 <META NAME="keywords" CONTENT="manual">
 <META NAME="resource-type" CONTENT="document">
 <META NAME="distribution" CONTENT="global">
@@ -15,7 +15,7 @@
 <BR> <P>
 <P>
 <H1 ALIGN=CENTER><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: trunk/EusLisp/doc/html/node1.html
===================================================================
--- trunk/EusLisp/doc/html/node1.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node1.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,8 +12,8 @@
 <BODY LANG="EN">
  <A NAME="tex2html1693" HREF="node2.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1691" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1685" HREF="manual.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A>  <A NAME="tex2html1695" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1694" HREF="node2.html">EusLisp Basics</A>
-<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.00  Reference </A>
-<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 9.00  Reference </A>
+<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <BR> <P>
 <P><H2><A NAME="SECTION01000000000000000000">Contents</A></H2>
 <UL> 

Modified: trunk/EusLisp/doc/html/node11.html
===================================================================
--- trunk/EusLisp/doc/html/node11.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node11.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1976" HREF="node12.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1974" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1968" HREF="node10.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1978" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1979" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1977" HREF="node12.html">Data Types</A>
-<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1969" HREF="node10.html">Demonstrations</A>
 <BR> <P>
 <P><A NAME="SECTIONREF"><H2>References</H2></A><P>

Modified: trunk/EusLisp/doc/html/node153.html
===================================================================
--- trunk/EusLisp/doc/html/node153.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node153.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html3912" HREF="node154.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html3910" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3904" HREF="node152.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3914" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A>  <BR>
 <B> Next:</B> <A NAME="tex2html3913" HREF="node154.html">  About this document </A>
-<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3905" HREF="node152.html">System Overview</A>
 <BR> <P>
 <P><H2><A NAME="SECTION05000000000000000000">Index</A></H2>

Modified: trunk/EusLisp/doc/html/node154.html
===================================================================
--- trunk/EusLisp/doc/html/node154.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node154.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -11,13 +11,13 @@
 </HEAD>
 <BODY LANG="EN">
  <IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif_gr.gif"> <A NAME="tex2html3919" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3915" HREF="node153.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3921" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html3922" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
-<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3916" HREF="node153.html">Index</A>
 <BR> <P>
 <H1><A NAME="SECTION06000000000000000000">  About this document ... </A></H1>
 <P>
  <STRONG><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: trunk/EusLisp/doc/html/node2.html
===================================================================
--- trunk/EusLisp/doc/html/node2.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node2.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1857" HREF="node3.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1855" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1849" HREF="node1.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1859" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1860" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1858" HREF="node3.html">Introduction</A>
-<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1850" HREF="node1.html">Contents</A>
 <BR> <P>
 <H1><A NAME="SECTION02000000000000000000">EusLisp Basics</A></H1>

Modified: trunk/EusLisp/doc/html/node73.html
===================================================================
--- trunk/EusLisp/doc/html/node73.html	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/node73.html	2013-05-20 14:20:25 UTC (rev 632)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html2814" HREF="node74.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html2812" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html2806" HREF="node72.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html2816" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html2817" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html2815" HREF="node74.html">System Functions</A>
-<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html2807" HREF="node72.html">Miscelaneous Functions</A>
 <BR> <P>
 <H1><A NAME="SECTION04000000000000000000">EusLisp Extensions</A></H1>

Modified: trunk/EusLisp/doc/html/sections.pl
===================================================================
--- trunk/EusLisp/doc/html/sections.pl	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/html/sections.pl	2013-05-20 14:20:25 UTC (rev 632)
@@ -2,7 +2,7 @@
 # Associate sections original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
+$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
 $done{"manual.html"} = 1;
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($section_info{$key}); 

Modified: trunk/EusLisp/doc/jlatex/jintro.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jintro.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/jlatex/jintro.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -249,20 +249,34 @@
 \end{table}
 
 \subsection{\label{License}$@%i%$%;%s%9(J}
-EusLisp$@$O(Jetlport.etl.go.jp (192.31.197.99)$@$+$i(Jftp$@7PM3$G(J
-$@%=!<%9%3!<%I$rF@$k$3$H$,$G$-$k!#(J
-EusLisp$@$r;HMQ$9$k?M!9$O!"<!$N>r9`$r8+$F%i%$%;%s%9F10U=q(J(doc/LICENCE)
-$@$N%3%T!<$r:n<T$KDs=P$7$J$1$l$P$J$i$J$$!#(J
-\begin{quote}
-\begin{tabbing}
-Toshihiro MATSUI \hspace{50mm} \= $@")(J305 $@0q>k8)$D$/$P;TG_1`(J1-1-4 \\
-Comunicating Intelligence Section,  \> $@EE;R5;=QAm9g8&5f=j(J \\
-Intelligent Systems Division, \> $@CNG=%7%9%F%`It(J $@DL?.CNG=8&5f<<(J \\
-Electrotechnical Laboratory  \> $@>>0f=S9@(J \\
-1-1-4 Umezono, Tsukuba, Ibaraki 305, JAPAN. \> email: ma...@et... \\
-\end{tabbing}
-\end{quote}
+EusLisp$B$O0J2<$N=$@5(JBSD$B%i%$%;%s%9$N85G[I[$5$l$F$$$k!%(J
 
+Copyright (c) 1984-2001, National Institute of Advanced Industrial Science
+All rights reserved.
+$B%=!<%9%3!<%I7A<0$+%P%$%J%j7A<0$+!"JQ99$9$k$+$7$J$$$+$rLd$o$:!"0J2<$N>r(J
+$B7o$rK~$?$9>l9g$K8B$j!":FHRI[$*$h$S;HMQ$,5v2D$5$l$^$9!#(J
+
+$B%=!<%9%3!<%I$r:FHRI[$9$k>l9g!">e5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-(J
+$BLH@U>r9`$r4^$a$k$3$H!#(J
+$B%P%$%J%j7A<0$G:FHRI[$9$k>l9g!"HRI[J*$KIUB0$N%I%-%e%a%s%HEy$N;qNA$K!">e(J
+$B5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-LH@U>r9`$r4^$a$k$3$H!#(J
+$B=qLL$K$h$kFCJL$N5v2D$J$7$K!"K\%=%U%H%&%'%"$+$iGI@8$7$?@=IJ$N@kEA$^$?$O(J
+$BHNGdB%?J$K!"(J<$BAH?%(J>$B$NL>A0$^$?$O%3%s%H%j%S%e!<%?!<$NL>A0$r;HMQ$7$F$O$J$i(J
+$B$J$$!#(J
+$BK\%=%U%H%&%'%"$O!"Cx:n8"<T$*$h$S%3%s%H%j%S%e!<%?!<$K$h$C$F!V8=>u$N$^$^!W(J
+$BDs6!$5$l$F$*$j!"L@<(L[<($rLd$o$:!">&6HE*$J;HMQ2DG=@-!"$*$h$SFCDj$NL\E*(J
+$B$KBP$9$kE,9g@-$K4X$9$k0EL[$NJ]>Z$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!"$$$+$J(J
+$B$kJ]>Z$b$"$j$^$;$s!#Cx:n8"<T$b%3%s%H%j%S%e!<%?!<$b!";vM3$N$$$+$s$rLd$o(J
+$B$:!"(J $BB;32H/@8$N860x$$$+$s$rLd$o$:!"$+$D@UG$$N:,5r$,7@Ls$G$"$k$+873J@U(J
+$BG$$G$"$k$+!J2a<:$=$NB>$N!KITK!9T0Y$G$"$k$+$rLd$o$:!"2>$K$=$N$h$&$JB;32(J
+$B$,H/@8$9$k2DG=@-$rCN$i$5$l$F$$$?$H$7$F$b!"K\%=%U%H%&%'%"$N;HMQ$K$h$C$F(J
+$BH/@8$7$?!JBeBXIJ$^$?$OBeMQ%5!<%S%9$ND4C#!";HMQ$NAS<:!"%G!<%?$NAS<:!"Mx(J
+  $B1W$NAS<:!"6HL3$NCfCG$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!KD>@\B;32!"4V@\B;(J
+$B32!"6vH/E*$JB;32!"FCJLB;32!"D(H3E*B;32!"$^$?$O7k2LB;32$K$D$$$F!"0l@Z@U(J
+$BG$$rIi$o$J$$$b$N$H$7$^$9!#(J
+
+$B$J$*(J8.25$BHG$^$G$O0J2<$N%i%$%;%s%9$GG[I[$5$l$F$$$?!%(J
+
 $@%f!<%6!<$O!"%a!<%j%s%0%j%9%H(J(eu...@et...)$@$KEPO?$5$l!"$=$3$K#Q!u#A!&%P%0!&(J
 $@%"%C%W%G!<%H>pJs$rN.$9!#(J
 $@$3$N>pJs$O!"(J{\tt *eusdir*/doc/mails}$@$KC_@Q$5$l$F$$$k!#(J

Modified: trunk/EusLisp/doc/jlatex/jmanual.tex
===================================================================
--- trunk/EusLisp/doc/jlatex/jmanual.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/jlatex/jmanual.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -118,7 +118,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\large \bf version 8.02} \\
+{\large \bf version 9.00} \\
 {\LARGE \bf $B%j%U%!%l%s%9%^%K%e%"%k(B} \\
 {\large -$B%^%k%A%9%l%C%I$H(BXToolKit$B$N<B8=(B-} \\
 \vspace{10mm}
@@ -143,7 +143,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp $B4pK\(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
 \input{jintro}
 \input{jgenerals}
 \input{jcontrols}
@@ -156,7 +156,7 @@
 \input{jevaluation}
 \newpage
 \part{EusLisp $B3HD%(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
 \input{jsysfunc}
 \input{jvxw}
 \input{jmthread}
@@ -172,7 +172,7 @@
 \input{jmars-pre}
 %
 \cleardoublepage
-\markboth{Euslisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
+\markboth{Euslisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: trunk/EusLisp/doc/latex/man.tex
===================================================================
--- trunk/EusLisp/doc/latex/man.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/latex/man.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.00} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.00 Reference Manual (Part I)}{Introduction}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Introduction}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -152,7 +152,7 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.00 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
 \input{matrix}
@@ -167,7 +167,7 @@
 \input{mars-pre}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.00 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: trunk/EusLisp/doc/latex/manual.tex
===================================================================
--- trunk/EusLisp/doc/latex/manual.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/latex/manual.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.25} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.25 Reference Manual (Part I)}{Basics}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Basics}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -154,10 +154,10 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.25 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
-\markboth{EusLisp version 8.25 Reference Manual (Part III)}{Geometric/Robot Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part III)}{Geometric/Robot Functions}
 \input{matrix}
 \input{geometry}
 \input{contact}
@@ -166,16 +166,16 @@
 \input{image}
 \input{manipulator}
 % \input{mars-pre}
-\markboth{EusLisp version 8.25 Reference Manual (Part IV)}{X-windows}
+\markboth{EusLisp version 9.00 Reference Manual (Part IV)}{X-windows}
 \input{xwindow}
 \input{xtoolkit} \newpage
-\markboth{EusLisp version 8.25 Reference Manual (Part V)}{Applications}
+\markboth{EusLisp version 9.00 Reference Manual (Part V)}{Applications}
 \input{database}
 \input{http}
 % \input{sound}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.25 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: trunk/EusLisp/doc/latex/preface.tex
===================================================================
--- trunk/EusLisp/doc/latex/preface.tex	2013-05-20 14:15:02 UTC (rev 631)
+++ trunk/EusLisp/doc/latex/preface.tex	2013-05-20 14:20:25 UTC (rev 632)
@@ -1,2 +1,2 @@
 This is the second version of the reference manual
-for the EusLisp version 8.00.
\ No newline at end of file
+for the EusLisp version 9.00.

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[631] tags/EusLisp-9.00/doc

From: <k-...@us...> - 2013-05-20 14:15:12

Revision: 631
          http://sourceforge.net/p/euslisp/code/631
Author:   k-okada
Date:     2013-05-20 14:15:02 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix license, update manual to 9.00

Modified Paths:
--------------
    tags/EusLisp-9.00/doc/HISTORY
    tags/EusLisp-9.00/doc/html/contents.pl
    tags/EusLisp-9.00/doc/html/manual.html
    tags/EusLisp-9.00/doc/html/node1.html
    tags/EusLisp-9.00/doc/html/node11.html
    tags/EusLisp-9.00/doc/html/node153.html
    tags/EusLisp-9.00/doc/html/node154.html
    tags/EusLisp-9.00/doc/html/node2.html
    tags/EusLisp-9.00/doc/html/node73.html
    tags/EusLisp-9.00/doc/html/sections.pl
    tags/EusLisp-9.00/doc/jlatex/jintro.tex
    tags/EusLisp-9.00/doc/jlatex/jmanual.tex
    tags/EusLisp-9.00/doc/latex/man.tex
    tags/EusLisp-9.00/doc/latex/manual.tex

Modified: tags/EusLisp-9.00/doc/HISTORY
===================================================================
--- tags/EusLisp-9.00/doc/HISTORY	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/HISTORY	2013-05-20 14:15:02 UTC (rev 631)
@@ -483,3 +483,12 @@
 	manipulation on HTTP. Linking Fast-CGI library.
 	Base64 encoding. Crypt is added.
 	Documentation is updated.
+2010-July ; version 8.26
+        Update to New BSD license
+2010-July ; version 9.00
+        merge JSK codes
+        support gcc3
+        mv fstringdouble
+        fix, rewrite int to eusinteger_t, switch float to eusfloat_t for 64bit euslisp, 
+        use strerror_r, remove sys_errlist
+

Modified: tags/EusLisp-9.00/doc/html/contents.pl
===================================================================
--- tags/EusLisp-9.00/doc/html/contents.pl	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/contents.pl	2013-05-20 14:15:02 UTC (rev 631)
@@ -2,7 +2,7 @@
 # Associate contents original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
+$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $toc_section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;

Modified: tags/EusLisp-9.00/doc/html/manual.html
===================================================================
--- tags/EusLisp-9.00/doc/html/manual.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/manual.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -2,8 +2,8 @@
 <!--Converted with LaTeX2HTML 96.1 (Feb 5, 1996) by Nikos Drakos (ni...@cb...), CBLU, University of Leeds -->
 <HTML>
 <HEAD>
-<TITLE>EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
-<META NAME="description" CONTENT="EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
+<TITLE>EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
+<META NAME="description" CONTENT="EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
 <META NAME="keywords" CONTENT="manual">
 <META NAME="resource-type" CONTENT="document">
 <META NAME="distribution" CONTENT="global">
@@ -15,7 +15,7 @@
 <BR> <P>
 <P>
 <H1 ALIGN=CENTER><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-9.00/doc/html/node1.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node1.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node1.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,8 +12,8 @@
 <BODY LANG="EN">
  <A NAME="tex2html1693" HREF="node2.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1691" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1685" HREF="manual.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A>  <A NAME="tex2html1695" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1694" HREF="node2.html">EusLisp Basics</A>
-<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.00  Reference </A>
-<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 9.00  Reference </A>
+<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <BR> <P>
 <P><H2><A NAME="SECTION01000000000000000000">Contents</A></H2>
 <UL> 

Modified: tags/EusLisp-9.00/doc/html/node11.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node11.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node11.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1976" HREF="node12.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1974" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1968" HREF="node10.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1978" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1979" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1977" HREF="node12.html">Data Types</A>
-<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1969" HREF="node10.html">Demonstrations</A>
 <BR> <P>
 <P><A NAME="SECTIONREF"><H2>References</H2></A><P>

Modified: tags/EusLisp-9.00/doc/html/node153.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node153.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node153.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html3912" HREF="node154.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html3910" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3904" HREF="node152.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3914" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A>  <BR>
 <B> Next:</B> <A NAME="tex2html3913" HREF="node154.html">  About this document </A>
-<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3905" HREF="node152.html">System Overview</A>
 <BR> <P>
 <P><H2><A NAME="SECTION05000000000000000000">Index</A></H2>

Modified: tags/EusLisp-9.00/doc/html/node154.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node154.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node154.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -11,13 +11,13 @@
 </HEAD>
 <BODY LANG="EN">
  <IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif_gr.gif"> <A NAME="tex2html3919" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3915" HREF="node153.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3921" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html3922" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
-<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3916" HREF="node153.html">Index</A>
 <BR> <P>
 <H1><A NAME="SECTION06000000000000000000">  About this document ... </A></H1>
 <P>
  <STRONG><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-9.00/doc/html/node2.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node2.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node2.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1857" HREF="node3.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1855" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1849" HREF="node1.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1859" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1860" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1858" HREF="node3.html">Introduction</A>
-<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1850" HREF="node1.html">Contents</A>
 <BR> <P>
 <H1><A NAME="SECTION02000000000000000000">EusLisp Basics</A></H1>

Modified: tags/EusLisp-9.00/doc/html/node73.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node73.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node73.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html2814" HREF="node74.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html2812" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html2806" HREF="node72.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html2816" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html2817" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html2815" HREF="node74.html">System Functions</A>
-<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html2807" HREF="node72.html">Miscelaneous Functions</A>
 <BR> <P>
 <H1><A NAME="SECTION04000000000000000000">EusLisp Extensions</A></H1>

Modified: tags/EusLisp-9.00/doc/html/sections.pl
===================================================================
--- tags/EusLisp-9.00/doc/html/sections.pl	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/sections.pl	2013-05-20 14:15:02 UTC (rev 631)
@@ -2,7 +2,7 @@
 # Associate sections original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
+$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
 $done{"manual.html"} = 1;
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($section_info{$key}); 

Modified: tags/EusLisp-9.00/doc/jlatex/jintro.tex
===================================================================
--- tags/EusLisp-9.00/doc/jlatex/jintro.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/jlatex/jintro.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -249,20 +249,34 @@
 \end{table}
 
 \subsection{\label{License}$@%i%$%;%s%9(J}
-EusLisp$@$O(Jetlport.etl.go.jp (192.31.197.99)$@$+$i(Jftp$@7PM3$G(J
-$@%=!<%9%3!<%I$rF@$k$3$H$,$G$-$k!#(J
-EusLisp$@$r;HMQ$9$k?M!9$O!"<!$N>r9`$r8+$F%i%$%;%s%9F10U=q(J(doc/LICENCE)
-$@$N%3%T!<$r:n<T$KDs=P$7$J$1$l$P$J$i$J$$!#(J
-\begin{quote}
-\begin{tabbing}
-Toshihiro MATSUI \hspace{50mm} \= $@")(J305 $@0q>k8)$D$/$P;TG_1`(J1-1-4 \\
-Comunicating Intelligence Section,  \> $@EE;R5;=QAm9g8&5f=j(J \\
-Intelligent Systems Division, \> $@CNG=%7%9%F%`It(J $@DL?.CNG=8&5f<<(J \\
-Electrotechnical Laboratory  \> $@>>0f=S9@(J \\
-1-1-4 Umezono, Tsukuba, Ibaraki 305, JAPAN. \> email: ma...@et... \\
-\end{tabbing}
-\end{quote}
+EusLisp$B$O0J2<$N=$@5(JBSD$B%i%$%;%s%9$N85G[I[$5$l$F$$$k!%(J
 
+Copyright (c) 1984-2001, National Institute of Advanced Industrial Science
+All rights reserved.
+$B%=!<%9%3!<%I7A<0$+%P%$%J%j7A<0$+!"JQ99$9$k$+$7$J$$$+$rLd$o$:!"0J2<$N>r(J
+$B7o$rK~$?$9>l9g$K8B$j!":FHRI[$*$h$S;HMQ$,5v2D$5$l$^$9!#(J
+
+$B%=!<%9%3!<%I$r:FHRI[$9$k>l9g!">e5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-(J
+$BLH@U>r9`$r4^$a$k$3$H!#(J
+$B%P%$%J%j7A<0$G:FHRI[$9$k>l9g!"HRI[J*$KIUB0$N%I%-%e%a%s%HEy$N;qNA$K!">e(J
+$B5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-LH@U>r9`$r4^$a$k$3$H!#(J
+$B=qLL$K$h$kFCJL$N5v2D$J$7$K!"K\%=%U%H%&%'%"$+$iGI@8$7$?@=IJ$N@kEA$^$?$O(J
+$BHNGdB%?J$K!"(J<$BAH?%(J>$B$NL>A0$^$?$O%3%s%H%j%S%e!<%?!<$NL>A0$r;HMQ$7$F$O$J$i(J
+$B$J$$!#(J
+$BK\%=%U%H%&%'%"$O!"Cx:n8"<T$*$h$S%3%s%H%j%S%e!<%?!<$K$h$C$F!V8=>u$N$^$^!W(J
+$BDs6!$5$l$F$*$j!"L@<(L[<($rLd$o$:!">&6HE*$J;HMQ2DG=@-!"$*$h$SFCDj$NL\E*(J
+$B$KBP$9$kE,9g@-$K4X$9$k0EL[$NJ]>Z$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!"$$$+$J(J
+$B$kJ]>Z$b$"$j$^$;$s!#Cx:n8"<T$b%3%s%H%j%S%e!<%?!<$b!";vM3$N$$$+$s$rLd$o(J
+$B$:!"(J $BB;32H/@8$N860x$$$+$s$rLd$o$:!"$+$D@UG$$N:,5r$,7@Ls$G$"$k$+873J@U(J
+$BG$$G$"$k$+!J2a<:$=$NB>$N!KITK!9T0Y$G$"$k$+$rLd$o$:!"2>$K$=$N$h$&$JB;32(J
+$B$,H/@8$9$k2DG=@-$rCN$i$5$l$F$$$?$H$7$F$b!"K\%=%U%H%&%'%"$N;HMQ$K$h$C$F(J
+$BH/@8$7$?!JBeBXIJ$^$?$OBeMQ%5!<%S%9$ND4C#!";HMQ$NAS<:!"%G!<%?$NAS<:!"Mx(J
+  $B1W$NAS<:!"6HL3$NCfCG$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!KD>@\B;32!"4V@\B;(J
+$B32!"6vH/E*$JB;32!"FCJLB;32!"D(H3E*B;32!"$^$?$O7k2LB;32$K$D$$$F!"0l@Z@U(J
+$BG$$rIi$o$J$$$b$N$H$7$^$9!#(J
+
+$B$J$*(J8.25$BHG$^$G$O0J2<$N%i%$%;%s%9$GG[I[$5$l$F$$$?!%(J
+
 $@%f!<%6!<$O!"%a!<%j%s%0%j%9%H(J(eu...@et...)$@$KEPO?$5$l!"$=$3$K#Q!u#A!&%P%0!&(J
 $@%"%C%W%G!<%H>pJs$rN.$9!#(J
 $@$3$N>pJs$O!"(J{\tt *eusdir*/doc/mails}$@$KC_@Q$5$l$F$$$k!#(J

Modified: tags/EusLisp-9.00/doc/jlatex/jmanual.tex
===================================================================
--- tags/EusLisp-9.00/doc/jlatex/jmanual.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/jlatex/jmanual.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -143,7 +143,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp $B4pK\(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
 \input{jintro}
 \input{jgenerals}
 \input{jcontrols}
@@ -156,7 +156,7 @@
 \input{jevaluation}
 \newpage
 \part{EusLisp $B3HD%(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
 \input{jsysfunc}
 \input{jvxw}
 \input{jmthread}
@@ -172,7 +172,7 @@
 \input{jmars-pre}
 %
 \cleardoublepage
-\markboth{Euslisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
+\markboth{Euslisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-9.00/doc/latex/man.tex
===================================================================
--- tags/EusLisp-9.00/doc/latex/man.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/latex/man.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.00} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.00 Reference Manual (Part I)}{Introduction}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Introduction}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -152,7 +152,7 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.00 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
 \input{matrix}
@@ -167,7 +167,7 @@
 \input{mars-pre}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.00 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-9.00/doc/latex/manual.tex
===================================================================
--- tags/EusLisp-9.00/doc/latex/manual.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/latex/manual.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.25} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.25 Reference Manual (Part I)}{Basics}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Basics}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -154,10 +154,10 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.25 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
-\markboth{EusLisp version 8.25 Reference Manual (Part III)}{Geometric/Robot Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part III)}{Geometric/Robot Functions}
 \input{matrix}
 \input{geometry}
 \input{contact}
@@ -166,16 +166,16 @@
 \input{image}
 \input{manipulator}
 % \input{mars-pre}
-\markboth{EusLisp version 8.25 Reference Manual (Part IV)}{X-windows}
+\markboth{EusLisp version 9.00 Reference Manual (Part IV)}{X-windows}
 \input{xwindow}
 \input{xtoolkit} \newpage
-\markboth{EusLisp version 8.25 Reference Manual (Part V)}{Applications}
+\markboth{EusLisp version 9.00 Reference Manual (Part V)}{Applications}
 \input{database}
 \input{http}
 % \input{sound}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.25 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[631] tags/EusLisp-9.00/doc

From: <k-...@us...> - 2013-05-20 14:15:09

Revision: 631
          http://sourceforge.net/p/euslisp/code/631
Author:   k-okada
Date:     2013-05-20 14:15:02 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix license, update manual to 9.00

Modified Paths:
--------------
    tags/EusLisp-9.00/doc/HISTORY
    tags/EusLisp-9.00/doc/html/contents.pl
    tags/EusLisp-9.00/doc/html/manual.html
    tags/EusLisp-9.00/doc/html/node1.html
    tags/EusLisp-9.00/doc/html/node11.html
    tags/EusLisp-9.00/doc/html/node153.html
    tags/EusLisp-9.00/doc/html/node154.html
    tags/EusLisp-9.00/doc/html/node2.html
    tags/EusLisp-9.00/doc/html/node73.html
    tags/EusLisp-9.00/doc/html/sections.pl
    tags/EusLisp-9.00/doc/jlatex/jintro.tex
    tags/EusLisp-9.00/doc/jlatex/jmanual.tex
    tags/EusLisp-9.00/doc/latex/man.tex
    tags/EusLisp-9.00/doc/latex/manual.tex

Modified: tags/EusLisp-9.00/doc/HISTORY
===================================================================
--- tags/EusLisp-9.00/doc/HISTORY	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/HISTORY	2013-05-20 14:15:02 UTC (rev 631)
@@ -483,3 +483,12 @@
 	manipulation on HTTP. Linking Fast-CGI library.
 	Base64 encoding. Crypt is added.
 	Documentation is updated.
+2010-July ; version 8.26
+        Update to New BSD license
+2010-July ; version 9.00
+        merge JSK codes
+        support gcc3
+        mv fstringdouble
+        fix, rewrite int to eusinteger_t, switch float to eusfloat_t for 64bit euslisp, 
+        use strerror_r, remove sys_errlist
+

Modified: tags/EusLisp-9.00/doc/html/contents.pl
===================================================================
--- tags/EusLisp-9.00/doc/html/contents.pl	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/contents.pl	2013-05-20 14:15:02 UTC (rev 631)
@@ -2,7 +2,7 @@
 # Associate contents original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
+$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $toc_section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;

Modified: tags/EusLisp-9.00/doc/html/manual.html
===================================================================
--- tags/EusLisp-9.00/doc/html/manual.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/manual.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -2,8 +2,8 @@
 <!--Converted with LaTeX2HTML 96.1 (Feb 5, 1996) by Nikos Drakos (ni...@cb...), CBLU, University of Leeds -->
 <HTML>
 <HEAD>
-<TITLE>EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
-<META NAME="description" CONTENT="EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
+<TITLE>EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
+<META NAME="description" CONTENT="EusLisp  version 9.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
 <META NAME="keywords" CONTENT="manual">
 <META NAME="resource-type" CONTENT="document">
 <META NAME="distribution" CONTENT="global">
@@ -15,7 +15,7 @@
 <BR> <P>
 <P>
 <H1 ALIGN=CENTER><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-9.00/doc/html/node1.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node1.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node1.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,8 +12,8 @@
 <BODY LANG="EN">
  <A NAME="tex2html1693" HREF="node2.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1691" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1685" HREF="manual.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A>  <A NAME="tex2html1695" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1694" HREF="node2.html">EusLisp Basics</A>
-<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.00  Reference </A>
-<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 9.00  Reference </A>
+<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <BR> <P>
 <P><H2><A NAME="SECTION01000000000000000000">Contents</A></H2>
 <UL> 

Modified: tags/EusLisp-9.00/doc/html/node11.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node11.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node11.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1976" HREF="node12.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1974" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1968" HREF="node10.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1978" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1979" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1977" HREF="node12.html">Data Types</A>
-<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1969" HREF="node10.html">Demonstrations</A>
 <BR> <P>
 <P><A NAME="SECTIONREF"><H2>References</H2></A><P>

Modified: tags/EusLisp-9.00/doc/html/node153.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node153.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node153.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html3912" HREF="node154.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html3910" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3904" HREF="node152.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3914" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A>  <BR>
 <B> Next:</B> <A NAME="tex2html3913" HREF="node154.html">  About this document </A>
-<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3905" HREF="node152.html">System Overview</A>
 <BR> <P>
 <P><H2><A NAME="SECTION05000000000000000000">Index</A></H2>

Modified: tags/EusLisp-9.00/doc/html/node154.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node154.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node154.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -11,13 +11,13 @@
 </HEAD>
 <BODY LANG="EN">
  <IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif_gr.gif"> <A NAME="tex2html3919" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3915" HREF="node153.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3921" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html3922" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
-<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3916" HREF="node153.html">Index</A>
 <BR> <P>
 <H1><A NAME="SECTION06000000000000000000">  About this document ... </A></H1>
 <P>
  <STRONG><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 9.00</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-9.00/doc/html/node2.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node2.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node2.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1857" HREF="node3.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1855" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1849" HREF="node1.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1859" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1860" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1858" HREF="node3.html">Introduction</A>
-<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1850" HREF="node1.html">Contents</A>
 <BR> <P>
 <H1><A NAME="SECTION02000000000000000000">EusLisp Basics</A></H1>

Modified: tags/EusLisp-9.00/doc/html/node73.html
===================================================================
--- tags/EusLisp-9.00/doc/html/node73.html	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/node73.html	2013-05-20 14:15:02 UTC (rev 631)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html2814" HREF="node74.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html2812" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html2806" HREF="node72.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html2816" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html2817" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html2815" HREF="node74.html">System Functions</A>
-<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 9.00  Reference </A>
 <B> Previous:</B> <A NAME="tex2html2807" HREF="node72.html">Miscelaneous Functions</A>
 <BR> <P>
 <H1><A NAME="SECTION04000000000000000000">EusLisp Extensions</A></H1>

Modified: tags/EusLisp-9.00/doc/html/sections.pl
===================================================================
--- tags/EusLisp-9.00/doc/html/sections.pl	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/html/sections.pl	2013-05-20 14:15:02 UTC (rev 631)
@@ -2,7 +2,7 @@
 # Associate sections original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
+$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 9.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
 $done{"manual.html"} = 1;
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($section_info{$key}); 

Modified: tags/EusLisp-9.00/doc/jlatex/jintro.tex
===================================================================
--- tags/EusLisp-9.00/doc/jlatex/jintro.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/jlatex/jintro.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -249,20 +249,34 @@
 \end{table}
 
 \subsection{\label{License}$@%i%$%;%s%9(J}
-EusLisp$@$O(Jetlport.etl.go.jp (192.31.197.99)$@$+$i(Jftp$@7PM3$G(J
-$@%=!<%9%3!<%I$rF@$k$3$H$,$G$-$k!#(J
-EusLisp$@$r;HMQ$9$k?M!9$O!"<!$N>r9`$r8+$F%i%$%;%s%9F10U=q(J(doc/LICENCE)
-$@$N%3%T!<$r:n<T$KDs=P$7$J$1$l$P$J$i$J$$!#(J
-\begin{quote}
-\begin{tabbing}
-Toshihiro MATSUI \hspace{50mm} \= $@")(J305 $@0q>k8)$D$/$P;TG_1`(J1-1-4 \\
-Comunicating Intelligence Section,  \> $@EE;R5;=QAm9g8&5f=j(J \\
-Intelligent Systems Division, \> $@CNG=%7%9%F%`It(J $@DL?.CNG=8&5f<<(J \\
-Electrotechnical Laboratory  \> $@>>0f=S9@(J \\
-1-1-4 Umezono, Tsukuba, Ibaraki 305, JAPAN. \> email: ma...@et... \\
-\end{tabbing}
-\end{quote}
+EusLisp$B$O0J2<$N=$@5(JBSD$B%i%$%;%s%9$N85G[I[$5$l$F$$$k!%(J
 
+Copyright (c) 1984-2001, National Institute of Advanced Industrial Science
+All rights reserved.
+$B%=!<%9%3!<%I7A<0$+%P%$%J%j7A<0$+!"JQ99$9$k$+$7$J$$$+$rLd$o$:!"0J2<$N>r(J
+$B7o$rK~$?$9>l9g$K8B$j!":FHRI[$*$h$S;HMQ$,5v2D$5$l$^$9!#(J
+
+$B%=!<%9%3!<%I$r:FHRI[$9$k>l9g!">e5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-(J
+$BLH@U>r9`$r4^$a$k$3$H!#(J
+$B%P%$%J%j7A<0$G:FHRI[$9$k>l9g!"HRI[J*$KIUB0$N%I%-%e%a%s%HEy$N;qNA$K!">e(J
+$B5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-LH@U>r9`$r4^$a$k$3$H!#(J
+$B=qLL$K$h$kFCJL$N5v2D$J$7$K!"K\%=%U%H%&%'%"$+$iGI@8$7$?@=IJ$N@kEA$^$?$O(J
+$BHNGdB%?J$K!"(J<$BAH?%(J>$B$NL>A0$^$?$O%3%s%H%j%S%e!<%?!<$NL>A0$r;HMQ$7$F$O$J$i(J
+$B$J$$!#(J
+$BK\%=%U%H%&%'%"$O!"Cx:n8"<T$*$h$S%3%s%H%j%S%e!<%?!<$K$h$C$F!V8=>u$N$^$^!W(J
+$BDs6!$5$l$F$*$j!"L@<(L[<($rLd$o$:!">&6HE*$J;HMQ2DG=@-!"$*$h$SFCDj$NL\E*(J
+$B$KBP$9$kE,9g@-$K4X$9$k0EL[$NJ]>Z$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!"$$$+$J(J
+$B$kJ]>Z$b$"$j$^$;$s!#Cx:n8"<T$b%3%s%H%j%S%e!<%?!<$b!";vM3$N$$$+$s$rLd$o(J
+$B$:!"(J $BB;32H/@8$N860x$$$+$s$rLd$o$:!"$+$D@UG$$N:,5r$,7@Ls$G$"$k$+873J@U(J
+$BG$$G$"$k$+!J2a<:$=$NB>$N!KITK!9T0Y$G$"$k$+$rLd$o$:!"2>$K$=$N$h$&$JB;32(J
+$B$,H/@8$9$k2DG=@-$rCN$i$5$l$F$$$?$H$7$F$b!"K\%=%U%H%&%'%"$N;HMQ$K$h$C$F(J
+$BH/@8$7$?!JBeBXIJ$^$?$OBeMQ%5!<%S%9$ND4C#!";HMQ$NAS<:!"%G!<%?$NAS<:!"Mx(J
+  $B1W$NAS<:!"6HL3$NCfCG$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!KD>@\B;32!"4V@\B;(J
+$B32!"6vH/E*$JB;32!"FCJLB;32!"D(H3E*B;32!"$^$?$O7k2LB;32$K$D$$$F!"0l@Z@U(J
+$BG$$rIi$o$J$$$b$N$H$7$^$9!#(J
+
+$B$J$*(J8.25$BHG$^$G$O0J2<$N%i%$%;%s%9$GG[I[$5$l$F$$$?!%(J
+
 $@%f!<%6!<$O!"%a!<%j%s%0%j%9%H(J(eu...@et...)$@$KEPO?$5$l!"$=$3$K#Q!u#A!&%P%0!&(J
 $@%"%C%W%G!<%H>pJs$rN.$9!#(J
 $@$3$N>pJs$O!"(J{\tt *eusdir*/doc/mails}$@$KC_@Q$5$l$F$$$k!#(J

Modified: tags/EusLisp-9.00/doc/jlatex/jmanual.tex
===================================================================
--- tags/EusLisp-9.00/doc/jlatex/jmanual.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/jlatex/jmanual.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -143,7 +143,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp $B4pK\(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
 \input{jintro}
 \input{jgenerals}
 \input{jcontrols}
@@ -156,7 +156,7 @@
 \input{jevaluation}
 \newpage
 \part{EusLisp $B3HD%(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
+\markboth{EusLisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
 \input{jsysfunc}
 \input{jvxw}
 \input{jmthread}
@@ -172,7 +172,7 @@
 \input{jmars-pre}
 %
 \cleardoublepage
-\markboth{Euslisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
+\markboth{Euslisp version 9.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-9.00/doc/latex/man.tex
===================================================================
--- tags/EusLisp-9.00/doc/latex/man.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/latex/man.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.00} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.00 Reference Manual (Part I)}{Introduction}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Introduction}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -152,7 +152,7 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.00 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
 \input{matrix}
@@ -167,7 +167,7 @@
 \input{mars-pre}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.00 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-9.00/doc/latex/manual.tex
===================================================================
--- tags/EusLisp-9.00/doc/latex/manual.tex	2013-05-20 13:53:55 UTC (rev 630)
+++ tags/EusLisp-9.00/doc/latex/manual.tex	2013-05-20 14:15:02 UTC (rev 631)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.25} \\
+{\Large \bf version 9.00} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.25 Reference Manual (Part I)}{Basics}
+\markboth{EusLisp version 9.00 Reference Manual (Part I)}{Basics}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -154,10 +154,10 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.25 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
-\markboth{EusLisp version 8.25 Reference Manual (Part III)}{Geometric/Robot Functions}
+\markboth{EusLisp version 9.00 Reference Manual (Part III)}{Geometric/Robot Functions}
 \input{matrix}
 \input{geometry}
 \input{contact}
@@ -166,16 +166,16 @@
 \input{image}
 \input{manipulator}
 % \input{mars-pre}
-\markboth{EusLisp version 8.25 Reference Manual (Part IV)}{X-windows}
+\markboth{EusLisp version 9.00 Reference Manual (Part IV)}{X-windows}
 \input{xwindow}
 \input{xtoolkit} \newpage
-\markboth{EusLisp version 8.25 Reference Manual (Part V)}{Applications}
+\markboth{EusLisp version 9.00 Reference Manual (Part V)}{Applications}
 \input{database}
 \input{http}
 % \input{sound}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.25 Reference Manual}{Index}
+\markboth{EusLisp version 9.00 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[630] tags/EusLisp-8.26/doc

From: <k-...@us...> - 2013-05-20 13:54:06

Revision: 630
          http://sourceforge.net/p/euslisp/code/630
Author:   k-okada
Date:     2013-05-20 13:53:55 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix license, update manual to 8.26

Modified Paths:
--------------
    tags/EusLisp-8.26/doc/HISTORY
    tags/EusLisp-8.26/doc/html/contents.pl
    tags/EusLisp-8.26/doc/html/manual.html
    tags/EusLisp-8.26/doc/html/node1.html
    tags/EusLisp-8.26/doc/html/node11.html
    tags/EusLisp-8.26/doc/html/node153.html
    tags/EusLisp-8.26/doc/html/node154.html
    tags/EusLisp-8.26/doc/html/node2.html
    tags/EusLisp-8.26/doc/html/node73.html
    tags/EusLisp-8.26/doc/html/sections.pl
    tags/EusLisp-8.26/doc/jlatex/jintro.tex
    tags/EusLisp-8.26/doc/jlatex/jmanual.tex
    tags/EusLisp-8.26/doc/latex/intro.tex
    tags/EusLisp-8.26/doc/latex/man.tex
    tags/EusLisp-8.26/doc/latex/manual.tex
    tags/EusLisp-8.26/doc/latex/preface.tex

Modified: tags/EusLisp-8.26/doc/HISTORY
===================================================================
--- tags/EusLisp-8.26/doc/HISTORY	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/HISTORY	2013-05-20 13:53:55 UTC (rev 630)
@@ -483,3 +483,5 @@
 	manipulation on HTTP. Linking Fast-CGI library.
 	Base64 encoding. Crypt is added.
 	Documentation is updated.
+2010-July ; version 8.26
+        Update to New BSD license
\ No newline at end of file

Modified: tags/EusLisp-8.26/doc/html/contents.pl
===================================================================
--- tags/EusLisp-8.26/doc/html/contents.pl	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/contents.pl	2013-05-20 13:53:55 UTC (rev 630)
@@ -2,7 +2,7 @@
 # Associate contents original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
+$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.26</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $toc_section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;

Modified: tags/EusLisp-8.26/doc/html/manual.html
===================================================================
--- tags/EusLisp-8.26/doc/html/manual.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/manual.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -2,8 +2,8 @@
 <!--Converted with LaTeX2HTML 96.1 (Feb 5, 1996) by Nikos Drakos (ni...@cb...), CBLU, University of Leeds -->
 <HTML>
 <HEAD>
-<TITLE>EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
-<META NAME="description" CONTENT="EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
+<TITLE>EusLisp  version 8.26  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
+<META NAME="description" CONTENT="EusLisp  version 8.26  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
 <META NAME="keywords" CONTENT="manual">
 <META NAME="resource-type" CONTENT="document">
 <META NAME="distribution" CONTENT="global">
@@ -15,7 +15,7 @@
 <BR> <P>
 <P>
 <H1 ALIGN=CENTER><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 8.26</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-8.26/doc/html/node1.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node1.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node1.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,8 +12,8 @@
 <BODY LANG="EN">
  <A NAME="tex2html1693" HREF="node2.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1691" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1685" HREF="manual.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A>  <A NAME="tex2html1695" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1694" HREF="node2.html">EusLisp Basics</A>
-<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.00  Reference </A>
-<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.26  Reference </A>
+<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <BR> <P>
 <P><H2><A NAME="SECTION01000000000000000000">Contents</A></H2>
 <UL> 

Modified: tags/EusLisp-8.26/doc/html/node11.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node11.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node11.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1976" HREF="node12.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1974" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1968" HREF="node10.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1978" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1979" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1977" HREF="node12.html">Data Types</A>
-<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1969" HREF="node10.html">Demonstrations</A>
 <BR> <P>
 <P><A NAME="SECTIONREF"><H2>References</H2></A><P>

Modified: tags/EusLisp-8.26/doc/html/node153.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node153.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node153.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html3912" HREF="node154.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html3910" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3904" HREF="node152.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3914" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A>  <BR>
 <B> Next:</B> <A NAME="tex2html3913" HREF="node154.html">  About this document </A>
-<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3905" HREF="node152.html">System Overview</A>
 <BR> <P>
 <P><H2><A NAME="SECTION05000000000000000000">Index</A></H2>

Modified: tags/EusLisp-8.26/doc/html/node154.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node154.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node154.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -11,13 +11,13 @@
 </HEAD>
 <BODY LANG="EN">
  <IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif_gr.gif"> <A NAME="tex2html3919" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3915" HREF="node153.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3921" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html3922" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
-<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3916" HREF="node153.html">Index</A>
 <BR> <P>
 <H1><A NAME="SECTION06000000000000000000">  About this document ... </A></H1>
 <P>
  <STRONG><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 8.26</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-8.26/doc/html/node2.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node2.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node2.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1857" HREF="node3.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1855" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1849" HREF="node1.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1859" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1860" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1858" HREF="node3.html">Introduction</A>
-<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1850" HREF="node1.html">Contents</A>
 <BR> <P>
 <H1><A NAME="SECTION02000000000000000000">EusLisp Basics</A></H1>

Modified: tags/EusLisp-8.26/doc/html/node73.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node73.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node73.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html2814" HREF="node74.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html2812" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html2806" HREF="node72.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html2816" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html2817" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html2815" HREF="node74.html">System Functions</A>
-<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html2807" HREF="node72.html">Miscelaneous Functions</A>
 <BR> <P>
 <H1><A NAME="SECTION04000000000000000000">EusLisp Extensions</A></H1>

Modified: tags/EusLisp-8.26/doc/html/sections.pl
===================================================================
--- tags/EusLisp-8.26/doc/html/sections.pl	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/sections.pl	2013-05-20 13:53:55 UTC (rev 630)
@@ -2,7 +2,7 @@
 # Associate sections original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
+$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.26</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
 $done{"manual.html"} = 1;
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($section_info{$key}); 

Modified: tags/EusLisp-8.26/doc/jlatex/jintro.tex
===================================================================
--- tags/EusLisp-8.26/doc/jlatex/jintro.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/jlatex/jintro.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -249,20 +249,34 @@
 \end{table}
 
 \subsection{\label{License}$@%i%$%;%s%9(J}
-EusLisp$@$O(Jetlport.etl.go.jp (192.31.197.99)$@$+$i(Jftp$@7PM3$G(J
-$@%=!<%9%3!<%I$rF@$k$3$H$,$G$-$k!#(J
-EusLisp$@$r;HMQ$9$k?M!9$O!"<!$N>r9`$r8+$F%i%$%;%s%9F10U=q(J(doc/LICENCE)
-$@$N%3%T!<$r:n<T$KDs=P$7$J$1$l$P$J$i$J$$!#(J
-\begin{quote}
-\begin{tabbing}
-Toshihiro MATSUI \hspace{50mm} \= $@")(J305 $@0q>k8)$D$/$P;TG_1`(J1-1-4 \\
-Comunicating Intelligence Section,  \> $@EE;R5;=QAm9g8&5f=j(J \\
-Intelligent Systems Division, \> $@CNG=%7%9%F%`It(J $@DL?.CNG=8&5f<<(J \\
-Electrotechnical Laboratory  \> $@>>0f=S9@(J \\
-1-1-4 Umezono, Tsukuba, Ibaraki 305, JAPAN. \> email: ma...@et... \\
-\end{tabbing}
-\end{quote}
+EusLisp$B$O0J2<$N=$@5(JBSD$B%i%$%;%s%9$N85G[I[$5$l$F$$$k!%(J
 
+Copyright (c) 1984-2001, National Institute of Advanced Industrial Science
+All rights reserved.
+$B%=!<%9%3!<%I7A<0$+%P%$%J%j7A<0$+!"JQ99$9$k$+$7$J$$$+$rLd$o$:!"0J2<$N>r(J
+$B7o$rK~$?$9>l9g$K8B$j!":FHRI[$*$h$S;HMQ$,5v2D$5$l$^$9!#(J
+
+$B%=!<%9%3!<%I$r:FHRI[$9$k>l9g!">e5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-(J
+$BLH@U>r9`$r4^$a$k$3$H!#(J
+$B%P%$%J%j7A<0$G:FHRI[$9$k>l9g!"HRI[J*$KIUB0$N%I%-%e%a%s%HEy$N;qNA$K!">e(J
+$B5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-LH@U>r9`$r4^$a$k$3$H!#(J
+$B=qLL$K$h$kFCJL$N5v2D$J$7$K!"K\%=%U%H%&%'%"$+$iGI@8$7$?@=IJ$N@kEA$^$?$O(J
+$BHNGdB%?J$K!"(J<$BAH?%(J>$B$NL>A0$^$?$O%3%s%H%j%S%e!<%?!<$NL>A0$r;HMQ$7$F$O$J$i(J
+$B$J$$!#(J
+$BK\%=%U%H%&%'%"$O!"Cx:n8"<T$*$h$S%3%s%H%j%S%e!<%?!<$K$h$C$F!V8=>u$N$^$^!W(J
+$BDs6!$5$l$F$*$j!"L@<(L[<($rLd$o$:!">&6HE*$J;HMQ2DG=@-!"$*$h$SFCDj$NL\E*(J
+$B$KBP$9$kE,9g@-$K4X$9$k0EL[$NJ]>Z$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!"$$$+$J(J
+$B$kJ]>Z$b$"$j$^$;$s!#Cx:n8"<T$b%3%s%H%j%S%e!<%?!<$b!";vM3$N$$$+$s$rLd$o(J
+$B$:!"(J $BB;32H/@8$N860x$$$+$s$rLd$o$:!"$+$D@UG$$N:,5r$,7@Ls$G$"$k$+873J@U(J
+$BG$$G$"$k$+!J2a<:$=$NB>$N!KITK!9T0Y$G$"$k$+$rLd$o$:!"2>$K$=$N$h$&$JB;32(J
+$B$,H/@8$9$k2DG=@-$rCN$i$5$l$F$$$?$H$7$F$b!"K\%=%U%H%&%'%"$N;HMQ$K$h$C$F(J
+$BH/@8$7$?!JBeBXIJ$^$?$OBeMQ%5!<%S%9$ND4C#!";HMQ$NAS<:!"%G!<%?$NAS<:!"Mx(J
+  $B1W$NAS<:!"6HL3$NCfCG$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!KD>@\B;32!"4V@\B;(J
+$B32!"6vH/E*$JB;32!"FCJLB;32!"D(H3E*B;32!"$^$?$O7k2LB;32$K$D$$$F!"0l@Z@U(J
+$BG$$rIi$o$J$$$b$N$H$7$^$9!#(J
+
+$B$J$*(J8.25$BHG$^$G$O0J2<$N%i%$%;%s%9$GG[I[$5$l$F$$$?!%(J
+
 $@%f!<%6!<$O!"%a!<%j%s%0%j%9%H(J(eu...@et...)$@$KEPO?$5$l!"$=$3$K#Q!u#A!&%P%0!&(J
 $@%"%C%W%G!<%H>pJs$rN.$9!#(J
 $@$3$N>pJs$O!"(J{\tt *eusdir*/doc/mails}$@$KC_@Q$5$l$F$$$k!#(J

Modified: tags/EusLisp-8.26/doc/jlatex/jmanual.tex
===================================================================
--- tags/EusLisp-8.26/doc/jlatex/jmanual.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/jlatex/jmanual.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -104,7 +104,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\large \bf version 8.02} \\
+{\large \bf version 8.26} \\
 {\LARGE \bf $B%j%U%!%l%s%9%^%K%e%"%k(B} \\
 {\large -$B%^%k%A%9%l%C%I$H(BXToolKit$B$N<B8=(B-} \\
 \vspace{10mm}
@@ -129,7 +129,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp $B4pK\(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
+\markboth{EusLisp version 8.26 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
 \input{jintro}
 \input{jgenerals}
 \input{jcontrols}
@@ -142,7 +142,7 @@
 \input{jevaluation}
 \newpage
 \part{EusLisp $B3HD%(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
+\markboth{EusLisp version 8.26 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
 \input{jsysfunc}
 \input{jvxw}
 \input{jmthread}
@@ -158,7 +158,7 @@
 \input{jmars-pre}
 %
 \cleardoublepage
-\markboth{Euslisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
+\markboth{Euslisp version 8.26 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-8.26/doc/latex/intro.tex
===================================================================
(Binary files differ)

Modified: tags/EusLisp-8.26/doc/latex/man.tex
===================================================================
--- tags/EusLisp-8.26/doc/latex/man.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/latex/man.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.00} \\
+{\Large \bf version 8.26} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.00 Reference Manual (Part I)}{Introduction}
+\markboth{EusLisp version 8.26 Reference Manual (Part I)}{Introduction}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -152,7 +152,7 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.00 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 8.26 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
 \input{matrix}
@@ -167,7 +167,7 @@
 \input{mars-pre}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.00 Reference Manual}{Index}
+\markboth{EusLisp version 8.26 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-8.26/doc/latex/manual.tex
===================================================================
--- tags/EusLisp-8.26/doc/latex/manual.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/latex/manual.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.25} \\
+{\Large \bf version 8.26} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.25 Reference Manual (Part I)}{Basics}
+\markboth{EusLisp version 8.26 Reference Manual (Part I)}{Basics}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -154,10 +154,10 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.25 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 8.26 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
-\markboth{EusLisp version 8.25 Reference Manual (Part III)}{Geometric/Robot Functions}
+\markboth{EusLisp version 8.26 Reference Manual (Part III)}{Geometric/Robot Functions}
 \input{matrix}
 \input{geometry}
 \input{contact}
@@ -166,16 +166,16 @@
 \input{image}
 \input{manipulator}
 % \input{mars-pre}
-\markboth{EusLisp version 8.25 Reference Manual (Part IV)}{X-windows}
+\markboth{EusLisp version 8.26 Reference Manual (Part IV)}{X-windows}
 \input{xwindow}
 \input{xtoolkit} \newpage
-\markboth{EusLisp version 8.25 Reference Manual (Part V)}{Applications}
+\markboth{EusLisp version 8.26 Reference Manual (Part V)}{Applications}
 \input{database}
 \input{http}
 % \input{sound}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.25 Reference Manual}{Index}
+\markboth{EusLisp version 8.26 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-8.26/doc/latex/preface.tex
===================================================================
--- tags/EusLisp-8.26/doc/latex/preface.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/latex/preface.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -1,2 +1,2 @@
 This is the second version of the reference manual
-for the EusLisp version 8.00.
\ No newline at end of file
+for the EusLisp version 8.26.

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[630] tags/EusLisp-8.26/doc

From: <k-...@us...> - 2013-05-20 13:54:03

Revision: 630
          http://sourceforge.net/p/euslisp/code/630
Author:   k-okada
Date:     2013-05-20 13:53:55 +0000 (Mon, 20 May 2013)
Log Message:
-----------
fix license, update manual to 8.26

Modified Paths:
--------------
    tags/EusLisp-8.26/doc/HISTORY
    tags/EusLisp-8.26/doc/html/contents.pl
    tags/EusLisp-8.26/doc/html/manual.html
    tags/EusLisp-8.26/doc/html/node1.html
    tags/EusLisp-8.26/doc/html/node11.html
    tags/EusLisp-8.26/doc/html/node153.html
    tags/EusLisp-8.26/doc/html/node154.html
    tags/EusLisp-8.26/doc/html/node2.html
    tags/EusLisp-8.26/doc/html/node73.html
    tags/EusLisp-8.26/doc/html/sections.pl
    tags/EusLisp-8.26/doc/jlatex/jintro.tex
    tags/EusLisp-8.26/doc/jlatex/jmanual.tex
    tags/EusLisp-8.26/doc/latex/intro.tex
    tags/EusLisp-8.26/doc/latex/man.tex
    tags/EusLisp-8.26/doc/latex/manual.tex
    tags/EusLisp-8.26/doc/latex/preface.tex

Modified: tags/EusLisp-8.26/doc/HISTORY
===================================================================
--- tags/EusLisp-8.26/doc/HISTORY	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/HISTORY	2013-05-20 13:53:55 UTC (rev 630)
@@ -483,3 +483,5 @@
 	manipulation on HTTP. Linking Fast-CGI library.
 	Base64 encoding. Crypt is added.
 	Documentation is updated.
+2010-July ; version 8.26
+        Update to New BSD license
\ No newline at end of file

Modified: tags/EusLisp-8.26/doc/html/contents.pl
===================================================================
--- tags/EusLisp-8.26/doc/html/contents.pl	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/contents.pl	2013-05-20 13:53:55 UTC (rev 630)
@@ -2,7 +2,7 @@
 # Associate contents original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
+$toc_section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.26</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $toc_section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($toc_section_info{$key}); 
 $key = q/0 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;

Modified: tags/EusLisp-8.26/doc/html/manual.html
===================================================================
--- tags/EusLisp-8.26/doc/html/manual.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/manual.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -2,8 +2,8 @@
 <!--Converted with LaTeX2HTML 96.1 (Feb 5, 1996) by Nikos Drakos (ni...@cb...), CBLU, University of Leeds -->
 <HTML>
 <HEAD>
-<TITLE>EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
-<META NAME="description" CONTENT="EusLisp  version 8.00  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
+<TITLE>EusLisp  version 8.26  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  </TITLE>
+<META NAME="description" CONTENT="EusLisp  version 8.26  Reference Manual  Featuring Multithread and XToolKit  ETL-TR-95-2  January, 1995  ">
 <META NAME="keywords" CONTENT="manual">
 <META NAME="resource-type" CONTENT="document">
 <META NAME="distribution" CONTENT="global">
@@ -15,7 +15,7 @@
 <BR> <P>
 <P>
 <H1 ALIGN=CENTER><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 8.26</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-8.26/doc/html/node1.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node1.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node1.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,8 +12,8 @@
 <BODY LANG="EN">
  <A NAME="tex2html1693" HREF="node2.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1691" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1685" HREF="manual.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A>  <A NAME="tex2html1695" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1694" HREF="node2.html">EusLisp Basics</A>
-<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.00  Reference </A>
-<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1692" HREF="manual.html">EusLisp  version 8.26  Reference </A>
+<B> Previous:</B> <A NAME="tex2html1686" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <BR> <P>
 <P><H2><A NAME="SECTION01000000000000000000">Contents</A></H2>
 <UL> 

Modified: tags/EusLisp-8.26/doc/html/node11.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node11.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node11.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1976" HREF="node12.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1974" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1968" HREF="node10.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1978" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1979" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1977" HREF="node12.html">Data Types</A>
-<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1975" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1969" HREF="node10.html">Demonstrations</A>
 <BR> <P>
 <P><A NAME="SECTIONREF"><H2>References</H2></A><P>

Modified: tags/EusLisp-8.26/doc/html/node153.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node153.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node153.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html3912" HREF="node154.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html3910" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3904" HREF="node152.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3914" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A>  <BR>
 <B> Next:</B> <A NAME="tex2html3913" HREF="node154.html">  About this document </A>
-<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3911" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3905" HREF="node152.html">System Overview</A>
 <BR> <P>
 <P><H2><A NAME="SECTION05000000000000000000">Index</A></H2>

Modified: tags/EusLisp-8.26/doc/html/node154.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node154.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node154.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -11,13 +11,13 @@
 </HEAD>
 <BODY LANG="EN">
  <IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif_gr.gif"> <A NAME="tex2html3919" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html3915" HREF="node153.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html3921" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html3922" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
-<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html3920" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html3916" HREF="node153.html">Index</A>
 <BR> <P>
 <H1><A NAME="SECTION06000000000000000000">  About this document ... </A></H1>
 <P>
  <STRONG><B>EusLisp</B> <BR> 
-<B>version 8.00</B> <BR> 
+<B>version 8.26</B> <BR> 
 <B>Reference Manual</B> <BR> 
 Featuring Multithread and XToolKit <BR> 
 ETL-TR-95-2 <BR> 

Modified: tags/EusLisp-8.26/doc/html/node2.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node2.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node2.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html1857" HREF="node3.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html1855" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html1849" HREF="node1.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html1859" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html1860" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html1858" HREF="node3.html">Introduction</A>
-<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html1856" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html1850" HREF="node1.html">Contents</A>
 <BR> <P>
 <H1><A NAME="SECTION02000000000000000000">EusLisp Basics</A></H1>

Modified: tags/EusLisp-8.26/doc/html/node73.html
===================================================================
--- tags/EusLisp-8.26/doc/html/node73.html	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/node73.html	2013-05-20 13:53:55 UTC (rev 630)
@@ -12,7 +12,7 @@
 <BODY LANG="EN">
  <A NAME="tex2html2814" HREF="node74.html"><IMG WIDTH=37 HEIGHT=24 ALIGN=BOTTOM ALT="next" SRC="./icons/next_motif.gif"></A> <A NAME="tex2html2812" HREF="manual.html"><IMG WIDTH=26 HEIGHT=24 ALIGN=BOTTOM ALT="up" SRC="./icons/up_motif.gif"></A> <A NAME="tex2html2806" HREF="node72.html"><IMG WIDTH=63 HEIGHT=24 ALIGN=BOTTOM ALT="previous" SRC="./icons/previous_motif.gif"></A> <A NAME="tex2html2816" HREF="node1.html"><IMG WIDTH=65 HEIGHT=24 ALIGN=BOTTOM ALT="contents" SRC="./icons/contents_motif.gif"></A> <A NAME="tex2html2817" HREF="node153.html"><IMG WIDTH=43 HEIGHT=24 ALIGN=BOTTOM ALT="index" SRC="./icons/index_motif.gif"></A> <BR>
 <B> Next:</B> <A NAME="tex2html2815" HREF="node74.html">System Functions</A>
-<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.00  Reference </A>
+<B>Up:</B> <A NAME="tex2html2813" HREF="manual.html">EusLisp  version 8.26  Reference </A>
 <B> Previous:</B> <A NAME="tex2html2807" HREF="node72.html">Miscelaneous Functions</A>
 <BR> <P>
 <H1><A NAME="SECTION04000000000000000000">EusLisp Extensions</A></H1>

Modified: tags/EusLisp-8.26/doc/html/sections.pl
===================================================================
--- tags/EusLisp-8.26/doc/html/sections.pl	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/html/sections.pl	2013-05-20 13:53:55 UTC (rev 630)
@@ -2,7 +2,7 @@
 # Associate sections original text with physical files.
 
 $key = q/0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
-$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.00</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
+$section_info{$key} = '0%:%manual.html%:%<B>EusLisp</B> <BR> <B>version 8.26</B> <BR> <B>Reference Manual</B> <BR> Featuring Multithread and XToolKit <BR> ETL-TR-95-2 <BR> January, 1995 <BR> ' unless ($section_info{$key}); 
 $done{"manual.html"} = 1;
 $key = q/0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0/;
 $section_info{$key} = '1%:%node2.html%:%EusLisp Basics' unless ($section_info{$key}); 

Modified: tags/EusLisp-8.26/doc/jlatex/jintro.tex
===================================================================
--- tags/EusLisp-8.26/doc/jlatex/jintro.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/jlatex/jintro.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -249,20 +249,34 @@
 \end{table}
 
 \subsection{\label{License}$@%i%$%;%s%9(J}
-EusLisp$@$O(Jetlport.etl.go.jp (192.31.197.99)$@$+$i(Jftp$@7PM3$G(J
-$@%=!<%9%3!<%I$rF@$k$3$H$,$G$-$k!#(J
-EusLisp$@$r;HMQ$9$k?M!9$O!"<!$N>r9`$r8+$F%i%$%;%s%9F10U=q(J(doc/LICENCE)
-$@$N%3%T!<$r:n<T$KDs=P$7$J$1$l$P$J$i$J$$!#(J
-\begin{quote}
-\begin{tabbing}
-Toshihiro MATSUI \hspace{50mm} \= $@")(J305 $@0q>k8)$D$/$P;TG_1`(J1-1-4 \\
-Comunicating Intelligence Section,  \> $@EE;R5;=QAm9g8&5f=j(J \\
-Intelligent Systems Division, \> $@CNG=%7%9%F%`It(J $@DL?.CNG=8&5f<<(J \\
-Electrotechnical Laboratory  \> $@>>0f=S9@(J \\
-1-1-4 Umezono, Tsukuba, Ibaraki 305, JAPAN. \> email: ma...@et... \\
-\end{tabbing}
-\end{quote}
+EusLisp$B$O0J2<$N=$@5(JBSD$B%i%$%;%s%9$N85G[I[$5$l$F$$$k!%(J
 
+Copyright (c) 1984-2001, National Institute of Advanced Industrial Science
+All rights reserved.
+$B%=!<%9%3!<%I7A<0$+%P%$%J%j7A<0$+!"JQ99$9$k$+$7$J$$$+$rLd$o$:!"0J2<$N>r(J
+$B7o$rK~$?$9>l9g$K8B$j!":FHRI[$*$h$S;HMQ$,5v2D$5$l$^$9!#(J
+
+$B%=!<%9%3!<%I$r:FHRI[$9$k>l9g!">e5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-(J
+$BLH@U>r9`$r4^$a$k$3$H!#(J
+$B%P%$%J%j7A<0$G:FHRI[$9$k>l9g!"HRI[J*$KIUB0$N%I%-%e%a%s%HEy$N;qNA$K!">e(J
+$B5-$NCx:n8"I=<(!"K\>r7o0lMw!"$*$h$S2<5-LH@U>r9`$r4^$a$k$3$H!#(J
+$B=qLL$K$h$kFCJL$N5v2D$J$7$K!"K\%=%U%H%&%'%"$+$iGI@8$7$?@=IJ$N@kEA$^$?$O(J
+$BHNGdB%?J$K!"(J<$BAH?%(J>$B$NL>A0$^$?$O%3%s%H%j%S%e!<%?!<$NL>A0$r;HMQ$7$F$O$J$i(J
+$B$J$$!#(J
+$BK\%=%U%H%&%'%"$O!"Cx:n8"<T$*$h$S%3%s%H%j%S%e!<%?!<$K$h$C$F!V8=>u$N$^$^!W(J
+$BDs6!$5$l$F$*$j!"L@<(L[<($rLd$o$:!">&6HE*$J;HMQ2DG=@-!"$*$h$SFCDj$NL\E*(J
+$B$KBP$9$kE,9g@-$K4X$9$k0EL[$NJ]>Z$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!"$$$+$J(J
+$B$kJ]>Z$b$"$j$^$;$s!#Cx:n8"<T$b%3%s%H%j%S%e!<%?!<$b!";vM3$N$$$+$s$rLd$o(J
+$B$:!"(J $BB;32H/@8$N860x$$$+$s$rLd$o$:!"$+$D@UG$$N:,5r$,7@Ls$G$"$k$+873J@U(J
+$BG$$G$"$k$+!J2a<:$=$NB>$N!KITK!9T0Y$G$"$k$+$rLd$o$:!"2>$K$=$N$h$&$JB;32(J
+$B$,H/@8$9$k2DG=@-$rCN$i$5$l$F$$$?$H$7$F$b!"K\%=%U%H%&%'%"$N;HMQ$K$h$C$F(J
+$BH/@8$7$?!JBeBXIJ$^$?$OBeMQ%5!<%S%9$ND4C#!";HMQ$NAS<:!"%G!<%?$NAS<:!"Mx(J
+  $B1W$NAS<:!"6HL3$NCfCG$b4^$a!"$^$?$=$l$K8BDj$5$l$J$$!KD>@\B;32!"4V@\B;(J
+$B32!"6vH/E*$JB;32!"FCJLB;32!"D(H3E*B;32!"$^$?$O7k2LB;32$K$D$$$F!"0l@Z@U(J
+$BG$$rIi$o$J$$$b$N$H$7$^$9!#(J
+
+$B$J$*(J8.25$BHG$^$G$O0J2<$N%i%$%;%s%9$GG[I[$5$l$F$$$?!%(J
+
 $@%f!<%6!<$O!"%a!<%j%s%0%j%9%H(J(eu...@et...)$@$KEPO?$5$l!"$=$3$K#Q!u#A!&%P%0!&(J
 $@%"%C%W%G!<%H>pJs$rN.$9!#(J
 $@$3$N>pJs$O!"(J{\tt *eusdir*/doc/mails}$@$KC_@Q$5$l$F$$$k!#(J

Modified: tags/EusLisp-8.26/doc/jlatex/jmanual.tex
===================================================================
--- tags/EusLisp-8.26/doc/jlatex/jmanual.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/jlatex/jmanual.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -104,7 +104,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\large \bf version 8.02} \\
+{\large \bf version 8.26} \\
 {\LARGE \bf $B%j%U%!%l%s%9%^%K%e%"%k(B} \\
 {\large -$B%^%k%A%9%l%C%I$H(BXToolKit$B$N<B8=(B-} \\
 \vspace{10mm}
@@ -129,7 +129,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp $B4pK\(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
+\markboth{EusLisp version 8.26 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part I)}{$B$O$8$a$K(B}
 \input{jintro}
 \input{jgenerals}
 \input{jcontrols}
@@ -142,7 +142,7 @@
 \input{jevaluation}
 \newpage
 \part{EusLisp $B3HD%(B}
-\markboth{EusLisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
+\markboth{EusLisp version 8.26 $B%j%U%!%l%s%9%^%K%e%"%k(B (Part II)}{$B%7%9%F%`4X?t(B}
 \input{jsysfunc}
 \input{jvxw}
 \input{jmthread}
@@ -158,7 +158,7 @@
 \input{jmars-pre}
 %
 \cleardoublepage
-\markboth{Euslisp version 8.00 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
+\markboth{Euslisp version 8.26 $B%j%U%!%l%s%9%^%K%e%"%k(B}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-8.26/doc/latex/intro.tex
===================================================================
(Binary files differ)

Modified: tags/EusLisp-8.26/doc/latex/man.tex
===================================================================
--- tags/EusLisp-8.26/doc/latex/man.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/latex/man.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.00} \\
+{\Large \bf version 8.26} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.00 Reference Manual (Part I)}{Introduction}
+\markboth{EusLisp version 8.26 Reference Manual (Part I)}{Introduction}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -152,7 +152,7 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.00 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 8.26 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
 \input{matrix}
@@ -167,7 +167,7 @@
 \input{mars-pre}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.00 Reference Manual}{Index}
+\markboth{EusLisp version 8.26 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-8.26/doc/latex/manual.tex
===================================================================
--- tags/EusLisp-8.26/doc/latex/manual.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/latex/manual.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -111,7 +111,7 @@
 
 \date{}
 \title{{\Huge \bf EusLisp} \\
-{\Large \bf version 8.25} \\
+{\Large \bf version 8.26} \\
 {\LARGE \bf Reference Manual} \\
 {\large Featuring Multithread and XToolKit} \\ 
 \vspace{10mm}
@@ -139,7 +139,7 @@
 \newpage
 \pagenumbering{arabic}
 \part{EusLisp Basics}
-\markboth{EusLisp version 8.25 Reference Manual (Part I)}{Basics}
+\markboth{EusLisp version 8.26 Reference Manual (Part I)}{Basics}
 \input{intro}
 \input{generals}
 \input{controls}
@@ -154,10 +154,10 @@
 \input{evaluation}
 \newpage
 \part{EusLisp Extensions}
-\markboth{EusLisp version 8.25 Reference Manual (Part II)}{System Functions}
+\markboth{EusLisp version 8.26 Reference Manual (Part II)}{System Functions}
 \input{sysfunc}
 \input{mthread}
-\markboth{EusLisp version 8.25 Reference Manual (Part III)}{Geometric/Robot Functions}
+\markboth{EusLisp version 8.26 Reference Manual (Part III)}{Geometric/Robot Functions}
 \input{matrix}
 \input{geometry}
 \input{contact}
@@ -166,16 +166,16 @@
 \input{image}
 \input{manipulator}
 % \input{mars-pre}
-\markboth{EusLisp version 8.25 Reference Manual (Part IV)}{X-windows}
+\markboth{EusLisp version 8.26 Reference Manual (Part IV)}{X-windows}
 \input{xwindow}
 \input{xtoolkit} \newpage
-\markboth{EusLisp version 8.25 Reference Manual (Part V)}{Applications}
+\markboth{EusLisp version 8.26 Reference Manual (Part V)}{Applications}
 \input{database}
 \input{http}
 % \input{sound}
 %
 \cleardoublepage
-\markboth{EusLisp version 8.25 Reference Manual}{Index}
+\markboth{EusLisp version 8.26 Reference Manual}{Index}
 \footnotesize
 \printindex
 \end{document}

Modified: tags/EusLisp-8.26/doc/latex/preface.tex
===================================================================
--- tags/EusLisp-8.26/doc/latex/preface.tex	2013-05-10 10:38:49 UTC (rev 629)
+++ tags/EusLisp-8.26/doc/latex/preface.tex	2013-05-20 13:53:55 UTC (rev 630)
@@ -1,2 +1,2 @@
 This is the second version of the reference manual
-for the EusLisp version 8.00.
\ No newline at end of file
+for the EusLisp version 8.26.

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[629] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-10 10:39:05

Revision: 629
          http://sourceforge.net/p/euslisp/code/629
Author:   snozawa
Date:     2013-05-10 10:38:49 +0000 (Fri, 10 May 2013)
Log Message:
-----------
add dishes

Modified Paths:
--------------
    trunk/EusLisp/models/load-irt-all-objects.l

Added Paths:
-----------
    trunk/EusLisp/models/blue-clear-cup-object.l
    trunk/EusLisp/models/flower-tea-cup-dish-object.l
    trunk/EusLisp/models/white-bread-salad-dish-object.l

Added: trunk/EusLisp/models/blue-clear-cup-object.l
===================================================================
--- trunk/EusLisp/models/blue-clear-cup-object.l	                        (rev 0)
+++ trunk/EusLisp/models/blue-clear-cup-object.l	2013-05-10 10:38:49 UTC (rev 629)
@@ -0,0 +1,279 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass blue-clear-cup-object
+  :super cascaded-link
+  :slots (sensors
+         handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7
+         attention0
+         ))
+(defmethod blue-clear-cup-object
+  (:init
+   (&rest args &key (name "blue-clear-cup") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (let (c bc
+         blink0
+                 )
+     (send-super* :init :name name args)
+
+     ;; definition of link
+
+     ;; definition of :blue-clear-cup-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 90.2 0.0 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 -34.518 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 -63.781 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 -83.3339 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -8.177059e-13 -90.2 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 -83.3339 0.0) (float-vector -63.781 -63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 -63.781 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 -34.518 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -90.2 4.917281e-13 0.0) (float-vector -83.3339 34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 34.518 0.0) (float-vector -63.781 63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 63.781 0.0) (float-vector -34.518 83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 83.3339 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 8.563667e-14 90.2 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 83.3339 0.0) (float-vector 63.781 63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 63.781 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 34.518 0.0) (float-vector 90.2 0.0 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 -34.518 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 90.2 0.0 0.0) (float-vector 90.2 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 -63.781 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 83.3339 -34.518 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 -83.3339 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 63.781 -63.781 0.0)))
+         (instance face :init :vertices (list (float-vector -8.177059e-13 -90.2 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 34.518 -83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 -83.3339 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector -8.177059e-13 -90.2 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 -63.781 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -34.518 -83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 -34.518 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -63.781 -63.781 0.0)))
+         (instance face :init :vertices (list (float-vector -90.2 4.917281e-13 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -83.3339 -34.518 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 34.518 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -90.2 4.917281e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 63.781 0.0) (float-vector -63.781 63.781 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -83.3339 34.518 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 83.3339 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -63.781 63.781 0.0) (float-vector -63.781 63.781 0.0)))
+         (instance face :init :vertices (list (float-vector 8.563667e-14 90.2 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -34.518 83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 83.3339 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector 8.563667e-14 90.2 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 63.781 0.0) (float-vector 63.781 63.781 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 34.518 83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 34.518 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 63.781 63.781 0.0) (float-vector 63.781 63.781 0.0)))
+         (instance face :init :vertices (list (float-vector 90.2 0.0 0.0) (float-vector 90.2 0.0 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 83.3339 34.518 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 -36.4315 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 90.2 0.0 0.0) (float-vector 95.2 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 -67.3166 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 -87.9533 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -8.630332e-13 -95.2 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 -87.9533 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector -8.630332e-13 -95.2 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 -67.3166 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 -36.4315 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -95.2 5.189858e-13 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 36.4315 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -95.2 5.189858e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 67.3166 0.0) (float-vector -63.781 63.781 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 87.9533 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -63.781 63.781 0.0) (float-vector -67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 9.038371e-14 95.2 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 87.9533 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector 9.038371e-14 95.2 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 67.3166 0.0) (float-vector 63.781 63.781 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 36.4315 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 63.781 63.781 0.0) (float-vector 67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 95.2 0.0 0.0) (float-vector 90.2 0.0 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 -36.4315 0.0) (float-vector 87.9533 -36.4315 0.0) (float-vector 95.2 0.0 0.0) (float-vector 95.2 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 -67.3166 0.0) (float-vector 67.3166 -67.3166 0.0) (float-vector 87.9533 -36.4315 0.0) (float-vector 87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 -87.9533 0.0) (float-vector 36.4315 -87.9533 0.0) (float-vector 67.3166 -67.3166 0.0) (float-vector 67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -8.630332e-13 -95.2 0.0) (float-vector -8.630332e-13 -95.2 0.0) (float-vector 36.4315 -87.9533 0.0) (float-vector 36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 -87.9533 0.0) (float-vector -36.4315 -87.9533 0.0) (float-vector -8.630332e-13 -95.2 0.0) (float-vector -8.630332e-13 -95.2 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 -67.3166 0.0) (float-vector -67.3166 -67.3166 0.0) (float-vector -36.4315 -87.9533 0.0) (float-vector -36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 -36.4315 0.0) (float-vector -87.9533 -36.4315 0.0) (float-vector -67.3166 -67.3166 0.0) (float-vector -67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -95.2 5.189858e-13 0.0) (float-vector -95.2 5.189858e-13 0.0) (float-vector -87.9533 -36.4315 0.0) (float-vector -87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 36.4315 0.0) (float-vector -87.9533 36.4315 0.0) (float-vector -95.2 5.189858e-13 0.0) (float-vector -95.2 5.189858e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 67.3166 0.0) (float-vector -67.3166 67.3166 0.0) (float-vector -87.9533 36.4315 0.0) (float-vector -87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 87.9533 0.0) (float-vector -36.4315 87.9533 0.0) (float-vector -67.3166 67.3166 0.0) (float-vector -67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 9.038371e-14 95.2 0.0) (float-vector 9.038371e-14 95.2 0.0) (float-vector -36.4315 87.9533 0.0) (float-vector -36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 87.9533 0.0) (float-vector 36.4315 87.9533 0.0) (float-vector 9.038371e-14 95.2 0.0) (float-vector 9.038371e-14 95.2 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 67.3166 0.0) (float-vector 67.3166 67.3166 0.0) (float-vector 36.4315 87.9533 0.0) (float-vector 36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 36.4315 0.0) (float-vector 87.9533 36.4315 0.0) (float-vector 67.3166 67.3166 0.0) (float-vector 67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 95.2 0.0 0.0) (float-vector 95.2 0.0 0.0) (float-vector 87.9533 36.4315 0.0) (float-vector 87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 99.6015 -41.2563 2.88767) (float-vector 87.9533 -36.4315 0.0) (float-vector 95.2 0.0 0.0) (float-vector 107.808 0.0 2.88767)))
+         (instance face :init :vertices (list (float-vector 76.2317 -76.2317 2.88767) (float-vector 67.3166 -67.3166 0.0) (float-vector 87.9533 -36.4315 0.0) (float-vector 99.6015 -41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector 41.2563 -99.6015 2.88767) (float-vector 36.4315 -87.9533 0.0) (float-vector 67.3166 -67.3166 0.0) (float-vector 76.2317 -76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector -9.773298e-13 -107.808 2.88767) (float-vector -8.630332e-13 -95.2 0.0) (float-vector 36.4315 -87.9533 0.0) (float-vector 41.2563 -99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector -41.2563 -99.6015 2.88767) (float-vector -36.4315 -87.9533 0.0) (float-vector -8.630332e-13 -95.2 0.0) (float-vector -9.773298e-13 -107.808 2.88767)))
+         (instance face :init :vertices (list (float-vector -76.2317 -76.2317 2.88767) (float-vector -67.3166 -67.3166 0.0) (float-vector -36.4315 -87.9533 0.0) (float-vector -41.2563 -99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector -99.6015 -41.2563 2.88767) (float-vector -87.9533 -36.4315 0.0) (float-vector -67.3166 -67.3166 0.0) (float-vector -76.2317 -76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector -107.808 5.877181e-13 2.88767) (float-vector -95.2 5.189858e-13 0.0) (float-vector -87.9533 -36.4315 0.0) (float-vector -99.6015 -41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector -99.6015 41.2563 2.88767) (float-vector -87.9533 36.4315 0.0) (float-vector -95.2 5.189858e-13 0.0) (float-vector -107.808 5.877181e-13 2.88767)))
+         (instance face :init :vertices (list (float-vector -76.2317 76.2317 2.88767) (float-vector -67.3166 67.3166 0.0) (float-vector -87.9533 36.4315 0.0) (float-vector -99.6015 41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector -41.2563 99.6015 2.88767) (float-vector -36.4315 87.9533 0.0) (float-vector -67.3166 67.3166 0.0) (float-vector -76.2317 76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector 1.023538e-13 107.808 2.88767) (float-vector 9.038371e-14 95.2 0.0) (float-vector -36.4315 87.9533 0.0) (float-vector -41.2563 99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector 41.2563 99.6015 2.88767) (float-vector 36.4315 87.9533 0.0) (float-vector 9.038371e-14 95.2 0.0) (float-vector 1.023538e-13 107.808 2.88767)))
+         (instance face :init :vertices (list (float-vector 76.2317 76.2317 2.88767) (float-vector 67.3166 67.3166 0.0) (float-vector 36.4315 87.9533 0.0) (float-vector 41.2563 99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector 99.6015 41.2563 2.88767) (float-vector 87.9533 36.4315 0.0) (float-vector 67.3166 67.3166 0.0) (float-vector 76.2317 76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector 107.808 0.0 2.88767) (float-vector 95.2 0.0 0.0) (float-vector 87.9533 36.4315 0.0) (float-vector 99.6015 41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector 110.109 -45.6088 11.268) (float-vector 99.6015 -41.2563 2.88767) (float-vector 107.808 0.0 2.88767) (float-vector 119.182 0.0 11.268)))
+         (instance face :init :vertices (list (float-vector 84.2741 -84.2741 11.268) (float-vector 76.2317 -76.2317 2.88767) (float-vector 99.6015 -41.2563 2.88767) (float-vector 110.109 -45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector 45.6088 -110.109 11.268) (float-vector 41.2563 -99.6015 2.88767) (float-vector 76.2317 -76.2317 2.88767) (float-vector 84.2741 -84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector -1.080438e-12 -119.182 11.268) (float-vector -9.773298e-13 -107.808 2.88767) (float-vector 41.2563 -99.6015 2.88767) (float-vector 45.6088 -110.109 11.268)))
+         (instance face :init :vertices (list (float-vector -45.6088 -110.109 11.268) (float-vector -41.2563 -99.6015 2.88767) (float-vector -9.773298e-13 -107.808 2.88767) (float-vector -1.080438e-12 -119.182 11.268)))
+         (instance face :init :vertices (list (float-vector -84.2741 -84.2741 11.268) (float-vector -76.2317 -76.2317 2.88767) (float-vector -41.2563 -99.6015 2.88767) (float-vector -45.6088 -110.109 11.268)))
+         (instance face :init :vertices (list (float-vector -110.109 -45.6088 11.268) (float-vector -99.6015 -41.2563 2.88767) (float-vector -76.2317 -76.2317 2.88767) (float-vector -84.2741 -84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector -119.182 6.497224e-13 11.268) (float-vector -107.808 5.877181e-13 2.88767) (float-vector -99.6015 -41.2563 2.88767) (float-vector -110.109 -45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector -110.109 45.6088 11.268) (float-vector -99.6015 41.2563 2.88767) (float-vector -107.808 5.877181e-13 2.88767) (float-vector -119.182 6.497224e-13 11.268)))
+         (instance face :init :vertices (list (float-vector -84.2741 84.2741 11.268) (float-vector -76.2317 76.2317 2.88767) (float-vector -99.6015 41.2563 2.88767) (float-vector -110.109 45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector -45.6088 110.109 11.268) (float-vector -41.2563 99.6015 2.88767) (float-vector -76.2317 76.2317 2.88767) (float-vector -84.2741 84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector 1.131521e-13 119.182 11.268) (float-vector 1.023538e-13 107.808 2.88767) (float-vector -41.2563 99.6015 2.88767) (float-vector -45.6088 110.109 11.268)))
+         (instance face :init :vertices (list (float-vector 45.6088 110.109 11.268) (float-vector 41.2563 99.6015 2.88767) (float-vector 1.023538e-13 107.808 2.88767) (float-vector 1.131521e-13 119.182 11.268)))
+         (instance face :init :vertices (list (float-vector 84.2741 84.2741 11.268) (float-vector 76.2317 76.2317 2.88767) (float-vector 41.2563 99.6015 2.88767) (float-vector 45.6088 110.109 11.268)))
+         (instance face :init :vertices (list (float-vector 110.109 45.6088 11.268) (float-vector 99.6015 41.2563 2.88767) (float-vector 76.2317 76.2317 2.88767) (float-vector 84.2741 84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector 119.182 0.0 11.268) (float-vector 107.808 0.0 2.88767) (float-vector 99.6015 41.2563 2.88767) (float-vector 110.109 45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector 118.449 -49.063 24.3207) (float-vector 110.109 -45.6088 11.268) (float-vector 119.182 0.0 11.268) (float-vector 128.208 0.0 24.3207)))
+         (instance face :init :vertices (list (float-vector 90.6567 -90.6567 24.3207) (float-vector 84.2741 -84.2741 11.268) (float-vector 110.109 -45.6088 11.268) (float-vector 118.449 -49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector 49.063 -118.449 24.3207) (float-vector 45.6088 -110.109 11.268) (float-vector 84.2741 -84.2741 11.268) (float-vector 90.6567 -90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector -1.162265e-12 -128.208 24.3207) (float-vector -1.080438e-12 -119.182 11.268) (float-vector 45.6088 -110.109 11.268) (float-vector 49.063 -118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector -49.063 -118.449 24.3207) (float-vector -45.6088 -110.109 11.268) (float-vector -1.080438e-12 -119.182 11.268) (float-vector -1.162265e-12 -128.208 24.3207)))
+         (instance face :init :vertices (list (float-vector -90.6567 -90.6567 24.3207) (float-vector -84.2741 -84.2741 11.268) (float-vector -45.6088 -110.109 11.268) (float-vector -49.063 -118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector -118.449 -49.063 24.3207) (float-vector -110.109 -45.6088 11.268) (float-vector -84.2741 -84.2741 11.268) (float-vector -90.6567 -90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector -128.208 6.989293e-13 24.3207) (float-vector -119.182 6.497224e-13 11.268) (float-vector -110.109 -45.6088 11.268) (float-vector -118.449 -49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector -118.449 49.063 24.3207) (float-vector -110.109 45.6088 11.268) (float-vector -119.182 6.497224e-13 11.268) (float-vector -128.208 6.989293e-13 24.3207)))
+         (instance face :init :vertices (list (float-vector -90.6567 90.6567 24.3207) (float-vector -84.2741 84.2741 11.268) (float-vector -110.109 45.6088 11.268) (float-vector -118.449 49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector -49.063 118.449 24.3207) (float-vector -45.6088 110.109 11.268) (float-vector -84.2741 84.2741 11.268) (float-vector -90.6567 90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector 1.217217e-13 128.208 24.3207) (float-vector 1.131521e-13 119.182 11.268) (float-vector -45.6088 110.109 11.268) (float-vector -49.063 118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector 49.063 118.449 24.3207) (float-vector 45.6088 110.109 11.268) (float-vector 1.131521e-13 119.182 11.268) (float-vector 1.217217e-13 128.208 24.3207)))
+         (instance face :init :vertices (list (float-vector 90.6567 90.6567 24.3207) (float-vector 84.2741 84.2741 11.268) (float-vector 45.6088 110.109 11.268) (float-vector 49.063 118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector 118.449 49.063 24.3207) (float-vector 110.109 45.6088 11.268) (float-vector 84.2741 84.2741 11.268) (float-vector 90.6567 90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector 128.208 0.0 24.3207) (float-vector 119.182 0.0 11.268) (float-vector 110.109 45.6088 11.268) (float-vector 118.449 49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector 123.803 -51.2808 40.768) (float-vector 118.449 -49.063 24.3207) (float-vector 128.208 0.0 24.3207) (float-vector 134.003 0.0 40.768)))
+         (instance face :init :vertices (list (float-vector 94.7545 -94.7545 40.768) (float-vector 90.6567 -90.6567 24.3207) (float-vector 118.449 -49.063 24.3207) (float-vector 123.803 -51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector 51.2808 -123.803 40.768) (float-vector 49.063 -118.449 24.3207) (float-vector 90.6567 -90.6567 24.3207) (float-vector 94.7545 -94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector -1.214802e-12 -134.003 40.768) (float-vector -1.162265e-12 -128.208 24.3207) (float-vector 49.063 -118.449 24.3207) (float-vector 51.2808 -123.803 40.768)))
+         (instance face :init :vertices (list (float-vector -51.2808 -123.803 40.768) (float-vector -49.063 -118.449 24.3207) (float-vector -1.162265e-12 -128.208 24.3207) (float-vector -1.214802e-12 -134.003 40.768)))
+         (instance face :init :vertices (list (float-vector -94.7545 -94.7545 40.768) (float-vector -90.6567 -90.6567 24.3207) (float-vector -49.063 -118.449 24.3207) (float-vector -51.2808 -123.803 40.768)))
+         (instance face :init :vertices (list (float-vector -123.803 -51.2808 40.768) (float-vector -118.449 -49.063 24.3207) (float-vector -90.6567 -90.6567 24.3207) (float-vector -94.7545 -94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector -134.003 7.305221e-13 40.768) (float-vector -128.208 6.989293e-13 24.3207) (float-vector -118.449 -49.063 24.3207) (float-vector -123.803 -51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector -123.803 51.2808 40.768) (float-vector -118.449 49.063 24.3207) (float-vector -128.208 6.989293e-13 24.3207) (float-vector -134.003 7.305221e-13 40.768)))
+         (instance face :init :vertices (list (float-vector -94.7545 94.7545 40.768) (float-vector -90.6567 90.6567 24.3207) (float-vector -118.449 49.063 24.3207) (float-vector -123.803 51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector -51.2808 123.803 40.768) (float-vector -49.063 118.449 24.3207) (float-vector -90.6567 90.6567 24.3207) (float-vector -94.7545 94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector 1.272237e-13 134.003 40.768) (float-vector 1.217217e-13 128.208 24.3207) (float-vector -49.063 118.449 24.3207) (float-vector -51.2808 123.803 40.768)))
+         (instance face :init :vertices (list (float-vector 51.2808 123.803 40.768) (float-vector 49.063 118.449 24.3207) (float-vector 1.217217e-13 128.208 24.3207) (float-vector 1.272237e-13 134.003 40.768)))
+         (instance face :init :vertices (list (float-vector 94.7545 94.7545 40.768) (float-vector 90.6567 90.6567 24.3207) (float-vector 49.063 118.449 24.3207) (float-vector 51.2808 123.803 40.768)))
+         (instance face :init :vertices (list (float-vector 123.803 51.2808 40.768) (float-vector 118.449 49.063 24.3207) (float-vector 90.6567 90.6567 24.3207) (float-vector 94.7545 94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector 134.003 0.0 40.768) (float-vector 128.208 0.0 24.3207) (float-vector 118.449 49.063 24.3207) (float-vector 123.803 51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector 125.648 -52.0449 59.0) (float-vector 123.803 -51.2808 40.768) (float-vector 134.003 0.0 40.768) (float-vector 136.0 0.0 59.0)))
+         (instance face :init :vertices (list (float-vector 96.1665 -96.1665 59.0) (float-vector 94.7545 -94.7545 40.768) (float-vector 123.803 -51.2808 40.768) (float-vector 125.648 -52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector 52.0449 -125.648 59.0) (float-vector 51.2808 -123.803 40.768) (float-vector 94.7545 -94.7545 40.768) (float-vector 96.1665 -96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector -1.232905e-12 -136.0 59.0) (float-vector -1.214802e-12 -134.003 40.768) (float-vector 51.2808 -123.803 40.768) (float-vector 52.0449 -125.648 59.0)))
+         (instance face :init :vertices (list (float-vector -52.0449 -125.648 59.0) (float-vector -51.2808 -123.803 40.768) (float-vector -1.214802e-12 -134.003 40.768) (float-vector -1.232905e-12 -136.0 59.0)))
+         (instance face :init :vertices (list (float-vector -96.1665 -96.1665 59.0) (float-vector -94.7545 -94.7545 40.768) (float-vector -51.2808 -123.803 40.768) (float-vector -52.0449 -125.648 59.0)))
+         (instance face :init :vertices (list (float-vector -125.648 -52.0449 59.0) (float-vector -123.803 -51.2808 40.768) (float-vector -94.7545 -94.7545 40.768) (float-vector -96.1665 -96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector -136.0 7.414082e-13 59.0) (float-vector -134.003 7.305221e-13 40.768) (float-vector -123.803 -51.2808 40.768) (float-vector -125.648 -52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector -125.648 52.0449 59.0) (float-vector -123.803 51.2808 40.768) (float-vector -134.003 7.305221e-13 40.768) (float-vector -136.0 7.414082e-13 59.0)))
+         (instance face :init :vertices (list (float-vector -96.1665 96.1665 59.0) (float-vector -94.7545 94.7545 40.768) (float-vector -123.803 51.2808 40.768) (float-vector -125.648 52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector -52.0449 125.648 59.0) (float-vector -51.2808 123.803 40.768) (float-vector -94.7545 94.7545 40.768) (float-vector -96.1665 96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector 1.291196e-13 136.0 59.0) (float-vector 1.272237e-13 134.003 40.768) (float-vector -51.2808 123.803 40.768) (float-vector -52.0449 125.648 59.0)))
+         (instance face :init :vertices (list (float-vector 52.0449 125.648 59.0) (float-vector 51.2808 123.803 40.768) (float-vector 1.272237e-13 134.003 40.768) (float-vector 1.291196e-13 136.0 59.0)))
+         (instance face :init :vertices (list (float-vector 96.1665 96.1665 59.0) (float-vector 94.7545 94.7545 40.768) (float-vector 51.2808 123.803 40.768) (float-vector 52.0449 125.648 59.0)))
+         (instance face :init :vertices (list (float-vector 125.648 52.0449 59.0) (float-vector 123.803 51.2808 40.768) (float-vector 94.7545 94.7545 40.768) (float-vector 96.1665 96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector 136.0 0.0 59.0) (float-vector 134.003 0.0 40.768) (float-vector 123.803 51.2808 40.768) (float-vector 125.648 52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector 123.8 -51.2796 59.0) (float-vector 125.648 -52.0449 59.0) (float-vector 136.0 0.0 59.0) (float-vector 134.0 0.0 59.0)))
+         (instance face :init :vertices (list (float-vector 94.7523 -94.7523 59.0) (float-vector 96.1665 -96.1665 59.0) (float-vector 125.648 -52.0449 59.0) (float-vector 123.8 -51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector 51.2796 -123.8 59.0) (float-vector 52.0449 -125.648 59.0) (float-vector 96.1665 -96.1665 59.0) (float-vector 94.7523 -94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector -1.214774e-12 -134.0 59.0) (float-vector -1.232905e-12 -136.0 59.0) (float-vector 52.0449 -125.648 59.0) (float-vector 51.2796 -123.8 59.0)))
+         (instance face :init :vertices (list (float-vector -51.2796 -123.8 59.0) (float-vector -52.0449 -125.648 59.0) (float-vector -1.232905e-12 -136.0 59.0) (float-vector -1.214774e-12 -134.0 59.0)))
+         (instance face :init :vertices (list (float-vector -94.7523 -94.7523 59.0) (float-vector -96.1665 -96.1665 59.0) (float-vector -52.0449 -125.648 59.0) (float-vector -51.2796 -123.8 59.0)))
+         (instance face :init :vertices (list (float-vector -123.8 -51.2796 59.0) (float-vector -125.648 -52.0449 59.0) (float-vector -96.1665 -96.1665 59.0) (float-vector -94.7523 -94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector -134.0 7.305052e-13 59.0) (float-vector -136.0 7.414082e-13 59.0) (float-vector -125.648 -52.0449 59.0) (float-vector -123.8 -51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector -123.8 51.2796 59.0) (float-vector -125.648 52.0449 59.0) (float-vector -136.0 7.414082e-13 59.0) (float-vector -134.0 7.305052e-13 59.0)))
+         (instance face :init :vertices (list (float-vector -94.7523 94.7523 59.0) (float-vector -96.1665 96.1665 59.0) (float-vector -125.648 52.0449 59.0) (float-vector -123.8 51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector -51.2796 123.8 59.0) (float-vector -52.0449 125.648 59.0) (float-vector -96.1665 96.1665 59.0) (float-vector -94.7523 94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector 1.272208e-13 134.0 59.0) (float-vector 1.291196e-13 136.0 59.0) (float-vector -52.0449 125.648 59.0) (float-vector -51.2796 123.8 59.0)))
+         (instance face :init :vertices (list (float-vector 51.2796 123.8 59.0) (float-vector 52.0449 125.648 59.0) (float-vector 1.291196e-13 136.0 59.0) (float-vector 1.272208e-13 134.0 59.0)))
+         (instance face :init :vertices (list (float-vector 94.7523 94.7523 59.0) (float-vector 96.1665 96.1665 59.0) (float-vector 52.0449 125.648 59.0) (float-vector 51.2796 123.8 59.0)))
+         (instance face :init :vertices (list (float-vector 123.8 51.2796 59.0) (float-vector 125.648 52.0449 59.0) (float-vector 96.1665 96.1665 59.0) (float-vector 94.7523 94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector 134.0 0.0 59.0) (float-vector 136.0 0.0 59.0) (float-vector 125.648 52.0449 59.0) (float-vector 123.8 51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 -35.6661 2.0) (float-vector 123.8 -51.2796 59.0) (float-vector 134.0 0.0 59.0) (float-vector 93.2 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 -65.9024 2.0) (float-vector 94.7523 -94.7523 59.0) (float-vector 123.8 -51.2796 59.0) (float-vector 86.1056 -35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 -86.1056 2.0) (float-vector 51.2796 -123.8 59.0) (float-vector 94.7523 -94.7523 59.0) (float-vector 65.9024 -65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector -8.449023e-13 -93.2 2.0) (float-vector -1.214774e-12 -134.0 59.0) (float-vector 51.2796 -123.8 59.0) (float-vector 35.6661 -86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 -86.1056 2.0) (float-vector -51.2796 -123.8 59.0) (float-vector -1.214774e-12 -134.0 59.0) (float-vector -8.449023e-13 -93.2 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 -65.9024 2.0) (float-vector -94.7523 -94.7523 59.0) (float-vector -51.2796 -123.8 59.0) (float-vector -35.6661 -86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 -35.6661 2.0) (float-vector -123.8 -51.2796 59.0) (float-vector -94.7523 -94.7523 59.0) (float-vector -65.9024 -65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector -93.2 5.080827e-13 2.0) (float-vector -134.0 7.305052e-13 59.0) (float-vector -123.8 -51.2796 59.0) (float-vector -86.1056 -35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 35.6661 2.0) (float-vector -123.8 51.2796 59.0) (float-vector -134.0 7.305052e-13 59.0) (float-vector -93.2 5.080827e-13 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 65.9024 2.0) (float-vector -94.7523 94.7523 59.0) (float-vector -123.8 51.2796 59.0) (float-vector -86.1056 35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 86.1056 2.0) (float-vector -51.2796 123.8 59.0) (float-vector -94.7523 94.7523 59.0) (float-vector -65.9024 65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector 8.848489e-14 93.2 2.0) (float-vector 1.272208e-13 134.0 59.0) (float-vector -51.2796 123.8 59.0) (float-vector -35.6661 86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 86.1056 2.0) (float-vector 51.2796 123.8 59.0) (float-vector 1.272208e-13 134.0 59.0) (float-vector 8.848489e-14 93.2 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 65.9024 2.0) (float-vector 94.7523 94.7523 59.0) (float-vector 51.2796 123.8 59.0) (float-vector 35.6661 86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 35.6661 2.0) (float-vector 123.8 51.2796 59.0) (float-vector 94.7523 94.7523 59.0) (float-vector 65.9024 65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector 93.2 0.0 2.0) (float-vector 134.0 0.0 59.0) (float-vector 123.8 51.2796 59.0) (float-vector 86.1056 35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 -35.6661 2.0) (float-vector 93.2 0.0 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 93.2 0.0 2.0) (float-vector 86.1056 35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 35.6661 2.0) (float-vector 65.9024 65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 65.9024 2.0) (float-vector 35.6661 86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 86.1056 2.0) (float-vector 8.848489e-14 93.2 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 8.848489e-14 93.2 2.0) (float-vector -35.6661 86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 86.1056 2.0) (float-vector -65.9024 65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 65.9024 2.0) (float-vector -86.1056 35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 35.6661 2.0) (float-vector -93.2 5.080827e-13 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -93.2 5.080827e-13 2.0) (float-vector -86.1056 -35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 -35.6661 2.0) (float-vector -65.9024 -65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 -65.9024 2.0) (float-vector -35.6661 -86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 -86.1056 2.0) (float-vector -8.449023e-13 -93.2 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -8.449023e-13 -93.2 2.0) (float-vector 35.6661 -86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 -86.1056 2.0) (float-vector 65.9024 -65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 -65.9024 2.0) (float-vector 86.1056 -35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :blue)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :blue-clear-cup-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of assoc
+     (send self :assoc blink0)
+
+     ;; definition of end-coords
+
+     ;; definition of joint
+
+
+     ;; definition of :handle
+     (setq handle0 (make-cascoords :pos (float-vector 83.6231 -83.6231 59.0) :rot #2f((-0.541675 0.454519 -0.707107) (0.541675 -0.454519 -0.707107) (-0.642788 -0.766044 -1.498801e-15)) :name "handle0"))
+     (send self :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector -6.519447e-13 -118.261 59.0) :rot #2f((4.440892e-15 -1.665335e-15 -1.0) (0.766044 -0.642788 4.496403e-15) (-0.642788 -0.766044 -1.554312e-15)) :name "handle1"))
+     (send self :assoc handle1)
+     (setq handle2 (make-cascoords :pos (float-vector -83.6231 -83.6231 59.0) :rot #2f((0.541675 -0.454519 -0.707107) (0.541675 -0.454519 0.707107) (-0.642788 -0.766044 -9.714451e-16)) :name "handle2"))
+     (send self :assoc handle2)
+     (setq handle3 (make-cascoords :pos (float-vector -118.261 2.245563e-13 59.0) :rot #2f((0.766044 -0.642788 2.442491e-15) (-2.886580e-15 3.538836e-16 1.0) (-0.642788 -0.766044 -1.575129e-15)) :name "handle3"))
+     (send self :assoc handle3)
+     (setq handle4 (make-cascoords :pos (float-vector -83.6231 83.6231 59.0) :rot #2f((0.541675 -0.454519 0.707107) (-0.541675 0.454519 0.707107) (-0.642788 -0.766044 -1.490127e-15)) :name "handle4"))
+     (send self :assoc handle4)
+     (setq handle5 (make-cascoords :pos (float-vector 7.241390e-15 118.261 59.0) :rot #2f((-1.276756e-15 -6.106227e-16 1.0) (-0.766044 0.642788 -6.106227e-16) (-0.642788 -0.766044 -1.276756e-15)) :name "handle5"))
+     (send self :assoc handle5)
+     (setq handle6 (make-cascoords :pos (float-vector 83.6231 83.6231 59.0) :rot #2f((-0.541675 0.454519 0.707107) (-0.541675 0.454519 -0.707107) (-0.642788 -0.766044 -1.720846e-15)) :name "handle6"))
+     (send self :assoc handle6)
+     (setq handle7 (make-cascoords :pos (float-vector 118.261 0.0 59.0) :rot #2f((-0.766044 0.642788 1.110223e-15) (2.220446e-16 1.942890e-15 -1.0) (-0.642788 -0.766044 -1.609823e-15)) :name "handle7"))
+     (send self :assoc handle7)
+
+     ;; definition of :attention
+     (setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0"))
+     (send self :assoc attention0)
+
+     ;; init-ending 
+     (setq links (list blink0))
+     (setq joint-list (list))
+     (send self :init-ending)
+     (send self :move-to (make-coords :pos pos :rot rot))
+     (send-all links :worldcoords)
+
+     self))
+  (:cameras (&rest args)
+   (forward-message-to-all (list) args))
+
+  (: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 blue-clear-cup (&rest args) (instance* blue-clear-cup-object :init args))
+;; (format *error-output* "(instance blue-clear-cup-object :init) for generating model~%")

Added: trunk/EusLisp/models/flower-tea-cup-dish-object.l
===================================================================
--- trunk/EusLisp/models/flower-tea-cup-dish-object.l	                        (rev 0)
+++ trunk/EusLisp/models/flower-tea-cup-dish-object.l	2013-05-10 10:38:49 UTC (rev 629)
@@ -0,0 +1,279 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass flower-tea-cup-dish-object
+  :super cascaded-link
+  :slots (sensors
+         handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7
+         attention0
+         ))
+(defmethod flower-tea-cup-dish-object
+  (:init
+   (&rest args &key (name "flower-tea-cup-dish") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (let (c bc
+         blink0
+                 )
+     (send-super* :init :name name args)
+
+     ;; definition of link
+
+     ;; definition of :flower-tea-cup-dish-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 96.5 0.0 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 -36.929 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 -68.2358 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 -89.1544 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -8.748184e-13 -96.5 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 -89.1544 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 -68.2358 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 -36.929 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -96.5 5.260728e-13 0.0) (float-vector -89.1544 36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 36.929 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 68.2358 0.0) (float-vector -36.929 89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 89.1544 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 9.161794e-14 96.5 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 89.1544 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 68.2358 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 36.929 0.0) (float-vector 96.5 0.0 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 -36.929 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 96.5 0.0 0.0) (float-vector 96.5 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 -68.2358 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 89.1544 -36.929 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 -89.1544 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 68.2358 -68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector -8.748184e-13 -96.5 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 36.929 -89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 -89.1544 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector -8.748184e-13 -96.5 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 -68.2358 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -36.929 -89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 -36.929 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -68.2358 -68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector -96.5 5.260728e-13 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -89.1544 -36.929 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 36.929 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -96.5 5.260728e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 68.2358 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -89.1544 36.929 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 89.1544 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -68.2358 68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector 9.161794e-14 96.5 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -36.929 89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 89.1544 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector 9.161794e-14 96.5 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 68.2358 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 36.929 89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 36.929 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 68.2358 68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector 96.5 0.0 0.0) (float-vector 96.5 0.0 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 89.1544 36.929 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 -38.8424 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 96.5 0.0 0.0) (float-vector 101.5 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 -71.7713 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 -93.7738 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -9.201457e-13 -101.5 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 -93.7738 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector -9.201457e-13 -101.5 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 -71.7713 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 -38.8424 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -101.5 5.533304e-13 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 38.8424 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -101.5 5.533304e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 71.7713 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 93.7738 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 9.636499e-14 101.5 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 93.7738 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector 9.636499e-14 101.5 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 71.7713 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 38.8424 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 101.5 0.0 0.0) (float-vector 96.5 0.0 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 -38.8424 0.0) (float-vector 93.7738 -38.8424 0.0) (float-vector 101.5 0.0 0.0) (float-vector 101.5 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 -71.7713 0.0) (float-vector 71.7713 -71.7713 0.0) (float-vector 93.7738 -38.8424 0.0) (float-vector 93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 -93.7738 0.0) (float-vector 38.8424 -93.7738 0.0) (float-vector 71.7713 -71.7713 0.0) (float-vector 71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -9.201457e-13 -101.5 0.0) (float-vector -9.201457e-13 -101.5 0.0) (float-vector 38.8424 -93.7738 0.0) (float-vector 38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 -93.7738 0.0) (float-vector -38.8424 -93.7738 0.0) (float-vector -9.201457e-13 -101.5 0.0) (float-vector -9.201457e-13 -101.5 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 -71.7713 0.0) (float-vector -71.7713 -71.7713 0.0) (float-vector -38.8424 -93.7738 0.0) (float-vector -38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 -38.8424 0.0) (float-vector -93.7738 -38.8424 0.0) (float-vector -71.7713 -71.7713 0.0) (float-vector -71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -101.5 5.533304e-13 0.0) (float-vector -101.5 5.533304e-13 0.0) (float-vector -93.7738 -38.8424 0.0) (float-vector -93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 38.8424 0.0) (float-vector -93.7738 38.8424 0.0) (float-vector -101.5 5.533304e-13 0.0) (float-vector -101.5 5.533304e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 71.7713 0.0) (float-vector -71.7713 71.7713 0.0) (float-vector -93.7738 38.8424 0.0) (float-vector -93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 93.7738 0.0) (float-vector -38.8424 93.7738 0.0) (float-vector -71.7713 71.7713 0.0) (float-vector -71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 9.636499e-14 101.5 0.0) (float-vector 9.636499e-14 101.5 0.0) (float-vector -38.8424 93.7738 0.0) (float-vector -38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 93.7738 0.0) (float-vector 38.8424 93.7738 0.0) (float-vector 9.636499e-14 101.5 0.0) (float-vector 9.636499e-14 101.5 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 71.7713 0.0) (float-vector 71.7713 71.7713 0.0) (float-vector 38.8424 93.7738 0.0) (float-vector 38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 38.8424 0.0) (float-vector 93.7738 38.8424 0.0) (float-vector 71.7713 71.7713 0.0) (float-vector 71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 101.5 0.0 0.0) (float-vector 101.5 0.0 0.0) (float-vector 93.7738 38.8424 0.0) (float-vector 93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 106.193 -43.9865 1.37042) (float-vector 93.7738 -38.8424 0.0) (float-vector 101.5 0.0 0.0) (float-vector 114.942 0.0 1.37042)))
+         (instance face :init :vertices (list (float-vector 81.2764 -81.2764 1.37042) (float-vector 71.7713 -71.7713 0.0) (float-vector 93.7738 -38.8424 0.0) (float-vector 106.193 -43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector 43.9865 -106.193 1.37042) (float-vector 38.8424 -93.7738 0.0) (float-vector 71.7713 -71.7713 0.0) (float-vector 81.2764 -81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector -1.042006e-12 -114.942 1.37042) (float-vector -9.201457e-13 -101.5 0.0) (float-vector 38.8424 -93.7738 0.0) (float-vector 43.9865 -106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector -43.9865 -106.193 1.37042) (float-vector -38.8424 -93.7738 0.0) (float-vector -9.201457e-13 -101.5 0.0) (float-vector -1.042006e-12 -114.942 1.37042)))
+         (instance face :init :vertices (list (float-vector -81.2764 -81.2764 1.37042) (float-vector -71.7713 -71.7713 0.0) (float-vector -38.8424 -93.7738 0.0) (float-vector -43.9865 -106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector -106.193 -43.9865 1.37042) (float-vector -93.7738 -38.8424 0.0) (float-vector -71.7713 -71.7713 0.0) (float-vector -81.2764 -81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector -114.942 6.266112e-13 1.37042) (float-vector -101.5 5.533304e-13 0.0) (float-vector -93.7738 -38.8424 0.0) (float-vector -106.193 -43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector -106.193 43.9865 1.37042) (float-vector -93.7738 38.8424 0.0) (float-vector -101.5 5.533304e-13 0.0) (float-vector -114.942 6.266112e-13 1.37042)))
+         (instance face :init :vertices (list (float-vector -81.2764 81.2764 1.37042) (float-vector -71.7713 71.7713 0.0) (float-vector -93.7738 38.8424 0.0) (float-vector -106.193 43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector -43.9865 106.193 1.37042) (float-vector -38.8424 93.7738 0.0) (float-vector -71.7713 71.7713 0.0) (float-vector -81.2764 81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector 1.091272e-13 114.942 1.37042) (float-vector 9.636499e-14 101.5 0.0) (float-vector -38.8424 93.7738 0.0) (float-vector -43.9865 106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector 43.9865 106.193 1.37042) (float-vector 38.8424 93.7738 0.0) (float-vector 9.636499e-14 101.5 0.0) (float-vector 1.091272e-13 114.942 1.37042)))
+         (instance face :init :vertices (list (float-vector 81.2764 81.2764 1.37042) (float-vector 71.7713 71.7713 0.0) (float-vector 38.8424 93.7738 0.0) (float-vector 43.9865 106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector 106.193 43.9865 1.37042) (float-vector 93.7738 38.8424 0.0) (float-vector 71.7713 71.7713 0.0) (float-vector 81.2764 81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector 114.942 0.0 1.37042) (float-vector 101.5 0.0 0.0) (float-vector 93.7738 38.8424 0.0) (float-vector 106.193 43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector 117.396 -48.6271 5.34752) (float-vector 106.193 -43.9865 1.37042) (float-vector 114.942 0.0 1.37042) (float-vector 127.069 0.0 5.34752)))
+         (instance face :init :vertices (list (float-vector 89.8511 -89.8511 5.34752) (float-vector 81.2764 -81.2764 1.37042) (float-vector 106.193 -43.9865 1.37042) (float-vector 117.396 -48.6271 5.34752)))
+         (instance face :init :vertices (list (float-vector 48.6271 -117.396 5.34752) (float-vector 43.9865 -106.193 1.37042) (float-vector 81.2764 -81.2764 1.37042) (float-vector 89.8511 -89.8511 5.34752)))
+         (instance face :init :vertices (list (float-vector -1.151938e-12 -127.069 5.34752) (float-vector -1.042006e-12 -114.942 1.37042) (float-vector 43.9865 -106.193 1.37042) (float-vector 48.6271 -117.396 5.34752)))
+         (instance face :init :vertices (list (float-vector -48.6271 -117.396 5.34752) (float-vector -43.9865 -106.193 1.37042) (float-vector -1.042006e-12 -114.942 1.37042) (float-vector -1.151938e-12 -127.069 5.34752)))
+         (instance face :init :vertices (list (float-vector -89.8511 -89.8511 5.34752) (float-vector -81.2764 -81.2764 1.37042) (float-vector -43.9865 -106.193 1.37042) (float-vector -48.6271 -117.396 5.34752)))
+         (instance face :init :vertices (list (float-vector -117.396 -48.6271 5.34752) (float-vector -106.193 -43.9865 1.37042) (float-vector -81.2764 -81.2764 1.37042) (float-vector -89.8511 -89.8511 5.34752)))
+         (instance face :init :vertices (list (float-vector -127.069 6.927188e-13 5.34752) (float-vector -114.942 6.266112e-13 1.37042) (float-vector -106.193 -43.9865 1.37042) (float-vector -117.396 -48.6271 5.34752)))
+         (instance face :init :vertices (list (float-vector -117.396 48.6271 5.34752) (float-vector -106.193 43.9865 1.37042) (float-vector -114.942 6.266112e-13 1.37042) (float-vector -127.069 6.927188e-13 5.34752)))
+         (instance face :init :vertices (list (float-vector -89.8511 89.8511 5.34752) (float-vector -81.2764 81.2764 1.37042) (float-vector -106.193 43.9865 1.37042) (float-vector -117.396 48.6271 5.34752)))
+         (instance face :init :vertices (list (float-vector -48.6271 117.396 5.34752) (float-vector -43.9865 106.193 1.37042) (float-vector -81.2764 81.2764 1.37042) (float-vector -89.8511 89.8511 5.34752)))
+         (instance face :init :vertices (list (float-vector 1.206401e-13 127.069 5.34752) (float-vector 1.091272e-13 114.942 1.37042) (float-vector -43.9865 106.193 1.37042) (float-vector -48.6271 117.396 5.34752)))
+         (instance face :init :vertices (list (float-vector 48.6271 117.396 5.34752) (float-vector 43.9865 106.193 1.37042) (float-vector 1.091272e-13 114.942 1.37042) (float-vector 1.206401e-13 127.069 5.34752)))
+         (instance face :init :vertices (list (float-vector 89.8511 89.8511 5.34752) (float-vector 81.2764 81.2764...
 
[truncated message content]

[Euslisp-commit] SF.net SVN: euslisp:[629] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-10 10:39:02

Revision: 629
          http://sourceforge.net/p/euslisp/code/629
Author:   snozawa
Date:     2013-05-10 10:38:49 +0000 (Fri, 10 May 2013)
Log Message:
-----------
add dishes

Modified Paths:
--------------
    trunk/EusLisp/models/load-irt-all-objects.l

Added Paths:
-----------
    trunk/EusLisp/models/blue-clear-cup-object.l
    trunk/EusLisp/models/flower-tea-cup-dish-object.l
    trunk/EusLisp/models/white-bread-salad-dish-object.l

Added: trunk/EusLisp/models/blue-clear-cup-object.l
===================================================================
--- trunk/EusLisp/models/blue-clear-cup-object.l	                        (rev 0)
+++ trunk/EusLisp/models/blue-clear-cup-object.l	2013-05-10 10:38:49 UTC (rev 629)
@@ -0,0 +1,279 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass blue-clear-cup-object
+  :super cascaded-link
+  :slots (sensors
+         handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7
+         attention0
+         ))
+(defmethod blue-clear-cup-object
+  (:init
+   (&rest args &key (name "blue-clear-cup") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (let (c bc
+         blink0
+                 )
+     (send-super* :init :name name args)
+
+     ;; definition of link
+
+     ;; definition of :blue-clear-cup-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 90.2 0.0 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 -34.518 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 -63.781 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 -83.3339 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -8.177059e-13 -90.2 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 -83.3339 0.0) (float-vector -63.781 -63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 -63.781 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 -34.518 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -90.2 4.917281e-13 0.0) (float-vector -83.3339 34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 34.518 0.0) (float-vector -63.781 63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 63.781 0.0) (float-vector -34.518 83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 83.3339 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 8.563667e-14 90.2 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 83.3339 0.0) (float-vector 63.781 63.781 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 63.781 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 34.518 0.0) (float-vector 90.2 0.0 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 -34.518 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 90.2 0.0 0.0) (float-vector 90.2 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 -63.781 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 83.3339 -34.518 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 -83.3339 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 63.781 -63.781 0.0)))
+         (instance face :init :vertices (list (float-vector -8.177059e-13 -90.2 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 34.518 -83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 -83.3339 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector -8.177059e-13 -90.2 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 -63.781 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -34.518 -83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 -34.518 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -63.781 -63.781 0.0)))
+         (instance face :init :vertices (list (float-vector -90.2 4.917281e-13 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -83.3339 -34.518 0.0)))
+         (instance face :init :vertices (list (float-vector -83.3339 34.518 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -90.2 4.917281e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -63.781 63.781 0.0) (float-vector -63.781 63.781 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -83.3339 34.518 0.0)))
+         (instance face :init :vertices (list (float-vector -34.518 83.3339 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -63.781 63.781 0.0) (float-vector -63.781 63.781 0.0)))
+         (instance face :init :vertices (list (float-vector 8.563667e-14 90.2 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -34.518 83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector 34.518 83.3339 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector 8.563667e-14 90.2 0.0)))
+         (instance face :init :vertices (list (float-vector 63.781 63.781 0.0) (float-vector 63.781 63.781 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 34.518 83.3339 0.0)))
+         (instance face :init :vertices (list (float-vector 83.3339 34.518 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 63.781 63.781 0.0) (float-vector 63.781 63.781 0.0)))
+         (instance face :init :vertices (list (float-vector 90.2 0.0 0.0) (float-vector 90.2 0.0 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 83.3339 34.518 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 -36.4315 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 90.2 0.0 0.0) (float-vector 95.2 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 -67.3166 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 83.3339 -34.518 0.0) (float-vector 87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 -87.9533 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 63.781 -63.781 0.0) (float-vector 67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -8.630332e-13 -95.2 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector 34.518 -83.3339 0.0) (float-vector 36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 -87.9533 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -8.177059e-13 -90.2 0.0) (float-vector -8.630332e-13 -95.2 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 -67.3166 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -34.518 -83.3339 0.0) (float-vector -36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 -36.4315 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -63.781 -63.781 0.0) (float-vector -67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -95.2 5.189858e-13 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -83.3339 -34.518 0.0) (float-vector -87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 36.4315 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -90.2 4.917281e-13 0.0) (float-vector -95.2 5.189858e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 67.3166 0.0) (float-vector -63.781 63.781 0.0) (float-vector -83.3339 34.518 0.0) (float-vector -87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 87.9533 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -63.781 63.781 0.0) (float-vector -67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 9.038371e-14 95.2 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector -34.518 83.3339 0.0) (float-vector -36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 87.9533 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 8.563667e-14 90.2 0.0) (float-vector 9.038371e-14 95.2 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 67.3166 0.0) (float-vector 63.781 63.781 0.0) (float-vector 34.518 83.3339 0.0) (float-vector 36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 36.4315 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 63.781 63.781 0.0) (float-vector 67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 95.2 0.0 0.0) (float-vector 90.2 0.0 0.0) (float-vector 83.3339 34.518 0.0) (float-vector 87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 -36.4315 0.0) (float-vector 87.9533 -36.4315 0.0) (float-vector 95.2 0.0 0.0) (float-vector 95.2 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 -67.3166 0.0) (float-vector 67.3166 -67.3166 0.0) (float-vector 87.9533 -36.4315 0.0) (float-vector 87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 -87.9533 0.0) (float-vector 36.4315 -87.9533 0.0) (float-vector 67.3166 -67.3166 0.0) (float-vector 67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -8.630332e-13 -95.2 0.0) (float-vector -8.630332e-13 -95.2 0.0) (float-vector 36.4315 -87.9533 0.0) (float-vector 36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 -87.9533 0.0) (float-vector -36.4315 -87.9533 0.0) (float-vector -8.630332e-13 -95.2 0.0) (float-vector -8.630332e-13 -95.2 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 -67.3166 0.0) (float-vector -67.3166 -67.3166 0.0) (float-vector -36.4315 -87.9533 0.0) (float-vector -36.4315 -87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 -36.4315 0.0) (float-vector -87.9533 -36.4315 0.0) (float-vector -67.3166 -67.3166 0.0) (float-vector -67.3166 -67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector -95.2 5.189858e-13 0.0) (float-vector -95.2 5.189858e-13 0.0) (float-vector -87.9533 -36.4315 0.0) (float-vector -87.9533 -36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -87.9533 36.4315 0.0) (float-vector -87.9533 36.4315 0.0) (float-vector -95.2 5.189858e-13 0.0) (float-vector -95.2 5.189858e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -67.3166 67.3166 0.0) (float-vector -67.3166 67.3166 0.0) (float-vector -87.9533 36.4315 0.0) (float-vector -87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector -36.4315 87.9533 0.0) (float-vector -36.4315 87.9533 0.0) (float-vector -67.3166 67.3166 0.0) (float-vector -67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 9.038371e-14 95.2 0.0) (float-vector 9.038371e-14 95.2 0.0) (float-vector -36.4315 87.9533 0.0) (float-vector -36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 36.4315 87.9533 0.0) (float-vector 36.4315 87.9533 0.0) (float-vector 9.038371e-14 95.2 0.0) (float-vector 9.038371e-14 95.2 0.0)))
+         (instance face :init :vertices (list (float-vector 67.3166 67.3166 0.0) (float-vector 67.3166 67.3166 0.0) (float-vector 36.4315 87.9533 0.0) (float-vector 36.4315 87.9533 0.0)))
+         (instance face :init :vertices (list (float-vector 87.9533 36.4315 0.0) (float-vector 87.9533 36.4315 0.0) (float-vector 67.3166 67.3166 0.0) (float-vector 67.3166 67.3166 0.0)))
+         (instance face :init :vertices (list (float-vector 95.2 0.0 0.0) (float-vector 95.2 0.0 0.0) (float-vector 87.9533 36.4315 0.0) (float-vector 87.9533 36.4315 0.0)))
+         (instance face :init :vertices (list (float-vector 99.6015 -41.2563 2.88767) (float-vector 87.9533 -36.4315 0.0) (float-vector 95.2 0.0 0.0) (float-vector 107.808 0.0 2.88767)))
+         (instance face :init :vertices (list (float-vector 76.2317 -76.2317 2.88767) (float-vector 67.3166 -67.3166 0.0) (float-vector 87.9533 -36.4315 0.0) (float-vector 99.6015 -41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector 41.2563 -99.6015 2.88767) (float-vector 36.4315 -87.9533 0.0) (float-vector 67.3166 -67.3166 0.0) (float-vector 76.2317 -76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector -9.773298e-13 -107.808 2.88767) (float-vector -8.630332e-13 -95.2 0.0) (float-vector 36.4315 -87.9533 0.0) (float-vector 41.2563 -99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector -41.2563 -99.6015 2.88767) (float-vector -36.4315 -87.9533 0.0) (float-vector -8.630332e-13 -95.2 0.0) (float-vector -9.773298e-13 -107.808 2.88767)))
+         (instance face :init :vertices (list (float-vector -76.2317 -76.2317 2.88767) (float-vector -67.3166 -67.3166 0.0) (float-vector -36.4315 -87.9533 0.0) (float-vector -41.2563 -99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector -99.6015 -41.2563 2.88767) (float-vector -87.9533 -36.4315 0.0) (float-vector -67.3166 -67.3166 0.0) (float-vector -76.2317 -76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector -107.808 5.877181e-13 2.88767) (float-vector -95.2 5.189858e-13 0.0) (float-vector -87.9533 -36.4315 0.0) (float-vector -99.6015 -41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector -99.6015 41.2563 2.88767) (float-vector -87.9533 36.4315 0.0) (float-vector -95.2 5.189858e-13 0.0) (float-vector -107.808 5.877181e-13 2.88767)))
+         (instance face :init :vertices (list (float-vector -76.2317 76.2317 2.88767) (float-vector -67.3166 67.3166 0.0) (float-vector -87.9533 36.4315 0.0) (float-vector -99.6015 41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector -41.2563 99.6015 2.88767) (float-vector -36.4315 87.9533 0.0) (float-vector -67.3166 67.3166 0.0) (float-vector -76.2317 76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector 1.023538e-13 107.808 2.88767) (float-vector 9.038371e-14 95.2 0.0) (float-vector -36.4315 87.9533 0.0) (float-vector -41.2563 99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector 41.2563 99.6015 2.88767) (float-vector 36.4315 87.9533 0.0) (float-vector 9.038371e-14 95.2 0.0) (float-vector 1.023538e-13 107.808 2.88767)))
+         (instance face :init :vertices (list (float-vector 76.2317 76.2317 2.88767) (float-vector 67.3166 67.3166 0.0) (float-vector 36.4315 87.9533 0.0) (float-vector 41.2563 99.6015 2.88767)))
+         (instance face :init :vertices (list (float-vector 99.6015 41.2563 2.88767) (float-vector 87.9533 36.4315 0.0) (float-vector 67.3166 67.3166 0.0) (float-vector 76.2317 76.2317 2.88767)))
+         (instance face :init :vertices (list (float-vector 107.808 0.0 2.88767) (float-vector 95.2 0.0 0.0) (float-vector 87.9533 36.4315 0.0) (float-vector 99.6015 41.2563 2.88767)))
+         (instance face :init :vertices (list (float-vector 110.109 -45.6088 11.268) (float-vector 99.6015 -41.2563 2.88767) (float-vector 107.808 0.0 2.88767) (float-vector 119.182 0.0 11.268)))
+         (instance face :init :vertices (list (float-vector 84.2741 -84.2741 11.268) (float-vector 76.2317 -76.2317 2.88767) (float-vector 99.6015 -41.2563 2.88767) (float-vector 110.109 -45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector 45.6088 -110.109 11.268) (float-vector 41.2563 -99.6015 2.88767) (float-vector 76.2317 -76.2317 2.88767) (float-vector 84.2741 -84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector -1.080438e-12 -119.182 11.268) (float-vector -9.773298e-13 -107.808 2.88767) (float-vector 41.2563 -99.6015 2.88767) (float-vector 45.6088 -110.109 11.268)))
+         (instance face :init :vertices (list (float-vector -45.6088 -110.109 11.268) (float-vector -41.2563 -99.6015 2.88767) (float-vector -9.773298e-13 -107.808 2.88767) (float-vector -1.080438e-12 -119.182 11.268)))
+         (instance face :init :vertices (list (float-vector -84.2741 -84.2741 11.268) (float-vector -76.2317 -76.2317 2.88767) (float-vector -41.2563 -99.6015 2.88767) (float-vector -45.6088 -110.109 11.268)))
+         (instance face :init :vertices (list (float-vector -110.109 -45.6088 11.268) (float-vector -99.6015 -41.2563 2.88767) (float-vector -76.2317 -76.2317 2.88767) (float-vector -84.2741 -84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector -119.182 6.497224e-13 11.268) (float-vector -107.808 5.877181e-13 2.88767) (float-vector -99.6015 -41.2563 2.88767) (float-vector -110.109 -45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector -110.109 45.6088 11.268) (float-vector -99.6015 41.2563 2.88767) (float-vector -107.808 5.877181e-13 2.88767) (float-vector -119.182 6.497224e-13 11.268)))
+         (instance face :init :vertices (list (float-vector -84.2741 84.2741 11.268) (float-vector -76.2317 76.2317 2.88767) (float-vector -99.6015 41.2563 2.88767) (float-vector -110.109 45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector -45.6088 110.109 11.268) (float-vector -41.2563 99.6015 2.88767) (float-vector -76.2317 76.2317 2.88767) (float-vector -84.2741 84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector 1.131521e-13 119.182 11.268) (float-vector 1.023538e-13 107.808 2.88767) (float-vector -41.2563 99.6015 2.88767) (float-vector -45.6088 110.109 11.268)))
+         (instance face :init :vertices (list (float-vector 45.6088 110.109 11.268) (float-vector 41.2563 99.6015 2.88767) (float-vector 1.023538e-13 107.808 2.88767) (float-vector 1.131521e-13 119.182 11.268)))
+         (instance face :init :vertices (list (float-vector 84.2741 84.2741 11.268) (float-vector 76.2317 76.2317 2.88767) (float-vector 41.2563 99.6015 2.88767) (float-vector 45.6088 110.109 11.268)))
+         (instance face :init :vertices (list (float-vector 110.109 45.6088 11.268) (float-vector 99.6015 41.2563 2.88767) (float-vector 76.2317 76.2317 2.88767) (float-vector 84.2741 84.2741 11.268)))
+         (instance face :init :vertices (list (float-vector 119.182 0.0 11.268) (float-vector 107.808 0.0 2.88767) (float-vector 99.6015 41.2563 2.88767) (float-vector 110.109 45.6088 11.268)))
+         (instance face :init :vertices (list (float-vector 118.449 -49.063 24.3207) (float-vector 110.109 -45.6088 11.268) (float-vector 119.182 0.0 11.268) (float-vector 128.208 0.0 24.3207)))
+         (instance face :init :vertices (list (float-vector 90.6567 -90.6567 24.3207) (float-vector 84.2741 -84.2741 11.268) (float-vector 110.109 -45.6088 11.268) (float-vector 118.449 -49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector 49.063 -118.449 24.3207) (float-vector 45.6088 -110.109 11.268) (float-vector 84.2741 -84.2741 11.268) (float-vector 90.6567 -90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector -1.162265e-12 -128.208 24.3207) (float-vector -1.080438e-12 -119.182 11.268) (float-vector 45.6088 -110.109 11.268) (float-vector 49.063 -118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector -49.063 -118.449 24.3207) (float-vector -45.6088 -110.109 11.268) (float-vector -1.080438e-12 -119.182 11.268) (float-vector -1.162265e-12 -128.208 24.3207)))
+         (instance face :init :vertices (list (float-vector -90.6567 -90.6567 24.3207) (float-vector -84.2741 -84.2741 11.268) (float-vector -45.6088 -110.109 11.268) (float-vector -49.063 -118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector -118.449 -49.063 24.3207) (float-vector -110.109 -45.6088 11.268) (float-vector -84.2741 -84.2741 11.268) (float-vector -90.6567 -90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector -128.208 6.989293e-13 24.3207) (float-vector -119.182 6.497224e-13 11.268) (float-vector -110.109 -45.6088 11.268) (float-vector -118.449 -49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector -118.449 49.063 24.3207) (float-vector -110.109 45.6088 11.268) (float-vector -119.182 6.497224e-13 11.268) (float-vector -128.208 6.989293e-13 24.3207)))
+         (instance face :init :vertices (list (float-vector -90.6567 90.6567 24.3207) (float-vector -84.2741 84.2741 11.268) (float-vector -110.109 45.6088 11.268) (float-vector -118.449 49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector -49.063 118.449 24.3207) (float-vector -45.6088 110.109 11.268) (float-vector -84.2741 84.2741 11.268) (float-vector -90.6567 90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector 1.217217e-13 128.208 24.3207) (float-vector 1.131521e-13 119.182 11.268) (float-vector -45.6088 110.109 11.268) (float-vector -49.063 118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector 49.063 118.449 24.3207) (float-vector 45.6088 110.109 11.268) (float-vector 1.131521e-13 119.182 11.268) (float-vector 1.217217e-13 128.208 24.3207)))
+         (instance face :init :vertices (list (float-vector 90.6567 90.6567 24.3207) (float-vector 84.2741 84.2741 11.268) (float-vector 45.6088 110.109 11.268) (float-vector 49.063 118.449 24.3207)))
+         (instance face :init :vertices (list (float-vector 118.449 49.063 24.3207) (float-vector 110.109 45.6088 11.268) (float-vector 84.2741 84.2741 11.268) (float-vector 90.6567 90.6567 24.3207)))
+         (instance face :init :vertices (list (float-vector 128.208 0.0 24.3207) (float-vector 119.182 0.0 11.268) (float-vector 110.109 45.6088 11.268) (float-vector 118.449 49.063 24.3207)))
+         (instance face :init :vertices (list (float-vector 123.803 -51.2808 40.768) (float-vector 118.449 -49.063 24.3207) (float-vector 128.208 0.0 24.3207) (float-vector 134.003 0.0 40.768)))
+         (instance face :init :vertices (list (float-vector 94.7545 -94.7545 40.768) (float-vector 90.6567 -90.6567 24.3207) (float-vector 118.449 -49.063 24.3207) (float-vector 123.803 -51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector 51.2808 -123.803 40.768) (float-vector 49.063 -118.449 24.3207) (float-vector 90.6567 -90.6567 24.3207) (float-vector 94.7545 -94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector -1.214802e-12 -134.003 40.768) (float-vector -1.162265e-12 -128.208 24.3207) (float-vector 49.063 -118.449 24.3207) (float-vector 51.2808 -123.803 40.768)))
+         (instance face :init :vertices (list (float-vector -51.2808 -123.803 40.768) (float-vector -49.063 -118.449 24.3207) (float-vector -1.162265e-12 -128.208 24.3207) (float-vector -1.214802e-12 -134.003 40.768)))
+         (instance face :init :vertices (list (float-vector -94.7545 -94.7545 40.768) (float-vector -90.6567 -90.6567 24.3207) (float-vector -49.063 -118.449 24.3207) (float-vector -51.2808 -123.803 40.768)))
+         (instance face :init :vertices (list (float-vector -123.803 -51.2808 40.768) (float-vector -118.449 -49.063 24.3207) (float-vector -90.6567 -90.6567 24.3207) (float-vector -94.7545 -94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector -134.003 7.305221e-13 40.768) (float-vector -128.208 6.989293e-13 24.3207) (float-vector -118.449 -49.063 24.3207) (float-vector -123.803 -51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector -123.803 51.2808 40.768) (float-vector -118.449 49.063 24.3207) (float-vector -128.208 6.989293e-13 24.3207) (float-vector -134.003 7.305221e-13 40.768)))
+         (instance face :init :vertices (list (float-vector -94.7545 94.7545 40.768) (float-vector -90.6567 90.6567 24.3207) (float-vector -118.449 49.063 24.3207) (float-vector -123.803 51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector -51.2808 123.803 40.768) (float-vector -49.063 118.449 24.3207) (float-vector -90.6567 90.6567 24.3207) (float-vector -94.7545 94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector 1.272237e-13 134.003 40.768) (float-vector 1.217217e-13 128.208 24.3207) (float-vector -49.063 118.449 24.3207) (float-vector -51.2808 123.803 40.768)))
+         (instance face :init :vertices (list (float-vector 51.2808 123.803 40.768) (float-vector 49.063 118.449 24.3207) (float-vector 1.217217e-13 128.208 24.3207) (float-vector 1.272237e-13 134.003 40.768)))
+         (instance face :init :vertices (list (float-vector 94.7545 94.7545 40.768) (float-vector 90.6567 90.6567 24.3207) (float-vector 49.063 118.449 24.3207) (float-vector 51.2808 123.803 40.768)))
+         (instance face :init :vertices (list (float-vector 123.803 51.2808 40.768) (float-vector 118.449 49.063 24.3207) (float-vector 90.6567 90.6567 24.3207) (float-vector 94.7545 94.7545 40.768)))
+         (instance face :init :vertices (list (float-vector 134.003 0.0 40.768) (float-vector 128.208 0.0 24.3207) (float-vector 118.449 49.063 24.3207) (float-vector 123.803 51.2808 40.768)))
+         (instance face :init :vertices (list (float-vector 125.648 -52.0449 59.0) (float-vector 123.803 -51.2808 40.768) (float-vector 134.003 0.0 40.768) (float-vector 136.0 0.0 59.0)))
+         (instance face :init :vertices (list (float-vector 96.1665 -96.1665 59.0) (float-vector 94.7545 -94.7545 40.768) (float-vector 123.803 -51.2808 40.768) (float-vector 125.648 -52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector 52.0449 -125.648 59.0) (float-vector 51.2808 -123.803 40.768) (float-vector 94.7545 -94.7545 40.768) (float-vector 96.1665 -96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector -1.232905e-12 -136.0 59.0) (float-vector -1.214802e-12 -134.003 40.768) (float-vector 51.2808 -123.803 40.768) (float-vector 52.0449 -125.648 59.0)))
+         (instance face :init :vertices (list (float-vector -52.0449 -125.648 59.0) (float-vector -51.2808 -123.803 40.768) (float-vector -1.214802e-12 -134.003 40.768) (float-vector -1.232905e-12 -136.0 59.0)))
+         (instance face :init :vertices (list (float-vector -96.1665 -96.1665 59.0) (float-vector -94.7545 -94.7545 40.768) (float-vector -51.2808 -123.803 40.768) (float-vector -52.0449 -125.648 59.0)))
+         (instance face :init :vertices (list (float-vector -125.648 -52.0449 59.0) (float-vector -123.803 -51.2808 40.768) (float-vector -94.7545 -94.7545 40.768) (float-vector -96.1665 -96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector -136.0 7.414082e-13 59.0) (float-vector -134.003 7.305221e-13 40.768) (float-vector -123.803 -51.2808 40.768) (float-vector -125.648 -52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector -125.648 52.0449 59.0) (float-vector -123.803 51.2808 40.768) (float-vector -134.003 7.305221e-13 40.768) (float-vector -136.0 7.414082e-13 59.0)))
+         (instance face :init :vertices (list (float-vector -96.1665 96.1665 59.0) (float-vector -94.7545 94.7545 40.768) (float-vector -123.803 51.2808 40.768) (float-vector -125.648 52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector -52.0449 125.648 59.0) (float-vector -51.2808 123.803 40.768) (float-vector -94.7545 94.7545 40.768) (float-vector -96.1665 96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector 1.291196e-13 136.0 59.0) (float-vector 1.272237e-13 134.003 40.768) (float-vector -51.2808 123.803 40.768) (float-vector -52.0449 125.648 59.0)))
+         (instance face :init :vertices (list (float-vector 52.0449 125.648 59.0) (float-vector 51.2808 123.803 40.768) (float-vector 1.272237e-13 134.003 40.768) (float-vector 1.291196e-13 136.0 59.0)))
+         (instance face :init :vertices (list (float-vector 96.1665 96.1665 59.0) (float-vector 94.7545 94.7545 40.768) (float-vector 51.2808 123.803 40.768) (float-vector 52.0449 125.648 59.0)))
+         (instance face :init :vertices (list (float-vector 125.648 52.0449 59.0) (float-vector 123.803 51.2808 40.768) (float-vector 94.7545 94.7545 40.768) (float-vector 96.1665 96.1665 59.0)))
+         (instance face :init :vertices (list (float-vector 136.0 0.0 59.0) (float-vector 134.003 0.0 40.768) (float-vector 123.803 51.2808 40.768) (float-vector 125.648 52.0449 59.0)))
+         (instance face :init :vertices (list (float-vector 123.8 -51.2796 59.0) (float-vector 125.648 -52.0449 59.0) (float-vector 136.0 0.0 59.0) (float-vector 134.0 0.0 59.0)))
+         (instance face :init :vertices (list (float-vector 94.7523 -94.7523 59.0) (float-vector 96.1665 -96.1665 59.0) (float-vector 125.648 -52.0449 59.0) (float-vector 123.8 -51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector 51.2796 -123.8 59.0) (float-vector 52.0449 -125.648 59.0) (float-vector 96.1665 -96.1665 59.0) (float-vector 94.7523 -94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector -1.214774e-12 -134.0 59.0) (float-vector -1.232905e-12 -136.0 59.0) (float-vector 52.0449 -125.648 59.0) (float-vector 51.2796 -123.8 59.0)))
+         (instance face :init :vertices (list (float-vector -51.2796 -123.8 59.0) (float-vector -52.0449 -125.648 59.0) (float-vector -1.232905e-12 -136.0 59.0) (float-vector -1.214774e-12 -134.0 59.0)))
+         (instance face :init :vertices (list (float-vector -94.7523 -94.7523 59.0) (float-vector -96.1665 -96.1665 59.0) (float-vector -52.0449 -125.648 59.0) (float-vector -51.2796 -123.8 59.0)))
+         (instance face :init :vertices (list (float-vector -123.8 -51.2796 59.0) (float-vector -125.648 -52.0449 59.0) (float-vector -96.1665 -96.1665 59.0) (float-vector -94.7523 -94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector -134.0 7.305052e-13 59.0) (float-vector -136.0 7.414082e-13 59.0) (float-vector -125.648 -52.0449 59.0) (float-vector -123.8 -51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector -123.8 51.2796 59.0) (float-vector -125.648 52.0449 59.0) (float-vector -136.0 7.414082e-13 59.0) (float-vector -134.0 7.305052e-13 59.0)))
+         (instance face :init :vertices (list (float-vector -94.7523 94.7523 59.0) (float-vector -96.1665 96.1665 59.0) (float-vector -125.648 52.0449 59.0) (float-vector -123.8 51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector -51.2796 123.8 59.0) (float-vector -52.0449 125.648 59.0) (float-vector -96.1665 96.1665 59.0) (float-vector -94.7523 94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector 1.272208e-13 134.0 59.0) (float-vector 1.291196e-13 136.0 59.0) (float-vector -52.0449 125.648 59.0) (float-vector -51.2796 123.8 59.0)))
+         (instance face :init :vertices (list (float-vector 51.2796 123.8 59.0) (float-vector 52.0449 125.648 59.0) (float-vector 1.291196e-13 136.0 59.0) (float-vector 1.272208e-13 134.0 59.0)))
+         (instance face :init :vertices (list (float-vector 94.7523 94.7523 59.0) (float-vector 96.1665 96.1665 59.0) (float-vector 52.0449 125.648 59.0) (float-vector 51.2796 123.8 59.0)))
+         (instance face :init :vertices (list (float-vector 123.8 51.2796 59.0) (float-vector 125.648 52.0449 59.0) (float-vector 96.1665 96.1665 59.0) (float-vector 94.7523 94.7523 59.0)))
+         (instance face :init :vertices (list (float-vector 134.0 0.0 59.0) (float-vector 136.0 0.0 59.0) (float-vector 125.648 52.0449 59.0) (float-vector 123.8 51.2796 59.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 -35.6661 2.0) (float-vector 123.8 -51.2796 59.0) (float-vector 134.0 0.0 59.0) (float-vector 93.2 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 -65.9024 2.0) (float-vector 94.7523 -94.7523 59.0) (float-vector 123.8 -51.2796 59.0) (float-vector 86.1056 -35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 -86.1056 2.0) (float-vector 51.2796 -123.8 59.0) (float-vector 94.7523 -94.7523 59.0) (float-vector 65.9024 -65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector -8.449023e-13 -93.2 2.0) (float-vector -1.214774e-12 -134.0 59.0) (float-vector 51.2796 -123.8 59.0) (float-vector 35.6661 -86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 -86.1056 2.0) (float-vector -51.2796 -123.8 59.0) (float-vector -1.214774e-12 -134.0 59.0) (float-vector -8.449023e-13 -93.2 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 -65.9024 2.0) (float-vector -94.7523 -94.7523 59.0) (float-vector -51.2796 -123.8 59.0) (float-vector -35.6661 -86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 -35.6661 2.0) (float-vector -123.8 -51.2796 59.0) (float-vector -94.7523 -94.7523 59.0) (float-vector -65.9024 -65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector -93.2 5.080827e-13 2.0) (float-vector -134.0 7.305052e-13 59.0) (float-vector -123.8 -51.2796 59.0) (float-vector -86.1056 -35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 35.6661 2.0) (float-vector -123.8 51.2796 59.0) (float-vector -134.0 7.305052e-13 59.0) (float-vector -93.2 5.080827e-13 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 65.9024 2.0) (float-vector -94.7523 94.7523 59.0) (float-vector -123.8 51.2796 59.0) (float-vector -86.1056 35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 86.1056 2.0) (float-vector -51.2796 123.8 59.0) (float-vector -94.7523 94.7523 59.0) (float-vector -65.9024 65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector 8.848489e-14 93.2 2.0) (float-vector 1.272208e-13 134.0 59.0) (float-vector -51.2796 123.8 59.0) (float-vector -35.6661 86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 86.1056 2.0) (float-vector 51.2796 123.8 59.0) (float-vector 1.272208e-13 134.0 59.0) (float-vector 8.848489e-14 93.2 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 65.9024 2.0) (float-vector 94.7523 94.7523 59.0) (float-vector 51.2796 123.8 59.0) (float-vector 35.6661 86.1056 2.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 35.6661 2.0) (float-vector 123.8 51.2796 59.0) (float-vector 94.7523 94.7523 59.0) (float-vector 65.9024 65.9024 2.0)))
+         (instance face :init :vertices (list (float-vector 93.2 0.0 2.0) (float-vector 134.0 0.0 59.0) (float-vector 123.8 51.2796 59.0) (float-vector 86.1056 35.6661 2.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 -35.6661 2.0) (float-vector 93.2 0.0 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 93.2 0.0 2.0) (float-vector 86.1056 35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 86.1056 35.6661 2.0) (float-vector 65.9024 65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 65.9024 2.0) (float-vector 35.6661 86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 86.1056 2.0) (float-vector 8.848489e-14 93.2 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 8.848489e-14 93.2 2.0) (float-vector -35.6661 86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 86.1056 2.0) (float-vector -65.9024 65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 65.9024 2.0) (float-vector -86.1056 35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 35.6661 2.0) (float-vector -93.2 5.080827e-13 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -93.2 5.080827e-13 2.0) (float-vector -86.1056 -35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -86.1056 -35.6661 2.0) (float-vector -65.9024 -65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -65.9024 -65.9024 2.0) (float-vector -35.6661 -86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -35.6661 -86.1056 2.0) (float-vector -8.449023e-13 -93.2 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector -8.449023e-13 -93.2 2.0) (float-vector 35.6661 -86.1056 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 35.6661 -86.1056 2.0) (float-vector 65.9024 -65.9024 2.0) (float-vector 0.0 0.0 2.0)))
+         (instance face :init :vertices (list (float-vector 65.9024 -65.9024 2.0) (float-vector 86.1056 -35.6661 2.0) (float-vector 0.0 0.0 2.0)))
+       ))
+       ))
+     (dolist (b (cdr bc)) (send (car bc) :assoc b))
+     (send (elt bc 0) :set-color :blue)
+     (setq blink0 (instance bodyset-link :init (make-cascoords) :bodies bc :name :blue-clear-cup-bodyset2 :weight 1 :centroid (float-vector 0.0 0.0 0.0) :inertia-tensor #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0))))
+
+     ;; definition of assoc
+     (send self :assoc blink0)
+
+     ;; definition of end-coords
+
+     ;; definition of joint
+
+
+     ;; definition of :handle
+     (setq handle0 (make-cascoords :pos (float-vector 83.6231 -83.6231 59.0) :rot #2f((-0.541675 0.454519 -0.707107) (0.541675 -0.454519 -0.707107) (-0.642788 -0.766044 -1.498801e-15)) :name "handle0"))
+     (send self :assoc handle0)
+     (setq handle1 (make-cascoords :pos (float-vector -6.519447e-13 -118.261 59.0) :rot #2f((4.440892e-15 -1.665335e-15 -1.0) (0.766044 -0.642788 4.496403e-15) (-0.642788 -0.766044 -1.554312e-15)) :name "handle1"))
+     (send self :assoc handle1)
+     (setq handle2 (make-cascoords :pos (float-vector -83.6231 -83.6231 59.0) :rot #2f((0.541675 -0.454519 -0.707107) (0.541675 -0.454519 0.707107) (-0.642788 -0.766044 -9.714451e-16)) :name "handle2"))
+     (send self :assoc handle2)
+     (setq handle3 (make-cascoords :pos (float-vector -118.261 2.245563e-13 59.0) :rot #2f((0.766044 -0.642788 2.442491e-15) (-2.886580e-15 3.538836e-16 1.0) (-0.642788 -0.766044 -1.575129e-15)) :name "handle3"))
+     (send self :assoc handle3)
+     (setq handle4 (make-cascoords :pos (float-vector -83.6231 83.6231 59.0) :rot #2f((0.541675 -0.454519 0.707107) (-0.541675 0.454519 0.707107) (-0.642788 -0.766044 -1.490127e-15)) :name "handle4"))
+     (send self :assoc handle4)
+     (setq handle5 (make-cascoords :pos (float-vector 7.241390e-15 118.261 59.0) :rot #2f((-1.276756e-15 -6.106227e-16 1.0) (-0.766044 0.642788 -6.106227e-16) (-0.642788 -0.766044 -1.276756e-15)) :name "handle5"))
+     (send self :assoc handle5)
+     (setq handle6 (make-cascoords :pos (float-vector 83.6231 83.6231 59.0) :rot #2f((-0.541675 0.454519 0.707107) (-0.541675 0.454519 -0.707107) (-0.642788 -0.766044 -1.720846e-15)) :name "handle6"))
+     (send self :assoc handle6)
+     (setq handle7 (make-cascoords :pos (float-vector 118.261 0.0 59.0) :rot #2f((-0.766044 0.642788 1.110223e-15) (2.220446e-16 1.942890e-15 -1.0) (-0.642788 -0.766044 -1.609823e-15)) :name "handle7"))
+     (send self :assoc handle7)
+
+     ;; definition of :attention
+     (setq attention0 (make-cascoords :pos (float-vector 0.0 0.0 0.0) :rot #2f((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0)) :name "attention0"))
+     (send self :assoc attention0)
+
+     ;; init-ending 
+     (setq links (list blink0))
+     (setq joint-list (list))
+     (send self :init-ending)
+     (send self :move-to (make-coords :pos pos :rot rot))
+     (send-all links :worldcoords)
+
+     self))
+  (:cameras (&rest args)
+   (forward-message-to-all (list) args))
+
+  (: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 blue-clear-cup (&rest args) (instance* blue-clear-cup-object :init args))
+;; (format *error-output* "(instance blue-clear-cup-object :init) for generating model~%")

Added: trunk/EusLisp/models/flower-tea-cup-dish-object.l
===================================================================
--- trunk/EusLisp/models/flower-tea-cup-dish-object.l	                        (rev 0)
+++ trunk/EusLisp/models/flower-tea-cup-dish-object.l	2013-05-10 10:38:49 UTC (rev 629)
@@ -0,0 +1,279 @@
+;;
+;; DO NOT EDIT THIS FILE
+;; this file is automatically generated from euslisp+euslib version 
+;;
+;;
+(defclass flower-tea-cup-dish-object
+  :super cascaded-link
+  :slots (sensors
+         handle0 handle1 handle2 handle3 handle4 handle5 handle6 handle7
+         attention0
+         ))
+(defmethod flower-tea-cup-dish-object
+  (:init
+   (&rest args &key (name "flower-tea-cup-dish") (pos (float-vector 0 0 0)) (rot (unit-matrix 3)) &allow-other-keys)
+   (let (c bc
+         blink0
+                 )
+     (send-super* :init :name name args)
+
+     ;; definition of link
+
+     ;; definition of :flower-tea-cup-dish-bodyset2
+     (setq bc (list
+       (instance faceset :init :faces (list
+         (instance face :init :vertices (list (float-vector 96.5 0.0 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 -36.929 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 -68.2358 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 -89.1544 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -8.748184e-13 -96.5 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 -89.1544 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 -68.2358 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 -36.929 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -96.5 5.260728e-13 0.0) (float-vector -89.1544 36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 36.929 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 68.2358 0.0) (float-vector -36.929 89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 89.1544 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 9.161794e-14 96.5 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 89.1544 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 68.2358 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 36.929 0.0) (float-vector 96.5 0.0 0.0) (float-vector 0.0 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 -36.929 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 96.5 0.0 0.0) (float-vector 96.5 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 -68.2358 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 89.1544 -36.929 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 -89.1544 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 68.2358 -68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector -8.748184e-13 -96.5 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 36.929 -89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 -89.1544 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector -8.748184e-13 -96.5 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 -68.2358 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -36.929 -89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 -36.929 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -68.2358 -68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector -96.5 5.260728e-13 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -89.1544 -36.929 0.0)))
+         (instance face :init :vertices (list (float-vector -89.1544 36.929 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -96.5 5.260728e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -68.2358 68.2358 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -89.1544 36.929 0.0)))
+         (instance face :init :vertices (list (float-vector -36.929 89.1544 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -68.2358 68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector 9.161794e-14 96.5 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -36.929 89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector 36.929 89.1544 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector 9.161794e-14 96.5 0.0)))
+         (instance face :init :vertices (list (float-vector 68.2358 68.2358 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 36.929 89.1544 0.0)))
+         (instance face :init :vertices (list (float-vector 89.1544 36.929 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 68.2358 68.2358 0.0)))
+         (instance face :init :vertices (list (float-vector 96.5 0.0 0.0) (float-vector 96.5 0.0 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 89.1544 36.929 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 -38.8424 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 96.5 0.0 0.0) (float-vector 101.5 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 -71.7713 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 89.1544 -36.929 0.0) (float-vector 93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 -93.7738 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 68.2358 -68.2358 0.0) (float-vector 71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -9.201457e-13 -101.5 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector 36.929 -89.1544 0.0) (float-vector 38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 -93.7738 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -8.748184e-13 -96.5 0.0) (float-vector -9.201457e-13 -101.5 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 -71.7713 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -36.929 -89.1544 0.0) (float-vector -38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 -38.8424 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -68.2358 -68.2358 0.0) (float-vector -71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -101.5 5.533304e-13 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -89.1544 -36.929 0.0) (float-vector -93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 38.8424 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -96.5 5.260728e-13 0.0) (float-vector -101.5 5.533304e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 71.7713 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -89.1544 36.929 0.0) (float-vector -93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 93.7738 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -68.2358 68.2358 0.0) (float-vector -71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 9.636499e-14 101.5 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector -36.929 89.1544 0.0) (float-vector -38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 93.7738 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 9.161794e-14 96.5 0.0) (float-vector 9.636499e-14 101.5 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 71.7713 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 36.929 89.1544 0.0) (float-vector 38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 38.8424 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 68.2358 68.2358 0.0) (float-vector 71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 101.5 0.0 0.0) (float-vector 96.5 0.0 0.0) (float-vector 89.1544 36.929 0.0) (float-vector 93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 -38.8424 0.0) (float-vector 93.7738 -38.8424 0.0) (float-vector 101.5 0.0 0.0) (float-vector 101.5 0.0 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 -71.7713 0.0) (float-vector 71.7713 -71.7713 0.0) (float-vector 93.7738 -38.8424 0.0) (float-vector 93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 -93.7738 0.0) (float-vector 38.8424 -93.7738 0.0) (float-vector 71.7713 -71.7713 0.0) (float-vector 71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -9.201457e-13 -101.5 0.0) (float-vector -9.201457e-13 -101.5 0.0) (float-vector 38.8424 -93.7738 0.0) (float-vector 38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 -93.7738 0.0) (float-vector -38.8424 -93.7738 0.0) (float-vector -9.201457e-13 -101.5 0.0) (float-vector -9.201457e-13 -101.5 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 -71.7713 0.0) (float-vector -71.7713 -71.7713 0.0) (float-vector -38.8424 -93.7738 0.0) (float-vector -38.8424 -93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 -38.8424 0.0) (float-vector -93.7738 -38.8424 0.0) (float-vector -71.7713 -71.7713 0.0) (float-vector -71.7713 -71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector -101.5 5.533304e-13 0.0) (float-vector -101.5 5.533304e-13 0.0) (float-vector -93.7738 -38.8424 0.0) (float-vector -93.7738 -38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -93.7738 38.8424 0.0) (float-vector -93.7738 38.8424 0.0) (float-vector -101.5 5.533304e-13 0.0) (float-vector -101.5 5.533304e-13 0.0)))
+         (instance face :init :vertices (list (float-vector -71.7713 71.7713 0.0) (float-vector -71.7713 71.7713 0.0) (float-vector -93.7738 38.8424 0.0) (float-vector -93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector -38.8424 93.7738 0.0) (float-vector -38.8424 93.7738 0.0) (float-vector -71.7713 71.7713 0.0) (float-vector -71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 9.636499e-14 101.5 0.0) (float-vector 9.636499e-14 101.5 0.0) (float-vector -38.8424 93.7738 0.0) (float-vector -38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 38.8424 93.7738 0.0) (float-vector 38.8424 93.7738 0.0) (float-vector 9.636499e-14 101.5 0.0) (float-vector 9.636499e-14 101.5 0.0)))
+         (instance face :init :vertices (list (float-vector 71.7713 71.7713 0.0) (float-vector 71.7713 71.7713 0.0) (float-vector 38.8424 93.7738 0.0) (float-vector 38.8424 93.7738 0.0)))
+         (instance face :init :vertices (list (float-vector 93.7738 38.8424 0.0) (float-vector 93.7738 38.8424 0.0) (float-vector 71.7713 71.7713 0.0) (float-vector 71.7713 71.7713 0.0)))
+         (instance face :init :vertices (list (float-vector 101.5 0.0 0.0) (float-vector 101.5 0.0 0.0) (float-vector 93.7738 38.8424 0.0) (float-vector 93.7738 38.8424 0.0)))
+         (instance face :init :vertices (list (float-vector 106.193 -43.9865 1.37042) (float-vector 93.7738 -38.8424 0.0) (float-vector 101.5 0.0 0.0) (float-vector 114.942 0.0 1.37042)))
+         (instance face :init :vertices (list (float-vector 81.2764 -81.2764 1.37042) (float-vector 71.7713 -71.7713 0.0) (float-vector 93.7738 -38.8424 0.0) (float-vector 106.193 -43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector 43.9865 -106.193 1.37042) (float-vector 38.8424 -93.7738 0.0) (float-vector 71.7713 -71.7713 0.0) (float-vector 81.2764 -81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector -1.042006e-12 -114.942 1.37042) (float-vector -9.201457e-13 -101.5 0.0) (float-vector 38.8424 -93.7738 0.0) (float-vector 43.9865 -106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector -43.9865 -106.193 1.37042) (float-vector -38.8424 -93.7738 0.0) (float-vector -9.201457e-13 -101.5 0.0) (float-vector -1.042006e-12 -114.942 1.37042)))
+         (instance face :init :vertices (list (float-vector -81.2764 -81.2764 1.37042) (float-vector -71.7713 -71.7713 0.0) (float-vector -38.8424 -93.7738 0.0) (float-vector -43.9865 -106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector -106.193 -43.9865 1.37042) (float-vector -93.7738 -38.8424 0.0) (float-vector -71.7713 -71.7713 0.0) (float-vector -81.2764 -81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector -114.942 6.266112e-13 1.37042) (float-vector -101.5 5.533304e-13 0.0) (float-vector -93.7738 -38.8424 0.0) (float-vector -106.193 -43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector -106.193 43.9865 1.37042) (float-vector -93.7738 38.8424 0.0) (float-vector -101.5 5.533304e-13 0.0) (float-vector -114.942 6.266112e-13 1.37042)))
+         (instance face :init :vertices (list (float-vector -81.2764 81.2764 1.37042) (float-vector -71.7713 71.7713 0.0) (float-vector -93.7738 38.8424 0.0) (float-vector -106.193 43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector -43.9865 106.193 1.37042) (float-vector -38.8424 93.7738 0.0) (float-vector -71.7713 71.7713 0.0) (float-vector -81.2764 81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector 1.091272e-13 114.942 1.37042) (float-vector 9.636499e-14 101.5 0.0) (float-vector -38.8424 93.7738 0.0) (float-vector -43.9865 106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector 43.9865 106.193 1.37042) (float-vector 38.8424 93.7738 0.0) (float-vector 9.636499e-14 101.5 0.0) (float-vector 1.091272e-13 114.942 1.37042)))
+         (instance face :init :vertices (list (float-vector 81.2764 81.2764 1.37042) (float-vector 71.7713 71.7713 0.0) (float-vector 38.8424 93.7738 0.0) (float-vector 43.9865 106.193 1.37042)))
+         (instance face :init :vertices (list (float-vector 106.193 43.9865 1.37042) (float-vector 93.7738 38.8424 0.0) (float-vector 71.7713 71.7713 0.0) (float-vector 81.2764 81.2764 1.37042)))
+         (instance face :init :vertices (list (float-vector 114.942 0.0 1.37042) (float-vector 101.5 0.0 0.0) (float-vector 93.7738 38.8424 0.0) (float-vector 106.193 43.9865 1.37042)))
+         (instance face :init :vertices (list (float-vector 117.396 -48.6271 5.34752) (float-vector 106.193 -43.9865 1.37042) (float-vector 114.942 0.0 1.37042) (float-vector 127.069 0.0 5.34752)))
+         (instance face :init :vertices (list (float-vector 89.8511 -89.8511 5.34752) (float-vector 81.2764 -81.2764 1.37042) (float-vector 106.193 -43.9865 1.37042) (float-vector 117.396 -48.6271 5.34752)))
+         (instance face :init :vertices (list (float-vector 48.6271 -117.396 5.34752) (float-vector 43.9865 -106.193 1.37042) (float-vector 81.2764 -81.2764 1.37042) (float-vector 89.8511 -89.8511 5.34752)))
+         (instance face :init :vertices (list (float-vector -1.151938e-12 -127.069 5.34752) (float-vector -1.042006e-12 -114.942 1.37042) (float-vector 43.9865 -106.193 1.37042) (float-vector 48.6271 -117.396 5.34752)))
+         (instance face :init :vertices (list (float-vector -48.6271 -117.396 5.34752) (float-vector -43.9865 -106.193 1.37042) (float-vector -1.042006e-12 -114.942 1.37042) (float-vector -1.151938e-12 -127.069 5.34752)))
+         (instance face :init :vertices (list (float-vector -89.8511 -89.8511 5.34752) (float-vector -81.2764 -81.2764 1.37042) (float-vector -43.9865 -106.193 1.37042) (float-vector -48.6271 -117.396 5.34752)))
+         (instance face :init :vertices (list (float-vector -117.396 -48.6271 5.34752) (float-vector -106.193 -43.9865 1.37042) (float-vector -81.2764 -81.2764 1.37042) (float-vector -89.8511 -89.8511 5.34752)))
+         (instance face :init :vertices (list (float-vector -127.069 6.927188e-13 5.34752) (float-vector -114.942 6.266112e-13 1.37042) (float-vector -106.193 -43.9865 1.37042) (float-vector -117.396 -48.6271 5.34752)))
+         (instance face :init :vertices (list (float-vector -117.396 48.6271 5.34752) (float-vector -106.193 43.9865 1.37042) (float-vector -114.942 6.266112e-13 1.37042) (float-vector -127.069 6.927188e-13 5.34752)))
+         (instance face :init :vertices (list (float-vector -89.8511 89.8511 5.34752) (float-vector -81.2764 81.2764 1.37042) (float-vector -106.193 43.9865 1.37042) (float-vector -117.396 48.6271 5.34752)))
+         (instance face :init :vertices (list (float-vector -48.6271 117.396 5.34752) (float-vector -43.9865 106.193 1.37042) (float-vector -81.2764 81.2764 1.37042) (float-vector -89.8511 89.8511 5.34752)))
+         (instance face :init :vertices (list (float-vector 1.206401e-13 127.069 5.34752) (float-vector 1.091272e-13 114.942 1.37042) (float-vector -43.9865 106.193 1.37042) (float-vector -48.6271 117.396 5.34752)))
+         (instance face :init :vertices (list (float-vector 48.6271 117.396 5.34752) (float-vector 43.9865 106.193 1.37042) (float-vector 1.091272e-13 114.942 1.37042) (float-vector 1.206401e-13 127.069 5.34752)))
+         (instance face :init :vertices (list (float-vector 89.8511 89.8511 5.34752) (float-vector 81.2764 81.2764...
 
[truncated message content]

[Euslisp-commit] SF.net SVN: euslisp:[628] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:56:22

Revision: 628
          http://sourceforge.net/p/euslisp/code/628
Author:   snozawa
Date:     2013-05-01 04:56:08 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/3t-600-clean-locker-object.l
    trunk/EusLisp/models/akiba-door-object.l
    trunk/EusLisp/models/akiba-door-window-object.l
    trunk/EusLisp/models/akiba-room-door-object.l
    trunk/EusLisp/models/arrow-1000-object.l
    trunk/EusLisp/models/arrow-object.l
    trunk/EusLisp/models/askul-gdh-cupboard-object.l
    trunk/EusLisp/models/askul-ntr-cupboard-object.l
    trunk/EusLisp/models/asplund-cabinet-4dan-object.l
    trunk/EusLisp/models/asplund-cabinet-4danbase-object.l
    trunk/EusLisp/models/audio_shelf-object.l
    trunk/EusLisp/models/azuma-broom-object.l
    trunk/EusLisp/models/azuma-short-broom-object.l
    trunk/EusLisp/models/ball-object.l
    trunk/EusLisp/models/bamboo-broom-object.l
    trunk/EusLisp/models/bears-panel-object.l
    trunk/EusLisp/models/bidirectional-arrow-object.l
    trunk/EusLisp/models/book-object.l
    trunk/EusLisp/models/broom-object.l
    trunk/EusLisp/models/brown-board-object.l
    trunk/EusLisp/models/cardboard-box-object.l
    trunk/EusLisp/models/casio-330-analog-clock-object.l
    trunk/EusLisp/models/chair-object.l
    trunk/EusLisp/models/chessboard-10-3x3-object.l
    trunk/EusLisp/models/chessboard-108-9x7-object.l
    trunk/EusLisp/models/chessboard-30-6x5-object.l
    trunk/EusLisp/models/chessboard-30-7x5-object.l
    trunk/EusLisp/models/coe-1200-shelf-object.l
    trunk/EusLisp/models/coe-450-shelf-object.l
    trunk/EusLisp/models/coe-800-shelf-object.l
    trunk/EusLisp/models/coe-corner-shelf-object.l
    trunk/EusLisp/models/coe-demospace-object.l
    trunk/EusLisp/models/coe-light-object.l
    trunk/EusLisp/models/coe-sofa-object.l
    trunk/EusLisp/models/coe-sofa2-object.l
    trunk/EusLisp/models/coe-stairs-object.l
    trunk/EusLisp/models/coffee-cup-cup-object.l
    trunk/EusLisp/models/coffee-cup-saucer-object.l
    trunk/EusLisp/models/cup-object.l
    trunk/EusLisp/models/cupboard-object.l
    trunk/EusLisp/models/dining-table-object.l
    trunk/EusLisp/models/docomo-p504is-object.l
    trunk/EusLisp/models/door-object.l
    trunk/EusLisp/models/fridge-object.l
    trunk/EusLisp/models/frying-pan-object.l
    trunk/EusLisp/models/fujitsu-42-plasmatv-object.l
    trunk/EusLisp/models/gifuplastic-720-cart-object.l
    trunk/EusLisp/models/gifuplastic-900-cart-object.l
    trunk/EusLisp/models/hitachi-42-plasmatv-object.l
    trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l
    trunk/EusLisp/models/hrp2-rack-object.l
    trunk/EusLisp/models/hrp2-shelf-object.l
    trunk/EusLisp/models/ideainternational-300-analog-clock-object.l
    trunk/EusLisp/models/iron-table-object.l
    trunk/EusLisp/models/itoki-900-closet-object.l
    trunk/EusLisp/models/itoki-900-shelf-object.l
    trunk/EusLisp/models/itoki-900-slide-shelf-object.l
    trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l
    trunk/EusLisp/models/kettle-object.l
    trunk/EusLisp/models/knife-object.l
    trunk/EusLisp/models/kokuyo-450-locker-object.l
    trunk/EusLisp/models/kokuyo-600-sidetable-object.l
    trunk/EusLisp/models/laundry-machine-object.l
    trunk/EusLisp/models/maruman-55-analog-clock-object.l
    trunk/EusLisp/models/mug-cup-object.l
    trunk/EusLisp/models/multibox-shelf-object.l
    trunk/EusLisp/models/naiki-6door-closet-object.l
    trunk/EusLisp/models/petbottle-object.l
    trunk/EusLisp/models/picaladder-object.l
    trunk/EusLisp/models/plasmatv-object.l
    trunk/EusLisp/models/pockey-object.l
    trunk/EusLisp/models/red-chair0-object.l
    trunk/EusLisp/models/refrigerator-object.l
    trunk/EusLisp/models/sharp-52-aquostv-object.l
    trunk/EusLisp/models/sharp-iron-object.l
    trunk/EusLisp/models/shelf-object.l
    trunk/EusLisp/models/single-arrow-object.l
    trunk/EusLisp/models/sponge-object.l
    trunk/EusLisp/models/square-600-closet-object.l
    trunk/EusLisp/models/sushi-cup-object.l
    trunk/EusLisp/models/tognana-pasta-dish-object.l
    trunk/EusLisp/models/toshiba-clacio-refrigerator-object.l
    trunk/EusLisp/models/toshiba-iron-object.l
    trunk/EusLisp/models/toshiba-microwave-oven-object.l
    trunk/EusLisp/models/toyama-1800-sidetable-object.l
    trunk/EusLisp/models/toyama-900-sidetable-object.l
    trunk/EusLisp/models/trashbox-object.l
    trunk/EusLisp/models/tray-object.l
    trunk/EusLisp/models/uchida-monitor-leg-object.l
    trunk/EusLisp/models/uchida-shelf-1100-object.l
    trunk/EusLisp/models/uchida-shelf-1300-object.l
    trunk/EusLisp/models/washing-machine-object.l

Modified: trunk/EusLisp/models/3t-600-clean-locker-object.l
===================================================================
--- trunk/EusLisp/models/3t-600-clean-locker-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/3t-600-clean-locker-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -149,10 +149,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 3t-600-clean-locker (&rest args) (instance* 3t-600-clean-locker-object :init args))

Modified: trunk/EusLisp/models/akiba-door-object.l
===================================================================
--- trunk/EusLisp/models/akiba-door-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-door-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -249,12 +249,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 akiba-door (&rest args) (instance* akiba-door-object :init args))

Modified: trunk/EusLisp/models/akiba-door-window-object.l
===================================================================
--- trunk/EusLisp/models/akiba-door-window-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-door-window-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -94,9 +94,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 akiba-door-window (&rest args) (instance* akiba-door-window-object :init args))

Modified: trunk/EusLisp/models/akiba-room-door-object.l
===================================================================
--- trunk/EusLisp/models/akiba-room-door-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-room-door-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -269,12 +269,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 akiba-room-door (&rest args) (instance* akiba-room-door-object :init args))

Modified: trunk/EusLisp/models/arrow-1000-object.l
===================================================================
--- trunk/EusLisp/models/arrow-1000-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/arrow-1000-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -162,9 +162,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 arrow-1000 (&rest args) (instance* arrow-1000-object :init args))

Modified: trunk/EusLisp/models/arrow-object.l
===================================================================
--- trunk/EusLisp/models/arrow-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/arrow-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -162,9 +162,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 arrow (&rest args) (instance* arrow-object :init args))

Modified: trunk/EusLisp/models/askul-gdh-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/askul-gdh-cupboard-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/askul-gdh-cupboard-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 askul-gdh-cupboard (&rest args) (instance* askul-gdh-cupboard-object :init args))

Modified: trunk/EusLisp/models/askul-ntr-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/askul-ntr-cupboard-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/askul-ntr-cupboard-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 askul-ntr-cupboard (&rest args) (instance* askul-ntr-cupboard-object :init args))

Modified: trunk/EusLisp/models/asplund-cabinet-4dan-object.l
===================================================================
--- trunk/EusLisp/models/asplund-cabinet-4dan-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/asplund-cabinet-4dan-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -467,10 +467,10 @@
   (:drawer1 (&rest args) (forward-message-to joint1 args))
   (:drawer2 (&rest args) (forward-message-to joint2 args))
   (:drawer3 (&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 asplund-cabinet-4dan (&rest args) (instance* asplund-cabinet-4dan-object :init args))

Modified: trunk/EusLisp/models/asplund-cabinet-4danbase-object.l
===================================================================
--- trunk/EusLisp/models/asplund-cabinet-4danbase-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/asplund-cabinet-4danbase-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -197,10 +197,10 @@
    (forward-message-to-all (list) args))
 
   (:drawer0 (&rest args) (forward-message-to joint0 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 asplund-cabinet-4danbase (&rest args) (instance* asplund-cabinet-4danbase-object :init args))

Modified: trunk/EusLisp/models/audio_shelf-object.l
===================================================================
--- trunk/EusLisp/models/audio_shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/audio_shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -264,10 +264,10 @@
   (:drawer3 (&rest args) (forward-message-to joint2 args))
   (:door-right (&rest args) (forward-message-to joint3 args))
   (:door-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 audio_shelf (&rest args) (instance* audio_shelf-object :init args))

Modified: trunk/EusLisp/models/azuma-broom-object.l
===================================================================
--- trunk/EusLisp/models/azuma-broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/azuma-broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 azuma-broom (&rest args) (instance* azuma-broom-object :init args))

Modified: trunk/EusLisp/models/azuma-short-broom-object.l
===================================================================
--- trunk/EusLisp/models/azuma-short-broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/azuma-short-broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 azuma-short-broom (&rest args) (instance* azuma-short-broom-object :init args))

Modified: trunk/EusLisp/models/ball-object.l
===================================================================
--- trunk/EusLisp/models/ball-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/ball-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -1330,10 +1330,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 ball (&rest args) (instance* ball-object :init args))

Modified: trunk/EusLisp/models/bamboo-broom-object.l
===================================================================
--- trunk/EusLisp/models/bamboo-broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bamboo-broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 bamboo-broom (&rest args) (instance* bamboo-broom-object :init args))

Modified: trunk/EusLisp/models/bears-panel-object.l
===================================================================
--- trunk/EusLisp/models/bears-panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bears-panel-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -127,9 +127,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 bears-panel (&rest args) (instance* bears-panel-object :init args))

Modified: trunk/EusLisp/models/bidirectional-arrow-object.l
===================================================================
--- trunk/EusLisp/models/bidirectional-arrow-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bidirectional-arrow-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -99,9 +99,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 bidirectional-arrow (&rest args) (instance* bidirectional-arrow-object :init args))

Modified: trunk/EusLisp/models/book-object.l
===================================================================
--- trunk/EusLisp/models/book-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/book-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -78,13 +78,13 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:handle-handle2 () handle2)
-  (:handle-handle3 () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) 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))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun book (&rest args) (instance* book-object :init args))

Modified: trunk/EusLisp/models/broom-object.l
===================================================================
--- trunk/EusLisp/models/broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 broom (&rest args) (instance* broom-object :init args))

Modified: trunk/EusLisp/models/brown-board-object.l
===================================================================
--- trunk/EusLisp/models/brown-board-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/brown-board-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -227,10 +227,10 @@
   (:drawer0 (&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))
-  (: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 brown-board (&rest args) (instance* brown-board-object :init args))

Modified: trunk/EusLisp/models/cardboard-box-object.l
===================================================================
--- trunk/EusLisp/models/cardboard-box-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cardboard-box-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -51,9 +51,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 cardboard-box (&rest args) (instance* cardboard-box-object :init args))

Modified: trunk/EusLisp/models/casio-330-analog-clock-object.l
===================================================================
--- trunk/EusLisp/models/casio-330-analog-clock-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/casio-330-analog-clock-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -280,9 +280,9 @@
   (:hour-joint (&rest args) (forward-message-to joint0 args))
   (:minute-joint (&rest args) (forward-message-to joint1 args))
   (:second-joint (&rest args) (forward-message-to joint2 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 casio-330-analog-clock (&rest args) (instance* casio-330-analog-clock-object :init args))

Modified: trunk/EusLisp/models/chair-object.l
===================================================================
--- trunk/EusLisp/models/chair-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chair-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 chair (&rest args) (instance* chair-object :init args))

Modified: trunk/EusLisp/models/chessboard-10-3x3-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-10-3x3-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-10-3x3-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -137,10 +137,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-10-3x3 (&rest args) (instance* chessboard-10-3x3-object :init args))

Modified: trunk/EusLisp/models/chessboard-108-9x7-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-108-9x7-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-108-9x7-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -623,10 +623,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-108-9x7 (&rest args) (instance* chessboard-108-9x7-object :init args))

Modified: trunk/EusLisp/models/chessboard-30-6x5-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-30-6x5-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-30-6x5-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -326,10 +326,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-30-6x5 (&rest args) (instance* chessboard-30-6x5-object :init args))

Modified: trunk/EusLisp/models/chessboard-30-7x5-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-30-7x5-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-30-7x5-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -371,10 +371,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-30-7x5 (&rest args) (instance* chessboard-30-7x5-object :init args))

Modified: trunk/EusLisp/models/coe-1200-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-1200-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-1200-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-1200-shelf (&rest args) (instance* coe-1200-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-450-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-450-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-450-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-450-shelf (&rest args) (instance* coe-450-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-800-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-800-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-800-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-800-shelf (&rest args) (instance* coe-800-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-corner-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-corner-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-corner-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-corner-shelf (&rest args) (instance* coe-corner-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-demospace-object.l
===================================================================
--- trunk/EusLisp/models/coe-demospace-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-demospace-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -523,9 +523,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 coe-demospace (&rest args) (instance* coe-demospace-object :init args))

Modified: trunk/EusLisp/models/coe-light-object.l
===================================================================
--- trunk/EusLisp/models/coe-light-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-light-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -98,9 +98,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 coe-light (&rest args) (instance* coe-light-object :init args))

Modified: trunk/EusLisp/models/coe-sofa-object.l
===================================================================
--- trunk/EusLisp/models/coe-sofa-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-sofa-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -188,9 +188,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 coe-sofa (&rest args) (instance* coe-sofa-object :init args))

Modified: trunk/EusLisp/models/coe-sofa2-object.l
===================================================================
--- trunk/EusLisp/models/coe-sofa2-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-sofa2-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -188,9 +188,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 coe-sofa2 (&rest args) (instance* coe-sofa2-object :init args))

Modified: trunk/EusLisp/models/coe-stairs-object.l
===================================================================
--- trunk/EusLisp/models/coe-stairs-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-stairs-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -61,9 +61,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 coe-stairs (&rest args) (instance* coe-stairs-object :init args))

Modified: trunk/EusLisp/models/coffee-cup-cup-object.l
===================================================================
--- trunk/EusLisp/models/coffee-cup-cup-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coffee-cup-cup-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -570,10 +570,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 coffee-cup-cup (&rest args) (instance* coffee-cup-cup-object :init args))

Modified: trunk/EusLisp/models/coffee-cup-saucer-object.l
===================================================================
--- trunk/EusLisp/models/coffee-cup-saucer-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coffee-cup-saucer-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -699,13 +699,13 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:handle-handle2 () handle2)
-  (:handle-handle3 () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) 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))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun coffee-cup-saucer (&rest args) (instance* coffee-cup-saucer-object :init args))

Modified: trunk/EusLisp/models/cup-object.l
===================================================================
--- trunk/EusLisp/models/cup-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cup-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 cup (&rest args) (instance* cup-object :init args))

Modified: trunk/EusLisp/models/cupboard-object.l
===================================================================
--- trunk/EusLisp/models/cupboard-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cupboard-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -401,10 +401,10 @@
   (:drawer4 (&rest args) (forward-message-to joint4 args))
   (:door-upper-right (&rest args) (forward-message-to joint5 args))
   (:door-upper-left (&rest args) (forward-message-to joint6 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 cupboard (&rest args) (instance* cupboard-object :init args))

Modified: trunk/EusLisp/models/dining-table-object.l
===================================================================
--- trunk/EusLisp/models/dining-table-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/dining-table-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 dining-table (&rest args) (instance* dining-table-object :init args))

Modified: trunk/EusLisp/models/docomo-p504is-object.l
===================================================================
--- trunk/EusLisp/models/docomo-p504is-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/docomo-p504is-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -102,9 +102,9 @@
    (forward-message-to-all (list) args))
 
   (:base-joint (&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 docomo-p504is (&rest args) (instance* docomo-p504is-object :init args))

Modified: trunk/EusLisp/models/door-object.l
===================================================================
--- trunk/EusLisp/models/door-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/door-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 door (&rest args) (instance* door-object :init args))

Modified: trunk/EusLisp/models/fridge-object.l
===================================================================
--- trunk/EusLisp/models/fridge-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/fridge-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -311,11 +311,11 @@
   (:drawer-middle-left (&rest args) (forward-message-to joint3 args))
   (:drawer-lower1 (&rest args) (forward-message-to joint4 args))
   (:drawer-lower2 (&rest args) (forward-message-to joint5 args))
-  (:handle () (list  handle0 handle1))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:attention () (list ))
-  (: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 ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun fridge (&rest args) (instance* fridge-object :init args))

Modified: trunk/EusLisp/models/frying-pan-object.l
===================================================================
--- trunk/EusLisp/models/frying-pan-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/frying-pan-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -101,10 +101,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-grip () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-grip (&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 frying-pan (&rest args) (instance* frying-pan-object :init args))

Modified: trunk/EusLisp/models/fujitsu-42-plasmatv-object.l
===================================================================
--- trunk/EusLisp/models/fujitsu-42-plasmatv-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/fujitsu-42-plasmatv-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -329,9 +329,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 fujitsu-42-plasmatv (&rest args) (instance* fujitsu-42-plasmatv-object :init args))

Modified: trunk/EusLisp/models/gifuplastic-720-cart-object.l
===================================================================
--- trunk/EusLisp/models/gifuplastic-720-cart-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/gifuplastic-720-cart-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 gifuplastic-720-cart (&rest args) (instance* gifuplastic-720-cart-object :init args))

Modified: trunk/EusLisp/models/gifuplastic-900-cart-object.l
===================================================================
--- trunk/EusLisp/models/gifuplastic-900-cart-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/gifuplastic-900-cart-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 gifuplastic-900-cart (&rest args) (instance* gifuplastic-900-cart-object :init args))

Modified: trunk/EusLisp/models/hitachi-42-plasmatv-object.l
===================================================================
--- trunk/EusLisp/models/hitachi-42-plasmatv-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hitachi-42-plasmatv-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -117,9 +117,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 hitachi-42-plasmatv (&rest args) (instance* hitachi-42-plasmatv-object :init args))

Modified: trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l
===================================================================
--- trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 hitachi-fiesta-refrigerator (&rest args) (instance* hitachi-fiesta-refrigerator-object :init args))

Modified: trunk/EusLisp/models/hrp2-rack-object.l
===================================================================
--- trunk/EusLisp/models/hrp2-rack-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hrp2-rack-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -262,9 +262,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 hrp2-rack (&rest args) (instance* hrp2-rack-object :init args))

Modified: trunk/EusLisp/models/hrp2-shelf-object.l
===================================================================
--- trunk/EusLisp/models/hrp2-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hrp2-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -119,10 +119,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 hrp2-shelf (&rest args) (instance* hrp2-shelf-object :init args))

Modified: trunk/EusLisp/models/ideainternational-300-analog-clock-object.l
===================================================================
--- trunk/EusLisp/models/ideainternational-300-analog-clock-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/ideainternational-300-analog-clock-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -280,9 +280,9 @@
   (:hour-joint (&rest args) (forward-message-to joint0 args))
   (:minute-joint (&rest args) (forward-message-to joint1 args))
   (:second-joint (&rest args) (forward-message-to joint2 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 ideainternational-300-analog-clock (&rest args) (instance* ideainternational-300-analog-clock-object :init args))

Modified: trunk/EusLisp/models/iron-table-object.l
===================================================================
--- trunk/EusLisp/models/iron-table-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/iron-table-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -147,9 +147,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 iron-table (&rest args) (instance* iron-table-object :init args))

Modified: trunk/EusLisp/models/itoki-900-closet-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-closet-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-closet-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -156,10 +156,10 @@
 
   (:door-left (&rest args) (forward-message-to joint0 args))
   (:door-right (&rest args) (forward-message-to joint1 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 itoki-900-closet (&rest args) (instance* itoki-900-closet-object :init args))

Modified: trunk/EusLisp/models/itoki-900-shelf-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 itoki-900-shelf (&rest args) (instance* itoki-900-shelf-object :init args))

Modified: trunk/EusLisp/models/itoki-900-slide-shelf-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-slide-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-slide-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -239,10 +239,10 @@
   (:door0 (&rest args) (forward-message-to joint0 args))
   (:door1 (&rest args) (forward-message-to joint1 args))
   (:door2 (&rest args) (forward-message-to joint2 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 itoki-900-slide-shelf (&rest args) (instance* itoki-900-slide-shelf-object :init args))

Modified: trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l
===================================================================
--- trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -158,11 +158,11 @@
 
   (:door-upper-left (&rest args) (forward-message-to joint0 args))
   (:door-upper-right (&rest args) (forward-message-to joint1 args))
-  (:handle () (list  handle0 handle1))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:attention () (list ))
-  (: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 ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun karimoku-kannonbiraki-cabinet (&rest args) (instance* karimoku-kannonbiraki-cabinet-object :init args))

Modified: trunk/EusLisp/models/kettle-object.l
===================================================================
--- trunk/EusLisp/models/kettle-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kettle-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 kettle (&rest args) (instance* kettle-object :init args))

Modified: trunk/EusLisp/models/knife-object.l
===================================================================
--- trunk/EusLisp/models/knife-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/knife-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 knife (&rest args) (instance* knife-object :init args))

Modified: trunk/EusLisp/models/kokuyo-450-locker-object.l
===================================================================
--- trunk/EusLisp/models/kokuyo-450-locker-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kokuyo-450-locker-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 kokuyo-450-locker (&rest args) (instance* kokuyo-450-locker-object :init args))

Modified: trunk/EusLisp/models/kokuyo-600-sidetable-object.l
===================================================================
--- trunk/EusLisp/models/kokuyo-600-sidetable-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kokuyo-600-sidetable-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -80,9 +80,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 kokuyo-600-sidetable (&rest args) (instance* kokuyo-600-sidetable-object :init args))

Modified: trunk/EusLisp/models/laundry-machine-object.l
===================...
 
[truncated message content]

[Euslisp-commit] SF.net SVN: euslisp:[628] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:56:19

Revision: 628
          http://sourceforge.net/p/euslisp/code/628
Author:   snozawa
Date:     2013-05-01 04:56:08 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/3t-600-clean-locker-object.l
    trunk/EusLisp/models/akiba-door-object.l
    trunk/EusLisp/models/akiba-door-window-object.l
    trunk/EusLisp/models/akiba-room-door-object.l
    trunk/EusLisp/models/arrow-1000-object.l
    trunk/EusLisp/models/arrow-object.l
    trunk/EusLisp/models/askul-gdh-cupboard-object.l
    trunk/EusLisp/models/askul-ntr-cupboard-object.l
    trunk/EusLisp/models/asplund-cabinet-4dan-object.l
    trunk/EusLisp/models/asplund-cabinet-4danbase-object.l
    trunk/EusLisp/models/audio_shelf-object.l
    trunk/EusLisp/models/azuma-broom-object.l
    trunk/EusLisp/models/azuma-short-broom-object.l
    trunk/EusLisp/models/ball-object.l
    trunk/EusLisp/models/bamboo-broom-object.l
    trunk/EusLisp/models/bears-panel-object.l
    trunk/EusLisp/models/bidirectional-arrow-object.l
    trunk/EusLisp/models/book-object.l
    trunk/EusLisp/models/broom-object.l
    trunk/EusLisp/models/brown-board-object.l
    trunk/EusLisp/models/cardboard-box-object.l
    trunk/EusLisp/models/casio-330-analog-clock-object.l
    trunk/EusLisp/models/chair-object.l
    trunk/EusLisp/models/chessboard-10-3x3-object.l
    trunk/EusLisp/models/chessboard-108-9x7-object.l
    trunk/EusLisp/models/chessboard-30-6x5-object.l
    trunk/EusLisp/models/chessboard-30-7x5-object.l
    trunk/EusLisp/models/coe-1200-shelf-object.l
    trunk/EusLisp/models/coe-450-shelf-object.l
    trunk/EusLisp/models/coe-800-shelf-object.l
    trunk/EusLisp/models/coe-corner-shelf-object.l
    trunk/EusLisp/models/coe-demospace-object.l
    trunk/EusLisp/models/coe-light-object.l
    trunk/EusLisp/models/coe-sofa-object.l
    trunk/EusLisp/models/coe-sofa2-object.l
    trunk/EusLisp/models/coe-stairs-object.l
    trunk/EusLisp/models/coffee-cup-cup-object.l
    trunk/EusLisp/models/coffee-cup-saucer-object.l
    trunk/EusLisp/models/cup-object.l
    trunk/EusLisp/models/cupboard-object.l
    trunk/EusLisp/models/dining-table-object.l
    trunk/EusLisp/models/docomo-p504is-object.l
    trunk/EusLisp/models/door-object.l
    trunk/EusLisp/models/fridge-object.l
    trunk/EusLisp/models/frying-pan-object.l
    trunk/EusLisp/models/fujitsu-42-plasmatv-object.l
    trunk/EusLisp/models/gifuplastic-720-cart-object.l
    trunk/EusLisp/models/gifuplastic-900-cart-object.l
    trunk/EusLisp/models/hitachi-42-plasmatv-object.l
    trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l
    trunk/EusLisp/models/hrp2-rack-object.l
    trunk/EusLisp/models/hrp2-shelf-object.l
    trunk/EusLisp/models/ideainternational-300-analog-clock-object.l
    trunk/EusLisp/models/iron-table-object.l
    trunk/EusLisp/models/itoki-900-closet-object.l
    trunk/EusLisp/models/itoki-900-shelf-object.l
    trunk/EusLisp/models/itoki-900-slide-shelf-object.l
    trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l
    trunk/EusLisp/models/kettle-object.l
    trunk/EusLisp/models/knife-object.l
    trunk/EusLisp/models/kokuyo-450-locker-object.l
    trunk/EusLisp/models/kokuyo-600-sidetable-object.l
    trunk/EusLisp/models/laundry-machine-object.l
    trunk/EusLisp/models/maruman-55-analog-clock-object.l
    trunk/EusLisp/models/mug-cup-object.l
    trunk/EusLisp/models/multibox-shelf-object.l
    trunk/EusLisp/models/naiki-6door-closet-object.l
    trunk/EusLisp/models/petbottle-object.l
    trunk/EusLisp/models/picaladder-object.l
    trunk/EusLisp/models/plasmatv-object.l
    trunk/EusLisp/models/pockey-object.l
    trunk/EusLisp/models/red-chair0-object.l
    trunk/EusLisp/models/refrigerator-object.l
    trunk/EusLisp/models/sharp-52-aquostv-object.l
    trunk/EusLisp/models/sharp-iron-object.l
    trunk/EusLisp/models/shelf-object.l
    trunk/EusLisp/models/single-arrow-object.l
    trunk/EusLisp/models/sponge-object.l
    trunk/EusLisp/models/square-600-closet-object.l
    trunk/EusLisp/models/sushi-cup-object.l
    trunk/EusLisp/models/tognana-pasta-dish-object.l
    trunk/EusLisp/models/toshiba-clacio-refrigerator-object.l
    trunk/EusLisp/models/toshiba-iron-object.l
    trunk/EusLisp/models/toshiba-microwave-oven-object.l
    trunk/EusLisp/models/toyama-1800-sidetable-object.l
    trunk/EusLisp/models/toyama-900-sidetable-object.l
    trunk/EusLisp/models/trashbox-object.l
    trunk/EusLisp/models/tray-object.l
    trunk/EusLisp/models/uchida-monitor-leg-object.l
    trunk/EusLisp/models/uchida-shelf-1100-object.l
    trunk/EusLisp/models/uchida-shelf-1300-object.l
    trunk/EusLisp/models/washing-machine-object.l

Modified: trunk/EusLisp/models/3t-600-clean-locker-object.l
===================================================================
--- trunk/EusLisp/models/3t-600-clean-locker-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/3t-600-clean-locker-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -149,10 +149,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 3t-600-clean-locker (&rest args) (instance* 3t-600-clean-locker-object :init args))

Modified: trunk/EusLisp/models/akiba-door-object.l
===================================================================
--- trunk/EusLisp/models/akiba-door-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-door-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -249,12 +249,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 akiba-door (&rest args) (instance* akiba-door-object :init args))

Modified: trunk/EusLisp/models/akiba-door-window-object.l
===================================================================
--- trunk/EusLisp/models/akiba-door-window-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-door-window-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -94,9 +94,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 akiba-door-window (&rest args) (instance* akiba-door-window-object :init args))

Modified: trunk/EusLisp/models/akiba-room-door-object.l
===================================================================
--- trunk/EusLisp/models/akiba-room-door-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/akiba-room-door-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -269,12 +269,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 akiba-room-door (&rest args) (instance* akiba-room-door-object :init args))

Modified: trunk/EusLisp/models/arrow-1000-object.l
===================================================================
--- trunk/EusLisp/models/arrow-1000-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/arrow-1000-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -162,9 +162,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 arrow-1000 (&rest args) (instance* arrow-1000-object :init args))

Modified: trunk/EusLisp/models/arrow-object.l
===================================================================
--- trunk/EusLisp/models/arrow-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/arrow-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -162,9 +162,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 arrow (&rest args) (instance* arrow-object :init args))

Modified: trunk/EusLisp/models/askul-gdh-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/askul-gdh-cupboard-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/askul-gdh-cupboard-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 askul-gdh-cupboard (&rest args) (instance* askul-gdh-cupboard-object :init args))

Modified: trunk/EusLisp/models/askul-ntr-cupboard-object.l
===================================================================
--- trunk/EusLisp/models/askul-ntr-cupboard-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/askul-ntr-cupboard-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 askul-ntr-cupboard (&rest args) (instance* askul-ntr-cupboard-object :init args))

Modified: trunk/EusLisp/models/asplund-cabinet-4dan-object.l
===================================================================
--- trunk/EusLisp/models/asplund-cabinet-4dan-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/asplund-cabinet-4dan-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -467,10 +467,10 @@
   (:drawer1 (&rest args) (forward-message-to joint1 args))
   (:drawer2 (&rest args) (forward-message-to joint2 args))
   (:drawer3 (&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 asplund-cabinet-4dan (&rest args) (instance* asplund-cabinet-4dan-object :init args))

Modified: trunk/EusLisp/models/asplund-cabinet-4danbase-object.l
===================================================================
--- trunk/EusLisp/models/asplund-cabinet-4danbase-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/asplund-cabinet-4danbase-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -197,10 +197,10 @@
    (forward-message-to-all (list) args))
 
   (:drawer0 (&rest args) (forward-message-to joint0 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 asplund-cabinet-4danbase (&rest args) (instance* asplund-cabinet-4danbase-object :init args))

Modified: trunk/EusLisp/models/audio_shelf-object.l
===================================================================
--- trunk/EusLisp/models/audio_shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/audio_shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -264,10 +264,10 @@
   (:drawer3 (&rest args) (forward-message-to joint2 args))
   (:door-right (&rest args) (forward-message-to joint3 args))
   (:door-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 audio_shelf (&rest args) (instance* audio_shelf-object :init args))

Modified: trunk/EusLisp/models/azuma-broom-object.l
===================================================================
--- trunk/EusLisp/models/azuma-broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/azuma-broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 azuma-broom (&rest args) (instance* azuma-broom-object :init args))

Modified: trunk/EusLisp/models/azuma-short-broom-object.l
===================================================================
--- trunk/EusLisp/models/azuma-short-broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/azuma-short-broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 azuma-short-broom (&rest args) (instance* azuma-short-broom-object :init args))

Modified: trunk/EusLisp/models/ball-object.l
===================================================================
--- trunk/EusLisp/models/ball-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/ball-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -1330,10 +1330,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 ball (&rest args) (instance* ball-object :init args))

Modified: trunk/EusLisp/models/bamboo-broom-object.l
===================================================================
--- trunk/EusLisp/models/bamboo-broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bamboo-broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 bamboo-broom (&rest args) (instance* bamboo-broom-object :init args))

Modified: trunk/EusLisp/models/bears-panel-object.l
===================================================================
--- trunk/EusLisp/models/bears-panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bears-panel-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -127,9 +127,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 bears-panel (&rest args) (instance* bears-panel-object :init args))

Modified: trunk/EusLisp/models/bidirectional-arrow-object.l
===================================================================
--- trunk/EusLisp/models/bidirectional-arrow-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/bidirectional-arrow-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -99,9 +99,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 bidirectional-arrow (&rest args) (instance* bidirectional-arrow-object :init args))

Modified: trunk/EusLisp/models/book-object.l
===================================================================
--- trunk/EusLisp/models/book-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/book-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -78,13 +78,13 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:handle-handle2 () handle2)
-  (:handle-handle3 () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) 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))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun book (&rest args) (instance* book-object :init args))

Modified: trunk/EusLisp/models/broom-object.l
===================================================================
--- trunk/EusLisp/models/broom-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/broom-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 broom (&rest args) (instance* broom-object :init args))

Modified: trunk/EusLisp/models/brown-board-object.l
===================================================================
--- trunk/EusLisp/models/brown-board-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/brown-board-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -227,10 +227,10 @@
   (:drawer0 (&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))
-  (: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 brown-board (&rest args) (instance* brown-board-object :init args))

Modified: trunk/EusLisp/models/cardboard-box-object.l
===================================================================
--- trunk/EusLisp/models/cardboard-box-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cardboard-box-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -51,9 +51,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 cardboard-box (&rest args) (instance* cardboard-box-object :init args))

Modified: trunk/EusLisp/models/casio-330-analog-clock-object.l
===================================================================
--- trunk/EusLisp/models/casio-330-analog-clock-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/casio-330-analog-clock-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -280,9 +280,9 @@
   (:hour-joint (&rest args) (forward-message-to joint0 args))
   (:minute-joint (&rest args) (forward-message-to joint1 args))
   (:second-joint (&rest args) (forward-message-to joint2 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 casio-330-analog-clock (&rest args) (instance* casio-330-analog-clock-object :init args))

Modified: trunk/EusLisp/models/chair-object.l
===================================================================
--- trunk/EusLisp/models/chair-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chair-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 chair (&rest args) (instance* chair-object :init args))

Modified: trunk/EusLisp/models/chessboard-10-3x3-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-10-3x3-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-10-3x3-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -137,10 +137,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-10-3x3 (&rest args) (instance* chessboard-10-3x3-object :init args))

Modified: trunk/EusLisp/models/chessboard-108-9x7-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-108-9x7-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-108-9x7-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -623,10 +623,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-108-9x7 (&rest args) (instance* chessboard-108-9x7-object :init args))

Modified: trunk/EusLisp/models/chessboard-30-6x5-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-30-6x5-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-30-6x5-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -326,10 +326,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-30-6x5 (&rest args) (instance* chessboard-30-6x5-object :init args))

Modified: trunk/EusLisp/models/chessboard-30-7x5-object.l
===================================================================
--- trunk/EusLisp/models/chessboard-30-7x5-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/chessboard-30-7x5-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -371,10 +371,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-origin () attention0)
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-origin (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun chessboard-30-7x5 (&rest args) (instance* chessboard-30-7x5-object :init args))

Modified: trunk/EusLisp/models/coe-1200-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-1200-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-1200-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-1200-shelf (&rest args) (instance* coe-1200-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-450-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-450-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-450-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-450-shelf (&rest args) (instance* coe-450-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-800-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-800-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-800-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-800-shelf (&rest args) (instance* coe-800-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-corner-shelf-object.l
===================================================================
--- trunk/EusLisp/models/coe-corner-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-corner-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 coe-corner-shelf (&rest args) (instance* coe-corner-shelf-object :init args))

Modified: trunk/EusLisp/models/coe-demospace-object.l
===================================================================
--- trunk/EusLisp/models/coe-demospace-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-demospace-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -523,9 +523,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 coe-demospace (&rest args) (instance* coe-demospace-object :init args))

Modified: trunk/EusLisp/models/coe-light-object.l
===================================================================
--- trunk/EusLisp/models/coe-light-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-light-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -98,9 +98,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 coe-light (&rest args) (instance* coe-light-object :init args))

Modified: trunk/EusLisp/models/coe-sofa-object.l
===================================================================
--- trunk/EusLisp/models/coe-sofa-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-sofa-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -188,9 +188,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 coe-sofa (&rest args) (instance* coe-sofa-object :init args))

Modified: trunk/EusLisp/models/coe-sofa2-object.l
===================================================================
--- trunk/EusLisp/models/coe-sofa2-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-sofa2-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -188,9 +188,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 coe-sofa2 (&rest args) (instance* coe-sofa2-object :init args))

Modified: trunk/EusLisp/models/coe-stairs-object.l
===================================================================
--- trunk/EusLisp/models/coe-stairs-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coe-stairs-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -61,9 +61,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 coe-stairs (&rest args) (instance* coe-stairs-object :init args))

Modified: trunk/EusLisp/models/coffee-cup-cup-object.l
===================================================================
--- trunk/EusLisp/models/coffee-cup-cup-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coffee-cup-cup-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -570,10 +570,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 coffee-cup-cup (&rest args) (instance* coffee-cup-cup-object :init args))

Modified: trunk/EusLisp/models/coffee-cup-saucer-object.l
===================================================================
--- trunk/EusLisp/models/coffee-cup-saucer-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/coffee-cup-saucer-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -699,13 +699,13 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:handle-handle2 () handle2)
-  (:handle-handle3 () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) 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))
+  (:attention (&rest args) (forward-message-to-all (list ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun coffee-cup-saucer (&rest args) (instance* coffee-cup-saucer-object :init args))

Modified: trunk/EusLisp/models/cup-object.l
===================================================================
--- trunk/EusLisp/models/cup-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cup-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 cup (&rest args) (instance* cup-object :init args))

Modified: trunk/EusLisp/models/cupboard-object.l
===================================================================
--- trunk/EusLisp/models/cupboard-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/cupboard-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -401,10 +401,10 @@
   (:drawer4 (&rest args) (forward-message-to joint4 args))
   (:door-upper-right (&rest args) (forward-message-to joint5 args))
   (:door-upper-left (&rest args) (forward-message-to joint6 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 cupboard (&rest args) (instance* cupboard-object :init args))

Modified: trunk/EusLisp/models/dining-table-object.l
===================================================================
--- trunk/EusLisp/models/dining-table-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/dining-table-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 dining-table (&rest args) (instance* dining-table-object :init args))

Modified: trunk/EusLisp/models/docomo-p504is-object.l
===================================================================
--- trunk/EusLisp/models/docomo-p504is-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/docomo-p504is-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -102,9 +102,9 @@
    (forward-message-to-all (list) args))
 
   (:base-joint (&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 docomo-p504is (&rest args) (instance* docomo-p504is-object :init args))

Modified: trunk/EusLisp/models/door-object.l
===================================================================
--- trunk/EusLisp/models/door-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/door-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 door (&rest args) (instance* door-object :init args))

Modified: trunk/EusLisp/models/fridge-object.l
===================================================================
--- trunk/EusLisp/models/fridge-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/fridge-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -311,11 +311,11 @@
   (:drawer-middle-left (&rest args) (forward-message-to joint3 args))
   (:drawer-lower1 (&rest args) (forward-message-to joint4 args))
   (:drawer-lower2 (&rest args) (forward-message-to joint5 args))
-  (:handle () (list  handle0 handle1))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:attention () (list ))
-  (: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 ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun fridge (&rest args) (instance* fridge-object :init args))

Modified: trunk/EusLisp/models/frying-pan-object.l
===================================================================
--- trunk/EusLisp/models/frying-pan-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/frying-pan-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -101,10 +101,10 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0))
-  (:handle-grip () handle0)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0) args))
+  (:handle-grip (&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 frying-pan (&rest args) (instance* frying-pan-object :init args))

Modified: trunk/EusLisp/models/fujitsu-42-plasmatv-object.l
===================================================================
--- trunk/EusLisp/models/fujitsu-42-plasmatv-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/fujitsu-42-plasmatv-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -329,9 +329,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 fujitsu-42-plasmatv (&rest args) (instance* fujitsu-42-plasmatv-object :init args))

Modified: trunk/EusLisp/models/gifuplastic-720-cart-object.l
===================================================================
--- trunk/EusLisp/models/gifuplastic-720-cart-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/gifuplastic-720-cart-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 gifuplastic-720-cart (&rest args) (instance* gifuplastic-720-cart-object :init args))

Modified: trunk/EusLisp/models/gifuplastic-900-cart-object.l
===================================================================
--- trunk/EusLisp/models/gifuplastic-900-cart-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/gifuplastic-900-cart-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 gifuplastic-900-cart (&rest args) (instance* gifuplastic-900-cart-object :init args))

Modified: trunk/EusLisp/models/hitachi-42-plasmatv-object.l
===================================================================
--- trunk/EusLisp/models/hitachi-42-plasmatv-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hitachi-42-plasmatv-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -117,9 +117,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 hitachi-42-plasmatv (&rest args) (instance* hitachi-42-plasmatv-object :init args))

Modified: trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l
===================================================================
--- trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hitachi-fiesta-refrigerator-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 hitachi-fiesta-refrigerator (&rest args) (instance* hitachi-fiesta-refrigerator-object :init args))

Modified: trunk/EusLisp/models/hrp2-rack-object.l
===================================================================
--- trunk/EusLisp/models/hrp2-rack-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hrp2-rack-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -262,9 +262,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 hrp2-rack (&rest args) (instance* hrp2-rack-object :init args))

Modified: trunk/EusLisp/models/hrp2-shelf-object.l
===================================================================
--- trunk/EusLisp/models/hrp2-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/hrp2-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -119,10 +119,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 hrp2-shelf (&rest args) (instance* hrp2-shelf-object :init args))

Modified: trunk/EusLisp/models/ideainternational-300-analog-clock-object.l
===================================================================
--- trunk/EusLisp/models/ideainternational-300-analog-clock-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/ideainternational-300-analog-clock-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -280,9 +280,9 @@
   (:hour-joint (&rest args) (forward-message-to joint0 args))
   (:minute-joint (&rest args) (forward-message-to joint1 args))
   (:second-joint (&rest args) (forward-message-to joint2 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 ideainternational-300-analog-clock (&rest args) (instance* ideainternational-300-analog-clock-object :init args))

Modified: trunk/EusLisp/models/iron-table-object.l
===================================================================
--- trunk/EusLisp/models/iron-table-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/iron-table-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -147,9 +147,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 iron-table (&rest args) (instance* iron-table-object :init args))

Modified: trunk/EusLisp/models/itoki-900-closet-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-closet-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-closet-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -156,10 +156,10 @@
 
   (:door-left (&rest args) (forward-message-to joint0 args))
   (:door-right (&rest args) (forward-message-to joint1 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 itoki-900-closet (&rest args) (instance* itoki-900-closet-object :init args))

Modified: trunk/EusLisp/models/itoki-900-shelf-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 itoki-900-shelf (&rest args) (instance* itoki-900-shelf-object :init args))

Modified: trunk/EusLisp/models/itoki-900-slide-shelf-object.l
===================================================================
--- trunk/EusLisp/models/itoki-900-slide-shelf-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/itoki-900-slide-shelf-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -239,10 +239,10 @@
   (:door0 (&rest args) (forward-message-to joint0 args))
   (:door1 (&rest args) (forward-message-to joint1 args))
   (:door2 (&rest args) (forward-message-to joint2 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 itoki-900-slide-shelf (&rest args) (instance* itoki-900-slide-shelf-object :init args))

Modified: trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l
===================================================================
--- trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/karimoku-kannonbiraki-cabinet-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -158,11 +158,11 @@
 
   (:door-upper-left (&rest args) (forward-message-to joint0 args))
   (:door-upper-right (&rest args) (forward-message-to joint1 args))
-  (:handle () (list  handle0 handle1))
-  (:handle-handle0 () handle0)
-  (:handle-handle1 () handle1)
-  (:attention () (list ))
-  (: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 ) args))
+  (:button (&rest args) (forward-message-to-all (list ) args))
   )
 
 (defun karimoku-kannonbiraki-cabinet (&rest args) (instance* karimoku-kannonbiraki-cabinet-object :init args))

Modified: trunk/EusLisp/models/kettle-object.l
===================================================================
--- trunk/EusLisp/models/kettle-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kettle-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 kettle (&rest args) (instance* kettle-object :init args))

Modified: trunk/EusLisp/models/knife-object.l
===================================================================
--- trunk/EusLisp/models/knife-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/knife-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 knife (&rest args) (instance* knife-object :init args))

Modified: trunk/EusLisp/models/kokuyo-450-locker-object.l
===================================================================
--- trunk/EusLisp/models/kokuyo-450-locker-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kokuyo-450-locker-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -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 kokuyo-450-locker (&rest args) (instance* kokuyo-450-locker-object :init args))

Modified: trunk/EusLisp/models/kokuyo-600-sidetable-object.l
===================================================================
--- trunk/EusLisp/models/kokuyo-600-sidetable-object.l	2013-05-01 04:52:34 UTC (rev 627)
+++ trunk/EusLisp/models/kokuyo-600-sidetable-object.l	2013-05-01 04:56:08 UTC (rev 628)
@@ -80,9 +80,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 kokuyo-600-sidetable (&rest args) (instance* kokuyo-600-sidetable-object :init args))

Modified: trunk/EusLisp/models/laundry-machine-object.l
===================...
 
[truncated message content]

[Euslisp-commit] SF.net SVN: euslisp:[627] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:52:44

Revision: 627
          http://sourceforge.net/p/euslisp/code/627
Author:   snozawa
Date:     2013-05-01 04:52:34 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/bariera-1200-corner-object.l
    trunk/EusLisp/models/bariera-1200-middle-object.l
    trunk/EusLisp/models/bariera-1200-middle2-object.l
    trunk/EusLisp/models/bariera-1200-middle3-object.l
    trunk/EusLisp/models/bariera-1200-right-object.l
    trunk/EusLisp/models/bariera-1400-middle-object.l
    trunk/EusLisp/models/bariera-900-left-object.l
    trunk/EusLisp/models/bariera-900-middle-object.l
    trunk/EusLisp/models/elevator_call_panel-object.l
    trunk/EusLisp/models/elevator_call_panel_eng2-object.l
    trunk/EusLisp/models/elevator_inside_panel-object.l
    trunk/EusLisp/models/elevator_inside_panel_eng2-object.l

Modified: trunk/EusLisp/models/bariera-1200-corner-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-corner-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-corner-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-corner (&rest args) (instance* bariera-1200-corner-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-middle (&rest args) (instance* bariera-1200-middle-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-middle2 (&rest args) (instance* bariera-1200-middle2-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle3-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle3-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle3-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-middle3 (&rest args) (instance* bariera-1200-middle3-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-right-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-right-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-right-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-right (&rest args) (instance* bariera-1200-right-object :init args))

Modified: trunk/EusLisp/models/bariera-1400-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1400-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1400-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1400-middle (&rest args) (instance* bariera-1400-middle-object :init args))

Modified: trunk/EusLisp/models/bariera-900-left-object.l
===================================================================
--- trunk/EusLisp/models/bariera-900-left-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-900-left-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-900-left (&rest args) (instance* bariera-900-left-object :init args))

Modified: trunk/EusLisp/models/bariera-900-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-900-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-900-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-900-middle (&rest args) (instance* bariera-900-middle-object :init args))

Modified: trunk/EusLisp/models/elevator_call_panel-object.l
===================================================================
--- trunk/EusLisp/models/elevator_call_panel-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_call_panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -60,11 +60,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list  button0 button1))
-  (:button-down () button0)
-  (:button-up () button1)
+  (: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  button0 button1) args))
+  (:button-down (&rest args) (forward-message-to button0 args))
+  (:button-up (&rest args) (forward-message-to button1 args))
   )
 
 (defun elevator_call_panel (&rest args) (instance* elevator_call_panel-object :init args))

Modified: trunk/EusLisp/models/elevator_call_panel_eng2-object.l
===================================================================
--- trunk/EusLisp/models/elevator_call_panel_eng2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_call_panel_eng2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -60,11 +60,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list  button0 button1))
-  (:button-down () button0)
-  (:button-up () button1)
+  (: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  button0 button1) args))
+  (:button-down (&rest args) (forward-message-to button0 args))
+  (:button-up (&rest args) (forward-message-to button1 args))
   )
 
 (defun elevator_call_panel_eng2 (&rest args) (instance* elevator_call_panel_eng2-object :init args))

Modified: trunk/EusLisp/models/elevator_inside_panel-object.l
===================================================================
--- trunk/EusLisp/models/elevator_inside_panel-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_inside_panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -83,21 +83,21 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-/elevator_number () attention0)
-  (:button () (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10))
-  (:button-close () button0)
-  (:button-open () button1)
-  (:button-7F () button2)
-  (:button-6F () button3)
-  (:button-5F () button4)
-  (:button-4F () button5)
-  (:button-3F () button6)
-  (:button-2F () button7)
-  (:button-1F () button8)
-  (:button-B1F () button9)
-  (:button-B2F () button10)
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-/elevator_number (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10) args))
+  (:button-close (&rest args) (forward-message-to button0 args))
+  (:button-open (&rest args) (forward-message-to button1 args))
+  (:button-7F (&rest args) (forward-message-to button2 args))
+  (:button-6F (&rest args) (forward-message-to button3 args))
+  (:button-5F (&rest args) (forward-message-to button4 args))
+  (:button-4F (&rest args) (forward-message-to button5 args))
+  (:button-3F (&rest args) (forward-message-to button6 args))
+  (:button-2F (&rest args) (forward-message-to button7 args))
+  (:button-1F (&rest args) (forward-message-to button8 args))
+  (:button-B1F (&rest args) (forward-message-to button9 args))
+  (:button-B2F (&rest args) (forward-message-to button10 args))
   )
 
 (defun elevator_inside_panel (&rest args) (instance* elevator_inside_panel-object :init args))

Modified: trunk/EusLisp/models/elevator_inside_panel_eng2-object.l
===================================================================
--- trunk/EusLisp/models/elevator_inside_panel_eng2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_inside_panel_eng2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -91,25 +91,25 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-/elevator_number () attention0)
-  (:button () (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10 button11 button12 button13 button14))
-  (:button-close () button0)
-  (:button-open () button1)
-  (:button-12F () button2)
-  (:button-11F () button3)
-  (:button-10F () button4)
-  (:button-9F () button5)
-  (:button-8F () button6)
-  (:button-7F () button7)
-  (:button-6F () button8)
-  (:button-5F () button9)
-  (:button-4F () button10)
-  (:button-3F () button11)
-  (:button-2F () button12)
-  (:button-1F () button13)
-  (:button-B1F () button14)
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-/elevator_number (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10 button11 button12 button13 button14) args))
+  (:button-close (&rest args) (forward-message-to button0 args))
+  (:button-open (&rest args) (forward-message-to button1 args))
+  (:button-12F (&rest args) (forward-message-to button2 args))
+  (:button-11F (&rest args) (forward-message-to button3 args))
+  (:button-10F (&rest args) (forward-message-to button4 args))
+  (:button-9F (&rest args) (forward-message-to button5 args))
+  (:button-8F (&rest args) (forward-message-to button6 args))
+  (:button-7F (&rest args) (forward-message-to button7 args))
+  (:button-6F (&rest args) (forward-message-to button8 args))
+  (:button-5F (&rest args) (forward-message-to button9 args))
+  (:button-4F (&rest args) (forward-message-to button10 args))
+  (:button-3F (&rest args) (forward-message-to button11 args))
+  (:button-2F (&rest args) (forward-message-to button12 args))
+  (:button-1F (&rest args) (forward-message-to button13 args))
+  (:button-B1F (&rest args) (forward-message-to button14 args))
   )
 
 (defun elevator_inside_panel_eng2 (&rest args) (instance* elevator_inside_panel_eng2-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[627] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:52:41

Revision: 627
          http://sourceforge.net/p/euslisp/code/627
Author:   snozawa
Date:     2013-05-01 04:52:34 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/bariera-1200-corner-object.l
    trunk/EusLisp/models/bariera-1200-middle-object.l
    trunk/EusLisp/models/bariera-1200-middle2-object.l
    trunk/EusLisp/models/bariera-1200-middle3-object.l
    trunk/EusLisp/models/bariera-1200-right-object.l
    trunk/EusLisp/models/bariera-1400-middle-object.l
    trunk/EusLisp/models/bariera-900-left-object.l
    trunk/EusLisp/models/bariera-900-middle-object.l
    trunk/EusLisp/models/elevator_call_panel-object.l
    trunk/EusLisp/models/elevator_call_panel_eng2-object.l
    trunk/EusLisp/models/elevator_inside_panel-object.l
    trunk/EusLisp/models/elevator_inside_panel_eng2-object.l

Modified: trunk/EusLisp/models/bariera-1200-corner-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-corner-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-corner-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-corner (&rest args) (instance* bariera-1200-corner-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-middle (&rest args) (instance* bariera-1200-middle-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle2-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-middle2 (&rest args) (instance* bariera-1200-middle2-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-middle3-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-middle3-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-middle3-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-middle3 (&rest args) (instance* bariera-1200-middle3-object :init args))

Modified: trunk/EusLisp/models/bariera-1200-right-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1200-right-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1200-right-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1200-right (&rest args) (instance* bariera-1200-right-object :init args))

Modified: trunk/EusLisp/models/bariera-1400-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-1400-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-1400-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-1400-middle (&rest args) (instance* bariera-1400-middle-object :init args))

Modified: trunk/EusLisp/models/bariera-900-left-object.l
===================================================================
--- trunk/EusLisp/models/bariera-900-left-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-900-left-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-900-left (&rest args) (instance* bariera-900-left-object :init args))

Modified: trunk/EusLisp/models/bariera-900-middle-object.l
===================================================================
--- trunk/EusLisp/models/bariera-900-middle-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/bariera-900-middle-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -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 bariera-900-middle (&rest args) (instance* bariera-900-middle-object :init args))

Modified: trunk/EusLisp/models/elevator_call_panel-object.l
===================================================================
--- trunk/EusLisp/models/elevator_call_panel-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_call_panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -60,11 +60,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list  button0 button1))
-  (:button-down () button0)
-  (:button-up () button1)
+  (: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  button0 button1) args))
+  (:button-down (&rest args) (forward-message-to button0 args))
+  (:button-up (&rest args) (forward-message-to button1 args))
   )
 
 (defun elevator_call_panel (&rest args) (instance* elevator_call_panel-object :init args))

Modified: trunk/EusLisp/models/elevator_call_panel_eng2-object.l
===================================================================
--- trunk/EusLisp/models/elevator_call_panel_eng2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_call_panel_eng2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -60,11 +60,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list ))
-  (:button () (list  button0 button1))
-  (:button-down () button0)
-  (:button-up () button1)
+  (: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  button0 button1) args))
+  (:button-down (&rest args) (forward-message-to button0 args))
+  (:button-up (&rest args) (forward-message-to button1 args))
   )
 
 (defun elevator_call_panel_eng2 (&rest args) (instance* elevator_call_panel_eng2-object :init args))

Modified: trunk/EusLisp/models/elevator_inside_panel-object.l
===================================================================
--- trunk/EusLisp/models/elevator_inside_panel-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_inside_panel-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -83,21 +83,21 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-/elevator_number () attention0)
-  (:button () (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10))
-  (:button-close () button0)
-  (:button-open () button1)
-  (:button-7F () button2)
-  (:button-6F () button3)
-  (:button-5F () button4)
-  (:button-4F () button5)
-  (:button-3F () button6)
-  (:button-2F () button7)
-  (:button-1F () button8)
-  (:button-B1F () button9)
-  (:button-B2F () button10)
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-/elevator_number (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10) args))
+  (:button-close (&rest args) (forward-message-to button0 args))
+  (:button-open (&rest args) (forward-message-to button1 args))
+  (:button-7F (&rest args) (forward-message-to button2 args))
+  (:button-6F (&rest args) (forward-message-to button3 args))
+  (:button-5F (&rest args) (forward-message-to button4 args))
+  (:button-4F (&rest args) (forward-message-to button5 args))
+  (:button-3F (&rest args) (forward-message-to button6 args))
+  (:button-2F (&rest args) (forward-message-to button7 args))
+  (:button-1F (&rest args) (forward-message-to button8 args))
+  (:button-B1F (&rest args) (forward-message-to button9 args))
+  (:button-B2F (&rest args) (forward-message-to button10 args))
   )
 
 (defun elevator_inside_panel (&rest args) (instance* elevator_inside_panel-object :init args))

Modified: trunk/EusLisp/models/elevator_inside_panel_eng2-object.l
===================================================================
--- trunk/EusLisp/models/elevator_inside_panel_eng2-object.l	2013-05-01 04:51:09 UTC (rev 626)
+++ trunk/EusLisp/models/elevator_inside_panel_eng2-object.l	2013-05-01 04:52:34 UTC (rev 627)
@@ -91,25 +91,25 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list ))
-  (:attention () (list  attention0))
-  (:attention-/elevator_number () attention0)
-  (:button () (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10 button11 button12 button13 button14))
-  (:button-close () button0)
-  (:button-open () button1)
-  (:button-12F () button2)
-  (:button-11F () button3)
-  (:button-10F () button4)
-  (:button-9F () button5)
-  (:button-8F () button6)
-  (:button-7F () button7)
-  (:button-6F () button8)
-  (:button-5F () button9)
-  (:button-4F () button10)
-  (:button-3F () button11)
-  (:button-2F () button12)
-  (:button-1F () button13)
-  (:button-B1F () button14)
+  (:handle (&rest args) (forward-message-to-all (list ) args))
+  (:attention (&rest args) (forward-message-to-all (list  attention0) args))
+  (:attention-/elevator_number (&rest args) (forward-message-to attention0 args))
+  (:button (&rest args) (forward-message-to-all (list  button0 button1 button2 button3 button4 button5 button6 button7 button8 button9 button10 button11 button12 button13 button14) args))
+  (:button-close (&rest args) (forward-message-to button0 args))
+  (:button-open (&rest args) (forward-message-to button1 args))
+  (:button-12F (&rest args) (forward-message-to button2 args))
+  (:button-11F (&rest args) (forward-message-to button3 args))
+  (:button-10F (&rest args) (forward-message-to button4 args))
+  (:button-9F (&rest args) (forward-message-to button5 args))
+  (:button-8F (&rest args) (forward-message-to button6 args))
+  (:button-7F (&rest args) (forward-message-to button7 args))
+  (:button-6F (&rest args) (forward-message-to button8 args))
+  (:button-5F (&rest args) (forward-message-to button9 args))
+  (:button-4F (&rest args) (forward-message-to button10 args))
+  (:button-3F (&rest args) (forward-message-to button11 args))
+  (:button-2F (&rest args) (forward-message-to button12 args))
+  (:button-1F (&rest args) (forward-message-to button13 args))
+  (:button-B1F (&rest args) (forward-message-to button14 args))
   )
 
 (defun elevator_inside_panel_eng2 (&rest args) (instance* elevator_inside_panel_eng2-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[626] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:51:22

Revision: 626
          http://sourceforge.net/p/euslisp/code/626
Author:   snozawa
Date:     2013-05-01 04:51:09 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/akiba-desk-object.l
    trunk/EusLisp/models/akiba-tv-desk-object.l
    trunk/EusLisp/models/askul-1200-desk-object.l
    trunk/EusLisp/models/askul-1200x700-desk-object.l
    trunk/EusLisp/models/askul-1400-desk-object.l
    trunk/EusLisp/models/askul-1600-desk-object.l
    trunk/EusLisp/models/askul-2700-desk-object.l
    trunk/EusLisp/models/askul-corner-desk-object.l
    trunk/EusLisp/models/foldable-desk-object.l
    trunk/EusLisp/models/karimoku-1200-desk-object.l
    trunk/EusLisp/models/lion-1800-desk-object.l
    trunk/EusLisp/models/nissen-1100-desk-object.l
    trunk/EusLisp/models/plus-1700-desk-object.l
    trunk/EusLisp/models/plus-1800-desk-object.l
    trunk/EusLisp/models/plus-1800-pdesk-object.l
    trunk/EusLisp/models/plus-1800w-desk-object.l
    trunk/EusLisp/models/plus-2800-desk-object.l
    trunk/EusLisp/models/plus-6200-desk-object.l
    trunk/EusLisp/models/plus-7000-desk-object.l
    trunk/EusLisp/models/plus-900-square-desk-object.l
    trunk/EusLisp/models/sakae-900-desk-object.l
    trunk/EusLisp/models/toyama-900-desk-object.l
    trunk/EusLisp/models/uchida-1000-desk-object.l
    trunk/EusLisp/models/uchida-1500-desk-object.l
    trunk/EusLisp/models/uchida-1800-desk-object.l
    trunk/EusLisp/models/uchida-2400-desk-object.l
    trunk/EusLisp/models/uchida-desk-object.l
    trunk/EusLisp/models/unknown-1200-desk-object.l

Modified: trunk/EusLisp/models/akiba-desk-object.l
===================================================================
--- trunk/EusLisp/models/akiba-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/akiba-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -164,9 +164,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 akiba-desk (&rest args) (instance* akiba-desk-object :init args))

Modified: trunk/EusLisp/models/akiba-tv-desk-object.l
===================================================================
--- trunk/EusLisp/models/akiba-tv-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/akiba-tv-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -173,9 +173,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 akiba-tv-desk (&rest args) (instance* akiba-tv-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1200-desk (&rest args) (instance* askul-1200-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1200x700-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1200x700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1200x700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1200x700-desk (&rest args) (instance* askul-1200x700-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1400-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1400-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1400-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1400-desk (&rest args) (instance* askul-1400-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1600-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1600-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1600-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1600-desk (&rest args) (instance* askul-1600-desk-object :init args))

Modified: trunk/EusLisp/models/askul-2700-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-2700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-2700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-2700-desk (&rest args) (instance* askul-2700-desk-object :init args))

Modified: trunk/EusLisp/models/askul-corner-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-corner-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-corner-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-corner-desk (&rest args) (instance* askul-corner-desk-object :init args))

Modified: trunk/EusLisp/models/foldable-desk-object.l
===================================================================
--- trunk/EusLisp/models/foldable-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/foldable-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 foldable-desk (&rest args) (instance* foldable-desk-object :init args))

Modified: trunk/EusLisp/models/karimoku-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/karimoku-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/karimoku-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -87,9 +87,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 karimoku-1200-desk (&rest args) (instance* karimoku-1200-desk-object :init args))

Modified: trunk/EusLisp/models/lion-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/lion-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/lion-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -141,9 +141,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 lion-1800-desk (&rest args) (instance* lion-1800-desk-object :init args))

Modified: trunk/EusLisp/models/nissen-1100-desk-object.l
===================================================================
--- trunk/EusLisp/models/nissen-1100-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/nissen-1100-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -205,9 +205,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 nissen-1100-desk (&rest args) (instance* nissen-1100-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1700-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-1700-desk (&rest args) (instance* plus-1700-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-1800-desk (&rest args) (instance* plus-1800-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1800-pdesk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800-pdesk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800-pdesk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -78,9 +78,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 plus-1800-pdesk (&rest args) (instance* plus-1800-pdesk-object :init args))

Modified: trunk/EusLisp/models/plus-1800w-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800w-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800w-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-1800w-desk (&rest args) (instance* plus-1800w-desk-object :init args))

Modified: trunk/EusLisp/models/plus-2800-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-2800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-2800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -130,13 +130,13 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-handle-l () handle0)
-  (:handle-handle-r () handle1)
-  (:handle-handle-l () handle2)
-  (:handle-handle-r () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) args))
+  (:handle-handle-l (&rest args) (forward-message-to handle0 args))
+  (:handle-handle-r (&rest args) (forward-message-to handle1 args))
+  (:handle-handle-l (&rest args) (forward-message-to handle2 args))
+  (:handle-handle-r (&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 plus-2800-desk (&rest args) (instance* plus-2800-desk-object :init args))

Modified: trunk/EusLisp/models/plus-6200-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-6200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-6200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-6200-desk (&rest args) (instance* plus-6200-desk-object :init args))

Modified: trunk/EusLisp/models/plus-7000-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-7000-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-7000-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-7000-desk (&rest args) (instance* plus-7000-desk-object :init args))

Modified: trunk/EusLisp/models/plus-900-square-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-900-square-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-900-square-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -93,11 +93,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-handle-l () handle0)
-  (:handle-handle-r () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-handle-l (&rest args) (forward-message-to handle0 args))
+  (:handle-handle-r (&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 plus-900-square-desk (&rest args) (instance* plus-900-square-desk-object :init args))

Modified: trunk/EusLisp/models/sakae-900-desk-object.l
===================================================================
--- trunk/EusLisp/models/sakae-900-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/sakae-900-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -216,9 +216,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 sakae-900-desk (&rest args) (instance* sakae-900-desk-object :init args))

Modified: trunk/EusLisp/models/toyama-900-desk-object.l
===================================================================
--- trunk/EusLisp/models/toyama-900-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/toyama-900-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 toyama-900-desk (&rest args) (instance* toyama-900-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1000-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1000-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1000-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -123,9 +123,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 uchida-1000-desk (&rest args) (instance* uchida-1000-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1500-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1500-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1500-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 uchida-1500-desk (&rest args) (instance* uchida-1500-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -390,9 +390,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 uchida-1800-desk (&rest args) (instance* uchida-1800-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-2400-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-2400-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-2400-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -512,9 +512,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 uchida-2400-desk (&rest args) (instance* uchida-2400-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -105,9 +105,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 uchida-desk (&rest args) (instance* uchida-desk-object :init args))

Modified: trunk/EusLisp/models/unknown-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/unknown-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/unknown-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -96,9 +96,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 unknown-1200-desk (&rest args) (instance* unknown-1200-desk-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[626] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:51:20

Revision: 626
          http://sourceforge.net/p/euslisp/code/626
Author:   snozawa
Date:     2013-05-01 04:51:09 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/akiba-desk-object.l
    trunk/EusLisp/models/akiba-tv-desk-object.l
    trunk/EusLisp/models/askul-1200-desk-object.l
    trunk/EusLisp/models/askul-1200x700-desk-object.l
    trunk/EusLisp/models/askul-1400-desk-object.l
    trunk/EusLisp/models/askul-1600-desk-object.l
    trunk/EusLisp/models/askul-2700-desk-object.l
    trunk/EusLisp/models/askul-corner-desk-object.l
    trunk/EusLisp/models/foldable-desk-object.l
    trunk/EusLisp/models/karimoku-1200-desk-object.l
    trunk/EusLisp/models/lion-1800-desk-object.l
    trunk/EusLisp/models/nissen-1100-desk-object.l
    trunk/EusLisp/models/plus-1700-desk-object.l
    trunk/EusLisp/models/plus-1800-desk-object.l
    trunk/EusLisp/models/plus-1800-pdesk-object.l
    trunk/EusLisp/models/plus-1800w-desk-object.l
    trunk/EusLisp/models/plus-2800-desk-object.l
    trunk/EusLisp/models/plus-6200-desk-object.l
    trunk/EusLisp/models/plus-7000-desk-object.l
    trunk/EusLisp/models/plus-900-square-desk-object.l
    trunk/EusLisp/models/sakae-900-desk-object.l
    trunk/EusLisp/models/toyama-900-desk-object.l
    trunk/EusLisp/models/uchida-1000-desk-object.l
    trunk/EusLisp/models/uchida-1500-desk-object.l
    trunk/EusLisp/models/uchida-1800-desk-object.l
    trunk/EusLisp/models/uchida-2400-desk-object.l
    trunk/EusLisp/models/uchida-desk-object.l
    trunk/EusLisp/models/unknown-1200-desk-object.l

Modified: trunk/EusLisp/models/akiba-desk-object.l
===================================================================
--- trunk/EusLisp/models/akiba-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/akiba-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -164,9 +164,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 akiba-desk (&rest args) (instance* akiba-desk-object :init args))

Modified: trunk/EusLisp/models/akiba-tv-desk-object.l
===================================================================
--- trunk/EusLisp/models/akiba-tv-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/akiba-tv-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -173,9 +173,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 akiba-tv-desk (&rest args) (instance* akiba-tv-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1200-desk (&rest args) (instance* askul-1200-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1200x700-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1200x700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1200x700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1200x700-desk (&rest args) (instance* askul-1200x700-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1400-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1400-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1400-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1400-desk (&rest args) (instance* askul-1400-desk-object :init args))

Modified: trunk/EusLisp/models/askul-1600-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-1600-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-1600-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-1600-desk (&rest args) (instance* askul-1600-desk-object :init args))

Modified: trunk/EusLisp/models/askul-2700-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-2700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-2700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-2700-desk (&rest args) (instance* askul-2700-desk-object :init args))

Modified: trunk/EusLisp/models/askul-corner-desk-object.l
===================================================================
--- trunk/EusLisp/models/askul-corner-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/askul-corner-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 askul-corner-desk (&rest args) (instance* askul-corner-desk-object :init args))

Modified: trunk/EusLisp/models/foldable-desk-object.l
===================================================================
--- trunk/EusLisp/models/foldable-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/foldable-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 foldable-desk (&rest args) (instance* foldable-desk-object :init args))

Modified: trunk/EusLisp/models/karimoku-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/karimoku-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/karimoku-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -87,9 +87,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 karimoku-1200-desk (&rest args) (instance* karimoku-1200-desk-object :init args))

Modified: trunk/EusLisp/models/lion-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/lion-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/lion-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -141,9 +141,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 lion-1800-desk (&rest args) (instance* lion-1800-desk-object :init args))

Modified: trunk/EusLisp/models/nissen-1100-desk-object.l
===================================================================
--- trunk/EusLisp/models/nissen-1100-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/nissen-1100-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -205,9 +205,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 nissen-1100-desk (&rest args) (instance* nissen-1100-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1700-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1700-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1700-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-1700-desk (&rest args) (instance* plus-1700-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-1800-desk (&rest args) (instance* plus-1800-desk-object :init args))

Modified: trunk/EusLisp/models/plus-1800-pdesk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800-pdesk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800-pdesk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -78,9 +78,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 plus-1800-pdesk (&rest args) (instance* plus-1800-pdesk-object :init args))

Modified: trunk/EusLisp/models/plus-1800w-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-1800w-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-1800w-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-1800w-desk (&rest args) (instance* plus-1800w-desk-object :init args))

Modified: trunk/EusLisp/models/plus-2800-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-2800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-2800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -130,13 +130,13 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1 handle2 handle3))
-  (:handle-handle-l () handle0)
-  (:handle-handle-r () handle1)
-  (:handle-handle-l () handle2)
-  (:handle-handle-r () handle3)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1 handle2 handle3) args))
+  (:handle-handle-l (&rest args) (forward-message-to handle0 args))
+  (:handle-handle-r (&rest args) (forward-message-to handle1 args))
+  (:handle-handle-l (&rest args) (forward-message-to handle2 args))
+  (:handle-handle-r (&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 plus-2800-desk (&rest args) (instance* plus-2800-desk-object :init args))

Modified: trunk/EusLisp/models/plus-6200-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-6200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-6200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-6200-desk (&rest args) (instance* plus-6200-desk-object :init args))

Modified: trunk/EusLisp/models/plus-7000-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-7000-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-7000-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 plus-7000-desk (&rest args) (instance* plus-7000-desk-object :init args))

Modified: trunk/EusLisp/models/plus-900-square-desk-object.l
===================================================================
--- trunk/EusLisp/models/plus-900-square-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/plus-900-square-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -93,11 +93,11 @@
   (:cameras (&rest args)
    (forward-message-to-all (list) args))
 
-  (:handle () (list  handle0 handle1))
-  (:handle-handle-l () handle0)
-  (:handle-handle-r () handle1)
-  (:attention () (list ))
-  (:button () (list ))
+  (:handle (&rest args) (forward-message-to-all (list  handle0 handle1) args))
+  (:handle-handle-l (&rest args) (forward-message-to handle0 args))
+  (:handle-handle-r (&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 plus-900-square-desk (&rest args) (instance* plus-900-square-desk-object :init args))

Modified: trunk/EusLisp/models/sakae-900-desk-object.l
===================================================================
--- trunk/EusLisp/models/sakae-900-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/sakae-900-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -216,9 +216,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 sakae-900-desk (&rest args) (instance* sakae-900-desk-object :init args))

Modified: trunk/EusLisp/models/toyama-900-desk-object.l
===================================================================
--- trunk/EusLisp/models/toyama-900-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/toyama-900-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 toyama-900-desk (&rest args) (instance* toyama-900-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1000-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1000-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1000-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -123,9 +123,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 uchida-1000-desk (&rest args) (instance* uchida-1000-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1500-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1500-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1500-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -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 uchida-1500-desk (&rest args) (instance* uchida-1500-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-1800-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -390,9 +390,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 uchida-1800-desk (&rest args) (instance* uchida-1800-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-2400-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-2400-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-2400-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -512,9 +512,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 uchida-2400-desk (&rest args) (instance* uchida-2400-desk-object :init args))

Modified: trunk/EusLisp/models/uchida-desk-object.l
===================================================================
--- trunk/EusLisp/models/uchida-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/uchida-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -105,9 +105,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 uchida-desk (&rest args) (instance* uchida-desk-object :init args))

Modified: trunk/EusLisp/models/unknown-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/unknown-1200-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
+++ trunk/EusLisp/models/unknown-1200-desk-object.l	2013-05-01 04:51:09 UTC (rev 626)
@@ -96,9 +96,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 unknown-1200-desk (&rest args) (instance* unknown-1200-desk-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[625] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:49:33

Revision: 625
          http://sourceforge.net/p/euslisp/code/625
Author:   snozawa
Date:     2013-05-01 04:49:23 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/room83b1-83b1-ground-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l
    trunk/EusLisp/models/room83b1-door-left-object.l
    trunk/EusLisp/models/room83b1-door-right-object.l
    trunk/EusLisp/models/room83b1-shelf-0-object.l
    trunk/EusLisp/models/room83b1-shelf-1-object.l
    trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l
    trunk/EusLisp/models/room83b1-village-chair-0-object.l
    trunk/EusLisp/models/room83b1-village-chair-1-object.l
    trunk/EusLisp/models/room83b1-wooden-table-object.l

Modified: trunk/EusLisp/models/room83b1-83b1-ground-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-83b1-ground-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-83b1-ground-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-83b1-ground (&rest args) (instance* room83b1-83b1-ground-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-0 (&rest args) (instance* room83b1-askul-1400-desk-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-1 (&rest args) (instance* room83b1-askul-1400-desk-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-2 (&rest args) (instance* room83b1-askul-1400-desk-2-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-3 (&rest args) (instance* room83b1-askul-1400-desk-3-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-4 (&rest args) (instance* room83b1-askul-1400-desk-4-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-0 (&rest args) (instance* room83b1-askul-1600-desk-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-1 (&rest args) (instance* room83b1-askul-1600-desk-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-2 (&rest args) (instance* room83b1-askul-1600-desk-2-object :init args))

Modified: trunk/EusLisp/models/room83b1-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-door-left-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-door-left-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-door-left (&rest args) (instance* room83b1-door-left-object :init args))

Modified: trunk/EusLisp/models/room83b1-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-door-right-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-door-right-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-door-right (&rest args) (instance* room83b1-door-right-object :init args))

Modified: trunk/EusLisp/models/room83b1-shelf-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-shelf-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-shelf-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -128,10 +128,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 room83b1-shelf-0 (&rest args) (instance* room83b1-shelf-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-shelf-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-shelf-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-shelf-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -128,10 +128,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 room83b1-shelf-1 (&rest args) (instance* room83b1-shelf-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -390,9 +390,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 room83b1-uchida-1800-desk (&rest args) (instance* room83b1-uchida-1800-desk-object :init args))

Modified: trunk/EusLisp/models/room83b1-village-chair-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-village-chair-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-village-chair-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -275,11 +275,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 room83b1-village-chair-0 (&rest args) (instance* room83b1-village-chair-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-village-chair-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-village-chair-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-village-chair-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -275,11 +275,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 room83b1-village-chair-1 (&rest args) (instance* room83b1-village-chair-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-wooden-table-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-wooden-table-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-wooden-table-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -87,9 +87,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 room83b1-wooden-table (&rest args) (instance* room83b1-wooden-table-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[625] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:49:30

Revision: 625
          http://sourceforge.net/p/euslisp/code/625
Author:   snozawa
Date:     2013-05-01 04:49:23 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/room83b1-83b1-ground-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l
    trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l
    trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l
    trunk/EusLisp/models/room83b1-door-left-object.l
    trunk/EusLisp/models/room83b1-door-right-object.l
    trunk/EusLisp/models/room83b1-shelf-0-object.l
    trunk/EusLisp/models/room83b1-shelf-1-object.l
    trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l
    trunk/EusLisp/models/room83b1-village-chair-0-object.l
    trunk/EusLisp/models/room83b1-village-chair-1-object.l
    trunk/EusLisp/models/room83b1-wooden-table-object.l

Modified: trunk/EusLisp/models/room83b1-83b1-ground-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-83b1-ground-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-83b1-ground-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-83b1-ground (&rest args) (instance* room83b1-83b1-ground-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-0 (&rest args) (instance* room83b1-askul-1400-desk-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-1 (&rest args) (instance* room83b1-askul-1400-desk-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-2-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-2 (&rest args) (instance* room83b1-askul-1400-desk-2-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-3-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-3 (&rest args) (instance* room83b1-askul-1400-desk-3-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1400-desk-4-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1400-desk-4 (&rest args) (instance* room83b1-askul-1400-desk-4-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-0 (&rest args) (instance* room83b1-askul-1600-desk-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-1 (&rest args) (instance* room83b1-askul-1600-desk-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-askul-1600-desk-2-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-askul-1600-desk-2 (&rest args) (instance* room83b1-askul-1600-desk-2-object :init args))

Modified: trunk/EusLisp/models/room83b1-door-left-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-door-left-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-door-left-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-door-left (&rest args) (instance* room83b1-door-left-object :init args))

Modified: trunk/EusLisp/models/room83b1-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-door-right-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-door-right-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -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 room83b1-door-right (&rest args) (instance* room83b1-door-right-object :init args))

Modified: trunk/EusLisp/models/room83b1-shelf-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-shelf-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-shelf-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -128,10 +128,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 room83b1-shelf-0 (&rest args) (instance* room83b1-shelf-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-shelf-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-shelf-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-shelf-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -128,10 +128,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 room83b1-shelf-1 (&rest args) (instance* room83b1-shelf-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-uchida-1800-desk-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -390,9 +390,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 room83b1-uchida-1800-desk (&rest args) (instance* room83b1-uchida-1800-desk-object :init args))

Modified: trunk/EusLisp/models/room83b1-village-chair-0-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-village-chair-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-village-chair-0-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -275,11 +275,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 room83b1-village-chair-0 (&rest args) (instance* room83b1-village-chair-0-object :init args))

Modified: trunk/EusLisp/models/room83b1-village-chair-1-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-village-chair-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-village-chair-1-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -275,11 +275,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 room83b1-village-chair-1 (&rest args) (instance* room83b1-village-chair-1-object :init args))

Modified: trunk/EusLisp/models/room83b1-wooden-table-object.l
===================================================================
--- trunk/EusLisp/models/room83b1-wooden-table-object.l	2013-05-01 04:46:30 UTC (rev 624)
+++ trunk/EusLisp/models/room83b1-wooden-table-object.l	2013-05-01 04:49:23 UTC (rev 625)
@@ -87,9 +87,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 room83b1-wooden-table (&rest args) (instance* room83b1-wooden-table-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[624] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:46:42

Revision: 624
          http://sourceforge.net/p/euslisp/code/624
Author:   snozawa
Date:     2013-05-01 04:46:30 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/room73a3-73a3-ground-object.l
    trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l
    trunk/EusLisp/models/room73a3-clock-object.l
    trunk/EusLisp/models/room73a3-door-right-object.l
    trunk/EusLisp/models/room73a3-officeprinter-object.l
    trunk/EusLisp/models/room73a3-plus-830-locker-object.l
    trunk/EusLisp/models/room73a3-shelf-0-object.l
    trunk/EusLisp/models/room73a3-shelf-1-object.l
    trunk/EusLisp/models/room73a3-shelf-2-object.l
    trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l
    trunk/EusLisp/models/room73a3-village-chair-0-object.l
    trunk/EusLisp/models/room73a3-village-chair-1-object.l
    trunk/EusLisp/models/room73a3-village-chair-2-object.l
    trunk/EusLisp/models/room73a3-village-chair-3-object.l
    trunk/EusLisp/models/room73a3-village-chair-4-object.l
    trunk/EusLisp/models/room73a3-village-chair-5-object.l

Modified: trunk/EusLisp/models/room73a3-73a3-ground-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-73a3-ground-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-73a3-ground-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-73a3-ground (&rest args) (instance* room73a3-73a3-ground-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1200x700-desk-0 (&rest args) (instance* room73a3-askul-1200x700-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1200x700-desk-1 (&rest args) (instance* room73a3-askul-1200x700-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-0 (&rest args) (instance* room73a3-askul-1400-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-1 (&rest args) (instance* room73a3-askul-1400-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-2 (&rest args) (instance* room73a3-askul-1400-desk-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-0 (&rest args) (instance* room73a3-askul-1600-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-1 (&rest args) (instance* room73a3-askul-1600-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-2 (&rest args) (instance* room73a3-askul-1600-desk-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-0 (&rest args) (instance* room73a3-bariera-1400-middle-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-1 (&rest args) (instance* room73a3-bariera-1400-middle-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-2 (&rest args) (instance* room73a3-bariera-1400-middle-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-3 (&rest args) (instance* room73a3-bariera-1400-middle-3-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-4 (&rest args) (instance* room73a3-bariera-1400-middle-4-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-5 (&rest args) (instance* room73a3-bariera-1400-middle-5-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-6 (&rest args) (instance* room73a3-bariera-1400-middle-6-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-7 (&rest args) (instance* room73a3-bariera-1400-middle-7-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-8 (&rest args) (instance* room73a3-bariera-1400-middle-8-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-9 (&rest args) (instance* room73a3-bariera-1400-middle-9-object :init args))

Modified: trunk/EusLisp/models/room73a3-clock-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-clock-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-clock-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -280,9 +280,9 @@
   (:hour-joint (&rest args) (forward-message-to joint0 args))
   (:minute-joint (&rest args) (forward-message-to joint1 args))
   (:second-joint (&rest args) (forward-message-to joint2 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 room73a3-clock (&rest args) (instance* room73a3-clock-object :init args))

Modified: trunk/EusLisp/models/room73a3-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-door-right-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-door-right-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-door-right (&rest args) (instance* room73a3-door-right-object :init args))

Modified: trunk/EusLisp/models/room73a3-officeprinter-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-officeprinter-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-officeprinter-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -264,9 +264,9 @@
    (forward-message-to-all (list) args))
 
   (:joint0 (&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 room73a3-officeprinter (&rest args) (instance* room73a3-officeprinter-object :init args))

Modified: trunk/EusLisp/models/room73a3-plus-830-locker-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-plus-830-locker-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-plus-830-locker-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-plus-830-locker (&rest args) (instance* room73a3-plus-830-locker-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-shelf-0 (&rest args) (instance* room73a3-shelf-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -119,10 +119,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 room73a3-shelf-1 (&rest args) (instance* room73a3-shelf-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -119,10 +119,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 room73a3-shelf-2 (&rest args) (instance* room73a3-shelf-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -96,9 +96,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 room73a3-unknown-1200-desk (&rest args) (instance* room73a3-unknown-1200-desk-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-0 (&rest args) (instance* room73a3-village-chair-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-1 (&rest args) (instance* room73a3-village-chair-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-2 (&rest args) (instance* room73a3-village-chair-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-3-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-3-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-3 (&rest args) (instance* room73a3-village-chair-3-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-4-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-4-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-4 (&rest args) (instance* room73a3-village-chair-4-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-5-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-5-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-5-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-5 (&rest args) (instance* room73a3-village-chair-5-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[624] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:46:39

Revision: 624
          http://sourceforge.net/p/euslisp/code/624
Author:   snozawa
Date:     2013-05-01 04:46:30 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/room73a3-73a3-ground-object.l
    trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l
    trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l
    trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l
    trunk/EusLisp/models/room73a3-clock-object.l
    trunk/EusLisp/models/room73a3-door-right-object.l
    trunk/EusLisp/models/room73a3-officeprinter-object.l
    trunk/EusLisp/models/room73a3-plus-830-locker-object.l
    trunk/EusLisp/models/room73a3-shelf-0-object.l
    trunk/EusLisp/models/room73a3-shelf-1-object.l
    trunk/EusLisp/models/room73a3-shelf-2-object.l
    trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l
    trunk/EusLisp/models/room73a3-village-chair-0-object.l
    trunk/EusLisp/models/room73a3-village-chair-1-object.l
    trunk/EusLisp/models/room73a3-village-chair-2-object.l
    trunk/EusLisp/models/room73a3-village-chair-3-object.l
    trunk/EusLisp/models/room73a3-village-chair-4-object.l
    trunk/EusLisp/models/room73a3-village-chair-5-object.l

Modified: trunk/EusLisp/models/room73a3-73a3-ground-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-73a3-ground-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-73a3-ground-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-73a3-ground (&rest args) (instance* room73a3-73a3-ground-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1200x700-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1200x700-desk-0 (&rest args) (instance* room73a3-askul-1200x700-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1200x700-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1200x700-desk-1 (&rest args) (instance* room73a3-askul-1200x700-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-0 (&rest args) (instance* room73a3-askul-1400-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-1 (&rest args) (instance* room73a3-askul-1400-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1400-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1400-desk-2 (&rest args) (instance* room73a3-askul-1400-desk-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-0 (&rest args) (instance* room73a3-askul-1600-desk-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-1 (&rest args) (instance* room73a3-askul-1600-desk-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-askul-1600-desk-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-askul-1600-desk-2 (&rest args) (instance* room73a3-askul-1600-desk-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-0 (&rest args) (instance* room73a3-bariera-1400-middle-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-1 (&rest args) (instance* room73a3-bariera-1400-middle-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-2 (&rest args) (instance* room73a3-bariera-1400-middle-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-3 (&rest args) (instance* room73a3-bariera-1400-middle-3-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-4 (&rest args) (instance* room73a3-bariera-1400-middle-4-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-5-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-5 (&rest args) (instance* room73a3-bariera-1400-middle-5-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-6-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-6 (&rest args) (instance* room73a3-bariera-1400-middle-6-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-7-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-7 (&rest args) (instance* room73a3-bariera-1400-middle-7-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-8-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-8 (&rest args) (instance* room73a3-bariera-1400-middle-8-object :init args))

Modified: trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-bariera-1400-middle-9-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-bariera-1400-middle-9 (&rest args) (instance* room73a3-bariera-1400-middle-9-object :init args))

Modified: trunk/EusLisp/models/room73a3-clock-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-clock-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-clock-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -280,9 +280,9 @@
   (:hour-joint (&rest args) (forward-message-to joint0 args))
   (:minute-joint (&rest args) (forward-message-to joint1 args))
   (:second-joint (&rest args) (forward-message-to joint2 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 room73a3-clock (&rest args) (instance* room73a3-clock-object :init args))

Modified: trunk/EusLisp/models/room73a3-door-right-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-door-right-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-door-right-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-door-right (&rest args) (instance* room73a3-door-right-object :init args))

Modified: trunk/EusLisp/models/room73a3-officeprinter-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-officeprinter-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-officeprinter-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -264,9 +264,9 @@
    (forward-message-to-all (list) args))
 
   (:joint0 (&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 room73a3-officeprinter (&rest args) (instance* room73a3-officeprinter-object :init args))

Modified: trunk/EusLisp/models/room73a3-plus-830-locker-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-plus-830-locker-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-plus-830-locker-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-plus-830-locker (&rest args) (instance* room73a3-plus-830-locker-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -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 room73a3-shelf-0 (&rest args) (instance* room73a3-shelf-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -119,10 +119,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 room73a3-shelf-1 (&rest args) (instance* room73a3-shelf-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-shelf-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-shelf-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-shelf-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -119,10 +119,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 room73a3-shelf-2 (&rest args) (instance* room73a3-shelf-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-unknown-1200-desk-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -96,9 +96,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 room73a3-unknown-1200-desk (&rest args) (instance* room73a3-unknown-1200-desk-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-0-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-0-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-0-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-0 (&rest args) (instance* room73a3-village-chair-0-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-1-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-1-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-1-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-1 (&rest args) (instance* room73a3-village-chair-1-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-2-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-2-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-2-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-2 (&rest args) (instance* room73a3-village-chair-2-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-3-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-3-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-3-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-3 (&rest args) (instance* room73a3-village-chair-3-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-4-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-4-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-4-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-4 (&rest args) (instance* room73a3-village-chair-4-object :init args))

Modified: trunk/EusLisp/models/room73a3-village-chair-5-object.l
===================================================================
--- trunk/EusLisp/models/room73a3-village-chair-5-object.l	2013-05-01 04:45:11 UTC (rev 623)
+++ trunk/EusLisp/models/room73a3-village-chair-5-object.l	2013-05-01 04:46:30 UTC (rev 624)
@@ -275,11 +275,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 room73a3-village-chair-5 (&rest args) (instance* room73a3-village-chair-5-object :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[623] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:45:22

Revision: 623
          http://sourceforge.net/p/euslisp/code/623
Author:   snozawa
Date:     2013-05-01 04:45:11 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/akira-robot.l
    trunk/EusLisp/models/akira2-robot.l
    trunk/EusLisp/models/akira3-robot.l
    trunk/EusLisp/models/ape-robot.l
    trunk/EusLisp/models/ape3-robot.l
    trunk/EusLisp/models/bishamon-robot.l
    trunk/EusLisp/models/chibikaz-robot.l
    trunk/EusLisp/models/h3-robot.l
    trunk/EusLisp/models/h3s-robot.l
    trunk/EusLisp/models/h4-robot.l
    trunk/EusLisp/models/h6-robot.l
    trunk/EusLisp/models/h7-robot.l
    trunk/EusLisp/models/hanzou-robot.l
    trunk/EusLisp/models/hanzous-robot.l
    trunk/EusLisp/models/human-robot.l
    trunk/EusLisp/models/igoid-robot.l
    trunk/EusLisp/models/igoid2-robot.l
    trunk/EusLisp/models/igoid3-robot.l
    trunk/EusLisp/models/ikuo-haru-robot.l
    trunk/EusLisp/models/jrob1-robot.l
    trunk/EusLisp/models/kaz-robot.l
    trunk/EusLisp/models/kaz2-robot.l
    trunk/EusLisp/models/kaz3-robot.l
    trunk/EusLisp/models/kuma-robot.l
    trunk/EusLisp/models/macket-robot.l
    trunk/EusLisp/models/macra-robot.l
    trunk/EusLisp/models/miharu-robot.l
    trunk/EusLisp/models/millennium-robot.l
    trunk/EusLisp/models/patra-robot.l
    trunk/EusLisp/models/penguin-robot.l
    trunk/EusLisp/models/saizo-robot.l
    trunk/EusLisp/models/tama-robot.l
    trunk/EusLisp/models/tamaii-robot.l
    trunk/EusLisp/models/taro-robot.l
    trunk/EusLisp/models/tot-robot.l
    trunk/EusLisp/models/zero-robot.l

Modified: trunk/EusLisp/models/akira-robot.l
===================================================================
--- trunk/EusLisp/models/akira-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1566,9 +1566,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 akira (&rest args) (instance* akira-robot :init args))

Modified: trunk/EusLisp/models/akira2-robot.l
===================================================================
--- trunk/EusLisp/models/akira2-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira2-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1595,9 +1595,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 akira2 (&rest args) (instance* akira2-robot :init args))

Modified: trunk/EusLisp/models/akira3-robot.l
===================================================================
--- trunk/EusLisp/models/akira3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1627,9 +1627,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 akira3 (&rest args) (instance* akira3-robot :init args))

Modified: trunk/EusLisp/models/ape-robot.l
===================================================================
--- trunk/EusLisp/models/ape-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ape-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -932,9 +932,9 @@
   (:rleg-crotch-p (&rest args) (forward-message-to joint8 args))
   (:rleg-knee-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint5 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 ape (&rest args) (instance* ape-robot :init args))

Modified: trunk/EusLisp/models/ape3-robot.l
===================================================================
--- trunk/EusLisp/models/ape3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ape3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1357,9 +1357,9 @@
   (:rleg-crotch-p (&rest args) (forward-message-to joint0 args))
   (:rleg-knee-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint2 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 ape3 (&rest args) (instance* ape3-robot :init args))

Modified: trunk/EusLisp/models/bishamon-robot.l
===================================================================
--- trunk/EusLisp/models/bishamon-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/bishamon-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1387,9 +1387,9 @@
   (:rleg-crotch-r (&rest args) (forward-message-to joint11 args))
   (:rleg-crotch-p (&rest args) (forward-message-to joint13 args))
   (:rleg-knee-p (&rest args) (forward-message-to joint15 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 bishamon (&rest args) (instance* bishamon-robot :init args))

Modified: trunk/EusLisp/models/chibikaz-robot.l
===================================================================
--- trunk/EusLisp/models/chibikaz-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/chibikaz-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2195,9 +2195,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 chibikaz (&rest args) (instance* chibikaz-robot :init args))

Modified: trunk/EusLisp/models/h3-robot.l
===================================================================
--- trunk/EusLisp/models/h3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1292,9 +1292,9 @@
   (:h3rarm-elbow-p (&rest args) (forward-message-to joint10 args))
   (:h3rarm-wrist-r (&rest args) (forward-message-to joint11 args))
   (:h3rarm-hand-y (&rest args) (forward-message-to joint12 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 h3 (&rest args) (instance* h3-robot :init args))

Modified: trunk/EusLisp/models/h3s-robot.l
===================================================================
--- trunk/EusLisp/models/h3s-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h3s-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1505,9 +1505,9 @@
   (:h3rarm-hand-y (&rest args) (forward-message-to joint12 args))
   (:h3scout-tire-r (&rest args) (forward-message-to joint13 args))
   (:h3scout-tire-l (&rest args) (forward-message-to joint14 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 h3s (&rest args) (instance* h3s-robot :init args))

Modified: trunk/EusLisp/models/h4-robot.l
===================================================================
--- trunk/EusLisp/models/h4-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h4-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2860,9 +2860,9 @@
   (:h4waist-waist2-z (&rest args) (forward-message-to joint18 args))
   (:h4waist-waist-x (&rest args) (forward-message-to joint17 args))
   (:h4waist-waist1-z (&rest args) (forward-message-to joint16 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 h4 (&rest args) (instance* h4-robot :init args))

Modified: trunk/EusLisp/models/h6-robot.l
===================================================================
--- trunk/EusLisp/models/h6-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h6-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2610,9 +2610,9 @@
   (:rarm-wrist-p (&rest args) (forward-message-to joint13 args))
   (:rarm-wrist-r (&rest args) (forward-message-to joint14 args))
   (:rarm-gripper (&rest args) (forward-message-to joint15 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 h6 (&rest args) (instance* h6-robot :init args))

Modified: trunk/EusLisp/models/h7-robot.l
===================================================================
--- trunk/EusLisp/models/h7-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h7-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2718,9 +2718,9 @@
   (:rarm-finger1 (&rest args) (forward-message-to joint15 args))
   (:rarm-finger2 (&rest args) (forward-message-to joint34 args))
   (:rarm-finger3 (&rest args) (forward-message-to joint35 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 h7 (&rest args) (instance* h7-robot :init args))

Modified: trunk/EusLisp/models/hanzou-robot.l
===================================================================
--- trunk/EusLisp/models/hanzou-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/hanzou-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1520,9 +1520,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint10 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 hanzou (&rest args) (instance* hanzou-robot :init args))

Modified: trunk/EusLisp/models/hanzous-robot.l
===================================================================
--- trunk/EusLisp/models/hanzous-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/hanzous-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1803,9 +1803,9 @@
   (:rleg-ankle-r (&rest args) (forward-message-to joint12 args))
   (:spine-upper-p (&rest args) (forward-message-to joint0 args))
   (:spine-lower-p (&rest args) (forward-message-to joint2 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 hanzous (&rest args) (instance* hanzous-robot :init args))

Modified: trunk/EusLisp/models/human-robot.l
===================================================================
--- trunk/EusLisp/models/human-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/human-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -5422,9 +5422,9 @@
   (:head-leye-y (&rest args) (forward-message-to joint61 args))
   (:head-reye-p (&rest args) (forward-message-to joint62 args))
   (:head-leye-p (&rest args) (forward-message-to joint63 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 human (&rest args) (instance* human-robot :init args))

Modified: trunk/EusLisp/models/igoid-robot.l
===================================================================
--- trunk/EusLisp/models/igoid-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3041,9 +3041,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint27 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint29 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 igoid (&rest args) (instance* igoid-robot :init args))

Modified: trunk/EusLisp/models/igoid2-robot.l
===================================================================
--- trunk/EusLisp/models/igoid2-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid2-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3085,9 +3085,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint27 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint29 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 igoid2 (&rest args) (instance* igoid2-robot :init args))

Modified: trunk/EusLisp/models/igoid3-robot.l
===================================================================
--- trunk/EusLisp/models/igoid3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3163,9 +3163,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint27 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint29 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 igoid3 (&rest args) (instance* igoid3-robot :init args))

Modified: trunk/EusLisp/models/ikuo-haru-robot.l
===================================================================
--- trunk/EusLisp/models/ikuo-haru-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ikuo-haru-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1978,9 +1978,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint15 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint10 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 ikuo-haru (&rest args) (instance* ikuo-haru-robot :init args))

Modified: trunk/EusLisp/models/jrob1-robot.l
===================================================================
--- trunk/EusLisp/models/jrob1-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/jrob1-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1264,9 +1264,9 @@
   (:rb-crotch-y (&rest args) (forward-message-to joint9 args))
   (:rb-crotch-r (&rest args) (forward-message-to joint10 args))
   (:rb-knee-r (&rest args) (forward-message-to joint11 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 jrob1 (&rest args) (instance* jrob1-robot :init args))

Modified: trunk/EusLisp/models/kaz-robot.l
===================================================================
--- trunk/EusLisp/models/kaz-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2038,9 +2038,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 kaz (&rest args) (instance* kaz-robot :init args))

Modified: trunk/EusLisp/models/kaz2-robot.l
===================================================================
--- trunk/EusLisp/models/kaz2-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz2-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2178,9 +2178,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 kaz2 (&rest args) (instance* kaz2-robot :init args))

Modified: trunk/EusLisp/models/kaz3-robot.l
===================================================================
--- trunk/EusLisp/models/kaz3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2984,9 +2984,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 kaz3 (&rest args) (instance* kaz3-robot :init args))

Modified: trunk/EusLisp/models/kuma-robot.l
===================================================================
--- trunk/EusLisp/models/kuma-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kuma-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2618,9 +2618,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint16 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint17 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint18 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 kuma (&rest args) (instance* kuma-robot :init args))

Modified: trunk/EusLisp/models/macket-robot.l
===================================================================
--- trunk/EusLisp/models/macket-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/macket-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -4940,9 +4940,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint12 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint11 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint10 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 macket (&rest args) (instance* macket-robot :init args))

Modified: trunk/EusLisp/models/macra-robot.l
===================================================================
--- trunk/EusLisp/models/macra-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/macra-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3199,9 +3199,9 @@
   (:arm-1-shoulder-p (&rest args) (forward-message-to joint16 args))
   (:head-neck-y (&rest args) (forward-message-to joint20 args))
   (:head-neck-p (&rest args) (forward-message-to joint21 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 macra (&rest args) (instance* macra-robot :init args))

Modified: trunk/EusLisp/models/miharu-robot.l
===================================================================
--- trunk/EusLisp/models/miharu-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/miharu-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1393,9 +1393,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 miharu (&rest args) (instance* miharu-robot :init args))

Modified: trunk/EusLisp/models/millennium-robot.l
===================================================================
--- trunk/EusLisp/models/millennium-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/millennium-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1834,9 +1834,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint10 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 millennium (&rest args) (instance* millennium-robot :init args))

Modified: trunk/EusLisp/models/patra-robot.l
===================================================================
--- trunk/EusLisp/models/patra-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/patra-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1322,9 +1322,9 @@
   (:patra-back-limb-back (&rest args) (forward-message-to joint1 args))
   (:patra-lower-limb-rear (&rest args) (forward-message-to joint3 args))
   (:patra-lower-limb-front (&rest args) (forward-message-to joint2 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 patra (&rest args) (instance* patra-robot :init args))

Modified: trunk/EusLisp/models/penguin-robot.l
===================================================================
--- trunk/EusLisp/models/penguin-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/penguin-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1644,9 +1644,9 @@
   (:rleg-crotch-y (&rest args) (forward-message-to joint9 args))
   (:rleg-crotch-p (&rest args) (forward-message-to joint10 args))
   (:tail-tail-y (&rest args) (forward-message-to joint11 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 penguin (&rest args) (instance* penguin-robot :init args))

Modified: trunk/EusLisp/models/saizo-robot.l
===================================================================
--- trunk/EusLisp/models/saizo-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/saizo-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1652,9 +1652,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 saizo (&rest args) (instance* saizo-robot :init args))

Modified: trunk/EusLisp/models/tama-robot.l
===================================================================
--- trunk/EusLisp/models/tama-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tama-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1494,9 +1494,9 @@
   (:rbleg-crotch-y (&rest args) (forward-message-to joint10 args))
   (:rbleg-knee-r (&rest args) (forward-message-to joint9 args))
   (:rbleg-ankle-r (&rest args) (forward-message-to joint8 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 tama (&rest args) (instance* tama-robot :init args))

Modified: trunk/EusLisp/models/tamaii-robot.l
===================================================================
--- trunk/EusLisp/models/tamaii-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tamaii-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1674,9 +1674,9 @@
   (:rbleg-crotch (&rest args) (forward-message-to joint13 args))
   (:rbleg-knee (&rest args) (forward-message-to joint12 args))
   (:rbleg-ankle (&rest args) (forward-message-to joint11 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 tamaii (&rest args) (instance* tamaii-robot :init args))

Modified: trunk/EusLisp/models/taro-robot.l
===================================================================
--- trunk/EusLisp/models/taro-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/taro-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1675,9 +1675,9 @@
   (:rleg-ankle-r (&rest args) (forward-message-to joint15 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint16 args))
   (:spine-spine-p (&rest args) (forward-message-to joint18 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 taro (&rest args) (instance* taro-robot :init args))

Modified: trunk/EusLisp/models/tot-robot.l
===================================================================
--- trunk/EusLisp/models/tot-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tot-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3089,9 +3089,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 tot (&rest args) (instance* tot-robot :init args))

Modified: trunk/EusLisp/models/zero-robot.l
===================================================================
--- trunk/EusLisp/models/zero-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/zero-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1587,9 +1587,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint5 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint6 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint7 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 zero (&rest args) (instance* zero-robot :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

[Euslisp-commit] SF.net SVN: euslisp:[623] trunk/EusLisp/models

From: <sn...@us...> - 2013-05-01 04:45:20

Revision: 623
          http://sourceforge.net/p/euslisp/code/623
Author:   snozawa
Date:     2013-05-01 04:45:11 +0000 (Wed, 01 May 2013)
Log Message:
-----------
add forward-message-to and forward-message-to-all in ticket [#19]

Modified Paths:
--------------
    trunk/EusLisp/models/akira-robot.l
    trunk/EusLisp/models/akira2-robot.l
    trunk/EusLisp/models/akira3-robot.l
    trunk/EusLisp/models/ape-robot.l
    trunk/EusLisp/models/ape3-robot.l
    trunk/EusLisp/models/bishamon-robot.l
    trunk/EusLisp/models/chibikaz-robot.l
    trunk/EusLisp/models/h3-robot.l
    trunk/EusLisp/models/h3s-robot.l
    trunk/EusLisp/models/h4-robot.l
    trunk/EusLisp/models/h6-robot.l
    trunk/EusLisp/models/h7-robot.l
    trunk/EusLisp/models/hanzou-robot.l
    trunk/EusLisp/models/hanzous-robot.l
    trunk/EusLisp/models/human-robot.l
    trunk/EusLisp/models/igoid-robot.l
    trunk/EusLisp/models/igoid2-robot.l
    trunk/EusLisp/models/igoid3-robot.l
    trunk/EusLisp/models/ikuo-haru-robot.l
    trunk/EusLisp/models/jrob1-robot.l
    trunk/EusLisp/models/kaz-robot.l
    trunk/EusLisp/models/kaz2-robot.l
    trunk/EusLisp/models/kaz3-robot.l
    trunk/EusLisp/models/kuma-robot.l
    trunk/EusLisp/models/macket-robot.l
    trunk/EusLisp/models/macra-robot.l
    trunk/EusLisp/models/miharu-robot.l
    trunk/EusLisp/models/millennium-robot.l
    trunk/EusLisp/models/patra-robot.l
    trunk/EusLisp/models/penguin-robot.l
    trunk/EusLisp/models/saizo-robot.l
    trunk/EusLisp/models/tama-robot.l
    trunk/EusLisp/models/tamaii-robot.l
    trunk/EusLisp/models/taro-robot.l
    trunk/EusLisp/models/tot-robot.l
    trunk/EusLisp/models/zero-robot.l

Modified: trunk/EusLisp/models/akira-robot.l
===================================================================
--- trunk/EusLisp/models/akira-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1566,9 +1566,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 akira (&rest args) (instance* akira-robot :init args))

Modified: trunk/EusLisp/models/akira2-robot.l
===================================================================
--- trunk/EusLisp/models/akira2-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira2-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1595,9 +1595,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 akira2 (&rest args) (instance* akira2-robot :init args))

Modified: trunk/EusLisp/models/akira3-robot.l
===================================================================
--- trunk/EusLisp/models/akira3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/akira3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1627,9 +1627,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 akira3 (&rest args) (instance* akira3-robot :init args))

Modified: trunk/EusLisp/models/ape-robot.l
===================================================================
--- trunk/EusLisp/models/ape-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ape-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -932,9 +932,9 @@
   (:rleg-crotch-p (&rest args) (forward-message-to joint8 args))
   (:rleg-knee-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint5 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 ape (&rest args) (instance* ape-robot :init args))

Modified: trunk/EusLisp/models/ape3-robot.l
===================================================================
--- trunk/EusLisp/models/ape3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ape3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1357,9 +1357,9 @@
   (:rleg-crotch-p (&rest args) (forward-message-to joint0 args))
   (:rleg-knee-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint2 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 ape3 (&rest args) (instance* ape3-robot :init args))

Modified: trunk/EusLisp/models/bishamon-robot.l
===================================================================
--- trunk/EusLisp/models/bishamon-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/bishamon-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1387,9 +1387,9 @@
   (:rleg-crotch-r (&rest args) (forward-message-to joint11 args))
   (:rleg-crotch-p (&rest args) (forward-message-to joint13 args))
   (:rleg-knee-p (&rest args) (forward-message-to joint15 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 bishamon (&rest args) (instance* bishamon-robot :init args))

Modified: trunk/EusLisp/models/chibikaz-robot.l
===================================================================
--- trunk/EusLisp/models/chibikaz-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/chibikaz-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2195,9 +2195,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 chibikaz (&rest args) (instance* chibikaz-robot :init args))

Modified: trunk/EusLisp/models/h3-robot.l
===================================================================
--- trunk/EusLisp/models/h3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1292,9 +1292,9 @@
   (:h3rarm-elbow-p (&rest args) (forward-message-to joint10 args))
   (:h3rarm-wrist-r (&rest args) (forward-message-to joint11 args))
   (:h3rarm-hand-y (&rest args) (forward-message-to joint12 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 h3 (&rest args) (instance* h3-robot :init args))

Modified: trunk/EusLisp/models/h3s-robot.l
===================================================================
--- trunk/EusLisp/models/h3s-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h3s-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1505,9 +1505,9 @@
   (:h3rarm-hand-y (&rest args) (forward-message-to joint12 args))
   (:h3scout-tire-r (&rest args) (forward-message-to joint13 args))
   (:h3scout-tire-l (&rest args) (forward-message-to joint14 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 h3s (&rest args) (instance* h3s-robot :init args))

Modified: trunk/EusLisp/models/h4-robot.l
===================================================================
--- trunk/EusLisp/models/h4-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h4-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2860,9 +2860,9 @@
   (:h4waist-waist2-z (&rest args) (forward-message-to joint18 args))
   (:h4waist-waist-x (&rest args) (forward-message-to joint17 args))
   (:h4waist-waist1-z (&rest args) (forward-message-to joint16 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 h4 (&rest args) (instance* h4-robot :init args))

Modified: trunk/EusLisp/models/h6-robot.l
===================================================================
--- trunk/EusLisp/models/h6-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h6-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2610,9 +2610,9 @@
   (:rarm-wrist-p (&rest args) (forward-message-to joint13 args))
   (:rarm-wrist-r (&rest args) (forward-message-to joint14 args))
   (:rarm-gripper (&rest args) (forward-message-to joint15 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 h6 (&rest args) (instance* h6-robot :init args))

Modified: trunk/EusLisp/models/h7-robot.l
===================================================================
--- trunk/EusLisp/models/h7-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/h7-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2718,9 +2718,9 @@
   (:rarm-finger1 (&rest args) (forward-message-to joint15 args))
   (:rarm-finger2 (&rest args) (forward-message-to joint34 args))
   (:rarm-finger3 (&rest args) (forward-message-to joint35 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 h7 (&rest args) (instance* h7-robot :init args))

Modified: trunk/EusLisp/models/hanzou-robot.l
===================================================================
--- trunk/EusLisp/models/hanzou-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/hanzou-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1520,9 +1520,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint10 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 hanzou (&rest args) (instance* hanzou-robot :init args))

Modified: trunk/EusLisp/models/hanzous-robot.l
===================================================================
--- trunk/EusLisp/models/hanzous-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/hanzous-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1803,9 +1803,9 @@
   (:rleg-ankle-r (&rest args) (forward-message-to joint12 args))
   (:spine-upper-p (&rest args) (forward-message-to joint0 args))
   (:spine-lower-p (&rest args) (forward-message-to joint2 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 hanzous (&rest args) (instance* hanzous-robot :init args))

Modified: trunk/EusLisp/models/human-robot.l
===================================================================
--- trunk/EusLisp/models/human-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/human-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -5422,9 +5422,9 @@
   (:head-leye-y (&rest args) (forward-message-to joint61 args))
   (:head-reye-p (&rest args) (forward-message-to joint62 args))
   (:head-leye-p (&rest args) (forward-message-to joint63 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 human (&rest args) (instance* human-robot :init args))

Modified: trunk/EusLisp/models/igoid-robot.l
===================================================================
--- trunk/EusLisp/models/igoid-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3041,9 +3041,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint27 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint29 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 igoid (&rest args) (instance* igoid-robot :init args))

Modified: trunk/EusLisp/models/igoid2-robot.l
===================================================================
--- trunk/EusLisp/models/igoid2-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid2-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3085,9 +3085,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint27 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint29 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 igoid2 (&rest args) (instance* igoid2-robot :init args))

Modified: trunk/EusLisp/models/igoid3-robot.l
===================================================================
--- trunk/EusLisp/models/igoid3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/igoid3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3163,9 +3163,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint27 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint28 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint29 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 igoid3 (&rest args) (instance* igoid3-robot :init args))

Modified: trunk/EusLisp/models/ikuo-haru-robot.l
===================================================================
--- trunk/EusLisp/models/ikuo-haru-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/ikuo-haru-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1978,9 +1978,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint15 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint10 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 ikuo-haru (&rest args) (instance* ikuo-haru-robot :init args))

Modified: trunk/EusLisp/models/jrob1-robot.l
===================================================================
--- trunk/EusLisp/models/jrob1-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/jrob1-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1264,9 +1264,9 @@
   (:rb-crotch-y (&rest args) (forward-message-to joint9 args))
   (:rb-crotch-r (&rest args) (forward-message-to joint10 args))
   (:rb-knee-r (&rest args) (forward-message-to joint11 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 jrob1 (&rest args) (instance* jrob1-robot :init args))

Modified: trunk/EusLisp/models/kaz-robot.l
===================================================================
--- trunk/EusLisp/models/kaz-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2038,9 +2038,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 kaz (&rest args) (instance* kaz-robot :init args))

Modified: trunk/EusLisp/models/kaz2-robot.l
===================================================================
--- trunk/EusLisp/models/kaz2-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz2-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2178,9 +2178,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 kaz2 (&rest args) (instance* kaz2-robot :init args))

Modified: trunk/EusLisp/models/kaz3-robot.l
===================================================================
--- trunk/EusLisp/models/kaz3-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kaz3-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2984,9 +2984,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 kaz3 (&rest args) (instance* kaz3-robot :init args))

Modified: trunk/EusLisp/models/kuma-robot.l
===================================================================
--- trunk/EusLisp/models/kuma-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/kuma-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -2618,9 +2618,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint16 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint17 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint18 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 kuma (&rest args) (instance* kuma-robot :init args))

Modified: trunk/EusLisp/models/macket-robot.l
===================================================================
--- trunk/EusLisp/models/macket-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/macket-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -4940,9 +4940,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint12 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint11 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint10 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 macket (&rest args) (instance* macket-robot :init args))

Modified: trunk/EusLisp/models/macra-robot.l
===================================================================
--- trunk/EusLisp/models/macra-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/macra-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3199,9 +3199,9 @@
   (:arm-1-shoulder-p (&rest args) (forward-message-to joint16 args))
   (:head-neck-y (&rest args) (forward-message-to joint20 args))
   (:head-neck-p (&rest args) (forward-message-to joint21 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 macra (&rest args) (instance* macra-robot :init args))

Modified: trunk/EusLisp/models/miharu-robot.l
===================================================================
--- trunk/EusLisp/models/miharu-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/miharu-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1393,9 +1393,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 miharu (&rest args) (instance* miharu-robot :init args))

Modified: trunk/EusLisp/models/millennium-robot.l
===================================================================
--- trunk/EusLisp/models/millennium-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/millennium-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1834,9 +1834,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint9 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint10 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 millennium (&rest args) (instance* millennium-robot :init args))

Modified: trunk/EusLisp/models/patra-robot.l
===================================================================
--- trunk/EusLisp/models/patra-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/patra-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1322,9 +1322,9 @@
   (:patra-back-limb-back (&rest args) (forward-message-to joint1 args))
   (:patra-lower-limb-rear (&rest args) (forward-message-to joint3 args))
   (:patra-lower-limb-front (&rest args) (forward-message-to joint2 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 patra (&rest args) (instance* patra-robot :init args))

Modified: trunk/EusLisp/models/penguin-robot.l
===================================================================
--- trunk/EusLisp/models/penguin-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/penguin-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1644,9 +1644,9 @@
   (:rleg-crotch-y (&rest args) (forward-message-to joint9 args))
   (:rleg-crotch-p (&rest args) (forward-message-to joint10 args))
   (:tail-tail-y (&rest args) (forward-message-to joint11 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 penguin (&rest args) (instance* penguin-robot :init args))

Modified: trunk/EusLisp/models/saizo-robot.l
===================================================================
--- trunk/EusLisp/models/saizo-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/saizo-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1652,9 +1652,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint13 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint14 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint11 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 saizo (&rest args) (instance* saizo-robot :init args))

Modified: trunk/EusLisp/models/tama-robot.l
===================================================================
--- trunk/EusLisp/models/tama-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tama-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1494,9 +1494,9 @@
   (:rbleg-crotch-y (&rest args) (forward-message-to joint10 args))
   (:rbleg-knee-r (&rest args) (forward-message-to joint9 args))
   (:rbleg-ankle-r (&rest args) (forward-message-to joint8 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 tama (&rest args) (instance* tama-robot :init args))

Modified: trunk/EusLisp/models/tamaii-robot.l
===================================================================
--- trunk/EusLisp/models/tamaii-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tamaii-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1674,9 +1674,9 @@
   (:rbleg-crotch (&rest args) (forward-message-to joint13 args))
   (:rbleg-knee (&rest args) (forward-message-to joint12 args))
   (:rbleg-ankle (&rest args) (forward-message-to joint11 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 tamaii (&rest args) (instance* tamaii-robot :init args))

Modified: trunk/EusLisp/models/taro-robot.l
===================================================================
--- trunk/EusLisp/models/taro-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/taro-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1675,9 +1675,9 @@
   (:rleg-ankle-r (&rest args) (forward-message-to joint15 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint16 args))
   (:spine-spine-p (&rest args) (forward-message-to joint18 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 taro (&rest args) (instance* taro-robot :init args))

Modified: trunk/EusLisp/models/tot-robot.l
===================================================================
--- trunk/EusLisp/models/tot-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/tot-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -3089,9 +3089,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint2 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint1 args))
   (:rleg-ankle-r (&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 tot (&rest args) (instance* tot-robot :init args))

Modified: trunk/EusLisp/models/zero-robot.l
===================================================================
--- trunk/EusLisp/models/zero-robot.l	2013-05-01 04:43:15 UTC (rev 622)
+++ trunk/EusLisp/models/zero-robot.l	2013-05-01 04:45:11 UTC (rev 623)
@@ -1587,9 +1587,9 @@
   (:rleg-knee-p (&rest args) (forward-message-to joint5 args))
   (:rleg-ankle-p (&rest args) (forward-message-to joint6 args))
   (:rleg-ankle-r (&rest args) (forward-message-to joint7 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 zero (&rest args) (instance* zero-robot :init args))

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

Flat | Threaded

<< < 1 2 3 4 5 6 > >> (Page 4 of 6)

2013	Jan	Feb	Mar	Apr (31)	May (50)	Jun (6)	Jul (8)	Aug (4)	Sep (2)	Oct (4)	Nov (6)	Dec
2014	Jan (24)	Feb (2)	Mar	Apr	May (2)	Jun	Jul	Aug	Sep	Oct	Nov	Dec