0.6.11.29:

[sbcl.git] / src / pcl / vector.lisp

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 4c72075..4e2b10d 100644 (file)
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -1070,10 +1070,11 @@
                     (nm (car next-methods))
                     (nms (cdr next-methods))
                     (nmc (when nm
-                           (make-method-call :function (if (std-instance-p nm)
-                                                           (method-function nm)
-                                                           nm)
-                                             :call-method-args (list nms)))))
+                           (make-method-call
+                            :function (if (std-instance-p nm)
+                                          (method-function nm)
+                                          nm)
+                            :call-method-args (list nms)))))
                (if restp
                    (let* ((rest (nthcdr nreq method-args))
                           (args (ldiff method-args rest)))