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
parse trees which are conses and dispatches on TOKEN which is the
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)))
(defmethod convert-compound-parse-tree ((token (eql :sequence)) parse-tree &key)