1 |
commit: 9eb68983fcb0208ae6e35b1d3b0ce72c9cf8d17c |
2 |
Author: Ulrich Müller <ulm <AT> gentoo <DOT> org> |
3 |
AuthorDate: Fri Apr 1 10:30:00 2022 +0000 |
4 |
Commit: Ulrich Müller <ulm <AT> gentoo <DOT> org> |
5 |
CommitDate: Fri Apr 1 10:30:00 2022 +0000 |
6 |
URL: https://gitweb.gentoo.org/proj/lisp.git/commit/?id=9eb68983 |
7 |
|
8 |
dev-lisp/sbcl: Remove package |
9 |
|
10 |
Newer version in gentoo repository. |
11 |
|
12 |
Signed-off-by: Ulrich Müller <ulm <AT> gentoo.org> |
13 |
|
14 |
dev-lisp/sbcl/files/concurrency-test-1.3.15.patch | 17 - |
15 |
dev-lisp/sbcl/files/sb-posix-test-1.2.15.patch | 40 --- |
16 |
dev-lisp/sbcl/files/sbcl-1.2.11-solaris.patch | 12 - |
17 |
.../sbcl/files/sbcl-1.4.0-bsd-sockets-test.patch | 383 --------------------- |
18 |
dev-lisp/sbcl/files/sbcl-1.4.0-verbose-build.patch | 29 -- |
19 |
dev-lisp/sbcl/metadata.xml | 28 -- |
20 |
dev-lisp/sbcl/sbcl-1.4.10.ebuild | 246 ------------- |
21 |
dev-lisp/sbcl/sbcl-1.4.9.ebuild | 246 ------------- |
22 |
8 files changed, 1001 deletions(-) |
23 |
|
24 |
diff --git a/dev-lisp/sbcl/files/concurrency-test-1.3.15.patch b/dev-lisp/sbcl/files/concurrency-test-1.3.15.patch |
25 |
deleted file mode 100644 |
26 |
index 53b5bea0..00000000 |
27 |
--- a/dev-lisp/sbcl/files/concurrency-test-1.3.15.patch |
28 |
+++ /dev/null |
29 |
@@ -1,17 +0,0 @@ |
30 |
-diff -r -U2 sbcl-1.3.15.orig/contrib/sb-concurrency/tests/test-frlock.lisp sbcl-1.3.15/contrib/sb-concurrency/tests/test-frlock.lisp |
31 |
---- sbcl-1.3.15.orig/contrib/sb-concurrency/tests/test-frlock.lisp 2017-02-28 20:51:29.000000000 +0100 |
32 |
-+++ sbcl-1.3.15/contrib/sb-concurrency/tests/test-frlock.lisp 2017-03-02 18:15:41.225284441 +0100 |
33 |
-@@ -25,5 +25,5 @@ |
34 |
- (defun test-frlocks (&key (reader-count 100) (read-count 1000000) |
35 |
- (outer-read-pause 0) (inner-read-pause 0) |
36 |
-- (writer-count 10) (write-count (/ 1 *minimum-sleep*)) |
37 |
-+ (writer-count 10) (write-count 5000) |
38 |
- (outer-write-pause *minimum-sleep*) (inner-write-pause 0)) |
39 |
- (let ((rw (make-frlock)) |
40 |
-@@ -88,5 +88,5 @@ |
41 |
- (deftest* (frlock.1) |
42 |
- (handler-case |
43 |
-- (sb-ext:with-timeout 10 |
44 |
-+ (sb-ext:with-timeout 240 |
45 |
- (test-frlocks #+win32 :outer-write-pause #+win32 t )) |
46 |
- (sb-ext:timeout (c) |
47 |
|
48 |
diff --git a/dev-lisp/sbcl/files/sb-posix-test-1.2.15.patch b/dev-lisp/sbcl/files/sb-posix-test-1.2.15.patch |
49 |
deleted file mode 100644 |
50 |
index 517208a7..00000000 |
51 |
--- a/dev-lisp/sbcl/files/sb-posix-test-1.2.15.patch |
52 |
+++ /dev/null |
53 |
@@ -1,40 +0,0 @@ |
54 |
-diff -r -U1 sbcl-1.2.15.orig/contrib/sb-posix/posix-tests.lisp sbcl-1.2.15/contrib/sb-posix/posix-tests.lisp |
55 |
---- sbcl-1.2.15.orig/contrib/sb-posix/posix-tests.lisp 2015-08-31 00:59:03.000000000 +0600 |
56 |
-+++ sbcl-1.2.15/contrib/sb-posix/posix-tests.lisp 2015-09-22 10:19:20.000000000 +0600 |
57 |
-@@ -169,19 +169,19 @@ |
58 |
- |
59 |
--(deftest rmdir.error.3 |
60 |
-- (handler-case |
61 |
-- (sb-posix:rmdir #-win32 "/" #+win32 (sb-ext:posix-getenv "windir")) |
62 |
-- (sb-posix:syscall-error (c) |
63 |
-- (typep |
64 |
-- (sb-posix:syscall-errno c) |
65 |
-- '(member |
66 |
-- #+(or darwin openbsd) |
67 |
-- #.sb-posix:eisdir |
68 |
-- #+win32 |
69 |
-- #.sb-posix::eacces |
70 |
-- #+win32 |
71 |
-- #.sb-posix::enotempty |
72 |
-- #+sunos |
73 |
-- #.sb-posix::einval |
74 |
-- #-(or darwin openbsd win32 sunos) |
75 |
-- #.sb-posix::ebusy)))) t) |
76 |
-+;(deftest rmdir.error.3 |
77 |
-+; (handler-case |
78 |
-+; (sb-posix:rmdir #-win32 "/" #+win32 (sb-ext:posix-getenv "windir")) |
79 |
-+; (sb-posix:syscall-error (c) |
80 |
-+; (typep |
81 |
-+; (sb-posix:syscall-errno c) |
82 |
-+; '(member |
83 |
-+; #+(or darwin openbsd) |
84 |
-+; #.sb-posix:eisdir |
85 |
-+; #+win32 |
86 |
-+; #.sb-posix::eacces |
87 |
-+; #+win32 |
88 |
-+; #.sb-posix::enotempty |
89 |
-+; #+sunos |
90 |
-+; #.sb-posix::einval |
91 |
-+; #-(or darwin openbsd win32 sunos) |
92 |
-+; #.sb-posix::ebusy)))) t) |
93 |
- |
94 |
|
95 |
diff --git a/dev-lisp/sbcl/files/sbcl-1.2.11-solaris.patch b/dev-lisp/sbcl/files/sbcl-1.2.11-solaris.patch |
96 |
deleted file mode 100644 |
97 |
index 850fd5d9..00000000 |
98 |
--- a/dev-lisp/sbcl/files/sbcl-1.2.11-solaris.patch |
99 |
+++ /dev/null |
100 |
@@ -1,12 +0,0 @@ |
101 |
-diff -r -U2 sbcl-1.2.11.orig/src/runtime/Config.x86-sunos sbcl-1.2.11/src/runtime/Config.x86-sunos |
102 |
---- sbcl-1.2.11.orig/src/runtime/Config.x86-sunos 2015-04-27 20:56:50.000000000 +0600 |
103 |
-+++ sbcl-1.2.11/src/runtime/Config.x86-sunos 2015-04-28 22:38:01.569103626 +0600 |
104 |
-@@ -12,6 +12,6 @@ |
105 |
- CC=gcc |
106 |
- CFLAGS = -g -O2 -Wall -D__EXTENSIONS__ -D_POSIX_C_SOURCE=199506L -DSVR4 -D_REENTRANT -fno-omit-frame-pointer |
107 |
--NM = nm -xgp |
108 |
--GREP = ggrep |
109 |
-+NM = nm -t x -p |
110 |
-+GREP = grep |
111 |
- |
112 |
- ASSEM_SRC = x86-assem.S ldso-stubs.S |
113 |
|
114 |
diff --git a/dev-lisp/sbcl/files/sbcl-1.4.0-bsd-sockets-test.patch b/dev-lisp/sbcl/files/sbcl-1.4.0-bsd-sockets-test.patch |
115 |
deleted file mode 100644 |
116 |
index d51bdd5c..00000000 |
117 |
--- a/dev-lisp/sbcl/files/sbcl-1.4.0-bsd-sockets-test.patch |
118 |
+++ /dev/null |
119 |
@@ -1,383 +0,0 @@ |
120 |
-diff -Nuar a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp |
121 |
---- a/contrib/sb-bsd-sockets/tests.lisp 2017-09-30 18:30:58.000000000 +0200 |
122 |
-+++ b/contrib/sb-bsd-sockets/tests.lisp 2017-10-01 18:45:57.132900158 +0200 |
123 |
-@@ -18,11 +18,11 @@ |
124 |
- (equalp (make-inet-address "242.1.211.3") #(242 1 211 3)) |
125 |
- t) |
126 |
- |
127 |
--#-win32 |
128 |
--(deftest make-inet6-address.1 |
129 |
-- (equalp (make-inet6-address "ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff") |
130 |
-- #(255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255)) |
131 |
-- t) |
132 |
-+;#-win32 |
133 |
-+;(deftest make-inet6-address.1 |
134 |
-+; (equalp (make-inet6-address "ffff:ffff:ffff:ffff:ffff:ffff:ffff:ffff") |
135 |
-+; #(255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255)) |
136 |
-+; t) |
137 |
- |
138 |
- (deftest get-protocol-by-name/tcp |
139 |
- (integerp (get-protocol-by-name "tcp")) |
140 |
-@@ -35,15 +35,15 @@ |
141 |
- ;;; See https://bugs.launchpad.net/sbcl/+bug/659857 |
142 |
- ;;; Apparently getprotobyname_r on FreeBSD says -1 and EINTR |
143 |
- ;;; for unknown protocols... |
144 |
--#-(and freebsd sb-thread) |
145 |
--#-(and dragonfly sb-thread) |
146 |
--(deftest get-protocol-by-name/error |
147 |
-- (handler-case (get-protocol-by-name "nonexistent-protocol") |
148 |
-- (unknown-protocol () |
149 |
-- t) |
150 |
-- (:no-error () |
151 |
-- nil)) |
152 |
-- t) |
153 |
-+;#-(and freebsd sb-thread) |
154 |
-+;#-(and dragonfly sb-thread) |
155 |
-+;(deftest get-protocol-by-name/error |
156 |
-+; (handler-case (get-protocol-by-name "nonexistent-protocol") |
157 |
-+; (unknown-protocol () |
158 |
-+; t) |
159 |
-+; (:no-error () |
160 |
-+; nil)) |
161 |
-+; t) |
162 |
- |
163 |
- (when (handler-case (make-instance 'inet-socket |
164 |
- :type :stream |
165 |
-@@ -102,21 +102,21 @@ |
166 |
- (:no-error nil)) |
167 |
- t) |
168 |
- |
169 |
--#-win32 |
170 |
--(deftest make-inet6-socket.smoke |
171 |
-- (handler-case |
172 |
-- (let ((s (make-instance 'inet6-socket :type :stream :protocol (get-protocol-by-name "tcp")))) |
173 |
-- (> (socket-file-descriptor s) 1)) |
174 |
-- ((or address-family-not-supported protocol-not-supported-error) () t)) |
175 |
-- t) |
176 |
-- |
177 |
--#-win32 |
178 |
--(deftest make-inet6-socket.keyword |
179 |
-- (handler-case |
180 |
-- (let ((s (make-instance 'inet6-socket :type :stream :protocol :tcp))) |
181 |
-- (> (socket-file-descriptor s) 1)) |
182 |
-- ((or address-family-not-supported protocol-not-supported-error) () t)) |
183 |
-- t) |
184 |
-+;#-win32 |
185 |
-+;(deftest make-inet6-socket.smoke |
186 |
-+; (handler-case |
187 |
-+; (let ((s (make-instance 'inet6-socket :type :stream :protocol (get-protocol-by-name "tcp")))) |
188 |
-+; (> (socket-file-descriptor s) 1)) |
189 |
-+; ((or address-family-not-supported protocol-not-supported-error) () t)) |
190 |
-+; t) |
191 |
-+ |
192 |
-+;#-win32 |
193 |
-+;(deftest make-inet6-socket.keyword |
194 |
-+; (handler-case |
195 |
-+; (let ((s (make-instance 'inet6-socket :type :stream :protocol :tcp))) |
196 |
-+; (> (socket-file-descriptor s) 1)) |
197 |
-+; ((or address-family-not-supported protocol-not-supported-error) () t)) |
198 |
-+; t) |
199 |
- |
200 |
- #+ipv4-support |
201 |
- (deftest* (non-block-socket) |
202 |
-@@ -125,55 +125,55 @@ |
203 |
- (non-blocking-mode s)) |
204 |
- t) |
205 |
- |
206 |
--#+ipv4-support |
207 |
--(deftest inet-socket-bind |
208 |
-- (let* ((tcp (get-protocol-by-name "tcp")) |
209 |
-- (address (make-inet-address "127.0.0.1")) |
210 |
-- (s1 (make-instance 'inet-socket :type :stream :protocol tcp)) |
211 |
-- (s2 (make-instance 'inet-socket :type :stream :protocol tcp))) |
212 |
-- (unwind-protect |
213 |
-- ;; Given the functions we've got so far, if you can think of a |
214 |
-- ;; better way to make sure the bind succeeded than trying it |
215 |
-- ;; twice, let me know |
216 |
-- (progn |
217 |
-- (socket-bind s1 address 0) |
218 |
-- (handler-case |
219 |
-- (let ((port (nth-value 1 (socket-name s1)))) |
220 |
-- (socket-bind s2 address port) |
221 |
-- nil) |
222 |
-- (address-in-use-error () t))) |
223 |
-- (socket-close s1) |
224 |
-- (socket-close s2))) |
225 |
-- t) |
226 |
-- |
227 |
--#-win32 |
228 |
--(deftest inet6-socket-bind |
229 |
-- (handler-case |
230 |
-- (let* ((tcp (get-protocol-by-name "tcp")) |
231 |
-- (address (make-inet6-address "::1")) |
232 |
-- (s1 (make-instance 'inet6-socket :type :stream :protocol tcp)) |
233 |
-- (s2 (make-instance 'inet6-socket :type :stream :protocol tcp))) |
234 |
-- (unwind-protect |
235 |
-- ;; Given the functions we've got so far, if you can think of a |
236 |
-- ;; better way to make sure the bind succeeded than trying it |
237 |
-- ;; twice, let me know |
238 |
-- (handler-case |
239 |
-- (socket-bind s1 address 0) |
240 |
-- (socket-error () |
241 |
-- ;; This may mean no IPv6 support, can't fail a test |
242 |
-- ;; because of that (address-family-not-supported doesn't catch that) |
243 |
-- t) |
244 |
-- (:no-error (x) |
245 |
-- (declare (ignore x)) |
246 |
-- (handler-case |
247 |
-- (let ((port (nth-value 1 (socket-name s1)))) |
248 |
-- (socket-bind s2 address port) |
249 |
-- nil) |
250 |
-- (address-in-use-error () t)))) |
251 |
-- (socket-close s1) |
252 |
-- (socket-close s2))) |
253 |
-- ((or address-family-not-supported protocol-not-supported-error) () t)) |
254 |
-- t) |
255 |
-+;#+ipv4-support |
256 |
-+;(deftest inet-socket-bind |
257 |
-+; (let* ((tcp (get-protocol-by-name "tcp")) |
258 |
-+; (address (make-inet-address "127.0.0.1")) |
259 |
-+; (s1 (make-instance 'inet-socket :type :stream :protocol tcp)) |
260 |
-+; (s2 (make-instance 'inet-socket :type :stream :protocol tcp))) |
261 |
-+; (unwind-protect |
262 |
-+; ;; Given the functions we've got so far, if you can think of a |
263 |
-+; ;; better way to make sure the bind succeeded than trying it |
264 |
-+; ;; twice, let me know |
265 |
-+; (progn |
266 |
-+; (socket-bind s1 address 0) |
267 |
-+; (handler-case |
268 |
-+; (let ((port (nth-value 1 (socket-name s1)))) |
269 |
-+; (socket-bind s2 address port) |
270 |
-+; nil) |
271 |
-+; (address-in-use-error () t))) |
272 |
-+; (socket-close s1) |
273 |
-+; (socket-close s2))) |
274 |
-+; t) |
275 |
-+ |
276 |
-+;#-win32 |
277 |
-+;(deftest inet6-socket-bind |
278 |
-+; (handler-case |
279 |
-+; (let* ((tcp (get-protocol-by-name "tcp")) |
280 |
-+; (address (make-inet6-address "::1")) |
281 |
-+; (s1 (make-instance 'inet6-socket :type :stream :protocol tcp)) |
282 |
-+; (s2 (make-instance 'inet6-socket :type :stream :protocol tcp))) |
283 |
-+; (unwind-protect |
284 |
-+; ;; Given the functions we've got so far, if you can think of a |
285 |
-+; ;; better way to make sure the bind succeeded than trying it |
286 |
-+; ;; twice, let me know |
287 |
-+; (handler-case |
288 |
-+; (socket-bind s1 address 0) |
289 |
-+; (socket-error () |
290 |
-+; ;; This may mean no IPv6 support, can't fail a test |
291 |
-+; ;; because of that (address-family-not-supported doesn't catch that) |
292 |
-+; t) |
293 |
-+; (:no-error (x) |
294 |
-+; (declare (ignore x)) |
295 |
-+; (handler-case |
296 |
-+; (let ((port (nth-value 1 (socket-name s1)))) |
297 |
-+; (socket-bind s2 address port) |
298 |
-+; nil) |
299 |
-+; (address-in-use-error () t)))) |
300 |
-+; (socket-close s1) |
301 |
-+; (socket-close s2))) |
302 |
-+; ((or address-family-not-supported protocol-not-supported-error) () t)) |
303 |
-+; t) |
304 |
- |
305 |
- #+ipv4-support |
306 |
- (deftest* (simple-sockopt-test) |
307 |
-@@ -241,37 +241,37 @@ |
308 |
- ;;; to look at /etc/syslog.conf or local equivalent to find out where |
309 |
- ;;; the message ended up |
310 |
- |
311 |
--#-win32 |
312 |
--(deftest simple-local-client |
313 |
-- (progn |
314 |
-- ;; SunOS (Solaris) and Darwin systems don't have a socket at |
315 |
-- ;; /dev/log. We might also be building in a chroot or |
316 |
-- ;; something, so don't fail this test just because the file is |
317 |
-- ;; unavailable, or if it's a symlink to some weird character |
318 |
-- ;; device. |
319 |
-- (when (block nil |
320 |
-- (handler-bind ((sb-posix:syscall-error |
321 |
-- (lambda (e) |
322 |
-- (declare (ignore e)) |
323 |
-- (return nil)))) |
324 |
-- (sb-posix:s-issock |
325 |
-- (sb-posix::stat-mode (sb-posix:stat "/dev/log"))))) |
326 |
-- (let ((s (make-instance 'local-socket :type :datagram))) |
327 |
-- (format t "Connecting ~A... " s) |
328 |
-- (finish-output) |
329 |
-- (handler-case |
330 |
-- (socket-connect s "/dev/log") |
331 |
-- (sb-bsd-sockets::socket-error () |
332 |
-- (setq s (make-instance 'local-socket :type :stream)) |
333 |
-- (format t "failed~%Retrying with ~A... " s) |
334 |
-- (finish-output) |
335 |
-- (socket-connect s "/dev/log"))) |
336 |
-- (format t "ok.~%") |
337 |
-- (let ((stream (socket-make-stream s :input t :output t :buffering :none))) |
338 |
-- (format stream |
339 |
-- "<7>bsd-sockets: Don't panic. We're testing local-domain client code; this message can safely be ignored")))) |
340 |
-- t) |
341 |
-- t) |
342 |
-+;#-win32 |
343 |
-+;(deftest simple-local-client |
344 |
-+; (progn |
345 |
-+; ;; SunOS (Solaris) and Darwin systems don't have a socket at |
346 |
-+; ;; /dev/log. We might also be building in a chroot or |
347 |
-+; ;; something, so don't fail this test just because the file is |
348 |
-+; ;; unavailable, or if it's a symlink to some weird character |
349 |
-+; ;; device. |
350 |
-+; (when (block nil |
351 |
-+; (handler-bind ((sb-posix:syscall-error |
352 |
-+; (lambda (e) |
353 |
-+; (declare (ignore e)) |
354 |
-+; (return nil)))) |
355 |
-+; (sb-posix:s-issock |
356 |
-+; (sb-posix::stat-mode (sb-posix:stat "/dev/log"))))) |
357 |
-+; (let ((s (make-instance 'local-socket :type :datagram))) |
358 |
-+; (format t "Connecting ~A... " s) |
359 |
-+; (finish-output) |
360 |
-+; (handler-case |
361 |
-+; (socket-connect s "/dev/log") |
362 |
-+; (sb-bsd-sockets::socket-error () |
363 |
-+; (setq s (make-instance 'local-socket :type :stream)) |
364 |
-+; (format t "failed~%Retrying with ~A... " s) |
365 |
-+; (finish-output) |
366 |
-+; (socket-connect s "/dev/log"))) |
367 |
-+; (format t "ok.~%") |
368 |
-+; (let ((stream (socket-make-stream s :input t :output t :buffering :none))) |
369 |
-+; (format stream |
370 |
-+; "<7>bsd-sockets: Don't panic. We're testing local-domain client code; this message can safely be ignored")))) |
371 |
-+; t) |
372 |
-+; t) |
373 |
- |
374 |
- ;;; these require that the internet (or bits of it, at least) is available |
375 |
- |
376 |
-@@ -387,60 +387,60 @@ |
377 |
- (format t "Received ~A bytes from ~A:~A - ~A ~%" |
378 |
- len address port (subseq buf 0 (min 10 len))))))) |
379 |
- |
380 |
--#+(and ipv4-support sb-thread) |
381 |
--(deftest interrupt-io |
382 |
-- (let (result) |
383 |
-- (labels |
384 |
-- ((client (port) |
385 |
-- (setf result |
386 |
-- (let ((s (make-instance 'inet-socket |
387 |
-- :type :stream |
388 |
-- :protocol :tcp))) |
389 |
-- (socket-connect s #(127 0 0 1) port) |
390 |
-- (let ((stream (socket-make-stream s |
391 |
-- :input t |
392 |
-- :output t |
393 |
-- :buffering :none))) |
394 |
-- (handler-case |
395 |
-- (prog1 |
396 |
-- (catch 'stop |
397 |
-- (progn |
398 |
-- (read-char stream) |
399 |
-- (sleep 0.1) |
400 |
-- (sleep 0.1) |
401 |
-- (sleep 0.1))) |
402 |
-- (close stream)) |
403 |
-- (error (c) |
404 |
-- c)))))) |
405 |
-- (server () |
406 |
-- (let ((s (make-instance 'inet-socket |
407 |
-- :type :stream |
408 |
-- :protocol :tcp))) |
409 |
-- (setf (sockopt-reuse-address s) t) |
410 |
-- (socket-bind s (make-inet-address "127.0.0.1") 0) |
411 |
-- (socket-listen s 5) |
412 |
-- (multiple-value-bind (* port) |
413 |
-- (socket-name s) |
414 |
-- (let* ((client (sb-thread:make-thread |
415 |
-- (lambda () (client port)))) |
416 |
-- (r (socket-accept s)) |
417 |
-- (stream (socket-make-stream r |
418 |
-- :input t |
419 |
-- :output t |
420 |
-- :buffering :none)) |
421 |
-- (ok :ok)) |
422 |
-- (socket-close s) |
423 |
-- (sleep 5) |
424 |
-- (sb-thread:interrupt-thread client |
425 |
-- (lambda () (throw 'stop ok))) |
426 |
-- (sleep 5) |
427 |
-- (setf ok :not-ok) |
428 |
-- (write-char #\x stream) |
429 |
-- (close stream) |
430 |
-- (socket-close r)))))) |
431 |
-- (server)) |
432 |
-- result) |
433 |
-- :ok) |
434 |
-+;#+(and ipv4-support sb-thread) |
435 |
-+;(deftest interrupt-io |
436 |
-+; (let (result) |
437 |
-+; (labels |
438 |
-+; ((client (port) |
439 |
-+; (setf result |
440 |
-+; (let ((s (make-instance 'inet-socket |
441 |
-+; :type :stream |
442 |
-+; :protocol :tcp))) |
443 |
-+; (socket-connect s #(127 0 0 1) port) |
444 |
-+; (let ((stream (socket-make-stream s |
445 |
-+; :input t |
446 |
-+; :output t |
447 |
-+; :buffering :none))) |
448 |
-+; (handler-case |
449 |
-+; (prog1 |
450 |
-+; (catch 'stop |
451 |
-+; (progn |
452 |
-+; (read-char stream) |
453 |
-+; (sleep 0.1) |
454 |
-+; (sleep 0.1) |
455 |
-+; (sleep 0.1))) |
456 |
-+; (close stream)) |
457 |
-+; (error (c) |
458 |
-+; c)))))) |
459 |
-+; (server () |
460 |
-+; (let ((s (make-instance 'inet-socket |
461 |
-+; :type :stream |
462 |
-+; :protocol :tcp))) |
463 |
-+; (setf (sockopt-reuse-address s) t) |
464 |
-+; (socket-bind s (make-inet-address "127.0.0.1") 0) |
465 |
-+; (socket-listen s 5) |
466 |
-+; (multiple-value-bind (* port) |
467 |
-+; (socket-name s) |
468 |
-+; (let* ((client (sb-thread:make-thread |
469 |
-+; (lambda () (client port)))) |
470 |
-+; (r (socket-accept s)) |
471 |
-+; (stream (socket-make-stream r |
472 |
-+; :input t |
473 |
-+; :output t |
474 |
-+; :buffering :none)) |
475 |
-+; (ok :ok)) |
476 |
-+; (socket-close s) |
477 |
-+; (sleep 5) |
478 |
-+; (sb-thread:interrupt-thread client |
479 |
-+; (lambda () (throw 'stop ok))) |
480 |
-+; (sleep 5) |
481 |
-+; (setf ok :not-ok) |
482 |
-+; (write-char #\x stream) |
483 |
-+; (close stream) |
484 |
-+; (socket-close r)))))) |
485 |
-+; (server)) |
486 |
-+; result) |
487 |
-+; :ok) |
488 |
- |
489 |
- (defmacro with-client-and-server (((socket-class &rest common-initargs) |
490 |
- (listen-socket-var &rest listen-address) |
491 |
-@@ -503,8 +503,9 @@ |
492 |
- (define-shutdown-test ,(make-name 'shutdown.client.ub8) |
493 |
- client server (unsigned-byte 8) ,direction))))) |
494 |
- |
495 |
-- (define-shutdown-tests :output) |
496 |
-- (define-shutdown-tests :io)) |
497 |
-+; (define-shutdown-tests :output) |
498 |
-+; (define-shutdown-tests :io) |
499 |
-+) |
500 |
- |
501 |
- #+linux |
502 |
- (deftest abstract.smoke |
503 |
|
504 |
diff --git a/dev-lisp/sbcl/files/sbcl-1.4.0-verbose-build.patch b/dev-lisp/sbcl/files/sbcl-1.4.0-verbose-build.patch |
505 |
deleted file mode 100644 |
506 |
index 27ad3b07..00000000 |
507 |
--- a/dev-lisp/sbcl/files/sbcl-1.4.0-verbose-build.patch |
508 |
+++ /dev/null |
509 |
@@ -1,29 +0,0 @@ |
510 |
-diff -Nuar a/make.sh b/make.sh |
511 |
---- a/make.sh 2017-09-30 18:30:58.000000000 +0200 |
512 |
-+++ b/make.sh 2017-10-01 18:08:26.742909789 +0200 |
513 |
-@@ -24,7 +24,7 @@ |
514 |
- # thing" when run on the target machine, with the minor caveat that |
515 |
- # any --xc-host parameter should be suitable for the host machine |
516 |
- # instead of the target. |
517 |
--sh make-config.sh "$@" || exit $? |
518 |
-+sh -x make-config.sh "$@" || exit $? |
519 |
- |
520 |
- . output/prefix.def |
521 |
- . output/build-config |
522 |
-@@ -76,11 +76,11 @@ |
523 |
- $@ |
524 |
- fi |
525 |
- } |
526 |
--maybetime sh make-host-1.sh |
527 |
--maybetime sh make-target-1.sh |
528 |
--maybetime sh make-host-2.sh |
529 |
--maybetime sh make-target-2.sh |
530 |
--maybetime sh make-target-contrib.sh |
531 |
-+maybetime sh -x make-host-1.sh |
532 |
-+maybetime sh -x make-target-1.sh |
533 |
-+maybetime sh -x make-host-2.sh |
534 |
-+maybetime sh -x make-target-2.sh |
535 |
-+maybetime sh -x make-target-contrib.sh |
536 |
- |
537 |
- NCONTRIBS=`find contrib -name Makefile -print | wc -l` |
538 |
- NPASSED=`find obj/asdf-cache -name test-passed.test-report -print | wc -l` |
539 |
|
540 |
diff --git a/dev-lisp/sbcl/metadata.xml b/dev-lisp/sbcl/metadata.xml |
541 |
deleted file mode 100644 |
542 |
index 377efac5..00000000 |
543 |
--- a/dev-lisp/sbcl/metadata.xml |
544 |
+++ /dev/null |
545 |
@@ -1,28 +0,0 @@ |
546 |
-<?xml version="1.0" encoding="UTF-8"?> |
547 |
-<!DOCTYPE pkgmetadata SYSTEM "https://www.gentoo.org/dtd/metadata.dtd"> |
548 |
-<pkgmetadata> |
549 |
- <maintainer type="project"> |
550 |
- <email>common-lisp@g.o</email> |
551 |
- <name>Gentoo Common Lisp Project</name> |
552 |
- </maintainer> |
553 |
- <longdescription> |
554 |
- Steel Bank Common Lisp is an open source Common Lisp implementation. It |
555 |
- provides an integrated native compiler, interpreter, and debugger. |
556 |
- |
557 |
- SBCL is a fork off of the main branch of CMUCL. SBCL is distinguished from |
558 |
- CMUCL by a greater emphasis on maintainability. In particular, the SBCL system |
559 |
- can be built directly from its source code, so that the output corresponds to |
560 |
- the source code in a controlled, verifiable way, and arbitrary changes can be |
561 |
- made to the system without causing bootstrapping problems. SBCL also places |
562 |
- less emphasis than CMU CL does on new non-ANSI extensions, or on backward |
563 |
- compatibility with old non-ANSI features. |
564 |
- |
565 |
- Support for native threading on GNU/Linux is available for the x86 and amd64 |
566 |
- platforms using an NPTL enabled GLIBC. |
567 |
- |
568 |
- SBCL 0.8.17 and later support Unicode. |
569 |
- </longdescription> |
570 |
- <use> |
571 |
- <flag name='pax_kernel'>Enable if the user plans to run the package under a pax enabled hardened kernel</flag> |
572 |
- </use> |
573 |
-</pkgmetadata> |
574 |
|
575 |
diff --git a/dev-lisp/sbcl/sbcl-1.4.10.ebuild b/dev-lisp/sbcl/sbcl-1.4.10.ebuild |
576 |
deleted file mode 100644 |
577 |
index f07d8939..00000000 |
578 |
--- a/dev-lisp/sbcl/sbcl-1.4.10.ebuild |
579 |
+++ /dev/null |
580 |
@@ -1,246 +0,0 @@ |
581 |
-# Copyright 1999-2018 Gentoo Foundation |
582 |
-# Distributed under the terms of the GNU General Public License v2 |
583 |
- |
584 |
-EAPI=6 |
585 |
- |
586 |
-inherit multilib eutils flag-o-matic pax-utils |
587 |
- |
588 |
-#same order as http://www.sbcl.org/platform-table.html |
589 |
-BV_X86=1.4.3 |
590 |
-BV_AMD64=1.4.8 |
591 |
-BV_PPC=1.2.7 |
592 |
-BV_SPARC=1.0.28 |
593 |
-BV_ALPHA=1.0.28 |
594 |
-BV_ARM=1.3.12 |
595 |
-BV_ARM64=1.4.2 |
596 |
-BV_X86_MACOS=1.1.6 |
597 |
-BV_X64_MACOS=1.2.11 |
598 |
-BV_PPC_MACOS=1.0.47 |
599 |
-BV_X86_SOLARIS=1.2.7 |
600 |
-BV_X64_SOLARIS=1.2.7 |
601 |
-BV_SPARC_SOLARIS=1.0.23 |
602 |
- |
603 |
-DESCRIPTION="Steel Bank Common Lisp (SBCL) is an implementation of ANSI Common Lisp" |
604 |
-HOMEPAGE="http://sbcl.sourceforge.net/" |
605 |
-SRC_URI="mirror://sourceforge/sbcl/${P}-source.tar.bz2 |
606 |
- x86? ( mirror://sourceforge/sbcl/${PN}-${BV_X86}-x86-linux-binary.tar.bz2 ) |
607 |
- amd64? ( mirror://sourceforge/sbcl/${PN}-${BV_AMD64}-x86-64-linux-binary.tar.bz2 ) |
608 |
- ppc? ( mirror://sourceforge/sbcl/${PN}-${BV_PPC}-powerpc-linux-binary.tar.bz2 ) |
609 |
- sparc? ( mirror://sourceforge/sbcl/${PN}-${BV_SPARC}-sparc-linux-binary.tar.bz2 ) |
610 |
- alpha? ( mirror://sourceforge/sbcl/${PN}-${BV_ALPHA}-alpha-linux-binary.tar.bz2 ) |
611 |
- arm? ( mirror://sourceforge/sbcl/${PN}-${BV_ARM}-armhf-linux-binary.tar.bz2 ) |
612 |
- arm64? ( mirror://sourceforge/sbcl/${PN}-${BV_ARM64}-arm64-linux-binary.tar.bz2 ) |
613 |
- x86-macos? ( mirror://sourceforge/sbcl/${PN}-${BV_X86_MACOS}-x86-darwin-binary.tar.bz2 ) |
614 |
- x64-macos? ( mirror://sourceforge/sbcl/${PN}-${BV_X64_MACOS}-x86-64-darwin-binary.tar.bz2 ) |
615 |
- ppc-macos? ( mirror://sourceforge/sbcl/${PN}-${BV_PPC_MACOS}-powerpc-darwin-binary.tar.bz2 ) |
616 |
- x86-solaris? ( mirror://sourceforge/sbcl/${PN}-${BV_X86_SOLARIS}-x86-solaris-binary.tar.bz2 ) |
617 |
- x64-solaris? ( mirror://sourceforge/sbcl/${PN}-${BV_X64_SOLARIS}-x86-64-solaris-binary.tar.bz2 ) |
618 |
- sparc-solaris? ( mirror://sourceforge/sbcl/${PN}-${BV_SPARC_SOLARIS}-sparc-solaris-binary.tar.bz2 )" |
619 |
- |
620 |
-LICENSE="MIT" |
621 |
-SLOT="0/${PV}" |
622 |
-KEYWORDS="~amd64 ~ppc ~sparc ~x86 ~amd64-linux ~x86-linux ~x64-macos ~x86-macos ~x86-solaris" |
623 |
-IUSE="debug doc source +threads +unicode pax_kernel zlib" |
624 |
- |
625 |
-CDEPEND=">=dev-lisp/asdf-3.1:=" |
626 |
-DEPEND="${CDEPEND} |
627 |
- doc? ( sys-apps/texinfo >=media-gfx/graphviz-2.26.0 ) |
628 |
- pax_kernel? ( sys-apps/elfix )" |
629 |
-RDEPEND="${CDEPEND} |
630 |
- !prefix? ( elibc_glibc? ( >=sys-libs/glibc-2.6 ) )" |
631 |
- |
632 |
-# Disable warnings about executable stacks, as this won't be fixed soon by upstream |
633 |
-QA_EXECSTACK="usr/bin/sbcl" |
634 |
- |
635 |
-CONFIG="${S}/customize-target-features.lisp" |
636 |
-ENVD="${T}/50sbcl" |
637 |
- |
638 |
-# Prevent ASDF from using the system libraries |
639 |
-CL_SOURCE_REGISTRY="(:source-registry :ignore-inherited-configuration)" |
640 |
-ASDF_OUTPUT_TRANSLATIONS="(:output-translations :ignore-inherited-configuration)" |
641 |
- |
642 |
-usep() { |
643 |
- use ${1} && echo "true" || echo "false" |
644 |
-} |
645 |
- |
646 |
-sbcl_feature() { |
647 |
- echo "$( [[ ${1} == "true" ]] && echo "(enable ${2})" || echo "(disable ${2})")" >> "${CONFIG}" |
648 |
-} |
649 |
- |
650 |
-sbcl_apply_features() { |
651 |
- sed 's/^X//' > "${CONFIG}" <<-'EOF' |
652 |
- (lambda (list) |
653 |
- X (flet ((enable (x) (pushnew x list)) |
654 |
- X (disable (x) (setf list (remove x list)))) |
655 |
- EOF |
656 |
- if use x86 || use amd64; then |
657 |
- sbcl_feature "$(usep threads)" ":sb-thread" |
658 |
- fi |
659 |
- sbcl_feature "true" ":sb-ldb" |
660 |
- sbcl_feature "false" ":sb-test" |
661 |
- sbcl_feature "$(usep unicode)" ":sb-unicode" |
662 |
- sbcl_feature "$(usep zlib)" ":sb-core-compression" |
663 |
- sbcl_feature "$(usep debug)" ":sb-xref-for-internals" |
664 |
- sed 's/^X//' >> "${CONFIG}" <<-'EOF' |
665 |
- X ) |
666 |
- X list) |
667 |
- EOF |
668 |
- cat "${CONFIG}" |
669 |
-} |
670 |
- |
671 |
-src_unpack() { |
672 |
- unpack ${A} |
673 |
- mv sbcl-*-* sbcl-binary || die |
674 |
- cd "${S}" |
675 |
-} |
676 |
- |
677 |
-src_prepare() { |
678 |
- # bug #468482 |
679 |
- eapply "${FILESDIR}"/concurrency-test-1.3.15.patch |
680 |
- # bugs #486552, #527666, #517004 |
681 |
- eapply "${FILESDIR}"/${PN}-1.4.0-bsd-sockets-test.patch |
682 |
- # bugs #560276, #561018 |
683 |
- eapply "${FILESDIR}"/sb-posix-test-1.2.15.patch |
684 |
- |
685 |
- eapply "${FILESDIR}"/${PN}-1.2.11-solaris.patch |
686 |
- eapply "${FILESDIR}"/${PN}-1.4.0-verbose-build.patch |
687 |
- |
688 |
- eapply_user |
689 |
- |
690 |
- # Make sure the *FLAGS variables are sane. |
691 |
- # sbcl needs symbols in resulting binaries, so building with the -s linker flag will fail. |
692 |
- strip-unsupported-flags |
693 |
- filter-flags -fomit-frame-pointer -Wl,-s |
694 |
- filter-ldflags -s |
695 |
- |
696 |
- # original bugs #526194, #620532 |
697 |
- # this broke no-pie default builds, c.f. bug #632670 |
698 |
- # Pass CFLAGS down by appending our value, to let users override |
699 |
- # the default values. |
700 |
- # Keep passing LDFLAGS down via the LINKFLAGS variable. |
701 |
- sed -e "s@\(CFLAGS += -g .*\)\$@\1 ${CFLAGS}@" \ |
702 |
- -e "s@LINKFLAGS += -g\$@LINKFLAGS += ${LDFLAGS}@" \ |
703 |
- -i src/runtime/GNUmakefile || die |
704 |
- |
705 |
- sed -e "s@SBCL_PREFIX=\"/usr/local\"@SBCL_PREFIX=\"${EPREFIX}/usr\"@" \ |
706 |
- -i make-config.sh || die |
707 |
- |
708 |
- # Use installed ASDF version |
709 |
- cp "${EPREFIX}"/usr/share/common-lisp/source/asdf/build/asdf.lisp contrib/asdf/ || die |
710 |
- # Avoid installation of ASDF info page. See bug #605752 |
711 |
- sed '/INFOFILES/s/asdf.info//' -i doc/manual/Makefile || die |
712 |
- |
713 |
- use source && sed 's%"$(BUILD_ROOT)%$(MODULE).lisp "$(BUILD_ROOT)%' -i contrib/vanilla-module.mk |
714 |
- |
715 |
- # Some shells(such as dash) don't have "time" as builtin |
716 |
- # and we don't want to DEPEND on sys-process/time |
717 |
- sed "s,^time ,," -i make.sh || die |
718 |
- sed "s,/lib,/$(get_libdir),g" -i install.sh || die |
719 |
- # #define SBCL_HOME ... |
720 |
- sed "s,/usr/local/lib,${EPREFIX}/usr/$(get_libdir),g" -i src/runtime/runtime.c || die |
721 |
- # change location of /etc/sbclrc ... |
722 |
- sed "s,/etc/sbclrc,${EPREFIX}/etc/sbclrc,g" -i src/code/toplevel.lisp || die |
723 |
- |
724 |
- find . -type f -name .cvsignore -delete |
725 |
-} |
726 |
- |
727 |
-src_configure() { |
728 |
- # customizing SBCL version as per |
729 |
- # http://sbcl.cvs.sourceforge.net/sbcl/sbcl/doc/PACKAGING-SBCL.txt?view=markup |
730 |
- echo -e ";;; Auto-generated by Gentoo\n\"gentoo-${PR}\"" > branch-version.lisp-expr |
731 |
- |
732 |
- # applying customizations |
733 |
- sbcl_apply_features |
734 |
-} |
735 |
- |
736 |
-src_compile() { |
737 |
- local bindir="${WORKDIR}"/sbcl-binary |
738 |
- |
739 |
- if use pax_kernel ; then |
740 |
- # To disable PaX on hardened systems |
741 |
- pax-mark -mr "${bindir}"/src/runtime/sbcl |
742 |
- |
743 |
- # Hack to disable PaX on second GENESIS stage |
744 |
- sed -i -e '/^[ \t]*echo \/\/doing warm init - compilation phase$/a\ paxmark.sh -mr \.\/src\/runtime\/sbcl' \ |
745 |
- "${S}"/make-target-2.sh || die "Cannot disable PaX on second GENESIS runtime" |
746 |
- fi |
747 |
- |
748 |
- # clear the environment to get rid of non-ASCII strings, see bug #174702 |
749 |
- # set HOME for paludis |
750 |
- env - HOME="${T}" PATH="${PATH}" \ |
751 |
- CC="$(tc-getCC)" AS="$(tc-getAS)" LD="$(tc-getLD)" \ |
752 |
- CPPFLAGS="${CPPFLAGS}" CFLAGS="${CFLAGS}" ASFLAGS="${ASFLAGS}" LDFLAGS="${LDFLAGS}" \ |
753 |
- GNUMAKE=make ./make.sh \ |
754 |
- "sh ${bindir}/run-sbcl.sh --no-sysinit --no-userinit --disable-debugger" \ |
755 |
- || die "make failed" |
756 |
- |
757 |
- # need to set HOME because libpango(used by graphviz) complains about it |
758 |
- if use doc; then |
759 |
- env - HOME="${T}" PATH="${PATH}" \ |
760 |
- CL_SOURCE_REGISTRY="(:source-registry :ignore-inherited-configuration)" \ |
761 |
- ASDF_OUTPUT_TRANSLATIONS="(:output-translations :ignore-inherited-configuration)" \ |
762 |
- make -C doc/manual info html || die "Cannot build manual" |
763 |
- env - HOME="${T}" PATH="${PATH}" \ |
764 |
- CL_SOURCE_REGISTRY="(:source-registry :ignore-inherited-configuration)" \ |
765 |
- ASDF_OUTPUT_TRANSLATIONS="(:output-translations :ignore-inherited-configuration)" \ |
766 |
- make -C doc/internals info html || die "Cannot build internal docs" |
767 |
- fi |
768 |
-} |
769 |
- |
770 |
-src_test() { |
771 |
- ewarn "Unfortunately, it is known that some tests fail eg." |
772 |
- ewarn "run-program.impure.lisp. This is an issue of the upstream's" |
773 |
- ewarn "development and not of Gentoo's side. Please, before filing" |
774 |
- ewarn "any bug(s) search for older submissions. Thank you." |
775 |
- time ( cd tests && sh run-tests.sh ) |
776 |
-} |
777 |
- |
778 |
-src_install() { |
779 |
- # install system-wide initfile |
780 |
- dodir /etc/ |
781 |
- sed 's/^X//' > "${ED}"/etc/sbclrc <<-EOF |
782 |
- ;;; The following is required if you want source location functions to |
783 |
- ;;; work in SLIME, for example. |
784 |
- X |
785 |
- (setf (logical-pathname-translations "SYS") |
786 |
- X '(("SYS:SRC;**;*.*.*" #p"${EPREFIX}/usr/$(get_libdir)/sbcl/src/**/*.*") |
787 |
- X ("SYS:CONTRIB;**;*.*.*" #p"${EPREFIX}/usr/$(get_libdir)/sbcl/**/*.*"))) |
788 |
- X |
789 |
- ;;; Setup ASDF2 |
790 |
- (load "${EPREFIX}/etc/common-lisp/gentoo-init.lisp") |
791 |
- EOF |
792 |
- |
793 |
- # Install documentation |
794 |
- unset SBCL_HOME |
795 |
- INSTALL_ROOT="${ED}/usr" LIB_DIR="${EPREFIX}/usr/$(get_libdir)" DOC_DIR="${ED}/usr/share/doc/${PF}" \ |
796 |
- sh install.sh || die "install.sh failed" |
797 |
- |
798 |
- # bug #517008 |
799 |
- pax-mark -mr "${D}"/usr/bin/sbcl |
800 |
- |
801 |
- # rm empty directories lest paludis complain about this |
802 |
- find "${ED}" -empty -type d -exec rmdir -v {} + |
803 |
- |
804 |
- if use doc; then |
805 |
- dodoc -r doc/internals/sbcl-internals |
806 |
- |
807 |
- doinfo doc/manual/*.info* |
808 |
- doinfo doc/internals/sbcl-internals.info |
809 |
- |
810 |
- docinto internals-notes |
811 |
- dodoc doc/internals-notes/* |
812 |
- else |
813 |
- rm -Rv "${ED}/usr/share/doc/${PF}" || die |
814 |
- fi |
815 |
- |
816 |
- # install the SBCL source |
817 |
- if use source; then |
818 |
- ./clean.sh |
819 |
- cp -av src "${ED}/usr/$(get_libdir)/sbcl/" || die |
820 |
- fi |
821 |
- |
822 |
- # necessary for running newly-saved images |
823 |
- echo "SBCL_HOME=${EPREFIX}/usr/$(get_libdir)/${PN}" > "${ENVD}" |
824 |
- echo "SBCL_SOURCE_ROOT=${EPREFIX}/usr/$(get_libdir)/${PN}/src" >> "${ENVD}" |
825 |
- doenvd "${ENVD}" |
826 |
-} |
827 |
|
828 |
diff --git a/dev-lisp/sbcl/sbcl-1.4.9.ebuild b/dev-lisp/sbcl/sbcl-1.4.9.ebuild |
829 |
deleted file mode 100644 |
830 |
index f07d8939..00000000 |
831 |
--- a/dev-lisp/sbcl/sbcl-1.4.9.ebuild |
832 |
+++ /dev/null |
833 |
@@ -1,246 +0,0 @@ |
834 |
-# Copyright 1999-2018 Gentoo Foundation |
835 |
-# Distributed under the terms of the GNU General Public License v2 |
836 |
- |
837 |
-EAPI=6 |
838 |
- |
839 |
-inherit multilib eutils flag-o-matic pax-utils |
840 |
- |
841 |
-#same order as http://www.sbcl.org/platform-table.html |
842 |
-BV_X86=1.4.3 |
843 |
-BV_AMD64=1.4.8 |
844 |
-BV_PPC=1.2.7 |
845 |
-BV_SPARC=1.0.28 |
846 |
-BV_ALPHA=1.0.28 |
847 |
-BV_ARM=1.3.12 |
848 |
-BV_ARM64=1.4.2 |
849 |
-BV_X86_MACOS=1.1.6 |
850 |
-BV_X64_MACOS=1.2.11 |
851 |
-BV_PPC_MACOS=1.0.47 |
852 |
-BV_X86_SOLARIS=1.2.7 |
853 |
-BV_X64_SOLARIS=1.2.7 |
854 |
-BV_SPARC_SOLARIS=1.0.23 |
855 |
- |
856 |
-DESCRIPTION="Steel Bank Common Lisp (SBCL) is an implementation of ANSI Common Lisp" |
857 |
-HOMEPAGE="http://sbcl.sourceforge.net/" |
858 |
-SRC_URI="mirror://sourceforge/sbcl/${P}-source.tar.bz2 |
859 |
- x86? ( mirror://sourceforge/sbcl/${PN}-${BV_X86}-x86-linux-binary.tar.bz2 ) |
860 |
- amd64? ( mirror://sourceforge/sbcl/${PN}-${BV_AMD64}-x86-64-linux-binary.tar.bz2 ) |
861 |
- ppc? ( mirror://sourceforge/sbcl/${PN}-${BV_PPC}-powerpc-linux-binary.tar.bz2 ) |
862 |
- sparc? ( mirror://sourceforge/sbcl/${PN}-${BV_SPARC}-sparc-linux-binary.tar.bz2 ) |
863 |
- alpha? ( mirror://sourceforge/sbcl/${PN}-${BV_ALPHA}-alpha-linux-binary.tar.bz2 ) |
864 |
- arm? ( mirror://sourceforge/sbcl/${PN}-${BV_ARM}-armhf-linux-binary.tar.bz2 ) |
865 |
- arm64? ( mirror://sourceforge/sbcl/${PN}-${BV_ARM64}-arm64-linux-binary.tar.bz2 ) |
866 |
- x86-macos? ( mirror://sourceforge/sbcl/${PN}-${BV_X86_MACOS}-x86-darwin-binary.tar.bz2 ) |
867 |
- x64-macos? ( mirror://sourceforge/sbcl/${PN}-${BV_X64_MACOS}-x86-64-darwin-binary.tar.bz2 ) |
868 |
- ppc-macos? ( mirror://sourceforge/sbcl/${PN}-${BV_PPC_MACOS}-powerpc-darwin-binary.tar.bz2 ) |
869 |
- x86-solaris? ( mirror://sourceforge/sbcl/${PN}-${BV_X86_SOLARIS}-x86-solaris-binary.tar.bz2 ) |
870 |
- x64-solaris? ( mirror://sourceforge/sbcl/${PN}-${BV_X64_SOLARIS}-x86-64-solaris-binary.tar.bz2 ) |
871 |
- sparc-solaris? ( mirror://sourceforge/sbcl/${PN}-${BV_SPARC_SOLARIS}-sparc-solaris-binary.tar.bz2 )" |
872 |
- |
873 |
-LICENSE="MIT" |
874 |
-SLOT="0/${PV}" |
875 |
-KEYWORDS="~amd64 ~ppc ~sparc ~x86 ~amd64-linux ~x86-linux ~x64-macos ~x86-macos ~x86-solaris" |
876 |
-IUSE="debug doc source +threads +unicode pax_kernel zlib" |
877 |
- |
878 |
-CDEPEND=">=dev-lisp/asdf-3.1:=" |
879 |
-DEPEND="${CDEPEND} |
880 |
- doc? ( sys-apps/texinfo >=media-gfx/graphviz-2.26.0 ) |
881 |
- pax_kernel? ( sys-apps/elfix )" |
882 |
-RDEPEND="${CDEPEND} |
883 |
- !prefix? ( elibc_glibc? ( >=sys-libs/glibc-2.6 ) )" |
884 |
- |
885 |
-# Disable warnings about executable stacks, as this won't be fixed soon by upstream |
886 |
-QA_EXECSTACK="usr/bin/sbcl" |
887 |
- |
888 |
-CONFIG="${S}/customize-target-features.lisp" |
889 |
-ENVD="${T}/50sbcl" |
890 |
- |
891 |
-# Prevent ASDF from using the system libraries |
892 |
-CL_SOURCE_REGISTRY="(:source-registry :ignore-inherited-configuration)" |
893 |
-ASDF_OUTPUT_TRANSLATIONS="(:output-translations :ignore-inherited-configuration)" |
894 |
- |
895 |
-usep() { |
896 |
- use ${1} && echo "true" || echo "false" |
897 |
-} |
898 |
- |
899 |
-sbcl_feature() { |
900 |
- echo "$( [[ ${1} == "true" ]] && echo "(enable ${2})" || echo "(disable ${2})")" >> "${CONFIG}" |
901 |
-} |
902 |
- |
903 |
-sbcl_apply_features() { |
904 |
- sed 's/^X//' > "${CONFIG}" <<-'EOF' |
905 |
- (lambda (list) |
906 |
- X (flet ((enable (x) (pushnew x list)) |
907 |
- X (disable (x) (setf list (remove x list)))) |
908 |
- EOF |
909 |
- if use x86 || use amd64; then |
910 |
- sbcl_feature "$(usep threads)" ":sb-thread" |
911 |
- fi |
912 |
- sbcl_feature "true" ":sb-ldb" |
913 |
- sbcl_feature "false" ":sb-test" |
914 |
- sbcl_feature "$(usep unicode)" ":sb-unicode" |
915 |
- sbcl_feature "$(usep zlib)" ":sb-core-compression" |
916 |
- sbcl_feature "$(usep debug)" ":sb-xref-for-internals" |
917 |
- sed 's/^X//' >> "${CONFIG}" <<-'EOF' |
918 |
- X ) |
919 |
- X list) |
920 |
- EOF |
921 |
- cat "${CONFIG}" |
922 |
-} |
923 |
- |
924 |
-src_unpack() { |
925 |
- unpack ${A} |
926 |
- mv sbcl-*-* sbcl-binary || die |
927 |
- cd "${S}" |
928 |
-} |
929 |
- |
930 |
-src_prepare() { |
931 |
- # bug #468482 |
932 |
- eapply "${FILESDIR}"/concurrency-test-1.3.15.patch |
933 |
- # bugs #486552, #527666, #517004 |
934 |
- eapply "${FILESDIR}"/${PN}-1.4.0-bsd-sockets-test.patch |
935 |
- # bugs #560276, #561018 |
936 |
- eapply "${FILESDIR}"/sb-posix-test-1.2.15.patch |
937 |
- |
938 |
- eapply "${FILESDIR}"/${PN}-1.2.11-solaris.patch |
939 |
- eapply "${FILESDIR}"/${PN}-1.4.0-verbose-build.patch |
940 |
- |
941 |
- eapply_user |
942 |
- |
943 |
- # Make sure the *FLAGS variables are sane. |
944 |
- # sbcl needs symbols in resulting binaries, so building with the -s linker flag will fail. |
945 |
- strip-unsupported-flags |
946 |
- filter-flags -fomit-frame-pointer -Wl,-s |
947 |
- filter-ldflags -s |
948 |
- |
949 |
- # original bugs #526194, #620532 |
950 |
- # this broke no-pie default builds, c.f. bug #632670 |
951 |
- # Pass CFLAGS down by appending our value, to let users override |
952 |
- # the default values. |
953 |
- # Keep passing LDFLAGS down via the LINKFLAGS variable. |
954 |
- sed -e "s@\(CFLAGS += -g .*\)\$@\1 ${CFLAGS}@" \ |
955 |
- -e "s@LINKFLAGS += -g\$@LINKFLAGS += ${LDFLAGS}@" \ |
956 |
- -i src/runtime/GNUmakefile || die |
957 |
- |
958 |
- sed -e "s@SBCL_PREFIX=\"/usr/local\"@SBCL_PREFIX=\"${EPREFIX}/usr\"@" \ |
959 |
- -i make-config.sh || die |
960 |
- |
961 |
- # Use installed ASDF version |
962 |
- cp "${EPREFIX}"/usr/share/common-lisp/source/asdf/build/asdf.lisp contrib/asdf/ || die |
963 |
- # Avoid installation of ASDF info page. See bug #605752 |
964 |
- sed '/INFOFILES/s/asdf.info//' -i doc/manual/Makefile || die |
965 |
- |
966 |
- use source && sed 's%"$(BUILD_ROOT)%$(MODULE).lisp "$(BUILD_ROOT)%' -i contrib/vanilla-module.mk |
967 |
- |
968 |
- # Some shells(such as dash) don't have "time" as builtin |
969 |
- # and we don't want to DEPEND on sys-process/time |
970 |
- sed "s,^time ,," -i make.sh || die |
971 |
- sed "s,/lib,/$(get_libdir),g" -i install.sh || die |
972 |
- # #define SBCL_HOME ... |
973 |
- sed "s,/usr/local/lib,${EPREFIX}/usr/$(get_libdir),g" -i src/runtime/runtime.c || die |
974 |
- # change location of /etc/sbclrc ... |
975 |
- sed "s,/etc/sbclrc,${EPREFIX}/etc/sbclrc,g" -i src/code/toplevel.lisp || die |
976 |
- |
977 |
- find . -type f -name .cvsignore -delete |
978 |
-} |
979 |
- |
980 |
-src_configure() { |
981 |
- # customizing SBCL version as per |
982 |
- # http://sbcl.cvs.sourceforge.net/sbcl/sbcl/doc/PACKAGING-SBCL.txt?view=markup |
983 |
- echo -e ";;; Auto-generated by Gentoo\n\"gentoo-${PR}\"" > branch-version.lisp-expr |
984 |
- |
985 |
- # applying customizations |
986 |
- sbcl_apply_features |
987 |
-} |
988 |
- |
989 |
-src_compile() { |
990 |
- local bindir="${WORKDIR}"/sbcl-binary |
991 |
- |
992 |
- if use pax_kernel ; then |
993 |
- # To disable PaX on hardened systems |
994 |
- pax-mark -mr "${bindir}"/src/runtime/sbcl |
995 |
- |
996 |
- # Hack to disable PaX on second GENESIS stage |
997 |
- sed -i -e '/^[ \t]*echo \/\/doing warm init - compilation phase$/a\ paxmark.sh -mr \.\/src\/runtime\/sbcl' \ |
998 |
- "${S}"/make-target-2.sh || die "Cannot disable PaX on second GENESIS runtime" |
999 |
- fi |
1000 |
- |
1001 |
- # clear the environment to get rid of non-ASCII strings, see bug #174702 |
1002 |
- # set HOME for paludis |
1003 |
- env - HOME="${T}" PATH="${PATH}" \ |
1004 |
- CC="$(tc-getCC)" AS="$(tc-getAS)" LD="$(tc-getLD)" \ |
1005 |
- CPPFLAGS="${CPPFLAGS}" CFLAGS="${CFLAGS}" ASFLAGS="${ASFLAGS}" LDFLAGS="${LDFLAGS}" \ |
1006 |
- GNUMAKE=make ./make.sh \ |
1007 |
- "sh ${bindir}/run-sbcl.sh --no-sysinit --no-userinit --disable-debugger" \ |
1008 |
- || die "make failed" |
1009 |
- |
1010 |
- # need to set HOME because libpango(used by graphviz) complains about it |
1011 |
- if use doc; then |
1012 |
- env - HOME="${T}" PATH="${PATH}" \ |
1013 |
- CL_SOURCE_REGISTRY="(:source-registry :ignore-inherited-configuration)" \ |
1014 |
- ASDF_OUTPUT_TRANSLATIONS="(:output-translations :ignore-inherited-configuration)" \ |
1015 |
- make -C doc/manual info html || die "Cannot build manual" |
1016 |
- env - HOME="${T}" PATH="${PATH}" \ |
1017 |
- CL_SOURCE_REGISTRY="(:source-registry :ignore-inherited-configuration)" \ |
1018 |
- ASDF_OUTPUT_TRANSLATIONS="(:output-translations :ignore-inherited-configuration)" \ |
1019 |
- make -C doc/internals info html || die "Cannot build internal docs" |
1020 |
- fi |
1021 |
-} |
1022 |
- |
1023 |
-src_test() { |
1024 |
- ewarn "Unfortunately, it is known that some tests fail eg." |
1025 |
- ewarn "run-program.impure.lisp. This is an issue of the upstream's" |
1026 |
- ewarn "development and not of Gentoo's side. Please, before filing" |
1027 |
- ewarn "any bug(s) search for older submissions. Thank you." |
1028 |
- time ( cd tests && sh run-tests.sh ) |
1029 |
-} |
1030 |
- |
1031 |
-src_install() { |
1032 |
- # install system-wide initfile |
1033 |
- dodir /etc/ |
1034 |
- sed 's/^X//' > "${ED}"/etc/sbclrc <<-EOF |
1035 |
- ;;; The following is required if you want source location functions to |
1036 |
- ;;; work in SLIME, for example. |
1037 |
- X |
1038 |
- (setf (logical-pathname-translations "SYS") |
1039 |
- X '(("SYS:SRC;**;*.*.*" #p"${EPREFIX}/usr/$(get_libdir)/sbcl/src/**/*.*") |
1040 |
- X ("SYS:CONTRIB;**;*.*.*" #p"${EPREFIX}/usr/$(get_libdir)/sbcl/**/*.*"))) |
1041 |
- X |
1042 |
- ;;; Setup ASDF2 |
1043 |
- (load "${EPREFIX}/etc/common-lisp/gentoo-init.lisp") |
1044 |
- EOF |
1045 |
- |
1046 |
- # Install documentation |
1047 |
- unset SBCL_HOME |
1048 |
- INSTALL_ROOT="${ED}/usr" LIB_DIR="${EPREFIX}/usr/$(get_libdir)" DOC_DIR="${ED}/usr/share/doc/${PF}" \ |
1049 |
- sh install.sh || die "install.sh failed" |
1050 |
- |
1051 |
- # bug #517008 |
1052 |
- pax-mark -mr "${D}"/usr/bin/sbcl |
1053 |
- |
1054 |
- # rm empty directories lest paludis complain about this |
1055 |
- find "${ED}" -empty -type d -exec rmdir -v {} + |
1056 |
- |
1057 |
- if use doc; then |
1058 |
- dodoc -r doc/internals/sbcl-internals |
1059 |
- |
1060 |
- doinfo doc/manual/*.info* |
1061 |
- doinfo doc/internals/sbcl-internals.info |
1062 |
- |
1063 |
- docinto internals-notes |
1064 |
- dodoc doc/internals-notes/* |
1065 |
- else |
1066 |
- rm -Rv "${ED}/usr/share/doc/${PF}" || die |
1067 |
- fi |
1068 |
- |
1069 |
- # install the SBCL source |
1070 |
- if use source; then |
1071 |
- ./clean.sh |
1072 |
- cp -av src "${ED}/usr/$(get_libdir)/sbcl/" || die |
1073 |
- fi |
1074 |
- |
1075 |
- # necessary for running newly-saved images |
1076 |
- echo "SBCL_HOME=${EPREFIX}/usr/$(get_libdir)/${PN}" > "${ENVD}" |
1077 |
- echo "SBCL_SOURCE_ROOT=${EPREFIX}/usr/$(get_libdir)/${PN}/src" >> "${ENVD}" |
1078 |
- doenvd "${ENVD}" |
1079 |
-} |