From 1c3328a5b610b3412b760fb4ad37ae53f3ac672b Mon Sep 17 00:00:00 2001
From: Matteo Landi <matteo@matteolandi.net>
Date: Tue, 21 May 2019 23:37:01 +0200
Subject: [PATCH] Fix indentation

---
 src/main.lisp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index 4765973..c56af96 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -59,14 +59,14 @@
 
 (defun process-input ()
   (loop
-      :with seen = (make-hash-table :test 'equal)
-      :for line = (read-line NIL NIL :eof)
-      :until (eq line :eof)
-      :for command = (guess line)
-      :when (and command (not (gethash command seen)))
-      :do (progn
-            (setf (gethash command seen) T)
-            (format T "~a~%" command))))
+    :with seen = (make-hash-table :test 'equal)
+    :for line = (read-line NIL NIL :eof)
+    :until (eq line :eof)
+    :for command = (guess line)
+    :when (and command (not (gethash command seen)))
+    :do (progn
+          (setf (gethash command seen) T)
+          (format T "~a~%" command))))
 
 (defun toplevel ()
   (parse-opts)