Skip to content
Snippets Groups Projects
Commit 43e3ff61 authored by dtc's avatar dtc
Browse files

No long need to declare pcl::documentation here as it's no longer used

by the lisp documentation functions.
parent dee7c72d
No related branches found
No related tags found
No related merge requests found
......@@ -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 * *)
......
......@@ -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,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment