X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/d6caa73bc6253f7a0461406a939865a207bad7c8..7769f8fdb8694fe33ebb6198978d96e22e05c027:/infix.lisp

diff --git a/infix.lisp b/infix.lisp
index a77f51e..ff5a3c9 100644
--- 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)