🚀 go-pugleaf

  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