From 7206346167729705cc8b71c1d771f1bbe146a6fa Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Thu, 2 Aug 2018 20:00:50 -0700
Subject: [PATCH] Fix build of ctensr and eigen for Macsyma. Resolves #1125. 
 This reverts the compilation of TRANSS and uses the FASL file from MC.  I'll
 have to figure out what is wrong with the source/compilation in another
 ticket.

---
 build/build.tcl | 5 ++++-
 build/lisp.tcl  | 2 ++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/build/build.tcl b/build/build.tcl
index 07605c58..f4433f40 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -89,7 +89,10 @@ proc build_macsyma_portion {} {
     respond_load "(load \"libmax;maxmac\")"
     respond_load "(progn (print (todo)) (print (todoi)) \"=Build=\")"
     expect "=Build="
-    respond "\r" "(mapcan #'(lambda (x) (doit x)) (append todo todoi))"
+    respond "\r" "(mapcan "
+    type "#'(lambda (x) (cond ((not (memq x\r"
+    type "'(TRANSS)\r"
+    type ")) (doit x)))) (append todo todoi))"
     set timeout 1000
     expect {
 	";BKPT" {
diff --git a/build/lisp.tcl b/build/lisp.tcl
index 5e491280..ff47ba9d 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -547,6 +547,8 @@ respond "*" ":link manual;manual demo,demo;manual demo\r"
 respond "*" "macsym\013"
 respond "(C1)" "compile_lisp_file(translate_file(\"sharem\\;packg >\")\[2\]);"
 respond "(C2)" "compile_lisp_file(translate_file(\"tensor\\;ctensr funcs\")\[2\]);"
+respond "Type ALL;" "all;"
+respond "Type ALL;" "all;"
 respond "(C3)" "quit();"
 
 ### build eigen for macsyma