Fix indentation

iamFIREcracker · May 21, 2019 · 1c3328a · 1c3328a
1 parent 4084ca9
commit 1c3328a
Showing 1 changed file with 8 additions and 8 deletions.
diff --git 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)