From f6ec81ec6eda20f7ca06d06eb8a237d576a9ade8 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 15 Jul 2003 15:34:43 +0000
Subject: [PATCH] Fix typo

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

diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index 8775a5c77..a6fd0624c 100644
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -284,7 +284,7 @@ strings."
 			   `(,report-function x stream))))))
       ,@(when documentation
 	      `((EVAL-WHEN (COMPILE LOAD EVAL)
-		  (SETF (DOCUMENTATION ',name) ',documentation))))
+		  (SETF (DOCUMENTATION ',name 'TYPE) ',documentation))))
       ',NAME)))
 
 (defun make-condition (type &rest slot-initializations)