From 164605aa72365b20c88eeb2bda80ca4337fdc42c Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Thu, 27 May 2010 23:48:14 +0200
Subject: [PATCH] The auxiliary function ASSERT-FAILURE was missing a variable
 definition.

---
 src/clos/conditions.lsp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index c51927cff..18d475038 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -745,7 +745,7 @@ memory limits before executing the program again."))))
       value))
 
 (defun assert-failure (test-form &optional place-names values
-                       &rest condition-arguments)
+                       &rest arguments)
   (unless arguments
     (setf arguments (list 'SIMPLE-TYPE-ERROR
 			  :DATUM test-form
@@ -753,9 +753,9 @@ memory limits before executing the program again."))))
 			  :FORMAT-CONTROL "The assertion ~S failed"
 			  :FORMAT-ARGUMENTS (list test-form))))
   (restart-case (error (si::coerce-to-condition (first arguments)
-						 (rest arguments)
-						 'simple-error
-						 'assert))
+                                                (rest arguments)
+                                                'simple-error
+                                                'assert))
     (continue ()
       :REPORT (lambda (stream) (assert-report place-names stream))
       (return-from assert-failure