🚀 go-pugleaf

In article <HMATSUDA.92Jun22084904@rc.cc.titech.ac.jp> hmatsuda@cc.titech.ac.jp (Hiroyuki Matsuda) writes:
   $@4{B8$N%U%!%$%k$K>e5-4X?t(Jnew-fun$@$rDj5A$7$?%U%!%$%k$r(Jinclude$@$9$k$h$&$J(J
                                                      ^^^^^^^
   $@%W%m%0%i%`$r=q$$$F%3%s(J$@%Q%$%k$7$?$i$I$&$J$k$G$7$g$&(J. $@4X?t(Jnew-fun$@$,(J
   $@2?$r$7$h$&$H$7$F$$$k$N$+A0$b$C$F$o$+$C$F$$$J$$$H(J, $@$&$C(J$@$+$jJQ$JJQ?t$O(J

$@$J$k$[$I!%%F%-%9%H$H$7$F(J include $@$9$l$P!J$3$&$$$&5!G=$,$"(J
$@$k$+$I$&$+$OJL$H$7$F!KEvA3$G(J$@$9$,!$(Jload $@$G$bJQ$J$3$H$,5/$3(J
$@$j$^$9$M!%<!$N#2$D$N%U%!%$%k$rMQ0U$7$F!$(JCMU-Lisp $@$r$?$A$"(J
$@$2$F$+$i(J b $@$r(J$@%m!<%I$7$^$9!%(J

a.lisp ----------
(defun new-fun (x) (function (lambda () x)))
-----------------

b.lisp ----------
(setq x 1)
(load "a")
(setq tako (funcall (new-fun 5)))
-----------------

$@$3$N$H$->/$J(J$@$/$H$b(J a, b $@$I$A$i$+#1$D$G$b%3%s%Q%$%k$5$l$F$$(J
$@$l$P!$JQ?t(Jtako $@$NCM$O(J 5 $@$K$J$k$N$G$9$,!$$=$&$G$J$$!JN>(J$@J}$H(J
$@$b%$%s%?%W%j%?$G<B9T$9$k!K$H(J 1 $@$K$J$C$F$7$^$$$^$9!%(J

   $@;H$($J$/$J$C$F$7$^$$$^$9$h$M(J($@$b$A$m$s(J, special$@JQ?t$NB?MQ$O$9$Y$-$G$O(J
   $@$J$$$H$$$&JL<!85$NOC$7$OJL$K$7$F(J).

$@7k6I$3$&$$$&$3$H$K$J$C$F$7$^$&$N$G(J$@$7$g$&$+!%(Jproclaim $@$5$l(J
$@$?(J special $@JQ?t!J$D$^$j(J global $@JQ?t!K$r$&$+$D$K%m!<%+%kJQ(J
$@?t$H$7$F;H$C$F$O$$$1(J$@$J$$!*(J

$@%W%m%0%i%`Cf$G%W%m%0%i%`$r@8@.$7$J$,$i(J eval $@$G<B9T$5$;$k$h(J
$@$&$J%3!<%I$O5$$r$D$1$J$$$H$$$1$J$$(J$@$+$b!%(Jglobal $@JQ?t$K4X$9(J
$@$kL>A0IU$1$N%3%s%Y%s%7%g%s$r<i$C$F$$$l$P$"$s$^$j;v8N$O5/$-(J
$@$J$$$h$&$J5$$b$7$^(J$@$9$,!%(J

$@!t%3%s%Q%$%k$NA08e$G%;%^%s%F%#%/%9$,0[$J$C$F$7$^$&$J$s$F!%!%!%(J

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