From: Marco Baringer <mb@bese.it>
Date: Wed, 6 Dec 2006 10:54:51 +0000 (+0100)
Subject: Can't use &rest in loop destructuring. Use (expected actual . reason) instead.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=06aed0a0dd52f650afc11f1a247f6e4d2ac4b582;hp=e2b4fc178f0288e0e47b1b98bc442ad7c1eb554a;p=fiveam.git

Can't use &rest in loop destructuring. Use (expected actual . reason) instead.
---

diff --git a/src/check.lisp b/src/check.lisp
index 2e91193..b968755 100644
--- a/src/check.lisp
+++ b/src/check.lisp
@@ -196,7 +196,7 @@ Wrapping the TEST form in a NOT simply preducse a negated reason string."
    for each pair of elements or (is (,predicate ,expr ,value) ,@reason) for each list."
   `(progn
     ,@(if (every #'consp clauses)
-          (loop for (expected actual &rest reason) in clauses
+          (loop for (expected actual . reason) in clauses
                 collect `(is (,predicate ,expected ,actual) ,@reason))
           (progn
             (assert (evenp (list-length clauses)))