From 3631469d2179eff7f850598e9104f0b7c1daf686 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 8 Feb 1990 12:31:41 +0000
Subject: [PATCH] Added new info types for online documentation.

---
 compiler/globaldb.lisp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 4e33a2481..14023ccb6 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -949,6 +949,8 @@
 ;;; structure containing the info used to special-case compilation.
 (define-info-type function info (or function-info null) nil)
 
+(define-info-type function documentation (or string null) nil)
+
 ); defun function-info-init
 
 #|
@@ -994,6 +996,8 @@
 
 (define-info-type variable alien-value (or lisp::ct-a-val null) nil)
 
+(define-info-type variable documentation (or string null) nil)
+
 (define-info-class type)
 
 ;;; The kind of type described.  We return :Structure for standard types that
@@ -1010,6 +1014,8 @@
 ;;; Defstruct description information for a structure type.
 (define-info-type type structure-info (or defstruct-description null) nil)
 
+(define-info-type type documentation (or string null))
+
 (define-info-class declaration)
 (define-info-type declaration recognized boolean)
 
@@ -1023,9 +1029,17 @@
 
 (define-info-type setf inverse (or symbol null) nil)
 
+(define-info-type setf documentation (or string null) nil)
+
 ;;; ### bootstrap hack...
 ;;; Allow List for function for now.
 ;;;
 (define-info-type setf expander (or function null list) nil)
 
+;;; Used for storing random documentation types.  The stuff is an alist
+;;; translating documentation kinds to values.
+;;;
+(define-info-class random-documentation)
+(define-info-type random-documentation stuff list ())
+
 ); defun other-info-init
-- 
GitLab