X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcheck.lisp;h=21f7bf4981c51832c47927a8ffe76f973183298e;hb=7d4e022893800af3a0b3818b7da807907e94a830;hp=39e9f4f47edc886cbd6703d974fda15d085fd62d;hpb=a3a3f45f2473649d64411e6e099c533c6c309fdd;p=fiveam.git

diff --git a/src/check.lisp b/src/check.lisp
index 39e9f4f..21f7bf4 100644
--- a/src/check.lisp
+++ b/src/check.lisp
@@ -1,4 +1,4 @@
-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
 
 (in-package :it.bese.fiveam)
 
@@ -121,7 +121,7 @@ REASON-ARGS is provided, is generated based on the form of TEST:
  (predicate value) - Means that we want to ensure that VALUE
  satisfies PREDICATE.
 
- Wrapping the TEST form in a NOT simply preducse a negated reason
+ Wrapping the TEST form in a NOT simply produces a negated reason
  string."
   (assert (listp test)
           (test)
@@ -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))