Return to pearlbulk.l CVS log

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

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

1.1     ! root        1: ;;;;;;;;;;;;;;;;;;;;;;;;;;; pearlbulk.l ;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !             2: ; This file is the second half of PEARL for compiling in two pieces.
        !             3: ;    It loads "pearlbase.o" and then "includes" the rest of PEARL.
        !             4: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !             5: ; Copyright (c) 1983 ,  The Regents of the University of California.
        !             6: ; All rights reserved.  
        !             7: ; Authors: Joseph Faletti and Michael Deering.
        !             8: 
        !             9: (eval-when (compile)
        !            10:   ; To cut down on the number of garbage collects during compilation.
        !            11:   (allocate 'list 800)
        !            12:   (allocate 'symbol 200)
        !            13:   (allocate 'fixnum 10)
        !            14:   (fasl 'pearlbase)
        !            15:   (load 'franz.l)
        !            16:   (declare (special defmacro-for-compiling))
        !            17:   (setq defmacro-for-compiling t))
        !            18: 
        !            19: (declare (macros t))
        !            20: (declare (localf enforcetype buildvalue
        !            21:                 insidescopy insidepatternize insidevarreplace
        !            22:                 followpath convertpreds revassq
        !            23:                 recursetoinsidestandardfetch gethashvalue insertbyfocus
        !            24:                 removebyfocus
        !            25:                 prefix addhistory read-in-startprl-file read-in-initprl-file))
        !            26: 
        !            27: (include create.l)
        !            28: (include scopy.l)
        !            29: (include path.l)
        !            30: (include print.l)
        !            31: (include hash.l)
        !            32: (include match.l)
        !            33: (include history.l)
        !            34: (include toplevel.l)
        !            35: 
        !            36: ; This is a version of the usual library file fix.l
        !            37: ;   with "print"s changed to "pearlfixprintfn".
        !            38: ; It should only be left out after changing the toplevel stuff to
        !            39: ;   not call the fixit debugger.
        !            40: (include fix.l)
        !            41: 
        !            42: (include alias.l)
        !            43: (include inits.l)
        !            44: 
        !            45: ; vi: set lisp:

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