From 2f48f60f1fcc100e4f36320c0bf09da68d694e1a Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 3 Dec 2004 17:34:50 +0000
Subject: [PATCH] DATUM in TYPECASE error should be the value, not the
 offending key.

---
 src/lsp/assert.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/lsp/assert.lsp b/src/lsp/assert.lsp
index e4a43e075..d7706fced 100644
--- a/src/lsp/assert.lsp
+++ b/src/lsp/assert.lsp
@@ -178,7 +178,7 @@ be used as a TYPE to specify the default case."
 
 (defun etypecase-error (keyform value types)
   (error 'CASE-FAILURE :name 'ETYPECASE
-	 :datum keyform
+	 :datum value
 	 :expected-type (cons 'OR types)
 	 :possibilities types))