From 1075f9c3bbb028ed72e5e1561e19c73276daeeb5 Mon Sep 17 00:00:00 2001
From: Hans Huebner <hans.huebner@gmail.com>
Date: Sun, 5 Jan 2014 22:05:16 +0100
Subject: [PATCH] Specialize parse-tree method argument to suppress unused
 argument warning. Closes #8

---
 convert.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/convert.lisp b/convert.lisp
index d57674b..c2683ae 100644
--- a/convert.lisp
+++ b/convert.lisp
@@ -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)