🚀 go-pugleaf

$@:G6a%H%s(J$@%H(JLisp$@$K$O1o$,$J$$>>ED(J@$@El9)Bg$G$9(J. $@AaB.$G$9$,(J, $@3'MM$,$*;H$$$N(J
CommonLisp$@$N=hM}7O$G$O<!$N$h$&$J%W%m%0%i(J$@%`$N7k2L$O$I$&$J$k$G$7$g$&$+(J?

(setq x 1)
(defun new-fun (x) (function (lambda () x)))
(setq foo (new-fun 4))
(funcall foo)
?

$@4X?t(Jnew-fun$@$O%/%m!]%8%c$rJV$7(J, $@$+$D(J, $@0z?t(Jx$@$O$=$N%/%m!]%8%c$KJa$^$C$F(J
$@$$$k$H(J$@9M$($l$PEz$O(J 4 $@$G$9(J. Allegro CL(3.2), AKCL(1.586)$@$G$O3N$+$K(J
$@M=A[DL$j$K$J$j$^$9(J. $@$7$+$7(J, $@:G6a<j$KF~$l$?(J CMU Lisp(16d)$@$G$O(J 1 $@$,JV$C$F(J
$@$-$^$9(J. CMU$@$N(JScott. E. Fahlman $@$K%/%l!]%`$7$?$H$3$m$3$l$O%P%0$G$O$J$/(J,
CommonLisp$@$N;EMM(J!$@$@$H$$$&JV;v$G$7$?(J. $@:G=i$N(Jsetq$@$GJQ?t(Jx$@$O(Jspecial$@@k8@$5$l(J
$@$F$$$k$N$G(J, $@FC$K2?$b;XDj$7$J$1(J$@$l$P(Jfunction$@$NCf$N(Jx$@$b(Jspecial$@$H$$$&2r<a$J$N(J
$@$G$7$g$&(J.

$@$7$+$7(J, $@$b$7$3$l$,K\Ev$K;EMM$@$H$7$?$i(J, $@$=$N0z?t(J$@$r%/%m!]%8%c$KEO$7$F$$$k(J
$@$h$&$JG$0U$N4X?t$N%;%^%s%F%#%/%9$rF0E*$KJQ$($k$3$H$,2DG=$K$J$C$F$7$^$$$^(J
$@$9(J. $@$"$k4X?t$r;HMQ$9$kA0$K(J, $@$=$N0z?t$HF1$8L>A0$NJQ?t$r30It$G(Jspecial$@@k8@(J
$@$9$l$P$$$$$N$G$9$+$i(J.

CommonLisp$@$N;EMM$K>\$7$$J}(J, $@@'Hs@53N$J$H$3$m$r$*65$($/$@$5$$(J.


--
$@>>EDM59,(J hmatsuda@cc.titech.ac.jp
$@El5~9)6HBg(J$@3XAm9g>pJs=hM}%;%s%?(J (03)3726-1111 ext.3299
$@El5~ETL\9u6hBg2,;3(J2-12-1