X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/d6caa73bc6253f7a0461406a939865a207bad7c8..ea87c989d51bfd4b64d2a802f87216dfce551a76:/infix.lisp

diff --git a/infix.lisp b/infix.lisp
index a77f51e..ff5a3c9 100644
--- a/infix.lisp
+++ b/infix.lisp
@@ -283,7 +283,7 @@ (defmacro defopfunc (op kind &body body)
    the value stack."
   `(progn
      (setf (get ',op ',kind)
-           (lambda () ,@body))
+	   (lambda () ,@body))
     ',op))
 
 (defmacro definfix (op prec &body body)
@@ -427,7 +427,7 @@ (defun parse-ident-list ()
   (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 @@ (testrig "infix" #'test-infix
      (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)