@node $BH!?t$KBP$9$kA`:n(B,,, $BAH$_9~$_H!?t(B
@section $BH!?t$KBP$9$kA`:n(B
@menu
* functor args funargs::
@end menu
@node functor args funargs,,, $BH!?t$KBP$9$kA`:n(B
@subsection @code{functor}, @code{args}, @code{funargs}
@findex functor
@findex args
@findex funargs
@table @t
@item functor(@var{func})
:: @var{func} $B$NH!?t;R$r<h$j=P$9(B.
@item args(@var{func})
:: @var{func} $B$N0z?t%j%9%H$r<h$j=P$9(B.
@item funargs(@var{func})
:: @code{cons(functor(@var{func}),args(@var{func}))} $B$rJV$9(B.
@end table
@table @var
@item return
@code{functor()} : $BITDj85(B, @code{args()}, @code{funargs()} : $B%j%9%H(B
@item func
$BH!?t7A<0$rI=$9ITDj85(B
@end table
@itemize @bullet
@item
$BH!?t7A<0$K4X$7$F$O(B, @code{vtype()} $B$r;2>H(B.
@item
$BH!?t7A<0(B @var{func} $B$NH!?t;R(B, $B0z?t%j%9%H$r<h$j=P$9(B.
@item
$B5U$K(B, $B<h$j=P$7$?H!?t;R$rCM$K;}$D%W%m%0%i%`JQ?t$r(B @code{F} $B$H$9$l$P(B (@code{*F})(x) $B$G(B
x $B$r0z?t$H$9$kH!?t8F$S=P$7$^$?$OH!?t7A<0$,F~NO$G$-$k(B.
@end itemize
@example
[0] functor(sin(x));
sin
[0] args(sin(x));
[x]
[0] funargs(sin(3*cos(y)));
[sin,3*cos(y)]
[1] for (L=[sin,cos,tan];L!=[];L=cdr(L)) @{A=car(L); print(eval((*A)(@@pi/3)));@}
0.86602540349122136831
0.5000000002
1.7320508058
@end example
@table @t
@item $B;2>H(B
@fref{vtype}.
@end table