X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=3c6b6149920f9bf7ad1d34477ab0ac32b7df693d;hb=b1f97e02b151845fd514e2fc254e69c1bd35ad48;hp=13bc885a07cd75927a3ab7e00cefc365952fde1f;hpb=0223f43d5f199914ebceff12b6f4c60448369edd;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 13bc885..3c6b614 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1717,7 +1717,7 @@
   ;; PARSE-LAMBDA-LIST to something handier.
   (multiple-value-bind (required optional restp rest keyp keys allowp
                         auxp aux morep more-context more-count)
-      (parse-lambda-list lambda-list)
+      (parse-lambda-list lambda-list :silent t)
     (declare (ignore restp keyp auxp aux morep))
     (declare (ignore more-context more-count))
     (values required optional rest keys allowp)))