I wrote:
> Andrey G. Grozin wrote:
> This is good news, thanks.
>
> > Strangely enough, I had no success with cmucl (2010-01
> > snapshot, sse2).
>
> ATM cmucl port works on some machines and fails on others. From INSTALL:
>
> ATM CMU CL port should be considered experimental, it received only
> little testing. Also CMU CL seem to have problems on some machines.
>
> The 'seem to have problems on some machines' means that build may
> crash like above. Port was done by Anatoly Raportirenko and
> for him it worked on a few different machines (both 32-bit and
> 64-bit). For me it failed on 64-bit machine, but worked in 32-bit
> chroot. He also wrote that unicode cmucl have bug, so one have to
> patch and rebuild it (I tried non-unicode version).
>
I think that the problem is due to cmucl (and not FriCAS or the
part). Namely given three files below I still get crash:
----------------------<Makefile>--<cut here>-----------------
FRICAS_LISP = /mnt/a5/fricas/usr/bin/cmucl
.PHONY: all
all: do_it.cmucl
echo '(quit)' | ./lisp
do_it.cmucl: fricas-lisp.lisp fricas-package.lisp
echo '(load "fricas-package.lisp")' \
'(load (compile-file "fricas-lisp.lisp"))' \
'(in-package "FRICAS-LISP") (save-core "lisp")' \
| $(FRICAS_LISP)
clean:
rm fricas-lisp.sse2f lisp
---------------------<cut here>-------------------------------
----------------<fricas-package.lisp>----<cut here>-----------
;;; We put this in separate file to avoid problems with compilation.
(eval-when (:execute :compile-toplevel :load-toplevel)
(if (not (find-package "FRICAS-LISP"))
(make-package "FRICAS-LISP"
:use (list (or (find-package "COMMON-LISP")
"LISP")))))
---------------------<cut here>-------------------------------
----------------<fricas-lisp.lisp>----<cut here>--------------
(in-package "FRICAS-LISP")
;; Save current image on disk as executable and quit.
(defun save-core (core-image)
(let ((top-fun #'(lambda ()
(lisp::%top-level))))
(ext::save-lisp
(unix::unix-maybe-prepend-current-directory core-image)
:init-function top-fun :executable t :print-herald nil))
)
---------------------<cut here>-------------------------------
--
Waldek Hebisch
[email protected]
--
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to
[email protected].
For more options, visit this group at
http://groups.google.com/group/fricas-devel?hl=en.
