Return to chead.l CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / lisp / liszt

Annotation of 43BSD/ucb/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.8 83/11/22 10:12:27 jkf 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 vax by default
                     16: ;
                     17: (cond ((not (or (status feature for-vax) (status feature for-68k)))
                     18:        (sstatus feature for-vax)))
                     19: 
                     20: ; global franz special variables
                     21: (declare (special $gcprint     ; t means print stats when  gc occurs.
                     22:                  $ldprint      ; t means print fasl messages
                     23:                  $gccount$     ; incremented every gc
                     24:                  $global-reg$  ; t means that np and lbot are in global regs
                     25:                  float-format  ; printf string used to print flonums
                     26:                  lisp-library-directory ; contains as assembler
                     27:                  lisp-object-directory  ; contains lisp for -r option
                     28:                  franz-minor-version-number ; just what it says
                     29:                  ))
                     30: 
                     31: ; keep 'em sorted please!
                     32: (declare (special
                     33:             Liszt-file-names
                     34:             arithequiv
                     35:             bnp-sym
                     36:             ch-newline
                     37:             compiler-name
                     38:             er-fatal           ;; # of fatal erros
                     39:             er-warn            ;; # of warnings
                     40:             fl-anno
                     41:             fl-asm
                     42:             fl-comments
                     43:             fl-inter
                     44:             fl-macl
                     45:             fl-profile
                     46:             fl-tran
                     47:             fl-tty
                     48:             fl-verb
                     49:             fl-vms
                     50:             fl-warn
                     51:             fl-xref
                     52:             formsiz
                     53:             g-allf
                     54:             g-arginfo
                     55:             g-args
                     56:             g-arrayspecs
                     57:             g-bindloc
                     58:             g-bindtype
                     59:             g-calltype
                     60:             g-cc
                     61:             g-comments
                     62:             g-compfcn                  ; t if compiling a function
                     63:             g-complrname
                     64:             g-current
                     65:             g-currentargs
                     66:             g-decls
                     67:             g-didvectorcode
                     68:             g-dropnpcnt
                     69:             g-falseop
                     70:             g-flocal
                     71:             g-fname
                     72:             g-ftype
                     73:             g-funcs
                     74:             g-functype
                     75:             g-ignorereg
                     76:             g-labs
                     77:             g-litcnt
                     78:             g-lits
                     79:             g-loc
                     80:             g-localf
                     81:             g-loccnt
                     82:             g-locs
                     83:             g-masklab
                     84:             g-optionalp
                     85:             g-reflst
                     86:             g-refseen
                     87:             g-regmaskvec
                     88:             g-reguse
                     89:             g-ret
                     90:             g-skipcode
                     91:             g-spec
                     92:             g-stackspace
                     93:             g-stdref
                     94:             g-topsym
                     95:             g-tran
                     96:             g-tranloc
                     97:             g-trancnt
                     98:             g-trueloc
                     99:             g-trueop
                    100:             g-vartype
                    101:             ibase
                    102:             in-line-lambda-number
                    103:             internal-macros
                    104:             k-ftype
                    105:             liszt-eof-forms
                    106:             liszt-file-name
                    107:             liszt-process-forms
                    108:             liszt-root-name
                    109:             macros
                    110:             old-declare-fcn
                    111:             old-top-level
                    112:             original-readtable
                    113:             piport
                    114:             poport
                    115:             readtable
                    116:             special
                    117:             twa-list
                    118:             user-top-level
                    119:             v-form
                    120:             v-ifile
                    121:             v-sfile
                    122:             v-xfile
                    123:             vms-pointers
                    124:             vns-include
                    125:             vp-sfile
                    126:             vp-xfile
                    127:             vps-include))
                    128: 
                    129: (eval-when (compile eval)
                    130:    (or (get 'const 'loaded) (load '../const.l)))
                    131: 
                    132: ; load in the macro files if compiling or interpreting.
                    133: ;
                    134: (eval-when (compile eval)
                    135:    (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.