diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-24 10:45:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-24 10:45:31 +0000 |
| commit | a3a5203b3605c9ed8c4f89dc97704415d0557359 (patch) | |
| tree | 3b2ebd07f31bdb6b80b5108ab184934cd7cd4c8d /src/interp | |
| parent | 9c14e01323f5076804740aa25d0d1384d25efb28 (diff) | |
| download | open-axiom-a3a5203b3605c9ed8c4f89dc97704415d0557359.tar.gz | |
* config/setup-dep.mk ($(top_builddir)/libtool): Regenerate when
out of date.
src/algebra/
* Makefile.pamphlet (DEPSYS): Remove.
(COMPILE_LISP): New.
(strap/%.o): Use it to compile cached Lisp files.
src/interp/
* bookvol5.pamphlet (restart): Simplify. Handle command line
arguments.
src/lisp/
* core.lisp.in (|handleCommandLine|): Return truthvalue on success.
Don't call $originalLispTopLevel.
(|compileLispHandler|): Rename file to in-file.
(|topLevel|): Exit only whne handleCommandLine indicates so.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/bookvol5.pamphlet | 21 |
2 files changed, 10 insertions, 16 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog index 7651ebe6..2079573a 100644 --- a/src/interp/ChangeLog +++ b/src/interp/ChangeLog @@ -1,3 +1,8 @@ +2007-09-24 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * bookvol5.pamphlet (restart): Simplify. Handle command line + arguments. + 2007-09-19 Gabriel Dos Reis <gdr@cs.tamu.edu> * Makefile.pamphlet (${DEPSYS}): Now depend on the compiled form 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|) |