MIZUNO https://blog.hatena.ne.jp/MIZUNO/ May the Source be with you https://mizuno.hatenadiary.org/ Gauche よくないと思いつつ、フラグで動作を切り分けた。 (define-method apply-generic ((gf ) args) (inc! (ref gf 'counter)) (with-time-counter (ref gf 'time) (next-method gf (cons '#f args))))next-method を呼ぶ際に #f か #t を引数の先頭に付加してみる*1。そして (define-method apply-generic ((gf ) args) (let ((return-value (next-method gf (cdr args)))) (if… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmizuno.hatenadiary.org%2Fentry%2F20080405%2F1207387663" title="プログラミング Gauch - 17 章 フラグで切り分けてみる - May the Source be with you" 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-04-05 18:27:43 rich https://mizuno.hatenadiary.org/entry/20080405/1207387663 1.0 100%