[PATCH] Fix "removeAllClams"

[Qian Yun]

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,'";"))

[Waldek Hebisch]

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...@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