X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fvector.lisp;h=2fa4b85e40f1f00b2543420f2926375b249a79c6;hb=d0f65b07a30adc989e36a82ddc0ed54d135d638e;hp=db9882c5b9a6d2fe87627bd488ee1e963c38bcba;hpb=b56c1a4dc22aa0ac827343667584aa6090b15f02;p=sbcl.git

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index db9882c..2fa4b85 100644
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -663,7 +663,9 @@
                            ;; args when a next-method is involved, to
                            ;; prevent compiler warnings about ignored
                            ;; args being read.
-                           (unless (and (eq 'ignore name) (member var req-args :test #'eq) (or cnm-p (member var parameters-setqd)))
+                           (unless (and (eq 'ignore name)
+                                        (member var req-args :test #'eq)
+                                        (or cnm-p (member var parameters-setqd)))
                              (push var outers))
                            (push var inners)))
                      (when outers