Right now it gives following error:
=====
(1) -> )boot removeAllClams()
(EVAL-WHEN (EVAL LOAD) (PROG () (RETURN (|removeAllClams|))))
Un-clamming function canCoerce
>> System error:
The variable |canCoerce;| is unbound.
=====
(I needed this when I was testing GCL to load fricas0.
This function helped a little, but was not enough.)
Following patch fixes this issue.
- Qian
diff --git a/src/interp/clam.boot b/src/interp/clam.boot
index 42394895..6680551e 100644
--- a/src/interp/clam.boot
+++ b/src/interp/clam.boot
@@ -470,4 +470,4 @@ domainEqualList(argl1, argl2) == EQUAL(argl1, argl2)
removeAllClams() ==
for [fun,:.] in $clamList repeat
sayBrightly ['"Un-clamming function",'%b,fun,'%d]
- SET(fun,eval INTERN STRCONC(STRINGIMAGE fun,'";"))
+ SETF(SYMBOL_-FUNCTION fun, SYMBOL_-FUNCTION INTERN
STRCONC(STRINGIMAGE fun,'";"))
--
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/6c95c1d4-1ee4-45aa-af49-f1c725d11c74%40gmail.com.
