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