🚀 go-pugleaf

>>>>> In <4kh8st$qr8@ns.h.kyoto-u.ac.jp> 
>>>>>	yoshio@ug.h.kyoto-u.ac.jp (HAYASHI Yoshio) wrote:

林さん> 一杉＠電総研さんによると、Common Lispの仕様通りということです。
林さん> 一杉さんメールありがとうございました。

林さん> Common Lispが自分の直感に合わない動作をしただけで、バグである
林さん> といってしまったようです。

林さん> プログラムもダイアログをだす必要もなく、
林さん> (defun gomi1 ()
林さん>   (let ((a '(0 0)))
林さん>     (print a)
林さん>     (incf (first a))))
林さん> だけで十分でした。

林さん> ところで、これが呼び出す度にaの値を変えてしまうのは、不自然に
林さん> 思うのですが、分かりやすく、それが自然に思えるように説明できる
林さん> 人がいましたら、教えてください。

林さん> 例えば、このことが役に立つ例などをあげてくれるとうれしいです。

＃ MCL は使っていない（というより Mac を使っていない）のですが…

  役に立つかどうかは判りませんが、オブジェクト指向もどきをするのに役に
立ちます。

  例えば、

(setq position
      (let ((x 0) (y 0))
	(list
	 (cons 'set-x #'(lambda (num) (setq x num)))
	 (cons 'set-y #'(lambda (num) (setq y num)))
	 (cons 'get-x #'(lambda () x))
	 (cons 'get-y #'(lambda () y))
	 )))

(funcall (cdr (assoc 'get-x position)))
-> 0

(funcall (cdr (assoc 'set-x position)) 10)
-> 10

(funcall (cdr (assoc 'get-x position)))
-> 10

てな感じです。これにちょっと皮をかぶせればちょっとしたオブジェクト指向
言語です。（(funcall (cdr (assoc METHOD OBJECT)) ARG ...) を 
(send-message OBJECT METHOD ARG ...) と書くとそれっぽい気分になります
よね。(^_^)）

  つまり、関数に内部状態を作りたい場合はこの方が便利です。

  上の関数に似たような例ですが、

(defun position (&key x y)
  (let ((pos '(0 0)))
    (if x
	(setf (nth 0 pos) x)
      )
    (if y
	(setf (nth 0 pos) y)
      )
    pos))

というような関数を書くことで値を設定する関数と値を返す関数を共通化でき
ます。それに状態を記憶するのに大域変数を作らなくても良いのがうれしいか
も知れません。

＃ もっとも、Emacs Lisp のような動的束縛も関数の機能を部分的に変えるの
＃ には便利で、どっちも捨て難いですが。

-- 
┯━…‥・懐かしい未来の記憶をふと思い出しかけた・‥…━━┯━━━┯━
││ ─ │  ─  ／    ─   ┼─     ┬                ─   ─┼ ┬┴─
┼┼─┼|〓━─┼ 守岡 知彦 (MORIOKA Tomohiko) <morioka@jaist.ac.jp>─
┻┻━┻━┷━━━━━━━━━━━━━━━━━━━━━━━━━━━━━