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] |