home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / lisp / liszt / chead.l < prev    next >
Encoding:
Text File  |  1987-12-16  |  2.8 KB  |  137 lines
  1. ;;; ----    c h e a d        header file for inclusion
  2.  
  3. ;$Header: chead.l,v 1.9 87/12/16 11:56:14 sklower Exp $
  4. ;
  5. ;            -[Tue Nov 22 08:32:26 1983 by jkf]-
  6.  
  7. ; Copyright (c) 1982 ,  The Regents of the University of California.
  8. ; Copyright (c) 1980 ,  The Regents of the University of California.
  9. ; All rights reserved.  
  10.  
  11. ; authors: John K. Foderaro and Kevin Layer
  12.  
  13. (putprop 'chead t 'version)    ; flag that this file has been loaded
  14.  
  15. ;--- build tahoe by default
  16. ;
  17. (cond ((not (or (status feature for-vax) (status feature for-68k)
  18.         (status feature for-tahoe)))
  19.        (sstatus feature for-tahoe)))
  20.  
  21. ; global franz special variables
  22. (declare (special $gcprint     ; t means print stats when  gc occurs.
  23.           $ldprint    ; t means print fasl messages
  24.           $gccount$    ; incremented every gc
  25.           $global-reg$    ; t means that np and lbot are in global regs
  26.           float-format    ; printf string used to print flonums
  27.           lisp-library-directory ; contains as assembler
  28.           lisp-object-directory  ; contains lisp for -r option
  29.           franz-minor-version-number ; just what it says
  30.           ))
  31.  
  32. ; keep 'em sorted please!
  33. (declare (special
  34.          Liszt-file-names
  35.          arithequiv
  36.          bnp-sym
  37.          ch-newline
  38.          compiler-name
  39.          er-fatal        ;; # of fatal erros
  40.          er-warn        ;; # of warnings
  41.          fl-anno
  42.          fl-asm
  43.          fl-comments
  44.          fl-inter
  45.          fl-macl
  46.          fl-profile
  47.          fl-tran
  48.          fl-tty
  49.          fl-verb
  50.          fl-vms
  51.          fl-warn
  52.          fl-xref
  53.          formsiz
  54.          g-allf
  55.          g-arginfo
  56.          g-args
  57.          g-arrayspecs
  58.          g-bindloc
  59.          g-bindtype
  60.          g-calltype
  61.          g-cc
  62.          g-comments
  63.          g-compfcn            ; t if compiling a function
  64.          g-complrname
  65.          g-current
  66.          g-currentargs
  67.          g-decls
  68.          g-didvectorcode
  69.          g-dropnpcnt
  70.          g-falseop
  71.          g-flocal
  72.          g-fname
  73.          g-ftype
  74.          g-funcs
  75.          g-functype
  76.          g-ignorereg
  77.          g-labs
  78.          g-litcnt
  79.          g-lits
  80.          g-loc
  81.          g-localf
  82.          g-loccnt
  83.          g-locs
  84.          g-masklab
  85.          g-optionalp
  86.          g-reflst
  87.          g-refseen
  88.          g-regmaskvec
  89.          g-reguse
  90.          g-ret
  91.          g-skipcode
  92.          g-spec
  93.          g-stackspace
  94.          g-stdref
  95.          g-topsym
  96.          g-tran
  97.          g-tranloc
  98.          g-trancnt
  99.          g-trueloc
  100.          g-trueop
  101.          g-vartype
  102.          ibase
  103.          in-line-lambda-number
  104.          internal-macros
  105.          k-ftype
  106.          liszt-eof-forms
  107.          liszt-file-name
  108.          liszt-process-forms
  109.          liszt-root-name
  110.          macros
  111.          old-declare-fcn
  112.          old-top-level
  113.          original-readtable
  114.          piport
  115.          poport
  116.          readtable
  117.          special
  118.          twa-list
  119.          user-top-level
  120.          v-form
  121.          v-ifile
  122.          v-sfile
  123.          v-xfile
  124.          vms-pointers
  125.          vns-include
  126.          vp-sfile
  127.          vp-xfile
  128.          vps-include))
  129.  
  130. (eval-when (compile eval)
  131.    (or (get 'const 'loaded) (load '../const.l)))
  132.  
  133. ; load in the macro files if compiling or interpreting.
  134. ;
  135. (eval-when (compile eval)
  136.    (or (get 'cmacros 'version) (load 'cmacros)))
  137.