mdw-base.lisp: Make section heading for `with-places' more useful.

[lisp] / infix.lisp

diff --git a/infix.lisp b/infix.lisp
index a77f51ea2c4fc56a6aa6b7e7add96d5efe92dda4..ff5a3c9cd406924a1acce2f49bf005ad4eaa82c4 100644 (file)
--- a/infix.lisp
+++ b/infix.lisp
@@ -283,7 +283,7 @@ (defmacro defopfunc (op kind &body body)
    the value stack."
   `(progn
      (setf (get ',op ',kind)
    the value stack."
   `(progn
      (setf (get ',op ',kind)

-           (lambda () ,@body))
+          (lambda () ,@body))

     ',op))
 
 (defmacro definfix (op prec &body body)
     ',op))
 
 (defmacro definfix (op prec &body body)


@@ -427,7 +427,7 @@ (defun parse-ident-list ()
   (let ((stuff nil))
     (loop
       (unless (symbolp *token*)
   (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)
       (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),
      (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)
      (multiple-value-bind (x y) (values 1 2)
        (let ((z 3))
         (multiple-value-bind (docs decls body) (parse-body body)