From 06aed0a0dd52f650afc11f1a247f6e4d2ac4b582 Mon Sep 17 00:00:00 2001 From: Marco Baringer Date: Wed, 6 Dec 2006 11:54:51 +0100 Subject: [PATCH] Can't use &rest in loop destructuring. Use (expected actual . reason) instead. --- src/check.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 1.7.10.4