From 784b761678c5de6b8060589acdf89018ffa441b0 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 20 May 2005 08:07:39 +0000
Subject: [PATCH] The documentation slot in generic functions should default to
 NIL

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

diff --git a/src/clos/kernel.lsp b/src/clos/kernel.lsp
index 94d5320dc..9c3968a72 100644
--- a/src/clos/kernel.lsp
+++ b/src/clos/kernel.lsp
@@ -102,7 +102,7 @@
        :initarg :method-class
        :initform (find-class 'standard-method)
        :accessor generic-function-method-class)
-      (documentation :initarg :documentation)
+      (documentation :initarg :documentation :initform nil)
       (methods :initform nil :accessor generic-function-methods)
       (a-p-o-function :initform nil :accessor generic-function-a-p-o-function))))