From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 26 Jul 2020 00:44:11 +0000 (+0100)
Subject: src/codegen-proto.lisp (definst): Indent `dolist' form correctly.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/3da7d5a7e9ce7effb472f7bf0f09ee71dd84ac9b

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 65f4745..3f479b5 100644
--- 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))))
-	(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)))