Return to caspecs.l CVS log

Up to [CSRG BSD Unix] / 41BSD / cmd / liszt

Annotation of 41BSD/cmd/liszt/caspecs.l, revision 1.1

1.1     ! root        1: 
        !             2: ;------ special variables --------
        !             3: 
        !             4: 
        !             5: 
        !             6: ;sccs id:  @(#)caspecs.l       5.3     10/22/80
        !             7: 
        !             8: ; Copyright (c) 1980 ,  The Regents of the University of California.
        !             9: ; All rights reserved.  
        !            10: ; author: j. foderaro
        !            11: 
        !            12: (declare (special v-form g-loc g-cc g-locs g-loccnt g-labs g-args
        !            13:                  g-ret g-skipcode g-dropnpcnt
        !            14:                  g-bindloc fl-comments g-tran g-trancnt g-tranloc
        !            15:                  g-topsym g-reguse g-ignorereg
        !            16:                  fl-inter fl-xref
        !            17:                 g-lits g-litcnt g-funcs g-spec Np-reg
        !            18:                 Lbot-reg bind-reg np-plus bNp-reg
        !            19:                 oLbot-reg Bnp-val ch-newline 
        !            20:                 compiler-name internal-macros
        !            21:                 old-top-level poport piport compiler-name
        !            22:                 readtable original-readtable er-fatal ibase
        !            23:                 fl-macl fl-tty g-functype g-spec g-litcnt
        !            24:                 g-trueloc g-lits g-funcs g-fname g-comments
        !            25:                 g-localf g-flocal g-ftype
        !            26:                 twa-list old-declare-fcn vps-include fl-verb
        !            27:                 user-top-level $gccount$ macros g-current
        !            28:                 fl-profile fl-tran
        !            29:                 g-allf fl-vms vp-xfile v-xfile 
        !            30:                 vms-pointers g-refseen g-reflst fl-warn
        !            31:                 g-currentargs
        !            32:                 $gc-count$
        !            33:                 special
        !            34:                 liszt-eof-forms
        !            35:                 liszt-root-name
        !            36:                 liszt-file-name
        !            37:                 k-ftype vp-sfile formsiz)
        !            38:   ;local functions in car.l
        !            39:   (localf lcfform dodef d-prelude d-fini d-bindtab 
        !            40:          d-asciiout 
        !            41:          doevalwhen lambdacvt)
        !            42:   ;local functions for cadr and cddr must be calculated
        !            43:   )
        !            44: 
        !            45: 
        !            46: ;--- parameters: these must be evaluated at compile time so readmacros will
        !            47: ; work
        !            48: 
        !            49: (eval-when (compile load eval)
        !            50:   (setq Np-reg 'r6
        !            51:        Lbot-reg 'r7
        !            52:        bind-reg 'r8
        !            53:        np-plus '(+ r6)
        !            54:        bNp-reg 'r5
        !            55:        oLbot-reg 'r10
        !            56:        ch-newline (ascii #\lf)))
        !            57: 
        !            58: (eval-when (compile load eval)
        !            59:   (setq Bnp-val '_bnp))
        !            60: 
        !            61: 

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