From 22280e7f6c45efbcff5b35be35ce0ee711a4b212 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sat, 14 Dec 2002 16:57:11 +0000
Subject: [PATCH] Fix macroexpander for define-condition.

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

diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index 9090f6fb3..e83dbd70c 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -242,8 +242,8 @@ strings."
 			   `(write-string ,report-function stream)
 			   `(,report-function x stream))))))
       ,@(when documentation
-	      `(EVAL-WHEN (COMPILE LOAD EVAL)
-		(SETF (GET ',name 'DOCUMENTATION) ',documentation)))
+	      `((EVAL-WHEN (COMPILE LOAD EVAL)
+		  (SETF (GET ',name 'DOCUMENTATION) ',documentation))))
       ',NAME)))
 
 (defun make-condition (type &rest slot-initializations)