From 45089eaf6af05d0ef6ea046364dd4f41d070bed0 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 23 Apr 2012 12:53:01 +0200 Subject: [PATCH] Use ROTATEF --- src/check.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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)) -- 1.7.10.4