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

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.