fmt

russellw · Oct 8, 2018 · ff20931 · ff20931
1 parent 5ba41bc
commit ff20931
Showing 1 changed file with 5 additions and 12 deletions.
diff --git a/read.lisp b/read.lisp
@@ -241,18 +241,11 @@
      (err "unexpected end of file"))
 
     ; Left-Parenthesis
-    ((equal *tok* "(" )
-      (lex)
-      (prog1
-      (loop
-        until(equal *tok*")")
-        collect(read*)
-      )
-      (lex)
-      )
-    )
-
-    ;dot
+    ((equal *tok* "(")
+     (lex)
+     (prog1 (loop until (equal *tok* ")") collect (read*)) (lex)))
+
+    ; Dot
     ((equal *tok* ".")
      (prog1 (list +special+ *tok*) (lex)))