| 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: |