From: Stelian Ionescu <sionescu@cddr.org>
Date: Mon, 23 Apr 2012 10:53:01 +0000 (+0200)
Subject: Use ROTATEF
X-Git-Url: http://repo.macrolet.net/gitweb/?p=fiveam.git;a=commitdiff_plain;h=45089eaf6af05d0ef6ea046364dd4f41d070bed0

Use ROTATEF
---

diff --git a/src/check.lisp b/src/check.lisp
index 12c9bf0..12f2256 100644
--- a/src/check.lisp
+++ b/src/check.lisp
@@ -135,9 +135,7 @@ REASON-ARGS is provided, is generated based on the form of TEST:
                  (assert (not (and (consp expected)
                                    (eq (car expected) 'values))) ()
                                    "Both the expected and actual part is a values expression.")
-                 (let ((tmp expected))
-                   (setf expected actual
-                         actual tmp)))
+                 (rotatef expected actual))
                (let ((setf-forms))
                  (if (and (consp expected)
                           (eq (car expected) 'values))