🚀 go-pugleaf

In article <19971124094018cal@nn.iij4u.or.jp> cal@nn.iij4u.or.jp (SASAKI Masato) writes:

    >> set$B$H(Bsetf$B$H(Bsetq$B$N0c$$$r$*$7$($F$/$@$5$$!#(BHyperSpec$B$rFI$s$@$N$G$9$,!"(B
    >> $BL2$?$/$J$C$F!"$$$^$$$A$h$/$o$+$j$^$;$s!#$*$M$,$$$7$^$9!#(B
   ($BN,(B)
    > $B$h$C$F4pK\E*$K$O(B
    > (set 'x neko)$B$b$7$/$O(B(set (quote x) neko)$B$H(B
    > (setq x neko)$B$,F1$8$3$H$K$J$j$^$9!#(B

CommonLisp$B0JA0$N(BLisp$B$G$O$=$&$J$k$b$N$,B?$+$C$?$H;W$$$^$9$,!"(BCommonLisp
$B$G$O0c$$$^$9!#Nc$($P!"(B

	(let ((x 1)) (setq x 2) x) => 2
	(let ((x 1)) (set 'x 2) x) => 1

$B$K$J$j$^$9!#(B(Emacs Lisp$B$G$O$I$A$i$b(B2$B$K$J$j$^$9(B)$B!#(B
------------------------------------------------------------
$B$G!"$^$:(BCommonLisp$B$K$O!"%W%m%0%i%`$N$"$kHO0O$@$1$+$i8+$($k!VIaDL$N!WJQ(B
$B?t$H!"(Bsymbol$B%G!<%?$K$/$C$D$$$?(Bspecial$BJQ?t$N(B2$BDL$j$,$"$k$3$H$rM}2r$7$F2<(B
$B$5$$!#(B

$BIaDL$NJQ?t$O(Blet$B$d(Blambda$B$d(Bdefun$B$NHO0O$G$7$+8+$($^$;$s$7!"%3%s%Q%$%k$7$F(B
$B$7$^$($PJQ?tL>$J$s$F(B($B%G%P%C%,MQ>pJs0J30$O(B)$B;D$j$^$;$s!#(B

special$BJQ?t$O!"(Bsymbol$B$H$$$&%G!<%?$r%-!<$K;H$C$F$I$3$+$i$G$b;2>H$G$-$^(B
$B$9!#%3%s%Q%$%k$7$F$b(Bsymbol$B$r%-!<$K;H$$$^$9!#(Bsymbol$B$H$$$&9=B$BN$N!"$"$k(B
$B%U%#!<%k%I$KCM$,F~$C$F$$$k$H;W$C$F$bNI$$$G$7$g$&!#(B

    > (set x neko)$B$O(B
    > neko$B$rI>2A$7$?7k2L$r(B
    > x$B$rI>2A$7$?7k2L$KBeF~$9$k!#(B

$B$3$l$O(Bspecial$BJQ?tMQ$NBeF~K!$G$9!#(Bx$B$rI>2A$7$?7k2L$O(Bsymbol$B$G$J$1$l$P$J$j(B
$B$^$;$s!#$=$N(Bsymbol$B$r(Bspecial$BJQ?t$r<($9%-!<$H$_$J$7$F!"$=$NJQ?t$NCM$rJQ(B
$B$($^$9!#(B

$BNc$($P!"(Bx$B$NCM$,(Bvar$B$G!"(Bneko$B$NCM$,(B1$B$N;~$r9M$($k$H!"(B
	(let ((x 'var) (neko 1)) (set x neko))
$B$N7k2L!"(Bvar$B$H$$$&(Bsymbol$B$,<($9(Bspecial$BJQ?t$NCM$,(B1$B$KJQ$o$j$^$9!#(B

    > (setq x neko)$B$O(B
    > neko$B$rI>2A$7$?7k2L$r(B
    > x$B$KBeF~$9$k!#(B

$B$3$3$G$O!"(Bx$B$O$=$N$^$^$GJQ?tL>$G$9!#(B

    > setf$B$O%^%/%m$J$N$G0lC6JL$N7A$KE83+$7$F!D!D$F$3$H$@$=$&$G$9$,!"(B
    > $B6qBNE*$K$I$&0c$&$N$+$O;d$K$b!D!D$4$a$s$J$5$$!#(B 

(setq $BJQ?tL>(B $B<0(B)$B$,!"IaDL$N8@8l$G$$$&$H$3$m$NBeF~J8$K$"$?$k$o$1$G$9$1$I!"(B
$BJQ?t$K8B$i$:?'$s$J$H$3$m(B(cons$B%;%k$d9=B$BN$N%U%#!<%k%I$H$+(B)$B$KBeF~$7$?$$(B
$B;~!"E}0lE*$K=q$1$k$h$&$K$7$?$N$,(B(setf $B>l=j(B $B<0(B)$B$G$9!#Nc$($P!"(B

    $BJQ$($?$$>l=j(B    $B@lMQ$NBeF~K!(B    setf$B$r;H$&BeF~K!(B
    ------------------------------------------------
    $B%m!<%+%kJQ?t(Bx   (setq x $BCM(B)    (setf x $BCM(B)
    special$BJQ?t(Bs    (set 's $BCM(B)    (setf (symbol-value s) $BCM(B)
    $B%;%k(Bc$B$N(Bcar$BIt(B    (rplaca c $BCM(B)  (setf (car c) $BCM(B)
    $B%7%s%\%k(Bs$B$N(B     (putprop 's 'p (setf (get 's 'p) $BCM(B)
     $BB0@-(Bp$B$NCM(B          $BCM(B)

$B$J$I$J$I!#@lMQ$NBeF~K!$OJL$K3P$($J$/$F$bNI$$$G$9!#(Bsetf$B$G$I$&$d$k$+$@$1(B
$B3P$($^$7$g$&!#(B

;;;             $B")(B182 $BEl5~ETD4I[;TD4I[%v5V(B 1-5-1 $BEE5$DL?.Bg3X(B $BBg3X1!(B
;;;                      $B>pJs%7%9%F%`3X8&5f2J(B $B>pJs%M%C%H%o!<%/3X@l96(B
;;;                        $BA0EDFX;J(B (MAEDA Atusi) maeda@is.uec.ac.jp