[Aldor-l] [fricas-devel] Re: baselist declarations

[Ralf Hemmecke]

Dear Peter,

Thank you for your answer.

>> https://svn.origo.ethz.ch/algebraist/trunk/aldor/aldor/lib/libfoam/foam_l.lsp
>>
>> But when does that come in? You have no reference to it in srcaldor3 and
>> only
>>
>> #
>> # .lsp -> .o
>> #
>>
>> ALL_DIRS += $(OBJ)/$(SYS)/aldor/build
>>
>> $(ALL_LISP_O_TARGETS): %.$(O): $(OBJ)/$(SYS)/aldor/build/.dir
>>        echo LSP->O: $(notdir $@)
>>        @echo '(progn (load "$(OBJ)/$(SYS)/interp/foam_l.o") (compile-file
>> "$(filter %.lsp,$^)" :output-file "$@") (${BYE}))' | ${DEPSYS} >
>> $(OBJ)/$(SYS)/aldor/build/$(notdir $@).log ;
>>        @if test -f $@; then echo "Built $(notdir $@)" ; else cat
>> $(OBJ)/$(SYS)/aldor/build/$(notdir $@).log; false; fi
>>
>> in srcaldor2.
>>
>> But which foam_l should I take? The one from above or
>> http://fricas.svn.sourceforge.net/viewvc/fricas/trunk/src/interp/foam_l.lisp?view=markup
>>
> 
> 
>> They do not differ much, but since I have only a vague knowledge of lisp,
>> I'd highly appreciate any hints of what foam_l to take.
>>
> 
> Can't comment on that here - I don't have the sourcecode to hand.  I
> doubt if there are any significant differences, maybe a few extra fns.

But that is why I included the links to the sources...
https://svn.origo.ethz.ch/algebraist/trunk/aldor/aldor/lib/libfoam/foam_l.lsp
http://fricas.svn.sourceforge.net/viewvc/fricas/trunk/src/interp/foam_l.lisp?view=markup

diff -Naur aldor-foam_l.lsp fricas-foam_l.lisp is attached.

But to reduce your time... here a summary.

fricas:  (deftype |Char| () 'character)
aldor:   (deftype |Char| () 'string-char)

and then similar things:

fricas                      aldor
double-float                long-float
most-negative-double-float  most-negative-long-float
most-positive-double-float  most-positive-long-float
double-float-epsilon        long-float-epsilon
defparameter                defconstant
OBEY                        system

And in the function |PtrMagicEQ| we have:

fricas:
        ( (equal (length u) (length v)) (|magicEq1| u v))
        nil ))

aldor:
;; removed for Aldor integration
;;       ( (equal (length u) (length v)) (|magicEq1| u v))
        (t (eq u v) )))

That's all, but I cannot decide which one is better.

Ralf
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: diff.Naur
URL: <http://mail.aldor.org/pipermail/aldor-l_aldor.org/attachments/20080625/01010b0f/attachment-0001.pl>