-;;; A COOKIE holds information about the compilation environment for a
-;;; node. See the LEXENV definition for a description of how it is
-;;; used.
-(def!struct (cookie (:copier nil))
- (speed nil :type cookie-quality)
- (space nil :type cookie-quality)
- (safety nil :type cookie-quality)
- (cspeed nil :type cookie-quality)
- (brevity nil :type cookie-quality)
- (debug nil :type cookie-quality))
-
-;;; KLUDGE: This needs to be executable in cold init toplevel forms, earlier
-;;; than the default copier closure created by DEFSTRUCT toplevel forms would
-;;; be available, and earlier than LAYOUT-INFO is initialized (which is a
-;;; prerequisite for COPY-STRUCTURE to work), so we define it explicitly using
-;;; DEFUN, so that it can be installed by the cold loader, and using
-;;; hand-written, hand-maintained slot-by-slot copy it doesn't need to call
-;;; COPY-STRUCTURE. -- WHN 19991019
-(defun copy-cookie (cookie)
- (make-cookie :speed (cookie-speed cookie)
- :space (cookie-space cookie)
- :safety (cookie-safety cookie)
- :cspeed (cookie-cspeed cookie)
- :brevity (cookie-brevity cookie)
- :debug (cookie-debug cookie)))
-
-;;; *DEFAULT-COOKIE* holds the current global compiler policy information.
-;;; Whenever the policy is changed, we copy the structure so that old uses will
-;;; still get the old values. *DEFAULT-INTERFACE-COOKIE* holds any values
-;;; specified by an OPTIMIZE-INTERFACE declaration.
-;;;
-;;; FIXME: Why isn't COOKIE called POLICY?
-(declaim (type cookie *default-cookie* *default-interface-cookie*))
-(defvar *default-cookie*) ; initialized in cold init
-(defvar *default-interface-cookie*) ; initialized in cold init
-