🚀 go-pugleaf

$B0fED!w@D3XBg$G$9!#(J
$BM>7W$JOC$+$bCN$l$^$;$s$,(Jfunctionp$B$N%9%Z%C%/$K4X$7$F$R$H$3$H!#(J

Functionp $B$N;EMM$O(JCLtL1$B$H(JCLtL2 (X3J13 draft)$B$H$N4V$N$$$/$D$+$N(J
incompatible change$B$N9`L\$N$R$H$D$G!"(J

1988$BG/(J3,6$B7n$N(J X3J13 meeting$B$G(J
(function x) = (typep x 'function)$B$G$"$k$3$H!"(J
$B$=$7$F(Jfunction$B7?$O!"(J cons$B7?$*$h$S(Jsymbol$B7?$H$O(Jdisjoint$B$G$"$k$3$H$r(J
$B5D7h$7$^$7$?!#$3$N7k2L!"(Jfunctionp$B$O%7%s%\%k$d%j%9%H$KBP$7$F$O>o$K(J
false$B$rJV$9$3$H$r0UL#$9$k$HL@5-$5$l$?$o$1$G$9!#(J
(CLtL2$BF|K\8lHG(Jpage 88-89)

$B$7$?$,$C$F!"(JCLtL1$B$N;EMM$,$$$$$H;W$($P!"(J
(functionp nil) --> T
$B$G$"$j!"(J
CLtL2$B$N;EMM$,$$$$$H;W$($P!"(J
(functionp nil)  -> NIL
$B$H$J$j$^$9!#(J

$B$J$*!"<j85$K$"$k=hM}7O$G$O!"(J
	Genera8.0.1$B$G$O(J nil
	Franz Allegro CL 4.0$B$G$O(Jnil
	Franz Allegro CL 3.1$B$G$O(JT
	Lucid CL 4.0beta$B$G$O(JT
$B$K$J$C$F$$$^$9!#(J

X3J13$B$G$N5DO@$NJ}8~$H$7$F$O!"(JCLtL1$B$N;EMM$N$^$^$G$O;EMM$N2r<a$N(J
$BE}0l$,:$Fq!"$+$D$=$N7k2L!"<B:]$NMxMQ$K$O$?$($i$l$J$$$N$G!"(J
$B$=$l$J$i(Jfunctionp$B$OK\Ev$K(Jfunction$B7?$N$b$N$@$1(J
$B!J$?$H$($P(Jcompiled object$B$H$+!K$KBP$7$F??$r(J
$BJV$9$h$&$K$7$h$&$H$$$&$H$$$&$3$H$@$C$?$H5-21$7$F$$$^$9!#(J

(defun test () ...)  --> TEST
(functionp 'test) --> NIL
(functionp test) --> error
(functionp (symbol-function 'test)) --> T

$B$H$$$&46$8$G$7$g$&$+!#(J
$B!J<XB-$G$9$,!"(Jdefun $B$7$?4X?t$N(Jsymbol-function$B$NCM$O(J
$B3F=hM}7O$G$$$m$$$m$"$C$F$*$b$7$m$$$G$9$M!#!K(J