diff options
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index ffe4af23..b4d23d29 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -288,7 +288,7 @@ installDriver(Option '"build-databases",function buildDatabasesHandler) --% -++ Main entry point to the system. +++ Main entry point to the interactive system. systemMain() == IN_-PACKAGE '"BOOT" -- ??? is this still necessary? -- ??? Ideally, we should not be calling AxiomCore::topLevel. @@ -301,5 +301,12 @@ systemMain() == if $StandardLinking then initializeGlobalState() $leanMode := getOptionValue "mode" = '"lean" - %basicSystemIsComplete() => restart() + %basicSystemIsComplete() => + restart() +)if %hasFeature KEYWORD::ECL + SI::_*LISP_-INITIALIZED_* : local := true + apply($originalLispTopLevel,nil) +)elseif %hasFeature KEYWORD::SBCL + apply($originalLispTopLevel,nil) +)endif fatalError '"fell off systemMain" |