Specialize parse-tree method argument to suppress unused argument warning.

Closes #8
This commit is contained in:
Hans Huebner
2014-01-05 22:05:16 +01:00
parent b2c0f81ff4
commit 1075f9c3bb

View File

@ -325,7 +325,7 @@ it. Will also
(:documentation "Helper function for CONVERT-AUX which converts (:documentation "Helper function for CONVERT-AUX which converts
parse trees which are conses and dispatches on TOKEN which is the parse trees which are conses and dispatches on TOKEN which is the
first element of the parse tree.") first element of the parse tree.")
(:method ((token t) parse-tree &key) (:method ((token t) (parse-tree t) &key)
(signal-syntax-error "Unknown token ~A in parse-tree." token))) (signal-syntax-error "Unknown token ~A in parse-tree." token)))
(defmethod convert-compound-parse-tree ((token (eql :sequence)) parse-tree &key) (defmethod convert-compound-parse-tree ((token (eql :sequence)) parse-tree &key)