;;; ---- c h e a d header file for inclusion
;$Header: chead.l,v 1.9 87/12/16 11:56:14 sklower Exp $
; -[Tue Nov 22 08:32:26 1983 by jkf]-
; Copyright (c) 1982 , The Regents of the University of California.
; Copyright (c) 1980 , The Regents of the University of California.
; authors: John K. Foderaro and Kevin Layer
(putprop 'chead t 'version) ; flag that this file has been loaded
;--- build tahoe by default
(cond ((not (or (status feature for-vax) (status feature for-68k)
(status feature for-tahoe)))
(sstatus feature for-tahoe)))
; global franz special variables
(declare (special $gcprint ; t means print stats when gc occurs.
$ldprint ; t means print fasl messages
$gccount$ ; incremented every gc
$global-reg$ ; t means that np and lbot are in global regs
float-format ; printf string used to print flonums
lisp-library-directory ; contains as assembler
lisp-object-directory ; contains lisp for -r option
franz-minor-version-number ; just what it says
; keep 'em sorted please!
er-fatal ;; # of fatal erros
g-compfcn ; t if compiling a function
(eval-when (compile eval)
(or (get 'const 'loaded) (load '../const.l)))
; load in the macro files if compiling or interpreting.
(eval-when (compile eval)
(or (get 'cmacros 'version) (load 'cmacros)))