Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37511895
en ru br
Репозитории ALT
S:5.47.0-alt2
5.1: 5.22.1-alt0.M51.1
4.1: 5.14.0-alt2
4.0: 5.14.0-alt2
3.0: 5.9.2-alt3
www.altlinux.org/Changes

Группа :: Науки/Математика
Пакет: maxima

 Главная   Изменения   Спек   Патчи   Sources   Загрузить   Gear   Bugs and FR  Repocop 

Патч: maxima-ecl-ldflags.patch
Скачать


diff --git a/src/maxima.system b/src/maxima.system
index ee7ca0f..68c878f 100644
--- a/src/maxima.system
+++ b/src/maxima.system
@@ -71,15 +71,16 @@
 	(let ((c::*ld-format* (concatenate 'string c::*ld-format* " /LIBPATH:binary-ecl")))
 	  (c::build-fasl "binary-ecl/maxima" :lisp-files '(maxima-lib))))
       #-msvc
-      (let ((obj (mapcar #'(lambda (p)
-			     ;; Convert dir/foo.fas to dir/foo.o
-			     (make-pathname :type "o" :defaults p))
-			 files)))
+      (let* ((obj (mapcar #'(lambda (p)
+			      ;; Convert dir/foo.fas to dir/foo.o
+			      (make-pathname :type "o" :defaults p))
+			  files))
+	     (ldflags (let ((x (symbol-value (find-symbol "*AUTOCONF-LD-FLAGS*"
+							  (find-package "MAXIMA")))))
+			(if (and x (not (string= x ""))) (c::split-program-options x)))))
+	(c::build-fasl "binary-ecl/maxima" :lisp-files obj :ld-flags ldflags)
 	(c::build-program "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 ""))) (list x)))
+			  :ld-flags ldflags
 			  :epilogue-code '(progn (cl-user::run)))))))
 
 (defun maxima-binary-pathname ()
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin