From 3da7d5a7e9ce7effb472f7bf0f09ee71dd84ac9b Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sun, 26 Jul 2020 01:44:11 +0100 Subject: [PATCH] src/codegen-proto.lisp (definst): Indent `dolist' form correctly. Not really sure how this ended up wrong. Oh, well. --- src/codegen-proto.lisp | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) 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 @@ (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))) -- 2.11.0