🚀 go-pugleaf

$B:4!9LZ>-?M!wH!4[!!$G$9!#(B

>Message-ID:<01bcf823$40c000c0$375aeeca@default>
>Date:1997/11/23 15:16:53
>From:"Shintaro Nakayama" <nakashin@green.ocn.ne.jp>
>
>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

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

(setq x neko)$B$O(B
neko$B$rI>2A$7$?7k2L$r(B
x$B$KBeF~$9$k!#(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

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 

----------------------------------------------------------------------
$B;d$OF|7P#M#I#X$N(Blisp/gc$B2q5D$K0i$F$i$l$^$7$?!D!D!#(B
I'm waiting for lisp/gc on mix.or.jp
      ever after from 31st/october/1997.....
            yours ever cal@nn.iij4u.or.jp .

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

  setq $B$OJQ?t$XCM$rBeF~$9$kEAE}E*$J7A<0$G$9$M!#(J
  BASIC $B$d(J C $B$G$$$&!VBeF~(J = $B!W$KAjEv$9$k%b%N$@$H8@$($k$H;W$$$^$9!#(J

      (setq <var_name> <form>)

  $B!D$H$$$&7A<0$G!"(J<var_name> $B$,I>2A$5$l$J$$E@$,FCD'E*$G$9!#(J
  $B$3$NE@$G!"(Jsetq $B$N(J q $B$O(J quote $B$N(J q $B$+$H!D(J

  set $B$O(J quote $B$NL5$$(J setq $B!#(J
  $B!D$H8@$C$F$7$^$($P2r$j0W$$$N$G$9$,!"<c43Cm0U$,I,MW$G$9!#(J
  $B3N$+$K(J <var_name> $B$NItJ,$,I>2A$5$l$F!"BeF~@h$rF0E*$KJQ$($i$l$k(J
  $B$N$,:GBg$NFCD'$J$N$G$9$,!D(J
  set $B$N<BAu$,!V4X?t!W$K$J$C$F$$$k$N$G!"6I=jJQ?t$X$NBeF~$K$O;H$&(J
  $B$3$H$,$G$-$^$;$s!#!J(Jsetq $B$N<BAu$O!VFC<l7A<0!W!K(J
  $B$J$<$+$O!"(Jset $B$HF1MM$N%3%H$r9T$&!V4X?t!W$r=q$$$F$_$l$P<+L@(J :)

  setf $B$O(J setq/set $B$r$+$J$jHFMQE*$K3HD%$7$?$b$N$G$9!#(J
  $BBeF~@h$H$7$FFC<lJQ?t$d6I=jJQ?t$NB>$K!"G$0U$N!V>l=j!W$r;XDj$7$F(J
  $B$d$k$3$H$,2DG=$K$J$C$F$$$^$9!#(J

      (setf <place> <form>)

  $BNc$($P!D(J

      (setf (nth 2 x) 9)

  $B!D$O!"%j%9%H(J x $B$N#3HVL\$NMWAG$X$NBeF~$K$J$j$^$9!#(J

  <place> $B$KG$0U$N>l=j$r;XDj$G$-$k$H=q$-$^$7$?$,!"%W%m%0%i%^$,(J
  $BFH<+$N>l=j$r;XDj$7$F$d$j$?$$>l9g$O!"(Jdefsetf $B$d(J define-setf-method
  $B$r;H$C$F!"$=$N>l=j$X$N3JG<J}K!$r(J Lisp $B$K65$($F$*$$$F$d$kI,MW(J
  $B$,$"$j$^$9!#(J
  $B>e5-$NNc$N(J nth $B$J$I$N>l9g$O!"$"$i$+$8$aAH$_9~$^$l$F$$$k!#!D$H(J


  RiffRaff