🚀 go-pugleaf

$@1286!w(JIBM$@$G$9!#(J

 >$@9uED!w?tM}%7%9%F%`$G$9!#(J
 >$@$3$s$J$N$G$$$$$N$G$7$g$&$+!)(J

$@$I(J$@$&$b$"$j$,$H$&$4$6$$$^$9!#(J
$@;d$N<j85$K$"$k$N$HF1$8$h$&$J%3!<%I$r=P$7$^$9$M!#(J

$@2?$,5$$K$J$C$?$+$H$$$$$^(J$@$9$H!"(J

 >>(defun afo (x y &aux z)
 >  (setf z (car y))        <--+-- $@$3$3(J
 >  (setf (car y) nil)      <--+
 >  (if (null x)
 >	y
 >	(prog1
 >	  (cons (car x) (afo (cdr x) y))
 >	  (bfo z))))

$@$KAjEv$9$k(J$@%3!<%I$O(J

 >TTL:;
 >	  {object V3;
 >	  V3= Cnil;
 >	  V3= CMPcar((V2));        <--+-- $@$3$3(J
 >	  (V2)->c.c_car = Cnil;    <--+

$@$J$s$G$9$1$I!"JQ?t(Jz$@$KAjEv$9$k(JC$@$N(Jauto$@JQ?t(JV3$@$r(J
value stack$@$K%;!<%V$9$k$3$H$J(J$@$/!"(Jmake_cons$@$,(J
$@<B9T$5$l$F$7$^$&!"$H$$$&E@$G$7$?!#(J

$@$I$&$b$*<j?t$r$+$1$^$7$?!#(J
----
$@$&$:!w%T%"%N$,$[$7(J$@$$(J