projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 7129096e C |
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: |