🚀 go-pugleaf

In article <ICHISUGI.96Apr11083856@bunny.etl.go.jp>,
Yuuji Ichisugi <ichisugi@etl.go.jp> wrote:
]  $B0l?y!wEEAm8&$G$9(B
] 
] In article <4kh8st$qr8@ns.h.kyoto-u.ac.jp> yoshio@ug.h.kyoto-u.ac.jp (HAYASHI Yoshio) writes:
] >$BNS$G$9!#(B
] >
] >(defun gomi1 ()
] >  (let ((a '(0 0)))
] >    (print a)
] >    (incf (first a))))
] >
] >$B$H$3$m$G!"$3$l$,8F$S=P$9EY$K(Ba$B$NCM$rJQ$($F$7$^$&$N$O!"IT<+A3$K;W$&$N$G$9$,!"(B
] >$BJ,$+$j$d$9$/!"$=$l$,<+A3$K;W$($k$h$&$K@bL@$G$-$k?M$,$$$^$7$?$i!"65$($F$/(B
] >$B$@$5$$!#(B
] 
]  $B3($r;H$o$J$$$G@bL@$9$k$N$,$?$$$X$s$J$N$G!";d$O%Q%9$7$F$7$^$$$^$7$?!#(B
]  $B$I$J$?$+!"$*4j$$$7$^$9!#(B

$B!V(Ba $B$KB+G{$5$l$F$$$k$N$,%W%m%0%i%`%j%9%HCf$N%j%F%i%k(B (0 0) $B$@$+$i!W$G(B
$B$O%@%a$G$7$g$&$+(B($BI=8=$NIT@53N$5$K$OL\$r$D$`$C$F$d$C$F$/$@$5$$(B)$B!#(BLisp 
$B$G$O%W%m%0%i%`$b(B S $B<0$GI=8=$5$l$k$N$G!">e$N$h$&$J(B (let ((a '(0 0))) ... 
$B$N$h$&$J>l9g!"%W%m%0%i%`$N(B S $B<0$K4^$^$l$F$$$k(B (0 0) $B$H$$$&%j%9%H$=$N$b(B
$B$N$r(B a $B$KB+G{$7$?J}$,!"$$$A$$$A%R!<%W$+$i3MF@$9$k$h$j8zN($,NI$/$J$j$^(B
$B$9(B($B$7$+$b!"I{:nMQ$,L5$$8B$jFbItE*$K$O$I$A$i$NF0:n$G$bF)2aE*$G!"%W%m%0(B
$B%i%^$K$O0c$$$,8+$($^$;$s(B)$B!#$7$+$74X?t(B LIST $B$J$I$N>l9g!"%R!<%W$+$i?7$?(B
$B$K%a%b%j$r3MF@$7!"%j%9%H$r:n$C$F$=$l$rCM$H$7$FJV$7$^$9$+$i!"(B

(defun gomi2 ()
  (let ((a (list '0 '0)))
    (print a)
    (incf (first a))))

$B$H$9$k$H!V4|BT!WDL$j$N7k2L(B($BKh2s(B 1 $B$,JV$k(B)$B$,F@$i$l$kLu$G$9!#?7$7$$%j%9(B
$B%H$,Kh2s8F$S=P$7$4$H$K(B a $B$KB+G{$7$J$*$5$l$k$+$i$G$9!#(B

$B$H$$$&$h$&$J$3$H$G$h$m$7$$$N$G$7$g$&$+!#;d<+?H$NM}2r$K$b$"$^$j<+?.$,$J(B
$B$$$N$G$b$78m$j$,$"$l$P$4;XE&$$$?$@$1$l$P9,$$$G$9!#(B

] >$BNc$($P!"$3$N$3$H$,Lr$KN)$DNc$J$I$r$"$2$F$/$l$k$H$&$l$7$$$G$9!#(B
] 
]  $B%a%$%k$G$O!"$o$+$C$F$F;H$&J,$K$OI{:nMQ$bJXMx$G$9!"$H=q$$$F$7$^$$$^$7$?$,!"(B
] $B=i?4<T$N4V$O!"$I$&$+$=$N$3$H$OK:$l$F$/$@$5$$!#(B(^_^;)
]  $BI{:nMQ$O?5=E$K;H$($P!"<B9T8zN(%"%C%W$N<jCJ$K;H$($^$9!#(B

$B;d$OI{:nMQ$,F~$k$H%W%m%0%i%`$,0l5$$K=q$-$K$/$/!"FI$_$K$/$/!"%G%P%C%0$7(B
$B$K$/$/$J$k46$8$,$9$k$N$G7y$$$G$9(B(^^;)$B!#!V$;$C$+$/(B Lisp $B$G=q$$$F$k$N$K(B
$B$I$&$7$F$=$s$J(B C $B$_$?$$$K%W%m%0%i%`$7$J$-$c$$$1$J$$$N!)!W$H;W$C$F$7$^(B
$B$$$^$9(B(^^;)$B!#(B

$BCfED(B $B7r(B <kenn@eden.rutgers.edu>
-- 
"He who refuses to do arithmetic is doomed to talk nonsense." -- John McCarthy
 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
http://remus.rutgers.edu/~kenn/, ftp://remus.rutgers.edu/pub/NetBSD/index.html
Ken Nakata  . . . . Cook College, Rutgers - The State University of New Jersey