Skip to content
Snippets Groups Projects
globaldb.lisp 34.5 KiB
Newer Older
wlott's avatar
wlott committed

(define-info-type variable documentation (or string null) nil)

wlott's avatar
wlott committed
(define-info-class type)

;;; The kind of type described.  We return :Structure for standard types that
;;; are implemented as structures.
;;;
(define-info-type type kind (member :primitive :defined :structure nil)
  (if (member name type-specifier-symbols)
      :primitive
      nil))

;;; Expander function for a defined type.
(define-info-type type expander function nil)

;;; 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))

wlott's avatar
wlott committed
(define-info-class declaration)
(define-info-type declaration recognized boolean)

(define-info-class alien-stack)
(define-info-type alien-stack info (or lisp::stack-info null) nil)

(define-info-class enumeration)
(define-info-type enumeration info (or lisp::enumeration-info null) nil)

(define-info-class setf)

(define-info-type setf inverse (or symbol null) nil)

(define-info-type setf documentation (or string null) nil)

wlott's avatar
wlott committed
;;; ### 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 ())

wlott's avatar
wlott committed
); defun other-info-init