- 447 名前：デフォルトの名無しさん mailto:sage [04/02/12 11:24]
- どうした >>446 ! 何があったんだ!
どうも concatenate とか本質的でないとこで長くなってる気がするので CLOS 版は
format つかって文字列返すくらいにしといたほうがいいのでは？
(defclass <obj> () ())
(defmethod m ((self <obj>))
(format nil "method for an ordinary ~A~%" (class-name (class-of self))))
(setq obj1 (make-instance '<obj>))
(m obj1) => "method for an ordinary <obj>"
(setq obj2 (make-instance '<obj>))
(defmethod m ((self (eql obj2)))
(format nil "method *not* for an ordinary ~A" (class-name (class-of self))))
(m obj1) => "method *not* for an ordinary <obj>"
かつて Lisp 方面で CLOS ﾀﾞﾒﾎﾟプロトタイプベースｲｲ! って言ってた連中って
GUI ならプロトタイプのほうが自然だ ! とかプロトタイプベースのほうが速い! とか言っ
てたような記憶があるのです．やっぱ速いんですかね？
|
 |
