diff --git a/code/globals.lisp b/code/globals.lisp index 8239c93def67ce466c78512026d3e3c48c57a39f..3d810f7a5cd639bb3a3e3effefe0044f052480f8 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 c1b49c8e8b617126e30d1dfcb29024927a23b73d..0d4ab21cf44040040229634a84f2fe38c44a446b 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,