Skip to content
Snippets Groups Projects
Commit b39fba71 authored by wlott's avatar wlott
Browse files

Added PROCLAIM-INIT, which sets up *DEFAULT-COOKIE* and *DEFAULT-INTERFACE-

COOKIE*, so that %INITIAL-FUNCTION can call it after finishing the initial
top level forms.
parent 6c87897e
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.23 1992/02/15 11:54:30 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/proclaim.lisp,v 1.24 1992/02/18 02:01:57 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -49,10 +49,24 @@ ...@@ -49,10 +49,24 @@
;;; any values specified by an OPTIMIZE-INTERFACE declaration. ;;; any values specified by an OPTIMIZE-INTERFACE declaration.
;;; ;;;
(proclaim '(type cookie *default-cookie* *default-interface-cookie*)) (proclaim '(type cookie *default-cookie* *default-interface-cookie*))
(defvar *default-cookie* (make-cookie :safety 1 :speed 1 :space 1 :cspeed 1 (defvar *default-cookie*)
:brevity 1 :debug 2)) (defvar *default-interface-cookie*)
(defvar *default-interface-cookie* (make-cookie))
;;; PROCLAIM-INIT -- sorta interface.
;;;
;;; %Initial-function (in lispinit) calls this after running all the
;;; initial top level forms to reset the cookies. We also use it in place
;;; of supplying initial values in the DEFVARs above so that we don't
;;; have to put the initial default cookie in two places.
;;;
(defun proclaim-init ()
(setf *default-cookie*
(make-cookie :safety 1 :speed 1 :space 1 :cspeed 1
:brevity 1 :debug 2))
(setf *default-interface-cookie*
(make-cookie)))
;;;
(proclaim-init)
;;; A list of UNDEFINED-WARNING structures representing the calls to unknown ;;; A list of UNDEFINED-WARNING structures representing the calls to unknown
;;; functions. This is bound by WITH-COMPILATION-UNIT. ;;; functions. This is bound by WITH-COMPILATION-UNIT.
......
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