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     ! 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.