Return to pearlbulk.l CVS log

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

Annotation of 43BSD/ucb/lisp/pearl/pearlbulk.l, revision 1.1.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.