Whitespace cleanups across the board.

[lisp] / infix.lisp

diff --git a/infix.lisp b/infix.lisp
index a77f51e..ff5a3c9 100644 (file)
--- a/infix.lisp
+++ b/infix.lisp
@@ -283,7 +283,7 @@
    the value stack."
   `(progn
      (setf (get ',op ',kind)
-           (lambda () ,@body))
+          (lambda () ,@body))
     ',op))
 
 (defmacro definfix (op prec &body body)
@@ -427,7 +427,7 @@
   (let ((stuff nil))
     (loop
       (unless (symbolp *token*)
-        (error "expected symbol; found ~S" *token*))
+       (error "expected symbol; found ~S" *token*))
       (push *token* stuff)
       (get-token)
       (unless (delim '|,| nil)
@@ -821,8 +821,8 @@
      (defun foo (x) (- x 6)))
     ("bind x = 3 in x - 2" . (let ((x 3)) (- x 2)))
     ("bind x, y = values(1, 2),
-           z = 3,
-           docs, decls, body = parse-body(body) in complicated" .
+          z = 3,
+          docs, decls, body = parse-body(body) in complicated" .
      (multiple-value-bind (x y) (values 1 2)
        (let ((z 3))
         (multiple-value-bind (docs decls body) (parse-body body)