diff options
Diffstat (limited to 'src/interp/bookvol5.pamphlet')
| -rw-r--r-- | src/interp/bookvol5.pamphlet | 21 |
1 files changed, 5 insertions, 16 deletions
diff --git a/src/interp/bookvol5.pamphlet b/src/interp/bookvol5.pamphlet index 74304b87..8ed64eba 100644 --- a/src/interp/bookvol5.pamphlet +++ b/src/interp/bookvol5.pamphlet @@ -657,12 +657,12 @@ We do not care that tail recursion occurs. #+:akcl (setq compiler::*suppress-compiler-notes* t) #-:CCL (in-package "BOOT") -#+:CCL - (setq *package* (find-package "BOOT")) -#+:CCL (setpchar "") ;; Turn off CCL read prompts -#+(OR :akcl :CCL) (initroot) + + ;; Do any command-line processing that may be needed + (|AxiomCore|::|topLevel|) + (initroot) #+:akcl (system:gbc-time 0) -#+:akcl + (when (and $openServerIfTrue (fboundp '|openServer|)) (prog (os) (setq os (|openServer| $SpadServerName)) @@ -670,17 +670,6 @@ We do not care that tail recursion occurs. (progn (setq $openServerIfTrue nil) (setq |$SpadServer| t))))) -;; We do the following test at runtime to allow us to use the same images -;; with Saturn and Sman. MCD 30-11-95 -#+:CCL - (when - (and (memq :unix *features*) $openServerIfTrue (fboundp '|openServer|)) - (prog (os) - (setq os (|openServer| $SpadServerName)) - (if (zerop os) - (progn - (setq $openServerIfTrue nil) - (setq |$SpadServer| t))))) (setq |$IOindex| 1) (setq |$InteractiveFrame| (|makeInitialModemapFrame|)) (|loadExposureGroupData|) |