diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-09-05 16:26:04 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-09-05 16:26:04 +0000 |
| commit | 3410911228671da46f91d840be5a7c30ddad1ee4 (patch) | |
| tree | 004897b3644ce57e0712bf483141f07ecf9cf6d8 /src/interp/bootlex.lisp.pamphlet | |
| parent | 120ebd220126c88eabba95ba636a84a4c4886a68 (diff) | |
| download | open-axiom-3410911228671da46f91d840be5a7c30ddad1ee4.tar.gz | |
* Makefile.pamphlet (depsys_lisp_macro_sources): Remove
bootfuns.lisp from the list.
(OBJS): Likewise.
(AXIOMsys_noncompiled_lisp_sources): Likewise.
(${DEPSYS}): Don't depend on bootfuns. Don't load it.
(bootfuns.$(FASLEXT)): Remove.
* Makefile.in: Regenerate.
* setq.lisp.pamphlet: Move to sys-globals.boot.
* bootfuns.lisp.pamphlet: Remove.
Diffstat (limited to 'src/interp/bootlex.lisp.pamphlet')
| -rw-r--r-- | src/interp/bootlex.lisp.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/bootlex.lisp.pamphlet b/src/interp/bootlex.lisp.pamphlet index db7eaece..9913b93d 100644 --- a/src/interp/bootlex.lisp.pamphlet +++ b/src/interp/bootlex.lisp.pamphlet @@ -129,7 +129,6 @@ &aux (Echo-Meta t) ($BOOT T) - (|$InteractiveMode| NIL) (XCape #\_) (File-Closed NIL) (*EOF* NIL) @@ -137,6 +136,7 @@ (*fileactq-apply* (function print-defun)) (*comp370-apply* (function print-defun))) (declare (special echo-meta *comp370-apply* *EOF* File-Closed XCape)) + (setq |$InteractiveMode| NIL) (init-boot/spad-reader) (with-open-stream (in-stream (if *boot-input-file* (open *boot-input-file* :direction :input) @@ -177,7 +177,6 @@ ;; (*comp370-apply* (function print-and-eval-defun)) (*comp370-apply* (function print-defun)) (*fileactq-apply* (function print-defun)) - ;; (|$InteractiveMode| nil) ($SPAD T) ($BOOT nil) (XCape #\_) @@ -190,6 +189,7 @@ in-stream out-stream) (declare (special echo-meta /editfile *comp370-apply* *EOF* File-Closed Xcape |$noSubsumption|)) + (setq |$InteractiveMode| nil) ;; only rebind |$InteractiveFrame| if compiling (progv (if (not |$InteractiveMode|) '(|$InteractiveFrame|)) (if (not |$InteractiveMode|) |