X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fgeneric-functions.lisp;h=bca7464a007933107ce24bb2f64ee16a512446b0;hb=42b8c7570a2faa21529fadeef84a0caea186aa8c;hp=14916d496206fa1b1ab98a135fd22f76502ab2c8;hpb=372989d837526e3100b364153d58181a2a563351;p=sbcl.git

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index 14916d4..bca7464 100644
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -440,12 +440,12 @@
 (defgeneric get-method (generic-function
 			qualifiers
 			specializers
-			&optional (errorp t)))
+			&optional errorp))
 
 (defgeneric find-method (generic-function
 			 qualifiers
 			 specializers
-			 &optional (errorp t)))
+			 &optional errorp))
 
 (defgeneric remove-named-method (generic-function-name
 				 argument-specifiers