src/codegen-proto.lisp (definst): Indent `dolist' form correctly.

Not really sure how this ended up wrong.  Oh, well.

diff --git a/src/codegen-proto.lisp b/src/codegen-proto.lisp
index 65f474518b4d82166d6f01542be7b8ae8a8da794..3f479b5f6e4eadc3bea7b47ef36ca27675719c38 100644 (file)
--- a/src/codegen-proto.lisp
+++ b/src/codegen-proto.lisp
@@ -190,25 +190,25 @@ (defmacro definst (code (streamvar &key export) args &body body)
                     (lbuild-add bvl full)
                     (lbuild-add public public-name)
                     (lbuild-add private private-name))))
                     (lbuild-add bvl full)
                     (lbuild-add public public-name)
                     (lbuild-add private private-name))))

-       (dolist (arg args)
-         (cond ((or (eq arg '&optional)
-                    (eq arg '&rest)
-                    (eq arg '&key)
-                    (eq arg '&aux))
-                (setf state arg)
-                (lbuild-add bvl arg))
-               ((eq arg '&allow-other-keys)
-                (lbuild-add bvl arg))
-               ((or (eq state :mandatory)
-                    (eq state '&rest))
-                (hack-arg arg '()))
-               ((or (eq state '&optional)
-                    (eq state '&aux))
-                (hack-arg arg '(0)))
-               ((eq state '&key)
-                (hack-arg arg '(0 1)))
-               (t
-                (error "Confusion in ~S!" 'definst)))))
+         (dolist (arg args)
+           (cond ((or (eq arg '&optional)
+                      (eq arg '&rest)
+                      (eq arg '&key)
+                      (eq arg '&aux))
+                  (setf state arg)
+                  (lbuild-add bvl arg))
+                 ((eq arg '&allow-other-keys)
+                  (lbuild-add bvl arg))
+                 ((or (eq state :mandatory)
+                      (eq state '&rest))
+                  (hack-arg arg '()))
+                 ((or (eq state '&optional)
+                      (eq state '&aux))
+                  (hack-arg arg '(0)))
+                 ((eq state '&key)
+                  (hack-arg arg '(0 1)))
+                 (t
+                  (error "Confusion in ~S!" 'definst)))))

        (values (lbuild-list bvl)
                (lbuild-list public)
                (lbuild-list private)))
        (values (lbuild-list bvl)
                (lbuild-list public)
                (lbuild-list private)))