09/01/03 20:28:50 rbhkd7ZK0
>>110
ありがとうございます！macroexpand で比較してみました。
(defconstant *n-const* 2)
(macroexpand '(case *n-const* (1 'one) (2 'two) (3 'three)))
=> (let ((#1=#:key *n-const*)) (if (eql #1# '1) (progn 'one) (if (eql #1# '2) (progn 'two) (if (eql #1# '3) (progn 'three) nil))))
(macroexpand '(cond ((= *n-const* 1) 'one) ((= *n-const* 2) 'two) ((= *n-const 3) 'three)))
=>(if (= *n-const* 1) 'one (if (= *n-const* 2) 'two (if (= *n-const 3) 'three nil)))
これからxyzzyの内部構造を勉強します。いいキッカケになりました。感謝、感謝です。
(参考)
URLﾘﾝｸ(xyzzy.s53.xrea.com)
URLﾘﾝｸ(xyzzy.s53.xrea.com)
URLﾘﾝｸ(himadatanode.qp.land.to)
URLﾘﾝｸ(www2.ocn.ne.jp)