Evgeniy, it looks like you have a good amount of RAM is you can evaluate
(alloc 65000)
(expand 1000)
for my map 2005 the following would be enough
(progn
(expand 26000)
(setq i 0
l nil
)
(repeat 25000 (setq l (cons (list i (setq i (1+ i))) l)))
(gc)
(princ (setq lst-min-max
(list (apply (function mapcar) (cons (function min) l))
(apply (function mapcar) (cons (function max) l))
)
)
)
(princ)
)
no need to change the segment size (256 is default)