Return to const.l CVS log

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

Annotation of 43BSD/ucb/lisp/liszt/const.l, revision 1.1

1.1     ! root        1: 
        !             2: ;;; ----       c o n s t               header file for inclusion
        !             3: 
        !             4: ;
        !             5: ;$Header: const.l,v 1.3 83/08/28 17:47:20 layer Exp $
        !             6: ;
        !             7: 
        !             8: (putprop 'const t 'loaded)     ; flag that this file has been loaded
        !             9: 
        !            10: ;--- parameters: these must be evaluated at compile time so readmacros will
        !            11: ; work
        !            12: (eval-when (compile eval)
        !            13:    (setq np-sym "_np"
        !            14:         lbot-sym "_lbot"
        !            15:         bnp-sym "_bnp"
        !            16:         ch-newline (ascii #\lf))
        !            17:    #+for-vax
        !            18:    (setq np-reg 'r6
        !            19:         lbot-reg 'r7
        !            20:         bind-reg 'r8
        !            21:         np-plus '(+ r6)
        !            22:         np-minus '(- r6)
        !            23:         bnp-reg 'r5
        !            24:         fixnum-reg 'r5
        !            25:         olbot-reg 'r10
        !            26:         nil-reg "*** this should never be used ***"
        !            27:         comment-char "#"
        !            28:         Cstack "-(sp)"
        !            29:         unCstack "(sp)+"
        !            30:         Nilatom "$0")
        !            31:    #+for-68k
        !            32:    (setq bnp-reg 'a1
        !            33:         np-reg 'a2
        !            34:         lbot-reg 'd3           ; only for hacked version of 68k lisp
        !            35:         bind-reg 'a3
        !            36:         olbot-reg 'a4
        !            37:         fixnum-reg 'd2
        !            38:         nil-reg 'd7
        !            39:         np-plus '(+ a2)
        !            40:         np-minus '(- a2)
        !            41:         Nilatom "#_nilatom"
        !            42:         comment-char "|"
        !            43:         Cstack "sp@-"
        !            44:         unCstack "sp@+"))
        !            45: 
        !            46: ;--- evaluation frame parameters.  These must correspond to what is 
        !            47: ; in h/frame.h in the C system
        !            48: ;
        !            49: (eval-when (compile load eval)
        !            50:   (setq C_GO 1         C_RET 2         C_THROW 3       C_RESET 4)
        !            51:   (setq F_PROG 1       F_CATCH 2       F_RESET 3))
        !            52: 
        !            53: ; offsets in frame
        !            54: (setq OF_olderrp 12)   ; 12 bytes from base of error frame

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