On Sun, Oct 29, 2023 at 05:14:10PM +0800, Qian Yun wrote: > 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.
OK. > > - 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 fricas-devel+unsubscr...@googlegroups.com. > To view this discussion on the web visit > https://groups.google.com/d/msgid/fricas-devel/6c95c1d4-1ee4-45aa-af49-f1c725d11c74%40gmail.com. -- Waldek Hebisch -- 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 fricas-devel+unsubscr...@googlegroups.com. To view this discussion on the web visit https://groups.google.com/d/msgid/fricas-devel/ZT5D5NGFR9U6rZFP%40fricas.org.
