From edf8152563a898438708ec9b2b17284a9d55d271 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Thu, 19 Dec 2019 19:09:34 +0100
Subject: gnu: sbcl: Update to 1.5.9.

* gnu/packages/lisp.scm (sbcl-boot0): New variable.
Build 1.5.8 against CLISP.
(sbcl): Build versions >= 1.5.9 against sbcl-boot0.
---
 gnu/packages/lisp.scm | 60 +++++++++++++++++++++++++++++++++++++++------------
 1 file changed, 46 insertions(+), 14 deletions(-)

(limited to 'gnu/packages')

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index e2732a478d..79721d54b3 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -74,6 +74,7 @@
   #:use-module (gnu packages texinfo)
   #:use-module (gnu packages version-control)
   #:use-module (gnu packages xorg)
+  #:use-module (srfi srfi-1)
   #:use-module (ice-9 match))
 
 (define (asdf-substitutions lisp)
@@ -318,9 +319,9 @@ high-level, object-oriented functional programming language.  CLISP includes
 an interpreter, a compiler, a debugger, and much more.")
     (license license:gpl2+)))
 
-(define-public sbcl
+(define sbcl-boot0
   (package
-    (name "sbcl")
+    (name "sbcl-boot0")
     (version "1.5.8")
     (source
      (origin
@@ -357,13 +358,8 @@ an interpreter, a compiler, a debugger, and much more.")
      ;; 2019-09-05, ECL was last updated in 2016 while CLISP was last updated
      ;; in 2010.
      ;;
-     ;; For now we stick to CLISP for all systems.  We keep the `match' here to
-     ;; make it easier to change the host compiler for various architectures.
-     `(,@(match (%current-system)
-           ((or "x86_64-linux" "i686-linux")
-            `(("clisp" ,clisp)))
-           (_
-            `(("clisp" ,clisp))))
+     ;; For now we stick to CLISP for all systems.
+     `(("clisp" ,clisp)
        ("which" ,which)
        ("inetutils" ,inetutils)         ;for hostname(1)
        ("ed" ,ed)
@@ -431,11 +427,7 @@ an interpreter, a compiler, a debugger, and much more.")
          (replace 'build
            (lambda* (#:key outputs #:allow-other-keys)
              (setenv "CC" "gcc")
-             (invoke "sh" "make.sh" ,@(match (%current-system)
-                                        ((or "x86_64-linux" "i686-linux")
-                                         `("clisp"))
-                                        (_
-                                         `("clisp")))
+             (invoke "sh" "make.sh" "clisp"
                      (string-append "--prefix="
                                     (assoc-ref outputs "out"))
                      "--with-sb-core-compression"
@@ -493,6 +485,46 @@ statistical profiler, a code coverage tool, and many other extensions.")
     (license (list license:public-domain license:bsd-2
                    (license:x11-style "file://src/code/loop.lisp")))))
 
+(define-public sbcl
+  ;; Since 1.5.9, SBCL requires itself to build.
+  ;; See https://bugs.launchpad.net/sbcl/+bug/1855272.
+  (package
+    (inherit sbcl-boot0)
+    (name "sbcl")
+    (version "1.5.9")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://sourceforge/sbcl/sbcl/" version "/sbcl-"
+                           version "-source.tar.bz2"))
+       (sha256
+        (base32 "1dmrlklil7x3j68mwmjfpd71vkphr24s4rx6d61jpc54x0jhvnyb"))
+       (modules '((guix build utils)))
+       (snippet
+        ;; Add sbcl-bundle-systems to 'default-system-source-registry'.
+        `(begin
+           (substitute* "contrib/asdf/asdf.lisp"
+             ,@(asdf-substitutions name))
+           #t))))
+    (build-system gnu-build-system)
+    (outputs '("out" "doc"))
+    (native-inputs
+     `(("sbcl" ,sbcl-boot0)
+       ,@(fold alist-delete (package-native-inputs sbcl-boot0)
+               '("clisp"))))
+    (arguments
+     (substitute-keyword-arguments (package-arguments sbcl-boot0)
+       ((#:phases phases)
+        `(modify-phases ,phases
+           (replace 'build
+             (lambda* (#:key outputs #:allow-other-keys)
+               (setenv "CC" "gcc")
+               (invoke "sh" "make.sh" "sbcl"
+                       (string-append "--prefix="
+                                      (assoc-ref outputs "out"))
+                       "--with-sb-core-compression"
+                       "--with-sb-xref-for-internals")))))))))
+
 (define-public ccl
   ;; Warning: according to upstream, CCL is not bootstrappable.
   ;; See https://github.com/Clozure/ccl/issues/222 from 2019-09-02:
-- 
cgit v1.2.3