Return to pearl.l CVS log

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

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

1.1     ! root        1: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; pearl.l ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !             2: ; This file is the file that should be handed to Liszt for compiling.
        !             3: ;    It "includes" all of the files that need to be used to make
        !             4: ;    a complete PEARL object file.
        !             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: ; After compiling this file with the -r option,
        !            11: ;    run it,
        !            12: ; and then run the function
        !            13: ;       (savepearl) to save a version in the current directory
        !            14: ;                  under the name "pearl"
        !            15: ;       or
        !            16: ;       (savepearl <pathandfilename>) to save a version under that name
        !            17: ; This will then give you a (very large) runnable version of
        !            18: ;    Franz plus PEARL.
        !            19: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
        !            20: 
        !            21: (eval-when (compile)
        !            22:   ; To cut down on the number of garbage collects during compilation.
        !            23:   (allocate 'list 800)
        !            24:   (allocate 'symbol 200)
        !            25:   (declare (special defmacro-for-compiling))
        !            26:   (setq defmacro-for-compiling t))
        !            27: 
        !            28: (declare (macros t))
        !            29: (declare (localf enforcetype buildvalue
        !            30:                 insidescopy insidepatternize insidevarreplace
        !            31:                 followpath convertpreds revassq
        !            32:                 recursetoinsidestandardfetch gethashvalue insertbyfocus
        !            33:                 removebyfocus
        !            34:                 prefix addhistory read-in-startprl-file read-in-initprl-file))
        !            35: 
        !            36: (include ucisubset.l)
        !            37: ; Version numbers are in here.
        !            38: (include franz.l)
        !            39: (include lowlevel.l)
        !            40: (include db.l)
        !            41: (include vars.l)
        !            42: (include symord.l)
        !            43: (include hook.l)
        !            44: (include create.l)
        !            45: (include scopy.l)
        !            46: (include path.l)
        !            47: (include print.l)
        !            48: (include hash.l)
        !            49: (include match.l)
        !            50: (include history.l)
        !            51: (include toplevel.l)
        !            52: 
        !            53: ; This is a version of the usual library file fix.l
        !            54: ;   with "print"s changed to "pearlfixprintfn".
        !            55: ; It should only be left out after changing the toplevel stuff to
        !            56: ;   not call the fixit debugger.
        !            57: (include fix.l)
        !            58: 
        !            59: (include alias.l)
        !            60: (include inits.l)
        !            61: 
        !            62: ; vi: set lisp:

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