Return to chead.l CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / lisp / liszt

Annotation of 43BSDReno/pgrm/lisp/liszt/chead.l, revision 1.1.1.1

1.1       root        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)))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.