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