When using scbl to load fricas0, there are many warnings:
STYLE-WARNING: using deprecated EVAL-WHEN situation names LOAD EVAL
I found that's from src/boot/ptyout.boot:
shoeEVALANDFILEACTQ x== ["EVAL-WHEN", ["EVAL","LOAD"], x]
However I can not directly replace "EVAL" with ":EXECUTE", because it
will translate into |:EXECUTE|. So I have to do it in lisp file as
following.
If there's no better solution, I will commit this patch together with
updated src/boot/compiled/*.clisp.
- Qian
diff --git a/src/boot/initial-env.lisp b/src/boot/initial-env.lisp
index 165e5268..c8647e8c 100644
--- a/src/boot/initial-env.lisp
+++ b/src/boot/initial-env.lisp
@@ -177,3 +177,6 @@
(defun |last| (x)
(car (last x)))
+
+(defun SHOEEVALANDFILEACTQ1 (x)
+ `(eval-when (:execute :load-toplevel) ,x))
diff --git a/src/boot/ptyout.boot b/src/boot/ptyout.boot
index 4ddebed7..96874efc 100644
--- a/src/boot/ptyout.boot
+++ b/src/boot/ptyout.boot
@@ -336,7 +336,7 @@ bpOutItem()==
b:=shoeCompTran ["LAMBDA",["x"],b]
bpPush [shoeEVALANDFILEACTQ CADDR b]
-shoeEVALANDFILEACTQ x== ["EVAL-WHEN", ["EVAL","LOAD"], x]
+shoeEVALANDFILEACTQ x == SHOEEVALANDFILEACTQ1 x
SoftShoeError(posn,key)==
shoeConsole CONCAT('"ERROR IN LINE ",STRINGIMAGE lineNo posn)
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/e4148875-7d17-5d9e-8c36-dec7e5612fd7%40gmail.com.
