🚀 go-pugleaf

$BJR;3!w#P#F#U$G$9!#(B

In article <714sofnufv.fsf@herbrand.msi.co.jp>,
	KURODA Hisao <kuroda@msi.co.jp> writes:

>> $B!VI>2A!W$8$c%@%a$G$9!%$b$&0l2sFI$_9~$^$;$F:n$jD>$5$;$J$$$H!%(B

>$B$=$l$C$F!VI>2A!W$9$k$3$H$G$9!#(B

$B$*Fs?M$N!VI>2A!W$N0UL#$,?)$$0c$C$F$$$^$9$M!#;d$O(B Lisp $B20$G$O$J$$(B
$B$N$G!"$I$A$i$N0UL#$,@5$7$$!J(Bor $B0lHLE*!K$J$N$+J,$+$j$^$;$s$,!"!"!"(B

>> $BNc$($P(B (setq a '(defun foo ...)) $B$H$d$C$F!$(B(eval a) $B$H$d$C$?$s$G$O(B
>> $B85$KLa$i$J$$$G$7$g!%(B

>$BLa$j$^$9$h!#(B

(setq a '(defun foo ()
	   (let ((foobar '(a)))
	     foobar)))
(eval a)
(rplacd (foo) 'b)

$B$r$*$3$J$&$H!"(Ba $B$NCM$O!"(B

(defun foo nil (let ((foobar (quote (a . b)))) foobar))

$B$K$J$j$^$9$+$i!"(B(eval a) $B$G$OLa$j$^$;$s!#(B

rplacd $B$G=q$-49$($F$$$k$N$,!"4X?tDj5A$N(B S $B<0Cf$N(B cons $B%;%k$@$+$i(B
$B$G$9!#(B

$B$J$*!"(B
--
$BJR;3!w#P#F#U(B