From 6fcefbc8e884dcdb67477e95616d7b3ddefd2d8e Mon Sep 17 00:00:00 2001
From: Guillaume Le Vaillant <glv@posteo.net>
Date: Tue, 2 Sep 2025 18:23:45 +0200
Subject: [PATCH] gnu: cl-autowrap: Update to 1.0-3.4bba9e3.

* gnu/packages/lisp-xyz.scm (cl-autowrap): Update to 1.0-3.4bba9e3.
  [inputs]: Add libffi. Remove labels.
  [arguments]: Add 'fix-paths' phases. Use gexps.

Change-Id: If6ddcc3d14fc4e8aac9c2c6fc2bb1ef9632d9fbd
---
 gnu/packages/lisp-xyz.scm | 30 +++++++++++++++++++-----------
 1 file changed, 19 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index f1b8a4f5aa2..aca1b0180f6 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -4548,8 +4548,8 @@ execution mechanism for Common Lisp.")))
   (sbcl-package->ecl-package sbcl-async-process))
 
 (define-public sbcl-cl-autowrap
-  (let ((revision "2")
-        (commit "a5d71ebd7c21b87f449db1e16ab815750d7c0ea4"))
+  (let ((revision "3")
+        (commit "4bba9e37b59cd191dea150a89aef7245a40b1c9d"))
     ;; no tagged branches
     (package
       (name "sbcl-cl-autowrap")
@@ -4562,17 +4562,25 @@ execution mechanism for Common Lisp.")))
                (commit commit)))
          (file-name (git-file-name "cl-autowrap" version))
          (sha256
-          (base32 "0795c817m1c41cz3ywzzg83z4pgkxdg6si553pay9mdgjvmrwmaw"))))
+          (base32 "1sfvhyrwm9dhxi0y42xp7mx8mvs6lmq3bzxdx34frxni5srcgly0"))))
       (build-system asdf-build-system/sbcl)
-      (arguments
-       `(#:asd-systems '("cl-plus-c" "cl-autowrap")))
       (inputs
-       `(("alexandria" ,sbcl-alexandria)
-         ("cffi" ,sbcl-cffi)
-         ("cl-json" ,sbcl-cl-json)
-         ("cl-ppcre" ,sbcl-cl-ppcre)
-         ("defpackage-plus" ,sbcl-defpackage-plus)
-         ("trivial-features" ,sbcl-trivial-features)))
+       (list libffi
+             sbcl-alexandria
+             sbcl-cffi
+             sbcl-cl-json
+             sbcl-cl-ppcre
+             sbcl-defpackage-plus
+             sbcl-trivial-features))
+      (arguments
+       (list #:asd-systems ''("cl-autowrap" "cl-plus-c" "cl-autowrap/libffi")
+             #:phases
+             #~(modify-phases %standard-phases
+                 (add-after 'unpack 'fix-paths
+                   (lambda* (#:key inputs #:allow-other-keys)
+                     (substitute* "autowrap-libffi/library.lisp"
+                       (("libffi.so")
+                        (search-input-file inputs "lib/libffi.so"))))))))
       (home-page "https://github.com/rpav/cl-autowrap")
       (synopsis "FFI wrapper generator for Common Lisp")
       (description "This is a c2ffi-based wrapper generator for Common Lisp.")