From 85858b85b1fcf9f115ab3286f6e3c9cbf06cbb3d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 19 Aug 2007 20:47:19 +0000
Subject: 	* 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
---
 src/interp/setvart.boot.pamphlet | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/interp/setvart.boot.pamphlet')

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])
-- 
cgit v1.2.3