diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-08-19 20:47:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-08-19 20:47:19 +0000 |
| commit | 85858b85b1fcf9f115ab3286f6e3c9cbf06cbb3d (patch) | |
| tree | 3c474dd5251d9d75b6e41b2816cca75f229cc0aa /src/interp/setvart.boot.pamphlet | |
| parent | 4fd69a22c915b6287fb7fc1dc6e8eb450bad0702 (diff) | |
| download | open-axiom-85858b85b1fcf9f115ab3286f6e3c9cbf06cbb3d.tar.gz | |
* boot-pkg.lisp: New.
* Makefile.pamphlet (${DEPSYS}): Depend on it
(parsing.$(FASLEXT)): Likewise.
(bookvol5.$(FASLEXT)): Likewise.
(nocompil.$(FASLEXT)): Likewise.
(bootfuns.$(FASLEXT)): Likewise.
(boot-pkg.$(FASLEXT)): New rule.
(boot-pkg.lisp): New rule; work around GCL+VPATH voodoo.
(VPATH): Clear.
* Makefile.in: Regenerate.
* bootfuns.lisp.pamphlet: Don't define package "BOOT" here.
Import "boot-pkg".
(|printLoadMessages|): Move to setvart.boot.pamphlet.
Move special functions to boot-pkg.lisp.
Move get-current-directory to daase.lisp.pamphlet.
* setvart.boot.pamphlet (printLoadMessages): Move from
bootfuns.lisp.pamphlet. Write as Boot code.
* daase.lisp.pamphlet (get-current-directory): Move from
bootfuns.lisp.pamphlet
Diffstat (limited to 'src/interp/setvart.boot.pamphlet')
| -rw-r--r-- | src/interp/setvart.boot.pamphlet | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/setvart.boot.pamphlet b/src/interp/setvart.boot.pamphlet index 98dda551..2c02ecfe 100644 --- a/src/interp/setvart.boot.pamphlet +++ b/src/interp/setvart.boot.pamphlet @@ -2373,6 +2373,12 @@ SETANDFILEQ($setOptions,'( <<userlevel>> )) +--% +printLoadMessages u == + MEMQ(u, '(%display% %describe%)) => + ($printLoadMsgs => '"on"; '"off") + $printLoadMsgs := u is ["on"] + -- The following creates a list of option names in the above table. SETANDFILEQ($setOptionNames, [x.0 for x in $setOptions]) |