From 16e4aa37f01fe2b914e644d87a9ce60f50015738 Mon Sep 17 00:00:00 2001
From: sasagawa888 <ken-s@tkcnf.or.jp>
Date: Sun, 16 Jan 2022 14:01:00 +0900
Subject: [PATCH] Improve formatter

---
 edlis                 | Bin 63712 -> 63712 bytes
 library/formatter.lsp |   8 ++++++++
 2 files changed, 8 insertions(+)

diff --git a/edlis b/edlis
index 1f06a6cb38b3b2b2d95fa69d6a82893aa2fc9380..a59c085ba18ba01c7118be4d066dab2795fd9073 100755
GIT binary patch
delta 790
zcmYk)Ur19?90%}o?kxNhc9G#9bajoyhfxy(yHko8LK7hdDfLj~(4ng}mzy=oP{N30
z!RlvZZ!>yWQM9-|_|QWSJ@k-Z?q9u#P+)<9zDN=D>w8kDADsK)ckVgA^Sg(;x@lY8
zv}HW9%&ZlE!?e1jOIEckZ>RsHX>G;ccHI5zY}0yIZ{Gj&(Q@76gwJ)z8n@Z2wbEtl
ze%;J|{r9X8-a9J`68pV(kG-^7-J=hW^mLpsR0PA(z(~x9M*RJOsNwJLA08P9h6jz<
zun`JIBX~a$2*-?((NMs8wzOMHK`%a>nb<hbY@(v>XYPXrjKh`z=Fl!7QbA?|dGaE2
z627^_`~)sR)yXP+uM9KSYUu0=b0^G1Q4emwI5c9+GtdV!a5B!ku89eeyw2QULxFKL
z0`(irJ<v17oPvF~Z~&ZyU!l0oY%f6r(1eo-<{_xx!+K~C^GE1=z+8e4Sb_%htTCry
z25vwVc0pQppNvyuwnk>ioo$wB@@H#$Qx}+Zb=XemFoE%7h`9-0t3u7CFzmRQy-<ak
zn^$6P=M3RR{tjagEoQsr8>-7W9rL)YG;Tq3Rz_@ZWqD<(x5AF}9BO;XpR17(8q3u?
zrf{1FF^_fnX{_p~5W+<I9P4K3Rjyqo=zGp3L*&TU%M`isoTuJ=x16Q9yc2I1F_WZk
zd8hW}CRG;>AaNI5Qm0_ys2rj>JU#TO;B<5*nXl~}rJdS7OSRsByG&DKv0J{T%f)u=
xe_A{#7p%=<bA{#mY?i41b9(J+rPfkK+ScLn|NiT?t=2L#tBRs+Yiw&!`vZM168-=H

delta 744
zcmYk4Ur5tY6vyxVZKLU6Z8d6R+A5NaMXL~7n)HW3zgUQY!Fnl!pjAQ)S1nRZDl(Z-
z9V;JtSYY6z^6Oy_Jxc5$VPk)Nu}OgoBot!o?ex9+PzTQaaPIw{bMHO(RyR!54b$8i
z*(BUz%Zv*$Aa^u!ThTw#gtqKDz399=_PZ|=j2v(DeW<%%4!M%Xu*tPc%jS$Xo++Q>
z>$DL1i{-RLzCPLW!00@A@4fLoYmrpT^^dk+We#FZzs@`WM!*CZy}>+a5u$R7c`xG3
zZRS^C;|}u-XdPr$HQnGh#k<UIO^9HOIRw^*P!DX6qaGLmr@(P=4ooMQ*EBIIGLM*B
zOeipdgMd2N4<?>6r@-lF*Z@p}H8A*`*=5E7#-Rt(N#-c1zlI)+5OW0_f6Hvf1+4FI
z0Wh)3JPX#qbx@g0P*;ABXD-SdP;qFRL*W3t174$8{-CFNjd^ogEx}yyIJ`ph`Q3+(
zqCai8zcQst!7rj$+d*Y&?lWAcjr>j-B1<7G8+57Qmuoaq@OmDjUurLL&hAK}FY49f
zs5eXV1+V-<ix{)?tI#bMsI3@iok8DpwO`2Y(2~t|t8UxO=|FCUVnr|NP8P$+St|Nl
z7si-<syfuY5TCW-MG*dkIz#(Pey!yR^_KR_48=+Tsnf^O37MiLj0tj<{c@Ok%3fKe
zE9J2KL!ZjsP_C5ETh>>YEyl5m&qf1>PZ@nbf@byOCRXp;wT6?l`jO`Ueri{}vq|LD
LIbg=a`c3UGM3D_+

diff --git a/library/formatter.lsp b/library/formatter.lsp
index c5f7b0ae..9504f9de 100644
--- a/library/formatter.lsp
+++ b/library/formatter.lsp
@@ -93,10 +93,18 @@
                       (pp-defmodule x lm))
                      ((and (null ignore) (stringp (car x)) (string= (car x) "defglobal"))
                       (pp-defglobal x lm))
+                     ((and (null ignore) (stringp (car x)) (string= (car x) "defconstant"))
+                      (pp-defglobal x lm))
+                     ((and (null ignore) (stringp (car x)) (string= (car x) "defdynamic"))
+                      (pp-defglobal x lm))
                      ((and (null ignore) (stringp (car x)) (string= (car x) "block"))
                       (pp-block x lm))
                      ((and (null ignore) (stringp (car x)) (string= (car x) "while"))
                       (pp-block x lm))
+                     ((and (null ignore) (stringp (car x)) (string= (car x) "dotimes"))
+                      (pp-block x lm))
+                     ((and (null ignore) (stringp (car x)) (string= (car x) "dolist"))
+                      (pp-block x lm))
                      ((and (null ignore) (stringp (car x)) (string= (car x) "lambda"))
                       (pp-lambda x lm))
                      ((and (null ignore) (stringp (car x)) (string= (car x) "labels"))