fuyukiなんの役に立つのかわからんが書いてみるシリーズ。 alist-table SLIBに同名のものがあるけど方向性がちがう。 こっちは単なるhash-tableもどき。 (use srfi-1) (use gauche.collection) (define-class <alist-table> (<collection>) ((key= :getter key=-of :init-keyword :key= :init-value eq?) (alist :accessor alist-of :init-value '()))) (define (make-alist-table . maybe-key=) (make <alist-table> :key= (get-optional maybe-key= eq?))) (define-method alist-table-get ((s
