From b66d0ff82ceb91003357f0ca1190a34948fc7ebc Mon Sep 17 00:00:00 2001
From: Georgi Kirilov <>
Date: Sat, 31 Oct 2020 11:50:53 +0200
Subject: [PATCH] refmt: correct indent for defun-likes in Lisp

---
 fmt/lisp/lispwords.lua | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/fmt/lisp/lispwords.lua b/fmt/lisp/lispwords.lua
index 404f7c8..f1a62f9 100644
--- a/fmt/lisp/lispwords.lua
+++ b/fmt/lisp/lispwords.lua
@@ -6,7 +6,7 @@ return {
 	-- If none of the hash keys matched, this pattern is used
 	[0] = ("def" * (
 		"ine-" * P(1)^1 +
-		(P"un" + "class" + "constant" + "generic" + "macro" + "method" +
+		(P"class" + "constant" + "generic" + "macro" + "method" +
 		"package" + "parameter" + "setf" + "struct" + "type" + "var") * -P(1)) +
 		"with-" * P(1)^1) * Cc(1),
 
@@ -20,7 +20,7 @@ return {
 	['etypecase'] = 1,
 	['flet'] = 1,
 	['handler-bind'] = 1,
-	['if'] = 1,
+	['if'] = 2,
 	['lambda'] = 1,
 	['let'] = 1,
 	['let*'] = 1,
@@ -44,4 +44,6 @@ return {
 	['destructuring-bind'] = 2,
 	['do'] = 2,
 	['do*'] = 2,
+	['defun'] = 2,
+	['with-slots'] = 2,
 }
-- 
2.11.4.GIT