Nobuhisa https://blog.hatena.ne.jp/Nobuhisa/ Nobuhisa's diary https://nobuhisa.hatenablog.jp/ CLOS メモ 興味あるけどまだ触ってないCLOS。 こんなことができるらしい。 (defclass name () ()) (defmethod say ((n name) string) (format t "~A" string)) (defmethod say :before ((n name) string) (princ "Hello,")) (defmethod say :after ((n name) string) (princ " speaking.")) (say (make-instance 'name) "Bobby") ;Hello,Bobby speaking. http://j… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnobuhisa.hatenablog.jp%2Fentry%2F20080324%2F1206433183" title=" - Nobuhisa&#39;s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2008-03-24 17:19:43 rich https://nobuhisa.hatenablog.jp/entry/20080324/1206433183 1.0 100%