forked from scx/wxmaxima-flatpak
-
Notifications
You must be signed in to change notification settings - Fork 0
/
maxima-ecl_ldflags.patch
32 lines (31 loc) · 1.42 KB
/
maxima-ecl_ldflags.patch
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
--- maxima-5.42.1/src/maxima.system.orig 2018-10-25 17:40:37.141080112 -0600
+++ maxima-5.42.1/src/maxima.system 2018-10-25 18:30:23.986042121 -0600
@@ -71,20 +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)))
- (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 ""))) (list x))))
+ (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 (require :defsystem)
(cl-user::run)))))))