Skip to content
Snippets Groups Projects
Commit eae203ea authored by ram's avatar ram
Browse files

Added INFO TYPE FROZEN which enables fast structure type test compilation.

parent b01fd3a7
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.15 1990/11/20 18:37:13 ram Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.16 1991/01/02 19:15:35 ram Exp $
;;;
;;; This file provides a functional interface to global information about
;;; named things in the system. Information is considered to be global if it
......@@ -1120,6 +1120,11 @@
(define-info-type type defined-structure-info (or defstruct-description null)
nil)
;;; True if this type has been frozen with the FREEZE-TYPE declaration. Only
;;; interesting for structure types.
;;;
(define-info-type type frozen boolean nil)
(define-info-type type documentation (or string null))
;;; Function that parses type specifiers into CTYPE structures.
......
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