Bill Page wrote:
> 
> On Sun, Jul 15, 2018 at 6:37 PM, Bill Page <bill.p...@newsynthesis.org> wrote:
> >
> > It seems that UNTRACE-2 was replaced by untrace2 in this commit
> >
> > https://github.com/fricas/fricas/commit/546108f1b65acadc38fc7d243b1b29770b6a770a
> >
> > https://github.com/fricas/fricas/blame/546108f1b65acadc38fc7d243b1b29770b6a770a/src/interp/trace.boot#L387
> >
> > but apparently this reference to UNTRACE-2 was missed.
> >
> >
> > On Sun, Jul 15, 2018 at 5:31 PM, Raymond Rogers 
> > <raymond.roger...@gmail.com> wrote:
> >>
> >> Found the call to UNTRACE-2
> >> Overall examining make.lst is pretty depressing.  If nobody is going to 
> >> fix (or explain) this then I will try  another lisp.
> 
> I don't think there is anything wrong with your lisp or with your
> compiled version of FriCAS.
> 
> Here is a patch for the UNTRACE-2 problem:
> 
> --
> 
> diff --git a/src/interp/slam.boot b/src/interp/slam.boot
> index 3787ae0d..26208d5b 100644
> --- a/src/interp/slam.boot
> +++ b/src/interp/slam.boot
> @@ -288,7 +288,7 @@ mkCacheVec(op,nam,kind,resetCode,countCode) ==
>  clearCache x ==
>    get(x,'localModemap,$e) or get(x,'mapBody,$e) =>
>      for [map,:sub] in $mapSubNameAlist repeat
> -      map=x => _/UNTRACE_-2(sub,NIL)
> +      map=x => untrace2(sub,[])
>      $e:= putHist(x,'localModemap,nil,$e)
>      $e:= putHist(x,'mapBody,nil,$e)
>      $e:= putHist(x,'localVars,nil,$e)
> 
> --

Good catch, please commit.
 
-- 
                              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 post to this group, send email to fricas-devel@googlegroups.com.
Visit this group at https://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.

Reply via email to