🚀 go-pugleaf

$@F1$8$3$H$GG:$s$@EOIt!wKLN&@hC<Bg$G$9!%(J
$@$d$O$j(J CMU-CL(16d) $@$r;H$$;O$a$?$H$3$m$G$9!%(J

$@>>ED$5$s!'(J
				$@!'(J
   CommonLisp$@$N;EMM(J!$@$@$H$$$&JV;v$G$7$?(J. $@:G=i$N(Jsetq$@$GJQ(J$@?t(Jx$@$O(Jspecial$@@k8@$5$l(J
   $@$F$$$k$N$G(J, $@FC$K2?$b;XDj$7$J$1$l$P(Jfunction$@$NCf$N(Jx$@$b(Jspecial$@$H$$$&2r<a$J$N(J
   $@$G(J$@$7$g$&(J.

$@3N$+$K!$(JCLtL2, p.224 $@$G$O!$(Jspecial$@$N(J proclamation $@$O%P%$%s(J
$@%G%#%s%0$K1F6A$r$"$?$($k$H=q$$$F$"(J$@$j$^$9!J(JMacLisp$@$H$N%3%s(J
$@%Q%A%S%j%F%#$N$?$a$@$=$&$G$9!K!%(J

   $@$7$+$7(J, $@$b$7$3$l$,K\Ev$K;EMM$@$H$7$?$i(J, $@$=$N0z?t$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$@$^$$$^(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(J$@$+$i(J.

$@$=$&$G$O$J$$$h$&$G$9!%;n$7$K(J (setq x 1) $@$N0LCV$rJQ$($^$9!%(J
$@$D$^$j(J setq $@$K$h$C$F(J x $@$,(J special $@$@(J$@$H(J proclaim $@$5$l$k$h$j(J
$@A0$K(J new-fun $@$,I>2A$5$l$k$h$&$K$7$^$9!%N>J}$H$b:G8e$N(J 
funcall $@$O(J 4 $@$rJV$7$^$7(J$@$?!%(J

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

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

$@$I$&$b%/%m!<%8%c$r$D$/$k%9%3!<%W$,$G$-$k;~E@!J>e$NNc$G$O(J 
(defun new-fun ...) $@$,I>2A!?%3%s%Q%$%k$5$l$k;~E@!K$G(J 
proclaim $@$5$l$F$$$J$1$l$P%P%$%s%G%#%s%0$O1F6A$r<u$1$J$$$h(J
$@$&(J$@$G$9!%%3%s%Q%$%k$5$l$k$3$H$r9M$($l$PEvA3$G$7$g$&$1$I!%(J

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

$@;d$b$b$C$H$9$C$-$j$7$?@bL@$,CN$j$?$$$G$9!%(J

------------------------------------------------------------------------
$@EOItBnM:(J : $@KLN&@hC<2J3X5;=QBg3X1!Bg3X(J $@>pJs2J3X8&5f2J!J>pJs%7%9%F(J$@%`3X!K(J
TEL: 0761-51-1256, FAX: 0761-51-1338, e-mail: takuo@jaist-east.ac.jp