From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 13 May 2006 00:08:53 +0000 (+0100)
Subject: infix: Remove redundant progn in loop expander
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/commitdiff_plain/05c1e7c3367de14f38e81e9ecdc0a36904dbc13e

infix: Remove redundant progn in loop expander
---

diff --git a/infix.lisp b/infix.lisp
index 73fc339..93ec028 100644
--- a/infix.lisp
+++ b/infix.lisp
@@ -606,7 +606,7 @@ (defopfunc unless operand
 
 (defopfunc loop operand
   (get-token)
-  (pushval `(loop ,@(progn (strip-progn (parse-infix 0))))))
+  (pushval `(loop ,@(strip-progn (parse-infix 0)))))
 
 (defopfunc multiple-value-bind operand
   (get-token)