🚀 go-pugleaf

kate@pfu.co.jp (KATAYAMA Yoshio) writes:

> (setq a '(defun foo ()
> 	   (let ((foobar '(a)))
> 	     foobar)))
> (eval a)
> (rplacd (foo) 'b)
> 
> をおこなうと、a の値は、
> 
> (defun foo nil (let ((foobar (quote (a . b)))) foobar))
> 
> になりますから、(eval a) では戻りません。

なるほど。そういう意味ですか。ありがとうございます。

しかしながらわたしの元記事で、

KURODA Hisao <kuroda@msi.co.jp> writes:

> > (defun foo ()
>     (let ((foobar '(a)))
>       foobar))
> foo
> 
> > (rplacd (foo) 'b)
> b
> 
> > (foo)
> (a . b)
> ------------------------------------------------------------------------
> 
> もちろん、(defun foo ...) をもう一度評価してやれば(foo)の返す値は元に戻
> ります。上に続けて、

とあり、(defun foo ...)をもう一度評価する、とは、

(defun foo ()
 (let ((foobar '(a)))
   foobar))

を評価することの意味で書きました。
この他に解釈があるようには思えないのですが…

片山さんの例ですと、(defun foo ...)を評価しているのではなく、
あくまでaを評価していることになると思います。

;;; $Id: .signature,v 1.3 1996/09/20 07:06:26 kuroda Exp $
(define (くろだ ひさお)
  (email kuroda@msi.co.jp))