From: <k-...@us...> - 2014-01-23 09:40:49
|
Revision: 667 http://sourceforge.net/p/euslisp/code/667 Author: k-okada Date: 2014-01-23 09:40:32 +0000 (Thu, 23 Jan 2014) Log Message: ----------- filter with nkf -j 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/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/test.tex Modified: trunk/EusLisp/doc/jlatex/jarith.tex =================================================================== --- trunk/EusLisp/doc/jlatex/jarith.tex 2014-01-23 09:39:13 UTC (rev 666) +++ trunk/EusLisp/doc/jlatex/jarith.tex 2014-01-23 09:40:32 UTC (rev 667) @@ -1,213 +1,213 @@ -\section{$@?tCM1i;;(B} -\markright{\arabic{section}. $@?tCM1i;;(B} -\subsection{$@?tCM1i;;Dj?t(B} +\section{$B?tCM1i;;(B} +\markright{\arabic{section}. $B?tCM1i;;(B} +\subsection{$B?tCM1i;;Dj?t(B} \begin{refdesc} -\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} +\constdesc{most-positive-fixnum}{\#x1fffffff=536,870,911$B!#(B{\tt integer}$B$N@5$N:GBgCM!#(B} +\constdesc{most-negative-fixnum}{-\#x20000000= -536,870,912$B!#(B{\tt integer}$B$NIi$N:GBgCM(B} +\constdesc{short-float-epsilon}{IEEE$B$NIbF0>.?tE@I=8=7A<0$G$"$k(B{\tt float}$B$O!"(B +21$B%S%C%H$N8GDj>.?t(B($B$&$AId9f(B +$B$,(B1$B%S%C%H(B)$B$H(B7$B%S%C%H$N;X?t(B($B$&$AId9f$,(B1$B%S%C%H(B)$B$G9=@.$5$l$F$$$k!#(B +$B$7$?$,$C$F!"IbF0>.?tE@8m:9(B$\epsilon$$B$O(B $2^{-21}= 4.768368 \times 10^{-7}$$B$H$J$k!#(B} +\constdesc{single-float-epsilon}{{\bf short-float-epsilon}$B$HF1MM$K(B $2^{-21}$$B$G$"$k!#(B} +\constdesc{long-float-epsilon}{Euslisp$B$K$O!"(Bdouble$B$b(Blong float$B$b$J$$$?$a!"(B +{\bf short-float-epsilon}$B$HF1MM$K(B$2^{-21}$$B$G$"$k!#(B} +\constdesc{pi}{$\pi$$B!#(B $B<B:]$K$O(B 3.14159203$B$G!"(B 3.14159265$B$G$O$J$$!#(B} +\constdesc{2pi}{$2\times \pi$$B!#(B} +\constdesc{pi/2}{$\pi/2$$B!#(B} +\constdesc{-pi}{-3.14159203$B!#(B} +\constdesc{-2pi}{$-2\times \pi$$B!#(B} +\constdesc{-pi/2}{$-\pi/2$$B!#(B} \end{refdesc} -\subsection{$@Hf3S1i;;4X?t(B} +\subsection{$BHf3S1i;;4X?t(B} \begin{refdesc} \funcdesc{numberp}{object}{ -{\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} +{\em object}$B$,(B{\tt integer}$B$+(B{\tt float}$B$N;~!"(BT$B$rJV$9!#(B +$B$=$NJ8;z$,?t;z$G9=@.$5$l$F$$$k$H$-$bF1MM$G$"$k!#(B} \funcdesc{integerp}{object}{ -{\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} +{\em object}$B$,(B{\tt integer}$B$N;~!"(BT$B$rJV$9!#(B +{\tt float}$B$O(B{\bf round, trunc}$B$*$h$S(B{\bf ceiling}$B4X?t$G(B{\tt integer}$B$KJQ49$G$-$k!#(B} +\funcdesc{floatp}{object}{ {\em object} $B$,(B {\tt float} $B$N;~(B T $B$rJV$9!#(B +{\tt integer}$B$O(B{\bf float}$B4X?t$G(B{\tt float}$B$KJQ49$G$-$k!#(B} -\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{zerop}{number}{ {\em number}$B$,(B{\tt integer}$B$N%<%m$^$?$O(B +{\tt float}$B$N(B0.0$B$N;~!"(B T$B$rJV$9!#(B} +\funcdesc{plusp}{number}{{\em number}$B$,@5(B($B%<%m$O4^$^$J$$(B)$B$N$H$-!"(BT$B$rJV$9!#(B} +\funcdesc{minusp}{number}{{\em number}$B$,Ii$N$H$-!"(BT$B$rJV$9!#(B} \funcdesc{oddp}{integer}{ -{\em integer}$@$,4q?t$N$H$-!"(BT$@$rJV$9!#0z?t$O(B{\tt integer}$@$N$_M-8z!#(B} +{\em integer}$B$,4q?t$N$H$-!"(BT$B$rJV$9!#0z?t$O(B{\tt integer}$B$N$_M-8z!#(B} \funcdesc{evenp}{integer}{ -{\em integer}$@$,6v?t$N$H$-!"(BT$@$rJV$9!#0z?t$O(B{\tt integer}$@$N$_M-8z!#(B} +{\em integer}$B$,6v?t$N$H$-!"(BT$B$rJV$9!#0z?t$O(B{\tt integer}$B$N$_M-8z!#(B} \funcdesc{/=}{num1 num2}{ -{\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} +{\em num1}$B$,(B{\em num2}$B$HEy$7$/$J$$$H$-!"(BT$B$rJV$9!#(B +{\em num1}$B$H(B{\em num2}$B$O?tCM$G$"$k$3$H!#(B} \funcdesc{=}{num1 num2 \&rest more-numbers}{ -{\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} +{\em num1}$B$H(B{\em num2}$BEy$7$$$H$-$r!"(BT$BJV$9!#(B +{\em num1}$B$H(B{\em num2}$B$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!"(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} +$B$3$l$i$NHf3S1i;;$O!"?tCM$N$_E,MQ$G$-$k!#8m:9$r4^$a$??tCMHf3S$KBP$7$F$O!"(B +\ref{Geometry}$B>O$K=q$+$l$F$$$k4X?t!J$3$l$i$NHf3S1i;;;R$NA0$K(B{\bf eps}$B$,(B +$B$D$$$F$$$k!K$r;HMQ$9$k!#(B} \end{refdesc} -\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 +\subsection{$B@0?t$H%S%C%HKh$NA`:n4X?t(B} +$B0J2<$N4X?t$N0z?t$O!"$9$Y$F(B{\tt integer}$B$H$9$k!#(B \begin{refdesc} \funcdesc{mod}{dividend divisor}{ -{\em dividend} $@$r(B {\em divisor}$@$G3d$C$?M>$j$rJV$9!#(B +{\em dividend} $B$r(B {\em divisor}$B$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(B {\tt integer} $@$H2>Dj$9$k!#(B} +$integer-1$ $B$rJV$9!#%3%s%Q%$%i$G$O!"0z?t$r(B {\tt integer} $B$H2>Dj$9$k!#(B} \funcdesc{1+}{integer}{ -$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} +$integer+1$ $B$rJV$9!#(B +{\bf 1+} $B$H(B {\bf 1$-$} $B$N0z?t$O!"(B{\tt integer} $B$G$J$1$l$P$J$i$J$$!#(B} +\funcdesc{logand}{\&rest integers}{{\em integers}$B$N%S%C%HC10L#A#N#D!#(B} +\funcdesc{logior}{\&rest integers}{{\em integers}$B$N%S%C%HC10L#O#R!#(B} +\funcdesc{logxor}{\&rest integers}{{\em integers}$B$N%S%C%HC10L#X#O#R!#(B} \funcdesc{logeqv}{\&rest integers}{ -{\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} +{\bf logeqv}$B$O(B{\tt (lognot (logxor ...))}$B$HF1Ey$G$"$k!#(B} +\funcdesc{lognand}{\&rest integers}{{\em integers}$B$N%S%C%HC10L#N#A#N#D!#(B} +\funcdesc{lognor}{\&rest integers}{{\em integers}$B$N%S%C%HC10L#N#O#R!#(B} +\funcdesc{lognot}{integer}{{\em integer}$B$N%S%C%HH?E>!#(B} \funcdesc{logtest}{integer1 integer2}{ -{\tt (logand {\em integer1 integer2})}$@$,%<%m$G$J$$$H$-(B T $@$rJV$9!#(B} +{\tt (logand {\em integer1 integer2})}$B$,%<%m$G$J$$$H$-(B T $B$rJV$9!#(B} \funcdesc{logbitp}{index integer}{ -{\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} +{\em integer}$B$,(BNIL$B$G$J$1$l$P!"(BLSB$B$+$i?t$($F(B {\em index}$BHVL\$N(B +$B%S%C%H$,(B 1 $B$N$H$-(B T $B$rJV$9!#(B} \funcdesc{ash}{integer count}{ -$@?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} +$B?tCM1i;;:8%7%U%H!#(B +$B$b$7(B {\em count} $B$,@5$N$H$-!"(B{\em integer}$B$r:8$K%7%U%H$9$k!#(B +$B$b$7(B {\em count} $B$,Ii$N$H$-!"(B +{\em integer} $B$r(B $\vert${\em count}$\vert$ $B%S%C%H1&$K%7%U%H$9$k!#(B} \funcdesc{ldb}{target position width}{ LoaD Byte. -{\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} +{\bf ldb} $B$d(B {\bf dpb} $B$N(BByte$B7?$O!"(B EusLisp$B$K$J$$$?$a!"Be$j$K(B +2$B8D$N(B {\tt integer} $B$r;HMQ$9$k!#(B +{\em target} $B$N(BLSB$B$h$j(B{\em position}$BHVL\$N0LCV$+$i(BMSB$B$X(B {\em width} $B%S%C%H$N(B +$BHO0O$rH4$-=P$9!#Nc$($P!"(B {\tt (ldb \#x1234 4 4)} $B$O(B 3$B$H$J$k!#(B} \funcdesc{dpb}{value target position width}{ DePosit Byte. -{\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} +{\em target}$B$N(BLSB$B$h$j(B{\em position}$BHVL\$N0LCV$X(B{\em value}$B$r(B +{\em width}$B%S%C%HCV$-49$($k!#(B} \end{refdesc} -\subsection{$@0lHL?tCM4X?t(B} +\subsection{$B0lHL?tCM4X?t(B} \begin{refdesc} -\funcdesc{+}{\&rest numbers}{{\em numbers}$@$NOB$rJV$9!#(B} +\funcdesc{+}{\&rest numbers}{{\em numbers}$B$NOB$rJV$9!#(B} \funcdesc{-}{num \&rest more-numbers}{ -$@$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} +$B$b$7(B {\em more-numbers} $B$,M?$($i$l$?$H$-!"(B{\em num}$B$h$j0z$/!#(B +$B$=$&$G$J$$$H$-!"(B{\em num} $B$OId9fH?E>$5$l$k!#(B} +\funcdesc{*}{\&rest numbers}{{\em numbers}$B$N@Q$rJV$9!#(B} \funcdesc{/}{num1 num2 \&rest more-numbers}{ -{\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} +{\em num1} $B$r!"(B{\em num2} $B$d(B {\em more-numbers}$B$G3d$j;;$9$k!#(B +$BA4$F$N0z?t$,(B{\tt integer}$B$N$H$-!"(B{\tt integer}$B$rJV$7!"(B +$B0z?t$K(B1$B$D$G$b(B{\tt float}$B$,$"$C$?$H$-$O!"(B{\tt float}$B$rJV$9!#(B} +\funcdesc{abs}{number}{{\em number}$B$N@dBPCM$rJV$9!#(B} \funcdesc{round}{number}{ -{\em number}$@$N>.?tBh(B1$@0L$r;M<N8^F~$7(B {\tt integer}$@$rJV$9!#(B +{\em number}$B$N>.?tBh(B1$B0L$r;M<N8^F~$7(B {\tt integer}$B$rJV$9!#(B {\tt (round 1.5)=2, (round -1.5)=2}.} \funcdesc{floor}{number}{ -{\em number}$@$N>.?t$r@Z<N$F$k!#(B +{\em number}$B$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!#(B +{\em number}$B$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!#(B +{\em number}$B$,@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(B{\tt float}$@$K$7$FJV$9!#(B} + {\em number}$B$r(B{\tt float}$B$K$7$FJV$9!#(B} \funcdesc{max}{\&rest numbers}{ - {\em numbers}$@$NCf$+$i!":GBgCM$r$5$,$9!#(B} + {\em numbers}$B$NCf$+$i!":GBgCM$r$5$,$9!#(B} \funcdesc{min}{\&rest numbers}{ -{\em numbers}$@$NCf$+$i!":G>.CM$r$5$,$9!#(B} +{\em numbers}$B$NCf$+$i!":G>.CM$r$5$,$9!#(B} \funcdesc{random}{range \&optional (randstate *random-state*)}{ - 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 + 0$B$"$k$$$O(B0.0 $B$+$i(B {\em range}$B$^$G$NMp?t$rJV$9!#(B +$B$b$7(B {\em range} $B$,(B {\tt integer}$B$N$H$-!"(B +{\tt integer} $B$KJQ49$7$FJV$9!#(B +$B$=$&$G$J$$$H$-!"(B{\tt float} $B$rJV$9!#(B +$B%*%W%7%g%s$N(B{\em randstate} $B$O!"7h$^$C$?Mp?tNs$GI=$5$l$k!#(B +{\em randstate}$B$KFCJL$J%G!<%?$N7?$O$J$/!"(B +2$B$D$NMWAG$+$i$J$k(B $B@0?t%Y%/%H%k$GI=$5$l$k!#(B } \macrodesc{incf}{variable \&optional (increment 1)}{ -{\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} +{\em variable} $B$O0lHL$NJQ?t$G$"$k!#(B +{\em variable} $B$O!"(B{\em increment}$B$@$1A}2C$5$l!"(B +{\em variable}$B$KLa$5$l$k!#(B} \macrodesc{decf}{variable \&optional decrement}{ -{\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} +{\em variable} $B$O0lHL$NJQ?t$G$"$k!#(B +{\em variable} $B$O!"(B{\em decrement}$B$@$18:>/$5$l!"(B +{\em variable}$B$KLa$5$l$k!#(B} \funcdesc{reduce}{func seq}{ -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}.} +2$BJQ?tA`:n$N(B{\em func}$B4X?t$rMQ$$$F!"(B{\em seq}$B$NCf$NA4$F$NMWAG$r7k9g$5$;$k!#(B +$BNc$($P!"(B{\tt (reduce \#'expt '(2 3 4)) = (expt (expt 2 3) 4)=4096}.} -\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{rad2deg}{radian}{$B%i%8%"%sCM$r(B $BEY?tI=8=$KJQ49$9$k!#(B +\#R $B$OF1$8$b$N$G$"$k!#(B +EusLisp $B$NCf$G$N3QEY$NI=5-$O%i%8%"%s$G$"$j!"(B +EusLisp $BFb$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!#(B -$@$^$?(B \#D $@$G$b<B9T$G$-$k!#(B} +\funcdesc{deg2rad}{degree}{$B3QEYCM$r%i%8%"%sI=8=$KJQ49$9$k!#(B +$B$^$?(B \#D $B$G$b<B9T$G$-$k!#(B} \end{refdesc} -\subsection{$@4pK\4X?t(B} +\subsection{$B4pK\4X?t(B} \begin{refdesc} -\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{sin}{theta}{{\em theta} $B$O%i%8%"%s$GI=$5$l$k(B {\tt float} $BCM!#(B +$\sin(theta)$$B$rJV$9!#(B} +\funcdesc{cos}{theta}{{\em theta} $B$O%i%8%"%s$GI=$5$l$k(B {\tt float} $BCM!#(B +$\cos(theta)$$B$rJV$9!#(B} +\funcdesc{tan}{theta}{{\em theta} $B$O%i%8%"%s$GI=$5$l$k(B {\tt float} $BCM!#(B +$\tan(theta)$$B$rJV$9!#(B} +\funcdesc{sinh}{x}{ hyperbolic sine$B!"(B +$\frac{e^{x}-e^{-x}}{2}$$B$GI=$5$l$k!#(B} +\funcdesc{cosh}{x}{ hyperbolic cosine$B!"(B +$\frac{e^{x}+e^{-x}}{2}$$B$GI=$5$l$k!#(B} +\funcdesc{tanh}{x}{ hyperbolic tangent$B!"(B +$\frac{e^{x}+e^{-x}}{e^{x}-e^{-x}}$$B$GI=$5$l$k!#(B} +\funcdesc{asin}{number}{{\em number}$B$N(Barc sine$B$rJV$9!#(B} +\funcdesc{acos}{number}{{\em number}$B$N(Barc cosine$B$rJV$9!#(B} \funcdesc{atan}{y \&optional x}{ -{\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} +{\bf atan} $B$,(B1$B$D$N0z?t$@$1$N$H$-!"(Barctangent $B$r7W;;$9$k!#(B +2$B$D$N0z?t$N$H$-!"(B{\tt atan}$(y/x)$ $B$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!#(B} +\funcdesc{sqrt}{number}{{\em number} $B$NJ?J}:,$rJV$9!#(B} -\funcdesc{log}{number}{{\em number} $@$N<+A3BP?t$rJV$9!#(B} +\funcdesc{log}{number}{{\em number} $B$N<+A3BP?t$rJV$9!#(B} -\funcdesc{exp}{x}{$e^{x}$$@$rJV$9!#(B} +\funcdesc{exp}{x}{$e^{x}$$B$rJV$9!#(B} \funcdesc{expt}{a x}{ -{\em a}$@$N(B{\em x}$@>h$rJV$9!#(B} +{\em a}$B$N(B{\em x}$B>h$rJV$9!#(B} \end{refdesc} \newpage Modified: trunk/EusLisp/doc/jlatex/jcontact.tex =================================================================== --- trunk/EusLisp/doc/jlatex/jcontact.tex 2014-01-23 09:39:13 UTC (rev 666) +++ trunk/EusLisp/doc/jlatex/jcontact.tex 2014-01-23 09:40:32 UTC (rev 667) @@ -1,21 +1,21 @@ -\subsection{\label{Contact}$@N)BN$N@\?(>uBV2r@O(B} +\subsection{\label{Contact}$BN)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!#(B +$B$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+(B{\em c}$@$rK~$?$7$F$$$k(B -$@F0:n$N%j%9%H$rJV$9!#(B} +\funcdesc{constrained-motion}{c}{$B94B+(B{\em c}$B$rK~$?$7$F$$$k(B +$BF0:n$N%j%9%H$rJV$9!#(B} -\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{constrained-force}{m}{$B94B+$5$l$F$$$k(B{\bf body}$B$+$i(B +$B94B+$7$F$$$k(B{\bf body}$B$K2C$o$kNO$rJV$9!#(B{\em m}$B$O!"(B{\bf constrained-motion} +$B$+$iJV$5$l$kF0:n$N%j%9%H$G$"$k!#(B} -\funcdesc{draw-constraint}{c}{$@94B+(B{\em c}$@$rIA$/!#(B} +\funcdesc{draw-constraint}{c}{$B94B+(B{\em c}$B$rIA$/!#(B} -\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} +\funcdesc{draw-motion}{m a b}{{\em a}$B$,(B{\em b}$B$K@\?($7$F$$$k$H$-$K(B +$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!#(B +$B94B+$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!#(B -$@$3$NNc$O!$>e5-$N%W%m%0%i%`$H0lCW$7$F$$$k!#(B +$B%Z%0$r7j$KF~$l$k:n6H$K$*$$$F<h$jF@$kF0:n$NNc$r<!$N?^$G<($9!#(B +$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 2014-01-23 09:39:13 UTC (rev 666) +++ trunk/EusLisp/doc/jlatex/jcontrols.tex 2014-01-23 09:40:32 UTC (rev 667) @@ -1,164 +1,164 @@ -\section{$@@)8f9=B$(B} -\markright{\arabic{section}. $@@)8f9=B$(B} -\subsection{$@>r7oJ8(B} +\section{$B@)8f9=B$(B} +\markright{\arabic{section}. $B@)8f9=B$(B} +\subsection{$B>r7oJ8(B} -{\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 +{\bf and,or}$B$*$h$S(B{\bf cond}$B$O!"(BCommon Lisp$B$K$*$$$F%^%/%m$H$7$FCN$i$l$F$$$k$,!"(B +EusLisp$B$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!"(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} +{\em form}$B$O!"(BNIL$B$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(B +$B$b$7!"A4$F$N=q<0$,(Bnon-NIL$B$H$7$FI>2A$5$l$k$J$i$P!"(B +$B:G8e$NCM$,JV$5$l$k!#(B} \specialdesc{or}{\{form\}*}{ -{\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} +{\em form}$B$O!"(Bnon-NIL$BCM$,8=$l$k$^$G:8$+$i1&$KI>2A$5$l$k!#(B +$B$=$7$F!"$=$NCM$,JV$5$l$k!#(B +$B$b$7!"A4$F$N=q<0$,(BNIL$B$H$7$FI>2A$5$l$k$J$i$P!"(BNIL$B$rJV$9!#(B} \specialdesc{if}{test then [else]}{ -{\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} +{\bf if}$B$O!"#1$D$N(B{\it then}$B$H(B{\it else}$B=q<0$N$_$r;}$D$3$H$,$G$-$k!#(B +$B$=$3$KB?=E=q<0$r=q$-$?$$$H$-$O!"(B{\bf progn}$B$r;H$C$F(B +$B%0%k!<%W2=$7$J$1$l$P$J$i$J$$!#(B} \macrodesc{when}{test forms}{ -{\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} +{\bf if}$B$H0c$C$F!"(B +{\bf when}$B$H(B{\bf unless}$B$O!"B?=E(B{\em $B=q<0(B}$B$G=q$/$3$H$r5v2D$7$F$$$k!#(B +{\em test}$B$NI>2A$,(Bnon-NIL$B$N$H$-!"(B{\bf when}$B$O<B9T$5$l!"(B +$BI>2A$,(BNIL$B$N$H$-!"(B{\em unless}$B$O<B9T$5$l$k!#(B +$B$b$&0lJ}$G!"$3$l$i$N%^%/%m$O(B{\em else}$B=q<0$rDI2C$9$k$3$H$r(B +$B5v2D$7$F$$$J$$!#(B} \macrodesc{unless}{test forms}{ -{\tt(when (not {\em test}) . {\em forms})}$@$HF1Ey$G$"$k!#(B} +{\tt(when (not {\em test}) . {\em forms})}$B$HF1Ey$G$"$k!#(B} \specialdesc{cond}{{(test \{form\}*)}*}{ -$@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} +$BG$0U$N?t$N>r7o9`$O!"(B{\bf cond}$B$N8e$KB3$1$k$3$H$,$G$-$k!#(B +$B$=$l$>$l$N>r7o9`$K$*$$$F!":G=i$N=q<0(B{\em test}$B$,I>2A$5$l$k!#(B +$B$b$7!"(Bnon-NIL$B$G$"$C$?$H$-!"$=$N>r7o9`$N;D$j$N=q<0$O!"B3$$$FI>2A$5$l$k!#(B +$B$=$7$F!":G8e$NCM$,JV$5$l$k!#(B +$B$b$7!"(B{\em test}$B$N$"$H$K=q<0$,$J$+$C$?$J$i$P!"(B +{\em test}$B$NCM$,JV$5$l$k!#(B +{\em test}$B$,<:GT$7$?$H$-!"<!$N>r7o9`$O(B{\em test}$B$,(Bnon-NIL$BI>2A$5$l$k$+$^$?$O(B +$BA4$F$N>r7o9`$,?T$-$F$7$^$&$^$G7+$jJV$5$l$k!#(B +$B>r7o9`$,?T$-$F$7$^$C$?>l9g!"(B{\bf cond}$B$O(BNIL$B$rJV$9!#(B} \macrodesc{case}{key \{(\{label $|$ (\{lab\}*) \{form\}*)\}*}{ -{\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} +{\em key}$B$H(B{\em label}$B$,0lCW$7$?>r7o9`$K$D$$$F!"(B +{\em form}$B$,I>2A$5$l!":G8e$NCM$,JV$5$l$k!#(B +{\em key}$B$H(B{\em label}$B$N4V$NEy2A$O!"(B{\bf eq}$B$^$?$O(B +{\bf memq}$B$G9T$o$l!"(B{\bf equal}$B$G$O$J$$!#(B} \end{refdesc} -\subsection{$@C`<!<B9T$H(BLet} +\subsection{$BC`<!<B9T$H(BLet} \begin{refdesc} \funcdesc{prog1}{form1 \&rest forms}{ -{\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} +{\em form1}$B$H(B{\em forms}$B$O!"<!!9$HI>2A$5$l!"(B +{\em form1}$B$+$iJV$5$l$kCM$,(B{\bf prog1}$B$NCM$H$7$FJV$5$l$k!#(B} \specialdesc{progn}{\{form\}*}{ -{\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} +{\em form}$B$O<!!9$KI>2A$5$l!":G8e$N(B{\em form}$B$NCM$,JV$5$l$k!#(B +{\bf progn}$B$OFC<l=q<0$G$"$k!#$J$<$J$i!"%U%!%$%k$N:G=i$K8=$l$?$H$-(B +$BFCJL$J0UL#$r;}$D$+$i$G$"$k!#(B +$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 +$B$H$7$F8+$J$9!#(B +$B%^%/%m$,(B{\bf defun}$B$d(B{\bf defmethod}$B$NO"B3$G3HD%$5$l$k>l9g!"$=$l$,:G=i$K(B +$B8=$o$l$J$1$l$P$J$i$J$$$H$-$KLrN)$D!#(B} \macrodesc{setf}{\{access-form value\}*}{ -{\em value}$@$r0lHL2=JQ?t(B{\em access-form}$@$K3d$jEv$F$k!#(B} +{\em value}$B$r0lHL2=JQ?t(B{\em access-form}$B$K3d$jEv$F$k!#(B} \specialdesc{let}{(\{var $|$ (var [value])\}*) \{declare\}* \{form\}*}{ -$@%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} +$B%m!<%+%kJQ?t$r@8@.$9$k!#(B +$B$9$Y$F$N(B{\em value}$B$OI>2A$5$l!"JB9T$7$F(B{\em var}$B$K3d$jEv$F$i$l$k!#$9$J$o$A!"(B +{\tt (let ((a 1)) (let ((a (1+ a)) (b a)) (list a b)))} $B$N7k2L$O(B +(2 1)$B$G$"$k!#(B} \specialdesc{let*}{(\{var $|$ (var [value])\}*) \{declare\}* \{form\}*}{ -$@%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} +$B%m!<%+%kJQ?t$r@8@.$9$k!#(B +$BA4$F$N(B{\em value}$B$O<!!9$KI>2A$5$l!"(B{\em var}$B$K3d$jEv$F$i$l$k!#$9$J$o$A!"(B +{\tt (let ((a 1)) (let* ((a (1+ a)) (b a)) (list a b)))}$B$N7k2L$O(B +(2 2)$B$G$"$k!#(B} \end{refdesc} -\subsection{$@%m!<%+%k4X?t(B} +\subsection{$B%m!<%+%k4X?t(B} \begin{refdesc} \specialdesc{flet}{ (\{(fname lambda-list . body)\}*) \{form\}*}{ -$@%m!<%+%k4X?t$rDj5A$9$k!#(B} +$B%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!#(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} +$B%m!<%+%k$J%9%3!<%W$H$J$k4X?t$rDj5A$9$k!#(B +{\bf flet}$B$H(B{\bf labels}$B$H$N0c$$$O!"(B +{\bf flet}$B$GDj5A$5$l$?%m!<%+%k4X?t$O!"$=$NB>$N4X?t$r;2>H$^$?$O:F5"$G$-$J$$$,!"(B +{\bf labels}$B$OAj8_$N;2>H$r5v2D$9$k!#(B} \end{refdesc} -\subsection{$@%V%m%C%/$H(BExit} +\subsection{$B%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!#(B -{\em tag}$@$O!"%m!<%+%k$K%9%3!<%W$5$l!"I>2A$5$l$J$$!#(B} +{\bf return-from}$B$K$h$C$FC&=P2DG=$J%m!<%+%k%V%m%C%/$r:n$k!#(B +{\em tag}$B$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!#(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} +{\em tag}$B$K$h$C$F<($5$l$?%V%m%C%/$rC&=P$9$k!#(B +{\bf return-from}$B$O!"4X?t$d%a%=%C%I$+$iC&=P$9$k$H$-$K;HMQ$5$l$k!#(B +$B4X?t$d%a%=%C%I$O!"$=$NK\BN$r$9$Y$F<h$j0O$s$@ItJ,$r%V%m%C%/$H$7$F(B +$B<+F0E*$K3NDj$5$l!"$=$N4X?t$^$?$O%a%=%C%I$NL>A0$rIU$1$k!#(B} \macrodesc{return}{value}{ -{\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} +{\tt (return x)}$B$O!"(B{\tt (return-from nil x)}$B$HF1Ey$G$"$k!#(B +{\bf loop, while, do, dolist, dotimes}$B$O!"0EL[E*$K(BNIL$B$HL>A0$,IU$1$i$l$?(B +$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!#(B -{\em tag}$@$OI>2A$5$l$k!#(B +{\bf throw}$B$K$h$C$FC&=P$^$?$OCM$rJV$9$?$a$NF0E*$J%V%m%C%/$r3NDj$9$k!#(B +{\em tag}$B$OI>2A$5$l$k!#(B -$@A4$F8+$($k(B{\bf catch}$@$N(B{\em tag}$@$O!"(B{\tt sys:list-all-catchers}$@$+$iF@$k$3$H$,$G$-$k!#(B} +$BA4$F8+$($k(B{\bf catch}$B$N(B{\em tag}$B$O!"(B{\tt sys:list-all-catchers}$B$+$iF@$k$3$H$,$G$-$k!#(B} \specialdesc{throw}{tag value}{ -{\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} +{\bf catch}$B%V%m%C%/$+$iC&=P$^$?$O(B{\em value}$B$rJV$9!#(B +{\em tag}$B$H(B{\em value}$B$OI>2A$5$l$k!#(B} \specialdesc{unwind-protect}{protected-form \{cleanup-form\}*}{ -{\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 +{\em protected-form}$B$NI>2A$,=*$C$?8e!"(B +{\em cleanup-form}$B$,I>2A$5$l$k!#(B +{\bf unwind-protect}$B$N30B&$K%V%m%C%/$^$?$O(B{\bf catch} +$B%V%m%C%/$r:n$C$F$b9=$o$J$$!#(B -{\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} +{\bf return-from}$B$d(B{\bf throw}$B$G$5$(!"$=$N$h$&$J%V%m%C%/$+$i(B +$BH4$1=P$9$?$a$K$O(B{\em protected-form}$B$NCf$G<B9T$5$l$k!#(B +{\em cleanup-form}$B$O!"I>2A$5$l$k$3$H$,J]>Z$5$l$F$$$k!#(B +$B$^$?!"$b$7(B{\em protected-form}$B$,<B9T$5$l$F$$$k4V$K%(%i!<$,5/$3$C$?$J$i$P!"(B +{\em cleanup-form}$B$O$$$D$b(B{\bf reset}$B$K$h$C$F<B9T$5$l$k!#(B} \end{refdesc} -\subsection{$@7+JV$7(B} +\subsection{$B7+JV$7(B} \begin{refdesc} \specialdesc{while}{test \{form\}*}{ -{\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} +{\em test}$B$,(Bnon-NIL$B$HI>2A$5$l$F$$$k4V!"(B +{\em form}$B$O!"7+JV$7I>2A$5$l$k!#(B +{\bf while}$B$O!"(B{\em form}$B$N$^$o$j$K(BNIL$B$HL>IU$1$i$l$k%V%m%C%/$r<+F0E*$K3NDj$9$k(B +$BFC<l=q<0$G$"$k!#(B +{\bf return}$B$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!"(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} +{\em tag}$B$O!"(B{\bf go}$B$N$?$a$KL>IU$1$i$l$k!#(B +{\bf tagbody}$B$NCf$N$_(B{\bf go}$B$r;HMQ$9$k$3$H$,$G$-$k!#(B} \specialdesc{go}{tag}{ -$@%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} +$B%m!<%+%k$K%9%3!<%W$5$l$?(B{\bf tagbody}$B$N$J$+$K8=$l$k(B{\em tag}$B$ND>8e$N(B +$B=q<0$K@)8f$r0\$9!#(B +$B%m!<%+%k%9%3!<%W$r2#@Z$C$F0c$&(B{\bf tagbody}$B$N(Btag$B$K@)8f$r0\$9$3$H$O(B +$B6X;_$5$l$F$$$k!#(B} \macrodesc{prog}{(\{var $|$ (var [init])\}*) \{tag $|$ statement\}*}{ -{\bf prog}$@$O%^%/%m$G!"0J2<$N$h$&$KE83+$5$l$k!#(B +{\bf prog}$B$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!#(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} +{{\em var}$B$O%m!<%+%kJQ?t$G$"$k!#(B +$B$=$l$>$l$N(B{\em var}$B$K!"(B{\em init}$B$OJB9T$KI>2A$5$l!"3d$jEv$F$i$l$k!#(B +$B$D$.$K!"(B{\em endtest}$B$,I>2A$5$l!"$b$7??$N$H$-(B{\bf do}$B$O(B{\em result}$B$rJV$9!#(B + ($B$=$&$G$J$$$H$-$O!"(BNIL$B$rJV$9(B) +$B$b$7(B{\em endtest}$B$,(BNIL$B$rJV$7$?$J$i$P!"$=$l$>$l$N(B{\em form}$B$O!"(B +$B=gHV$KI>2A$5$l$k!#(B +$B=q<0$NI>2A8e!"(B{\em next}$B$,I>2A$5$l!"$=$NCM$O(B +$B$=$l$>$l$N(B{\em var}$B$K:F3dEv$5$l!"<!$N7+JV$7$,;O$^$k!#(B} \macrodesc{do*}{(\{var init [next]\}*) (endtest [result])\{declare\} \{form\}*} -{{\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} +{{\bf do*}$B$O!"(B{\em init}$B$H(B{\em next}$B$NI>2A$H(B +{\em var}$B$X$N3d$jEv$F$,O"B3E*$K5/$3$k$3$H$r=|$$$F!"(B{\bf do}$B$HF1MM$G$"$k!#(B} \macrodesc{dotimes}{(var count [result]) \{forms\}*}{ -{\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} +{\em forms}$B$NI>2A$r(B{\em count}$B2s9T$&!#(B +{\em count}$B$O!"0l2s$N$_I>2A$5$l$k!#(B +$B$=$l$>$l$NI>2A$NCf$G!"(B{\em var}$B$O@0?t$N%<%m$+$i(B +{\em count}-1$B$^$GA}2C$9$k!#(B} \macrodesc{dolist}{(var list [result]) \{forms\}*}{ -{\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} +{\em list}$B$N$=$l$>$l$NMWAG$O!"(B{\em var}$B$KO"B3E*$KM?$($i$l$k!#(B +$B$=$7$F(B{\em forms}$B$O!"$=$l$>$l$NCM$GI>2A$5$l$k!#(B +{\bf dolist}$B$O!"B>$N7+JV$7$h$jAa$/<B9T$5$l$k!#$?$H$($P!"(B +{\bf mapcar}$B$d:F5"E*4X?t$N$h$&$J$b$N$h$j!#(B +$B$=$l$O!"(B{\bf dolist}$B$,4X?t$N(Bclosure$B$r:n$C$?$jE,MQ$7$?$j$9$kI,MW$,(B +$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!"(B{\em forms}$@$rI>2A$9$k!#(B} +{\em condition}$B$,K~$?$5$l$F$$$k4V!"(B{\em forms}$B$rI>2A$9$k!#(B} \macrodesc{loop}{\{forms\}*}{ -{\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} +{\em forms}$B$r1J1s$KI>2A$9$k!#(B +$B<B9T$r;_$a$k$?$a$K$O!"(B{\bf return-from, throw}$B$^$?$O(B{\bf go}$B$,(B +{\em forms}$B$N$J$+$GI>2A$5$l$J$1$l$P$J$i$J$$!#(B} -\subsection{$@=R8l(B} +\subsection{$B=R8l(B} -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 +Common Lisp$B$N(B{\bf typep}$B$H(B{\bf subtypep}$B$O$J$$$N$G!"(B +{\bf subclassp}$B$d(B{\bf derivedp}$B$G5?;w<B8=$9$k$3$H!#(B \begin{refdesc} -\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{eq}{obj1 obj2}{{\em obj1}$B$H(B{\em obj2}$B$,F1$8%*%V%8%'%/%H$r;X$9%]%$%s%?$"$k$$$OF1$8(B +$B?tCM$N$H$-(BT$B$rJV$9!#(B +$BNc$($P(B:{\tt (eq 'a 'a)}$B$O(BT$B!"(B{\tt (eq 1 1)}$B$O(BT$B!"(B{\tt (eq 1. 1.0)}$B$O(BNIL$B!"(B +{\tt (eq "a" "a")}$B$O(BNIL$B$G$"$k!#(B} \funcdesc{eql}{obj1 obj2}{ -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} +EusLisp$B$NCf$G?tCM$OA4$FD>@\CM$GI=8=$5$l$k$?$a!"(B{\bf eq}$B$H(B{\bf eql}$B$O(B +$BF10l$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!&(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} +$B$$$m$s$J9=B$$N%*%V%8%'%/%H$NEy2A@-$r%A%'%C%/$9$k!#%*%V%8%'%/%H$O!"J8;zNs!&%Y%/%H%k!&(B +$B9TNs$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}$B$d(B{\em obj2}$B$,:F5"E*$K;2>H$5$l$F$$$?$H$9$k$H!"(B +{\bf equal}$B$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!#(B} +{\bf superequal}$B$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}$@$,(BNIL$@$N$H$-!"(BT$@$rJV$9!#(B -{\tt (eq {\em object} nil)}$@$rI>2A$9$k!#(B} +\funcdesc{null}{object}{{\em object}$B$,(BNIL$B$N$H$-!"(BT$B$rJV$9!#(B +{\tt (eq {\em object} nil)}$B$rI>2A$9$k!#(B} \funcdesc{not}{object}{ -{\bf not}$@$O!"(B{\bf null}$@$HF10l$G$"$k!#(B} +{\bf not}$B$O!"(B{\bf null}$B$HF10l$G$"$k!#(B} \funcdesc{atom}{object}{ -$@%*%V%8%'%/%H$,(Bcons$@$N%$%s%9%?%s%9$G$"$k;~$N$_!"(BNIL$@$rJV$9!#(B +$B%*%V%8%'%/%H$,(Bcons$B$N%$%s%9%?%s%9$G$"$k;~$N$_!"(BNIL$B$rJV$9!#(B {\tt (atom nil) = (atom '()) = T)}\\ -$@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} +$BCm0U(B:vectors, strings, read-table, hash-table$B$J$I$KBP$7$F$O!"$=$l$i$,$I$s$J$K(B +$BJ#;($J%*%V%8%'%/%H$H$J$C$F$$$F$b(B{\bf atom}$B$O(BT$B$rJV$9!#(B} \funcdesc{every}{pred \&rest args}{ -$@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} +$BA4$F$N(B{\em args}$B$,(B{\em pred}$B$K$D$$$F(BT$B$rJV$7$?;~$N$_(B +T$B$rJV$9!#(B{\bf every}$B$O!"(B{\em pred}$B$,A4$F$N(B{\em args}$B$KBP$7$F8zNO$,$"$k$+$I$&$+$r(B +$B8!::$9$k;~$K;HMQ$5$l$k!#(B} \funcdesc{some}{pred \&rest args}{ -{\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} +{\em args}$B$N$&$A$I$l$+(B1$B$D$,(B{\em pred}$B$K$D$$$F(BT$B$rJV$7$?$H$-(B +T$B$rJV$9!#(B{\bf some}$B$O!"(B{\em pred}$B$,(B{\em args}$B$N$I$l$+$KBP$7$F8zNO$,$"$k$+$I$&$+$r(B +$B8!::$9$k;~$K;HMQ$5$l$k!#(B} \end{refdesc} \funcdesc{functionp}{object}{ -{\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 +{\em object}$B$,(B{\bf apply}$B$d(B{\bf funcall}$B$GM?$($i$l$k4X?t%*%V%8%'%/%H$G$"$k$J$i(BT$B$rJV$9!#(B\\ +$BCm0U(B:$B%^%/%m$O(B{\bf apply}$B$d(B{\bf funcall}$B$rE,MQ$9$k$3$H$,$G$-$J$$!#(B +{\bf functionp}$B$O!"(B{\em object}$B$,!"(Btype=0$B$N%3%s%Q%$%k%3!<%I$+!"4X?tDj5A$r;}$D(Bsymbol$B$+!"(B +lambda-form$B$+$"$k$$$O(Blambda-closure$B$G$"$C$?$H$-!"(BT$B$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$-!"(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} +{\em object}$B$,!"%3%s%Q%$%k%3!<%I$N%$%s%9%?%s%9$G$"$C$?$H$-!"(BT$B$rJV$9!#(B +$B$=$N%3%s%Q%$%k%3!<%I$,4X?t$+$^$?$O%^%/%m$+$rCN$k$?$a$K$O!"(B +$B$=$N%*%V%8%'%/%H$K(B{\tt :type}$B%a%C%;!<%8$rAw$j!"$=$NJV$jCM$,(B +{\tt function}$B$H(B{\tt macro}$B$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 2014-01-23 09:39:13 UTC (rev 666) +++ trunk/EusLisp/doc/jlatex/jevaluation.tex 2014-01-23 09:40:32 UTC (rev 667) @@ -1,684 +1,684 @@ -\section{$@I>2A(B} -\markright{\arabic{section}. $@I>2A(B} +\section{$BI>2A(B} +\markright{\arabic{section}. $BI>2A(B} -\subsection{$@I>2A4X?t(B} +\subsection{$BI>2A4X?t(B} -$@%(%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 +$B%(%i!<$d%7%0%J%k(B(signal)$B$K4X$9$k?6$kIq$$$r<($9$?$a$K!"(B +$B$"$i$+$8$a$=$l$>$lFCJL$NJQ?t(B{\bf *error-handler*}$B$H(B{\bf *signal-handler*} +$B$KE,Ev$J4X?t$r@_Dj$9$k!#(B +$B=$@5$"$k$$$OB39T$G$-$k%(%i!<$O$J$$!#(B +$B%(%i!<$r2r@O8e!"8=:_$N<B9T$r(B{\bf reset}$B$^$?$O>e0L%l%Y%k$X$NE,Ev$J(B{\bf throw} +$B$K$h$C$FDd;_$7$J$1$l$P$J$i$J$$!#(B +Euslisp$B$N:G>e0L%l%Y%k$G(B{\tt 0}$B$HL>IU$1$i$l$?(Bcatch frame$B$r:n@.$7$F$$$k$N$G!"(B +{\bf reset}$B$O!"(B{\tt (throw 0 NIL)}$B$HF1Ey$G$"$k!#(B -$@%(%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 +$B%(%i!<%O%s%I%i!<$O!"(B{\em code msg1 form \&optional (msg2)} +$B$H$$$&(B3$B$D$"$k$$$O(B4$B$D$N0z$-?t$r;}$D4X?t$H$7$FDj5A$7$J$1$l$P$J$i$J$$!#(B +{\em code}$B$O%(%i!<%3!<%I$G!"%7%9%F%`$GDj5A$5$l$?%(%i!<$r<($9!#(B +$BNc$($P!"(B14$B$,(B'$B0z$-?t$,9g$o$J$$(B'$B!"(B13$B$,(B'$B4X?t$,Dj5A$5$l$F$$$J$$(B'$B$H$J$k!#(B +$B$3$l$i$NDj5A$O!"(B"c/eus.h"$B$NCf$KDj5A$5$l$F$$$k!#(B +{\em msg1}$B$H(B{\em msg2}$B$O!"%f!<%6!<$K<($5$l$k%a%C%;!<%8$G$"$k!#(B +{\em form}$B$O!"%(%i!<$K$h$C$F@8$8$?(Bs$BI=8=$G$"$k!#(B -$@%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 +$B%7%0%J%k%O%s%I%i!<$O!"(B{\em sig}$B$H(B{\em code}$B$N(B2$B$D$N0z$-?t$r<u$1$k4X?t$H$7$F(B +$BDj5A$5$l$J$1$l$P$J$i$J$$!#(B +{\em sig}$B$O!"(B1$B$+$i(B30$B$^$G$N%7%0%J%kHV9f$G$"$k!#(B +{\em code}$B$O!"%7%0%J%kHV9f$NCf$KDj5A$5$l$?Jd=uHV9f$G$"$k!#(B -$@: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 +$B:G>e0L%l%Y%k$G$N(B\verb+^+D({\em end-of-file})$B$O!"(BEuslisp$B$N3hF0$rDd;_$5$;$k!#(B +$B$3$l$O!"(BEuslisp$B$r%U%#%k%?!<$H$7$F%W%m%0%i%`$5$l$F$$$k$H$-(B +$BLr$KN)$D!#(B -{\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 +{\bf eval-dynamic}$B$O!"(Blet$B$d(Blambda$BJQ?t$H$7$F;HMQ$5$l$k(Bsymbol$B$K7k$SIU$/(B +$BF0E*$JJQ?t$rA\$94X?t$G$"$k!#(B +$B%G%P%C%0$9$k$H$-$KLr$KN)$D!#(B \begin{refdesc} \funcdesc{identity}{obj}{ -{\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} +{\em obj}$B<+?H$rJV$9!#(B +{\bf idnetity}$B$H(B{\bf quote}$B$H$N0c$$$KCm0U$9$k$3$H!#(B +{\bf identity}$B$,4X?t$G$"$k$N$KBP$7$F(B{\bf quote}$B$O!"FC<l=q<0(B(special form) +$B$G$"$k!#(B +$B$7$?$,$C$F!"(B{\tt (identity 'abc)}$B$O(B{\tt abc}$B$HI>2A$5$l$k$,!"(B +{\tt (quote 'abc) == (quote (quote abc))}$B$O(B{\tt 'abc}$B$HI>2A$5$l$k!#(B +{\bf identity}$B$O!"B?$/$N0lHLNs4X?t$N(B{\em :key}$B%Q%i%a!<%?$N%G%U%)%k%HCM(B +$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!#(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} +{\em form}$B$rI>2A$7$F!"$=$NCM$rJV$9!#(B +$B$b$7!"(B{\bf *evalhook*}$B$K(B{\em form}$B$d(B{\em environment}$B$r<u$1$k4X?t$r(B +$B@_Dj$9$k$J$i$P!"(Bhook$B4X?t$rI>2A$KF~$kA0$K8F$S=P$9$3$H$,$G$-$k!#(B} \funcdesc{apply}{func \&rest args}{ -{\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 +{\em args}$B$K(B{\em func}$B$rE,MQ$9$k!#(B +{\em func}$B$O!"4X?t(Bsymbol$B$+(Blambda$B=q<0$+(Bclosure$B$G$J$1$l$P$J$i$J$$!#(B +$B%^%/%m$HFC<l=q<0(B(special form)$B$OE,MQ=PMh$J$$!#(B +{\em args}$B$N:G8e$NMWAG$O!"B>$N(B{\em args}$B$,6u$N0z$-?t$G$"$k$J$i(B +$B0z$-?t$N%j%9%H$G$J$1$l$P$J$i$J$$!#(B +$B$3$N$h$&$K!"$b$7!"(B{\em args}$B$N:G8e$,(BNIL$B$G$"$C$?$J$i$P!"(B +{\bf apply}$B$O$[$H$s$I(B{\bf funcall}$B$HF1$8$G$"$k!#(B +$B$?$@$7!"(B{\bf apply}$B$O(B{\bf funcall}$B$h$j(B1$B$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(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} +{\em args}$B$K(B{\em func}$B$rE,MQ$9$k!#(B +{\em args}$B$N?t$O!"(B{\em func}$B$GMW5a$5$l$F$$$k0z$-?t$N?t$H0lCW$7$J$1$l$P(B +$B$J$i$J$$!#(B} -\specialdesc{quote}{obj}{{\em obj}$@<+?H$rI>2A$9$k!#(B} +\specialdesc{quote}{obj}{{\em obj}$B<+?H$rI>2A$9$k!#(B} -\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} +\specialdesc{function}{func}{closure$B4X?t$r:n$k!#(B +$B$b$7!"(B{\em func}$B$,(Bsymbol$B$J$i$P!"$=$N4X?tDj5A$,8!:w$5$l$k!#(B} \funcdesc{evalhook}{hookfunc form [env]}{ -{\em hookfun}$@$r(B{\bf *evalhook*}$@$K7k$SIU$1$?8e!"(B{\em form}$@$r0lEYI>2A$9$k!#(B} +{\em hookfun}$B$r(B{\bf *evalhook*}$B$K7k$SIU$1$?8e!"(B{\em form}$B$r0lEYI>2A$9$k!#(B} \funcdesc{eval-dynamic}{variable}{ -$@%9%?%C%/$K$"$k(B{\em variable}(symbol)$@$NCM$rA\$9!#(B} +$B%9%?%C%/$K$"$k(B{\em variable}(symbol)$B$NCM$rA\$9!#(B} \funcdesc{macroexpand}{form}{ -$@$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} +$B$b$7!"(B{\em form}$B$,%^%/%m(Bcall$B$G$"$k$J$i!"$=$l$rE83+$9$k!#(B +$B$b$7!"E83+$7$?$b$N$,$^$@%^%/%m(Bcall$B$r4^$s$G$$$k$J$i$P!"(B +$B%^%/%m(Bcall$B$N$J$$7k2L$H$J$k$^$G$/$jJV$7E83+$9$k!#(B} \specialdesc{eval-when}{situation \{form\}*}{ -{\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} +{\em situation}$B$O(B{\tt compile, load, eval}$B$N%j%9%H$G$"$k!#(B +{\em form}$B$O!"8=:_$N<B9T%b!<%I$,(B{\em situation}$B$H0lCW$9$k$H$-$KI>2A$5$l$k!#(B +{\bf eval-when}$B$O!"%3%s%Q%$%i$G$NF0:n$d4D6-$r@)8f$9$k$?$a$K=EMW$J$b$N$G$"$k!#(B +$B$b$7!"(B{\tt compile}$B$,;XDj$5$l$?$J$i$P!"(B{\em form}$B$O%3%s%Q%$%i$K$h$C$F(B +$BI>2A$5$l$k$N$G!"$=$N7k2L$O%3%s%Q%$%k7k2L$K1F6A$r5Z$\$9$3$H$K$J$k!#(B +$BNc$($P!"(B{\bf defmacro}$B$O%3%s%Q%$%k;~$K%^%/%m(Bcall$B$rE83+$9$k$?$a$K%3%s%Q%$%i$G(B +$BI>2A$5$l$J$1$l$P$J$i$J$$!#(B +$B$b$7!"(B{\tt load}$B$,(B{\em situation}$B$N%j%9%H$KM?$($i$l$?$J$i$P!"(B +{\em form}$B$O(Bload$B;~$K(Bload$B$^$?$OI>2A$5$l$k$?$a$K%3%s%Q%$%k$5$l$k!#(B +$B$9$J$o$A!"(Bload$B;~$K%3%s%Q%$%k$5$l$?4X?t$,Dj5A$5$l$k!#(B +$B$3$l$O!"%3%s%Q%$%i$K4|BT$5$l$k0lHLE*$J5!G=$G$"$k!#(B +{\tt load}$B$O!"%3%s%Q%$%i$N4D6-$r@)8f$9$k$?$a$K;HMQ$5$l$k!#(B +$B$b$7!"(B{\tt eval}$B$,(B{\em situation}$B$N%j%9%H$K4^$^$l$F$$$k$J$i$P!"(B +{\em form}$B$O%=!<%9%3!<%I$,(Bload$B$5$l$k$H$-$KI>2A$5$l$k!#(B} \specialdesc{the}{type form}{ -{\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} +{\em form}$B$r(B{\em type}$B$H$7$F@k8@$9$k!#(B +{\em type}$B$O!"(B{\tt :integer, :fixnum, :float}$B$G<($5$l$k%/%i%9%*%V%8%'%/%H(B +$B$N$I$l$+$G$"$k!#(B} \specialdesc{declare}{declaration*}{ -$@$=$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 +$B$=$l$>$l(B{\em declaration}$B$O!"@k8@;XDj$d@0?t$"$k$$$OL\E*$N(Bsymbol$B$N%j%9%H$G$"$k!#(B +$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!#(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 +\item {special} $BFC<lJQ?t$r@k8@$9$k!#(B +\item {type} $BJQ?t$N7?$r@k8@$9$k!#(B; {\tt (type integer count)}; +$BM-8z$J7?;XDj;R$O(B{\em integer}, {\em :integer}, {\em fixnum}, +{\em :float}$B$H(B{\em float}$B$G$"$k!#7?;XDj;R$,$3$3$K<($7$?$b$N$N#1$D$G$"$k(B +$B$J$i$P!"(B{\bf type}$B%-!<%o!<%I$r:o=|$7$F$bNI$$!#$=$N$?$a!"(B +{\tt (integer count)}$B$O@5$7$$@k8@$G$"$k!#(B +{\em float-vector},{\em integer-vector}$B$J$I$N$h$&$J!"$=$NB>$N7?!J%/%i%9!K$G$O!"(B +{\tt (type float-vector vec1)}$B$N$h$&$K(B{\bf type}$B$rA0$KIU$1$kI,MW$,$"$k!#(B +\item {ftype} $B4X?t$N7k2L$N7?$r@k8@$9$k!#(B +\item {optimize} $B%3%s%Q%$%i$N(B*optimize*$B%Q%i%a!<%?$KCM(B(0--3)$B$r@_Dj$9$k!#(B +\item {safety} $B%3%s%Q%$%i$N(B*safety*$B%Q%i%a!<%?$KCM(B(0--3)$B$r@_Dj$9$k!#(B +\item {space} $B%3%s%Q%$%i$N(B*space*$B%Q%i%a!<%?$KCM(B(0--3)$B$r@_Dj$9$k!#(B +\item {inline} $BG'<1$7$J$$!#(B +\item {not-inline} $BG'<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!#(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} +$BJQ?t$d%3%s%Q%$%i%*%W%7%g%s$r%0%m!<%P%k$K@k8@$9$k!#(B +$BF1MM$J@k8@$O!"(B{\bf declare}$BFC<l=q<0$K$h$C$F5-=R$9$k$3$H$,$G$-$k!#(B +$B$7$+$7$J$,$i!"(B{\bf proclaim}$B$O!"(B1$B$D$N0z?t$r;}$D4X?t$G$"$j!"(B +$B@k8@$rI>2A$9$k!#(B} \funcdesc{warn}{format-string \&rest args}{ -{\em format-string}$@$H(B{\em args}$@$GM?$($i$l$k7Y9p%a%C%;!<%8$r(B -{\bf *error-output*}$@$K=PNO$9$k!#(B} +{\em format-string}$B$H(B{\em args}$B$GM?$($i$l$k7Y9p%a%C%;!<%8$r(B +{\bf *error-output*}$B$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!#(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} +{\bf *error-handler*}$B$K7k$SIU$/8=:_$N%(%i!<%O%s%I%i!<4X?t$r8F$S=P$9!#(B +$B%G%U%)%k%H$N%(%i!<%O%s%I%i!<(B'euserror'$B$r(B{\bf *error-output*}$B$K:G=i$K=PNO$7(B +{\em format-string}$B$H(B{\em args}$B$r(B{\bf format}$B$rMQ$$$F=PNO$9$k!#(B +$B$=$N8e!"?7$7$$:G>e0L%l%Y%k$N%;%C%7%g%s(B(session)$B$KF~$k!#(B +$B%W%m%s%W%H$K$O!"%(%i!<%;%C%7%g%s$N?<$5$r<($9!#(B +{\bf throw}$B$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(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 +$B%^%k%A%9%l%C%I(BEuslisp$B$K$*$$$F!"FC<lJQ?t$O%9%l%C%I4V$G6&M-$5$l!"(B +$BF1$8(B{\bf *error-handler*}$B$,0[$J$C$?%9%l%C%I$+$i;2>H$5$l$k!#(B +$B$3$NIT<+M3$rHr$1$k$?$a$K!"%^%k%A%9%l%C%I(BEuslisp$B$O(B{\bf install-error-handler} +$B4X?t$rHw$($F$$$k!#$=$N4X?t$O!"$=$l$>$l$N%9%l%C%I$KBP$7$F(B +$B0[$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!#(B} +{\em handler}$B$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(B} +\subsection{$B:G>e0L%l%Y%k$NBPOC(B} -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 +EusLisp$B$NI8=`$N:G>e0L%l%Y%k$NF~NO!]I>2A!]=PNO$N%k!<%W(B(loop)$B$O!"(B{\bf eustop} +$B$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$-!"(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 +euslisp$B$,8F$S=P$5$l$?$H$-!"(B +{\bf eustop}$B$O!"%[!<%`%G%#%l%/%H%j$+$i(B{\tt ".eusrc"}$B$H$$$&%U%!%$%k$r(B +$B$"$k$$$O(B{\tt EUSRC}$B4D6-JQ?t$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(B +$B$=$l$+$i!"(Beuslisp$B$O!"0z$-?t%j%9%H$G;XDj$5$l$?%U%!%$%k$r%m!<%I$9$k!#(B +$B$3$l$i$N%m!<%I$,=*N;8e!"(B{\bf eustop}$B$O!"IaDL$NBPOC%;%C%7%g%s(B(session)$B$KF~$k!#(B -{\bf *standard-input*}$@$K%f!<%6!<$N(BTTY$@$,@\B3$5$l$?$H$-!"(B -{\bf eustop}$@$O!"(B{\bf *prompt-string*}$@!J%G%U%)%k%H$H$7$F(B{\tt "eus\$"}$@$,(B -$@@_Dj$5$l$F$$$k!K$K@_Dj$5$l$?%W%m%s%W%H$r=PNO$9$k!#(B -$@$=$7$F!"(B{\bf *terminal-io*}$@%9%H%j!<%`$+$iL?Na$rF~NO$9$k!#(B -$@$b$7!"$=$NF~NO$,%+%C%3$G3g$i$l$?9T$J$i$P!"(B -{\bf eval}$@$K$h$C$F(Blisp$@=q<0$H$7$F07$o$l$k!#(B -$@$b$7!"F~NO9T$N:G=i$N(Bsymbol$@$K4X?tDj5A$,$"$C$?>l9g!"$=$N9T$K<+F0E*$K(B -$@%+%C%3$,F~$l$i$l!"I>2A$5$l$k!#(B -$@$b$7!"4X?tDj5A$,8+$D$+$i$J$+$C$?>l9g!"$=$NFC<lCM(B(special value)$@$,(B -$@D4::$5$l!"$=$NCM$,=PNO$5$l$k!#(B -$@$b$7!"$=$N(Bsymbol$@$K$J$K$bDj5A$5$l$F$J$$$J$i$P!"(B -$@$=$N9T$O(BUNIX$@L?Na$H$_$J$5$l!"(Bsh(Bourn's shell)$@$XEO$5$l$k!#(B -$@$b$7!"(Bsh$@$,0lCW$9$k(BUNIX$@L?Na$rA\$;$J$+$C$?$H$-!"(B -"command unrecognized"$@$H$$$&%a%C%;!<%8$r=PNO$9$k!#(B -$@$3$N$h$&$K!"(B{\bf eustop}$@$O(Blisp$@$N%$%s%?!<%W%j%?$*$h$S(BUNIX$@$N%7%'%k$H$7$FF0:n$9$k!#(B -$@$b$7!"F~NO$r(BUNIX$@L?Na$H$7$F<B9T$7$?$/$J$$$H$-!"(B -$@9T$N:G=i$K%3%s%^(B','$@$rIU$1$l$P$h$$!#(B -$@$3$l$O!"BPOC<B9T(B(interpretive execution)$@$G%(%i!<$,H/@8$... [truncated message content] |