summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorGuillaume Le Vaillant <glv@posteo.net>2021-09-28 10:46:40 +0200
committerGuillaume Le Vaillant <glv@posteo.net>2021-09-28 10:46:40 +0200
commitdce9b98d5592917cc83f1f73b30eaef66211e2bc (patch)
treebd1524c6becb4487cb93c329256f508bbbb01d5c /gnu
parent946ac3467e77c5c190f563979901ccc4ac9dacef (diff)
gnu: sbcl-png: Fix compiling with sbcl >= 2.1.6.
* gnu/packages/patches/sbcl-png-fix-sbcl-compatibility.patch: New file. * gnu/local.mk (dist_patch_DATA): Add it. * gnu/packages/lisp-xyz.scm (sbcl-png)[source]: Use it.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/local.mk1
-rw-r--r--gnu/packages/lisp-xyz.scm4
-rw-r--r--gnu/packages/patches/sbcl-png-fix-sbcl-compatibility.patch60
3 files changed, 64 insertions, 1 deletions
diff --git a/gnu/local.mk b/gnu/local.mk
index ff81983273..d6286dfc48 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1742,6 +1742,7 @@ dist_patch_DATA = \
%D%/packages/patches/rust-openssl-sys-no-vendor.patch \
%D%/packages/patches/sbc-fix-build-non-x86.patch \
%D%/packages/patches/sbcl-clml-fix-types.patch \
+ %D%/packages/patches/sbcl-png-fix-sbcl-compatibility.patch \
%D%/packages/patches/scalapack-blacs-mpi-deprecations.patch \
%D%/packages/patches/scheme48-tests.patch \
%D%/packages/patches/scotch-build-parallelism.patch \
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 11955c7dee..b349d44210 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -9408,7 +9408,9 @@ for reading and writing JPEG image files.")
(commit commit)))
(file-name (git-file-name "cl-png" version))
(sha256
- (base32 "173hqwpd0rwqf95mfx1h9l9c3i8bb0gvnpspzmmz3g5x3440czy4"))))
+ (base32 "173hqwpd0rwqf95mfx1h9l9c3i8bb0gvnpspzmmz3g5x3440czy4"))
+ ;; Patch to fix compiling with SBCL >= 2.1.6.
+ (patches (search-patches "sbcl-png-fix-sbcl-compatibility.patch"))))
(build-system asdf-build-system/sbcl)
(arguments
`(#:phases
diff --git a/gnu/packages/patches/sbcl-png-fix-sbcl-compatibility.patch b/gnu/packages/patches/sbcl-png-fix-sbcl-compatibility.patch
new file mode 100644
index 0000000000..b969620899
--- /dev/null
+++ b/gnu/packages/patches/sbcl-png-fix-sbcl-compatibility.patch
@@ -0,0 +1,60 @@
+From 60bbad167b0691995a659121acda55392e4021b6 Mon Sep 17 00:00:00 2001
+From: Andrew Berkley <ajb@dwavesys.com>
+Date: Sun, 4 Jul 2021 12:50:34 -0700
+Subject: [PATCH] Fix for sbcl 2.1.6
+
+---
+ compat.lisp | 30 +++++++++++++++---------------
+ 1 file changed, 15 insertions(+), 15 deletions(-)
+
+diff --git a/compat.lisp b/compat.lisp
+index 95a9869..ea6d1a1 100644
+--- a/compat.lisp
++++ b/compat.lisp
+@@ -1,12 +1,13 @@
+ (in-package #:png)
+
+-#+sbcl ; Present in SBCL 1.0.24.
+-(declaim (ftype (function (array) (values (simple-array * (*)) &optional))
+- array-storage-vector))
+-
+ #+sbcl
+-(defun array-storage-vector (array)
+- "Returns the underlying storage vector of ARRAY, which must be a non-displaced array.
++(macrolet ((make-array-storage-vector ()
++ (let ((%array-data-vector (or (find-symbol "%ARRAY-DATA-VECTOR" :sb-kernel)
++ (find-symbol "%ARRAY-DATA" :sb-kernel)))) ;; renamed in sbcl 2.1.6
++ `(progn
++ (declaim (ftype (function (array) (values (simple-array * (*)) &optional)) array-storage-vector))
++ (defun array-storage-vector (array)
++ "Returns the underlying storage vector of ARRAY, which must be a non-displaced array.
+
+ In SBCL, if ARRAY is a of type \(SIMPLE-ARRAY * \(*)), it is its own storage
+ vector. Multidimensional arrays, arrays with fill pointers, and adjustable
+@@ -16,15 +17,14 @@ ARRAY, which this function returns.
+ Important note: the underlying vector is an implementation detail. Even though
+ this function exposes it, changes in the implementation may cause this
+ function to be removed without further warning."
+- ;; KLUDGE: Without TRULY-THE the system is not smart enough to
+- ;; figure out that the return value is always of the known type.
+- (sb-ext:truly-the (simple-array * (*))
+- (if (sb-kernel:array-header-p array)
+- (if (sb-kernel:%array-displaced-p array)
+- (error "~S cannot be used with displaced arrays. Use ~S instead."
+- 'array-storage-vector 'array-displacement)
+- (sb-kernel:%array-data-vector array))
+- array)))
++ (sb-ext:truly-the (simple-array * (*))
++ (if (sb-kernel:array-header-p array)
++ (if (sb-kernel:%array-displaced-p array)
++ (error "~S cannot be used with displaced arrays. Use ~S instead."
++ 'array-storage-vector 'array-displacement)
++ (,%array-data-vector array))
++ array)))))))
++ (make-array-storage-vector))
+
+ #+allegro
+ (defmacro with-pointer-to-array-data ((ptr-var array) &body body)
+--
+2.33.0
+