From a2f39f13bed2d39accb83cbb7f9e3336b2c92c1c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 15 Aug 2008 09:20:22 +0000
Subject: 	* lisp/core.lisp.in (|$StandardLinking|): New.  Export. 
 * lisp/Makefile.in (edit): Update. 	* interp/daase.lisp: Don't load
 initial databases when 	--system-algebra. 	*
 interp/Makefile.pamphlet (${SAVESYS}): Build with --system-algebra.

---
 src/interp/Makefile.in       | 2 +-
 src/interp/Makefile.pamphlet | 2 +-
 src/interp/daase.lisp        | 3 ++-
 3 files changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/Makefile.in b/src/interp/Makefile.in
index e7775f17..72fe016a 100644
--- a/src/interp/Makefile.in
+++ b/src/interp/Makefile.in
@@ -200,7 +200,7 @@ ${SAVESYS}: database.date \
 		$(axiom_targetdir)/algebra/exposed.$(FASLEXT) \
 		$(axiom_target_datadir)/msgs/s2-us.msgs \
 		$(ASAUTO) $(TRANOBJS) $(OBJS) makeint.$(LNKEXT)
-	$(BOOTSYS) -- --system="$(AXIOM)/" \
+	$(BOOTSYS) -- --system="$(AXIOM)/" --system-algebra \
 		--sysalg="$(axiom_src_datadir)/algebra/" \
 		--make --output=$@ --main="BOOT::|restart|" \
 		--load-directory=. $(OBJS) makeint.$(LNKEXT)
diff --git a/src/interp/Makefile.pamphlet b/src/interp/Makefile.pamphlet
index 7fde6536..e7d373d0 100644
--- a/src/interp/Makefile.pamphlet
+++ b/src/interp/Makefile.pamphlet
@@ -353,7 +353,7 @@ ${SAVESYS}: database.date \
 		$(axiom_targetdir)/algebra/exposed.$(FASLEXT) \
 		$(axiom_target_datadir)/msgs/s2-us.msgs \
 		$(ASAUTO) $(TRANOBJS) $(OBJS) makeint.$(LNKEXT)
-	$(BOOTSYS) -- --system="$(AXIOM)/" \
+	$(BOOTSYS) -- --system="$(AXIOM)/" --system-algebra \
 		--sysalg="$(axiom_src_datadir)/algebra/" \
 		--make --output=$@ --main="BOOT::|restart|" \
 		--load-directory=. $(OBJS) makeint.$(LNKEXT)
diff --git a/src/interp/daase.lisp b/src/interp/daase.lisp
index 66efc4e4..d65a1812 100644
--- a/src/interp/daase.lisp
+++ b/src/interp/daase.lisp
@@ -348,7 +348,8 @@
  (browseopen)
  (setq *category-stream-stamp* '(0 . 0))
  (categoryopen) ;note: this depends on constructorform in browse.daase
-#-:CCL (initial-getdatabase)
+ (unless (|getOptionValue| (|Option| "system-algebra") (|%systemOptions|))
+   (initial-getdatabase))
  (close *interp-stream*)
  (close *operation-stream*)
  (close *category-stream*)
-- 
cgit v1.2.3