Return to pearlbase.l CVS log

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

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