From 0d6d7b3efc8888f4cf6a5b785eb072e30bd91712 Mon Sep 17 00:00:00 2001
From: Efraim Flashner <efraim@flashner.co.il>
Date: Tue, 12 Jul 2022 13:46:26 +0300
Subject: [PATCH] gnu: sbcl: Fix building on armhf-linux.

* gnu/packages/lisp.scm (sbcl)[arguments]: When building for armhf-linux
add a phase to remove build optimizations targeting armv5.
---
 gnu/packages/lisp.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm
index 636221af35..2906c50646 100644
--- a/gnu/packages/lisp.scm
+++ b/gnu/packages/lisp.scm
@@ -466,6 +466,13 @@ an interpreter, a compiler, a debugger, and much more.")
                   (srfi srfi-1))
        #:phases
        (modify-phases %standard-phases
+         ,@(if (target-arm32?)
+             ;; TODO: Move to snippet in staging.
+             `((add-after 'unpack 'dont-force-armv5
+                 (lambda _
+                   (substitute* "src/runtime/Config.arm-linux"
+                     (("-march=armv5") "")))))
+             '())
          (delete 'configure)
          (add-after 'unpack 'fix-build-id
            ;; One of the build scripts makes a build id using the current date.