diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-14 00:43:07 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-14 00:43:07 +0000 |
| commit | 0f0562ca9672568f3f8ca33ec6a17ba64c36c015 (patch) | |
| tree | a35da963718129005c2d3adc0d5c2d63351aae15 /src | |
| parent | 497f3b11ac5f486f73a1d4dd51669aeb0bb0b5fe (diff) | |
| download | open-axiom-0f0562ca9672568f3f8ca33ec6a17ba64c36c015.tar.gz | |
* lisp/core.lisp.in: Export %sysInit.
* interp/sys-driver.boot (%sysInit): Don't redefine. Reset
function binding.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 12 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 2 | ||||
| -rw-r--r-- | src/lisp/core.lisp.in | 1 |
3 files changed, 11 insertions, 4 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 92835dbf..184aee48 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,7 +1,8 @@ -2011-11-13 Gabriel Dos Reis <gdr@cse.tamu.edu> +2011-11-13 Gabriel Dos Reis <gdr@cs.tamu.edu> - Fix SF/3436999 - * utils/storage.H: Revert accidental commit of unfinished changes. + * lisp/core.lisp.in: Export %sysInit. + * interp/sys-driver.boot (%sysInit): Don't redefine. Reset + function binding. 2011-11-13 Gabriel Dos Reis <gdr@cs.tamu.edu> @@ -9,6 +10,11 @@ 2011-11-13 Gabriel Dos Reis <gdr@cs.tamu.edu> + Fix SF/3436999 + * utils/storage.H: Revert accidental commit of unfinished changes. + +2011-11-13 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/sys-driver.boot (initializeDatabases): Honor --initial-db. (initializeGlobalState): Don't bind $compileDefaultsOnly. * interp/sys-globals.boot ($compileDefaultsOnly): Remove. diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index b19aa5cf..6dbbe12d 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -56,7 +56,7 @@ $options := [] +++ Initialization routine run by the core system before handing off +++ to the interpreter or compiler. +++ ??? This part is still in flux. -AxiomCore::%sysInit() == +symbolFunction('%sysInit) := () +-> SETQ(_*READ_-DEFAULT_-FLOAT_-FORMAT_*, "DOUBLE-FLOAT") SETQ(_*PACKAGE_*, FIND_-PACKAGE '"BOOT") SETQ(_*LOAD_-VERBOSE_*,false) diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 0b939ed6..431894b5 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -154,6 +154,7 @@ "%hasFeature" "%systemOptions" "%systemArguments" + "%sysInit" "%basicSystemIsComplete" "%algebraSystemIsComplete" "%nothing" |