Path: titcca!ccut!kyu-cs!champon!umerin
From: umerin@tc.Nagasaki.GO.JP (Masanobu UMEDA)
Newsgroups: fj.lang.lisp
Subject: Re: CLOS performance. (In Japanese/Kanji)
Message-ID: <UMERIN.90Mar22115037@champon.tc.Nagasaki.GO.JP>
Date: 22 Mar 90 02:50:37 GMT
References: <187@ognews1.osakagas.co.jp>
	<YOSIKAWA.90Mar5211907@spls39.ccs.mt.nec.junet>
	<UMERIN.90Mar19190435@champon.tc.Nagasaki.GO.JP>
Sender: news@tc.nagasaki.go.jp
Reply-To: umerin@tc.Nagasaki.GO.JP
Distribution: fj
Organization: Technology Center, Nagasaki, Japan.
Lines: 22
In-reply-to: umerin@tc.Nagasaki.GO.JP's message of 19 Mar 90 10:04:35 GMT

In article <UMERIN.90Mar19190435@champon.tc.Nagasaki.GO.JP> umerin@tc.Nagasaki.GO.JP (Masanobu UMEDA) writes:
   次の関数は、vector.lisp から抜き出して来たものです。これは、メッソドの
   内部で最終的に実行される slot-value の実体です。ここで、変数 .pv. はス
   ペシャル変数となっていますが、これがその”情報”を覚えておく場所です。

間違いがありますので、自分で訂正します。.pv. はスペシャル変数ではあり
ません。それと、slot-value の本当の実体は、これです。

(let ((.temp. (memory-block-ref .pv. ,pv-offset)))
  (if (or (null .temp.)
	  (eq (setq .temp. (%svref (,slots-fetcher ,instance) .temp.))
	      ',*slot-unbound*))
      (pv-access-trap ,instance ,pv-offset .isl.)
    .temp.))

もっとも、皆さんはすでにご存知かも知れませんが。

P.S. フォローがないと言うことは、私の考え方は正しかったのかしら。それ
ともバカバカしくて相手にされないだけ？ 不安だな。。。
--
Masanobu UMEDA
umerin@tc.Nagasaki.GO.JP