| 123456789101112131415161718192021222324252627282930313233343536 |
- diff -r -U1 maxima-5.37.1.orig/src/maxima.in maxima-5.37.1/src/maxima.in
- --- maxima-5.37.1.orig/src/maxima.in 2015-05-22 04:40:03.000000000 +0600
- +++ maxima-5.37.1/src/maxima.in 2015-09-03 16:33:30.913866985 +0600
- @@ -188,3 +188,3 @@
- elif [ "$MAXIMA_LISP" = "ecl" ]; then
- - exec "$maxima_image_base" $MAXIMA_LISP_OPTIONS -- "$@"
- + exec "$maxima_image_base" $MAXIMA_LISP_OPTIONS -norc -- "$@"
-
- diff -r -U1 maxima-5.37.1.orig/src/maxima.system maxima-5.37.1/src/maxima.system
- --- maxima-5.37.1.orig/src/maxima.system 2015-09-01 02:26:13.000000000 +0600
- +++ maxima-5.37.1/src/maxima.system 2015-09-03 16:42:47.071843596 +0600
- @@ -61,2 +61,10 @@
- #+ecl
- +(defun split-ld-flags-for-ecl (string &aux space)
- + (setf string (string-trim '(#\Space) string))
- + (if (setf space (position #\Space string))
- + (cons (subseq string 0 space)
- + (split-ld-flags-for-ecl (subseq string (1+ space))))
- + (cons string nil)))
- +
- +#+ecl
- (defun build-maxima-lib ()
- @@ -77,2 +85,7 @@
- files)))
- + (c::build-fasl "binary-ecl/maxima" :lisp-files obj
- + :ld-flags
- + (let ((x (symbol-value (find-symbol "*AUTOCONF-LD-FLAGS*"
- + (find-package "MAXIMA")))))
- + (if (and x (not (string= x ""))) (split-ld-flags-for-ecl x))))
- (c::build-program "binary-ecl/maxima" :lisp-files obj
- @@ -81,3 +94,3 @@
- (find-package "MAXIMA")))))
- - (if (and x (not (string= x ""))) (list x)))
- + (if (and x (not (string= x ""))) (split-ld-flags-for-ecl x)))
- :epilogue-code '(progn (require :defsystem)
|
