mailing-list for TeXmacs Users

["Vadim V. Zhytnikov" <address@hidden>]

Valery Pipin ?????:
> On Friday 05 December 2003 14:35, Valery Pipin wrote:
>
> > I'm sorry for stupid question.
> > The problem solved via compiling texmacs.lisp under maxima and the
> > corresponding change of tm_maxima.
> >
> > I also suggest that we have to do this via some automatic way for others
> > lisp implementation.
>
> After some experience I found that sbcl implementation of maxima is the best 
> for using within texmacs. It seems to me that loading the compiled version of
> texmacs.lisp for gcl implementation of maxima gives a small effect.For the 
> large session the responsiveness of texmacs became slow in this case.
>  
> best rgds,
> Valery

Low GCL performance is probably due to not optimal
initial memory settings in GCL (not suitable for
large problems).  Please try attached maxima-init.lisp.

--
     Vadim V. Zhytnikov

      <address@hidden>
     <address@hidden>
;; Pre-allocating memory and more aggressive allocate growth 
;; parameters substantially improves GCL performance
#+gcl
(progn

  #+gmp (si::set-gmp-allocate-relocatable t)

  ;; If you really need smaller initial memory footprint 
  ;; comment these pre-allocations out 
  (si::allocate-relocatable-pages 400 t)
  (si::allocate 'cons   1000 t)
  (si::allocate 'fixnum 100  t)
  (si::allocate 'symbol 200  t)
  (si::allocate 'array  100  t)
  (si::allocate 'string 200  t)
  (si::allocate 'cfun   400  t)

  ;; It is not recommended to make hole size less than 1000
  (si::set-hole-size 4000)

  (si::allocate-growth 'cons    1 10000 66 33)
  (si::allocate-growth 'fixnum  1 10000 66 33)
  (si::allocate-growth 'symbol  1 10000 66 33)
  (si::allocate-growth 'package 1 10000 66 33)
  (si::allocate-growth 'array   1 10000 66 33)
  (si::allocate-growth 'string  1 10000 66 33)
  (si::allocate-growth 'cfun    1 10000 66 33)
  (si::allocate-growth 'sfun    1 10000 66 33)
  
  (si::allocate-growth 'relocatable  1 10000 66 33)
  ;(si::allocate-growth 'contiguous   1 10000 66 33)

  )