From 334716cf213fc7169bcbe7c938822a379299b1d0 Mon Sep 17 00:00:00 2001
From: Guillaume Le Vaillant <glv@posteo.net>
Date: Mon, 24 Mar 2025 15:30:49 +0100
Subject: [PATCH] gnu: cl-linear-programming: Fix build with sbcl 2.5.2.

* gnu/packages/lisp-xyz.scm (sbcl-linear-programming)[arguments]: Add
  "fix-build" phase.

Change-Id: Id0656d1d2efc478f7e3602dc297a5c785a903b89
---
 gnu/packages/lisp-xyz.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index c6b7251dd4dad66f74b4643282944e0cf24d2f38..35468917566ea9a0a19ef58900d0b3f965148710 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -19914,6 +19914,19 @@ not counting tests)
     (build-system asdf-build-system/sbcl)
     (native-inputs (list sbcl-fiveam))
     (inputs (list sbcl-alexandria sbcl-iterate))
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'fix-build
+                 (lambda _
+                   ;; Modify a type check causing a type conflict warning
+                   ;; with SBCL 2.5.2.
+                   (substitute* "src/simplex.lisp"
+                     (("\\(check-type tableau tableau\\)")
+                      "(unless (typep tableau 'tableau)
+                         (error 'type-error
+                                :datum tableau
+                                :expected-type 'tableau))")))))))
     (synopsis "Common Lisp linear programming")
     (description
      "This is a Common Lisp library for solving linear programming problems.")