On Sun, Jul 15, 2018 at 6:37 PM, Bill Page <[email protected]> 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 <[email protected]> 
> 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)

--

You did not say specifically what you did to cause the error message
(maybe something like ')clear completely' or something like that?) so
I could not verify the fix.  But at least it no longer issues that
message.

>> ..
>> It would seem that whatever decides to compile functions missed this call.

It was just an oversight.

>> Other uncompiled functions from make.lst
>>
>> ; compilation unit finished
>> ;   Undefined functions:
>> ;     /UNTRACE-2 COPY EQSUBSTLIST GENVAR HKEYS INTERNL LASSOC LIST2REFVEC 
>> MKQ |NRTisRecurrenceRelation| SETDIFFERENCE STRINGIMAGE |bright| 
>> |compQuietly| |eval| |get| |keyedSystemError| 
>> |makeInternalMapMinivectorName| |mkAuxiliaryName| |mkCacheName| |pp| |put| 
>> |putHist| |sayBrightlyI| |sayKeyedMsg| |startTimingProcess| 
>> |stopTimingProcess| |substitute| |throwKeyedMsg| |timedOptimization|
>> ;   Undefined variables:
>> ;     |$InteractiveMode| |$TriangleVariableList| |$cacheAlist| |$cacheCount| 
>> |$compileRecurrence| |$compiledOpNameList| |$compilingInputFile| |$e| 
>> |$failed| |$functorDependencyAlist| |$mapSubNameAlist| |$minivector| 
>> |$minivectorCode| |$minivectorNames| |$reportCompilation|
>> ;   caught 19 WARNING conditions
>> ;   caught 46 STYLE-WARNING conditions
>> ;   printed 3 notes
>>

As far as I can see only the first one was really a missing function.
The others are just defined in other source files.

> ...
>> On 07/15/2018 12:12 AM, oldk1331 wrote:
>>>
>>> It seems this function is indeed undefined, so not a lisp problem.
>>> Can you describe how to trigger this error?
>>>

-- 
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 post to this group, send email to [email protected].
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