Specialize some arguments on type T to silence CCL warnings.

git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-ppcre@4207 4281704c-cde7-0310-8518-8e2dc76b1ff0
This commit is contained in:
Hans Huebner
2009-02-09 12:15:29 +00:00
parent 274042dacf
commit 364d7df27d

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 parse-tree &key) (:method (token (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)