Return to pearlbase.l CVS log

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

Annotation of 42BSD/ucb/lisp/pearl/pearlbase.l, revision 1.1

1.1     ! root        1: ;;;;;;;;;;;;;;;;;;;;;;;;;;; pearlbase.l ;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !             2: ; This file is the first half of PEARL for compiling in two steps.
        !             3: ;    After it is compiled, it can be loaded into a liszt that is
        !             4: ;    compiling pearlbulk.l
        !             5: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !             6: ; Copyright (c) 1983 ,  The Regents of the University of California.
        !             7: ; All rights reserved.  
        !             8: ; Authors: Joseph Faletti and Michael Deering.
        !             9: 
        !            10: (eval-when (compile)
        !            11:   ; To cut down on the number of garbage collects during compilation.
        !            12:   (allocate 'list 800)
        !            13:   (allocate 'symbol 200)
        !            14:   (declare (special defmacro-for-compiling))
        !            15:   (setq defmacro-for-compiling t))
        !            16: 
        !            17: (declare (macros t))
        !            18: (declare (localf enforcetype buildvalue
        !            19:                 insidescopy insidepatternize insidevarreplace
        !            20:                 followpath convertpreds revassq
        !            21:                 recursetoinsidestandardfetch gethashvalue insertbyfocus
        !            22:                 removebyfocus
        !            23:                 prefix addhistory read-in-startprl-file read-in-initprl-file))
        !            24: 
        !            25: (include ucisubset.l)
        !            26: ; Version numbers are in here.
        !            27: (include franz.l)
        !            28: (include lowlevel.l)
        !            29: (include db.l)
        !            30: (include vars.l)
        !            31: (include symord.l)
        !            32: (include hook.l)
        !            33: 
        !            34: 
        !            35: ; vi: set lisp:

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