2つの引数で汎用関数（マルチメソッド）を特化する

Question

共通のlispでバイナリ検索ツリーを構築しようとしています。私はこのようなCLOSを使用してバイナリ検索クラスを定義しています

(defclass bst() 
    ((root :type node 
     :accessor tree-root 
     :initform nil 
     :initarg root))) 

ツリーがキーとゼロが含まれている場合、私は木のオブジェクトとキーに取り、ブール値trueを返す汎用的な関数を定義しようとしていますツリーにキーが含まれていない場合

今私は、一般的な機能の次の定義を持っている：私はREPLにファイルをロードする際に

(defgeneric contains ((tree bst) (key)) 
    (:documentation "returns boolean of whether the given tree contains a particular key) 

は、私は（私はSBCLを使用しています）、次のエラーを取得：

Required argument is not a symbol: (TREE BST) 

ジェネリック関数の仕組みを誤解していますか？私は関数を適切に定義することはできません。

Answer 1

はい、defgenericは汎用関数を定義します。方法は、defgenericへの呼び出し、またはdefmethodへの呼び出しで指定できます。

(defgeneric contains (tree key) 
    (:documentation "returns boolean of whether the given tree contains a particular key") 
    (:method ((tree bst) key) ...)) 

か：：

(defgeneric contains (tree key) 
    (:documentation "returns boolean if a given tree contains a given key")) 

(defmethod contains ((tree bst) key) 
    ...)