Return to chead.l CVS log

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

Annotation of 42BSD/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.7 83/08/14 01:44:56 layer Exp $
                      4: ;
                      5: ;                      -[Sun Aug 14 01:29:25 1983 by layer]-
                      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
                     39:             fl-anno
                     40:             fl-asm
                     41:             fl-comments
                     42:             fl-inter
                     43:             fl-macl
                     44:             fl-profile
                     45:             fl-tran
                     46:             fl-tty
                     47:             fl-verb
                     48:             fl-vms
                     49:             fl-warn
                     50:             fl-xref
                     51:             formsiz
                     52:             g-allf
                     53:             g-arginfo
                     54:             g-args
                     55:             g-arrayspecs
                     56:             g-bindloc
                     57:             g-bindtype
                     58:             g-calltype
                     59:             g-cc
                     60:             g-comments
                     61:             g-compfcn                  ; t if compiling a function
                     62:             g-complrname
                     63:             g-current
                     64:             g-currentargs
                     65:             g-decls
                     66:             g-didvectorcode
                     67:             g-dropnpcnt
                     68:             g-falseop
                     69:             g-flocal
                     70:             g-fname
                     71:             g-ftype
                     72:             g-funcs
                     73:             g-functype
                     74:             g-ignorereg
                     75:             g-labs
                     76:             g-litcnt
                     77:             g-lits
                     78:             g-loc
                     79:             g-localf
                     80:             g-loccnt
                     81:             g-locs
                     82:             g-masklab
                     83:             g-optionalp
                     84:             g-reflst
                     85:             g-refseen
                     86:             g-regmaskvec
                     87:             g-reguse
                     88:             g-ret
                     89:             g-skipcode
                     90:             g-spec
                     91:             g-stackspace
                     92:             g-stdref
                     93:             g-topsym
                     94:             g-tran
                     95:             g-tranloc
                     96:             g-trancnt
                     97:             g-trueloc
                     98:             g-trueop
                     99:             g-vartype
                    100:             ibase
                    101:             in-line-lambda-number
                    102:             internal-macros
                    103:             k-ftype
                    104:             liszt-eof-forms
                    105:             liszt-file-name
                    106:             liszt-process-forms
                    107:             liszt-root-name
                    108:             macros
                    109:             old-declare-fcn
                    110:             old-top-level
                    111:             original-readtable
                    112:             piport
                    113:             poport
                    114:             readtable
                    115:             special
                    116:             twa-list
                    117:             user-top-level
                    118:             v-form
                    119:             v-ifile
                    120:             v-sfile
                    121:             v-xfile
                    122:             vms-pointers
                    123:             vns-include
                    124:             vp-sfile
                    125:             vp-xfile
                    126:             vps-include))
                    127: 
                    128: (eval-when (compile eval)
                    129:    (or (get 'const 'loaded) (load '../const.l)))
                    130: 
                    131: ; load in the macro files if compiling or interpreting.
                    132: ;
                    133: (eval-when (compile eval)
                    134:    (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.