diff --git a/tests.lisp b/tests.lisp
index 9eb24541031aa7e363b2723f7fca86e13f01358a..e35041b3b75b38e158514aa63091a8cce7d031fb 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -1900,11 +1900,12 @@
   t)
 
 (deftest parse-ordinary-lambda-list.1
-  (multiple-value-bind (req opt rest keys allowp aux keyp)
-      (parse-ordinary-lambda-list '(a b c &optional d &key))
-    (and (equal '(a b c) req)
-         (equal '((d nil nil)) opt)
-         (equal '() keys)
-         (not allowp)
-         (not aux)
-         (eq t keyp))))
+    (multiple-value-bind (req opt rest keys allowp aux keyp)
+        (parse-ordinary-lambda-list '(a b c &optional d &key))
+      (and (equal '(a b c) req)
+           (equal '((d nil nil)) opt)
+           (equal '() keys)
+           (not allowp)
+           (not aux)
+           (eq t keyp)))
+  t)