From ca2c47c45620dd49a07a142f7f382e148a553452 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau Date: Mon, 27 Jan 2014 11:44:26 -0500 Subject: [PATCH] Add missing specialization to T after removal of declare ignorable. --- uiop/run-program.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp index 77c6e907..7a19e53f 100644 --- a/uiop/run-program.lisp +++ b/uiop/run-program.lisp @@ -282,7 +282,7 @@ Programmers are encouraged to define their own methods for this generic function (defmethod vomit-output-stream ((x (eql t)) stream &rest keys &key &allow-other-keys) (apply 'vomit-output-stream *standard-input* stream keys)) - (defmethod vomit-output-stream ((x null) stream &key) + (defmethod vomit-output-stream ((x null) (stream t) &key) (values)) (defmethod vomit-output-stream ((pathname pathname) input -- GitLab