Improve formatter

sasagawa888 · Jan 16, 2022 · 16e4aa3 · 16e4aa3
1 parent afde8a9
commit 16e4aa3
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/edlis b/edlis
diff --git 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"))