From 43e3ff61ccc809a4c1f1aec648317bc5b25ea423 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Thu, 4 Sep 1997 06:17:16 +0000
Subject: [PATCH] No long need to declare pcl::documentation here as it's no
 longer used by the lisp documentation functions.

---
 code/globals.lisp | 5 ++---
 code/misc.lisp    | 5 +----
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/code/globals.lisp b/code/globals.lisp
index 8239c93de..3d810f7a5 100644
--- a/code/globals.lisp
+++ b/code/globals.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.13 1997/08/16 10:27:06 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.14 1997/09/04 06:17:16 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -47,8 +47,7 @@
 (declaim (ftype (function * *)
 		find-keyword keyword-test assert-error
 		assert-prompt check-type-error case-body-error print-object
-		pcl::describe-object pcl::check-wrapper-validity
-		pcl::documentation))
+		pcl::describe-object pcl::check-wrapper-validity))
 
 #-clx
 (declaim (ftype (function * *)
diff --git a/code/misc.lisp b/code/misc.lisp
index c1b49c8e8..0d4ab21cf 100644
--- a/code/misc.lisp
+++ b/code/misc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.26 1997/09/03 20:27:07 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.27 1997/09/04 06:17:15 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -54,9 +54,6 @@
     (when (and name (typep name '(or symbol cons)))
       (values (info function documentation name)))))
 
-(eval-when (compile load eval)
-  (shadow 'documentation "PCL"))
-
 (defun documentation (x doc-type)
   "Returns the documentation string of Doc-Type for X, or NIL if
   none exists.  System doc-types are VARIABLE, FUNCTION, STRUCTURE, TYPE,
-- 
GitLab