Re: [fricas-devel] FriCAS and GCL

[Camm Maguire]

Greetings!

Think I've spotted this:

daase.lisp:

;      #-:GCL
      (setq nrlibdirs (directory "*.NRLIB/index.KAF"))

      #| directory in GCL (at least gcl-2.6.8) on Windows is buggy,
      it can not handle pathnames having wildcards in the middle,
      so we need a workaround.  |#
;      #+:GCL
;      (setq nrlibdirs
;           (mapcar #'(lambda (f)
;                          (concatenate 'string (namestring f)
;                                         "/index.KAF"))
;                   (directory "*.NRLIB")))

Testing now.  Happy to commit when I'm enabled.

Waldek Hebisch <devel@fricas.math.uni.wroc.pl> writes:

> I have now removed part of old GCL-specific code.  This probably
> means that FriCAS can not be build with GCL versions earlier
> than GCL-2.6.13.  On plus side, after that one gets sensible
> error messages and one can do build from Lisp files.  Algebra
> bootstrap fails, I have tracked problem to missing or wrong
> DATABASE property on |BasicType|.  This probably indicates
> some deeper problem.
>
> Running testsuite on FriCAS build from Lisp files shows one
> failure: apparently FriCAS on GCL can not catch numeric errors.
>
> Also, FriCAS now uses ANSI Lisp code instead of old GCL-specific
> code, so this requires enough ANSI support in GCL.  I only tried
> ANSI GCL, I do not know if "traditional" GCL would work.
>
> BTW: The following gets around problem with loading to large
> heap.  I am not sure if this is right solution:
>
> --- trunk/src/lisp/Makefile.in  2022-07-16 14:43:58.443666098 +0200
> +++ dist/src/lisp/Makefile.in   2023-02-11 15:36:50.248556407 +0100
> @@ -68,7 +68,8 @@
>                                         ' (compiler::emit-fn t))' \
>                                    ' (when (fboundp (quote si::sgc-on))' \
>                                          ' (si::sgc-on nil))' \
> -                                  ' (setq compiler::*default-system-p* t))"' 
> \
> +                                  ' (setq compiler::*default-system-p* t)' \
> +                     ' (setq compiler::*default-large-memory-model-p* t))"' \
>                        ' si::*system-directory* (quote (list ".lsp")))' \
>                 '  "$(lisp_c_objects) $(fricas_c_runtime_extra)")' \
>              | $(FRICAS_LISP)
>
> -- 
>                               Waldek Hebisch

This will work, but might be slower than needed.  Will look at this too.

Take care,
-- 
Camm Maguire                                        camm@maguirefamily.org
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah