me/guix
Archived
1
0
Fork 0
Code Activity

gnu: cl-cffi: Update to 0.24.1-1.3397035.

Browse source 
* gnu/packages/lisp-xyz.scm (sbcl-cffi): Update to 0.24.1-1.3397035.
  [arguments]: Remove 'fix-arm-support' phase. Update 'fix-paths' phase.
This commit is contained in:
Guillaume Le Vaillant 2023-03-25 14:12:35 +01:00
parent 1415d964ab
commit 073e98a422
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 47 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

98
gnu/packages/lisp-xyz.scm
View file

@ -4154,61 +4154,57 @@ is statically typed so there are differences.")
(sbcl-package->cl-source-package sbcl-varjo)) (sbcl-package->cl-source-package sbcl-varjo))
(define-public sbcl-cffi (define-public sbcl-cffi
(package (let ((commit "33970351e71bb5f12ba56fc40270089e948ae112")
(name "sbcl-cffi") (revision "1"))
(version "0.24.1") (package
(source (name "sbcl-cffi")
(origin (version (git-version "0.24.1" revision commit))
(method git-fetch) (source
(uri (git-reference (origin
(url "https://github.com/cffi/cffi") (method git-fetch)
(commit (string-append "v" version)))) (uri (git-reference
(file-name (git-file-name "cl-cffi" version)) (url "https://github.com/cffi/cffi")
(sha256 (commit commit)))
(base32 "17ryim4xilb1rzxydfr7595dnhqkk02lmrbkqrkvi9091shi4cj3")))) (file-name (git-file-name "cl-cffi" version))
(build-system asdf-build-system/sbcl) (sha256
(inputs (base32 "1h7cw15f08gm6m4yz8hk7qkfwp7mwwnykjc5py6dhjakv0wh1g37"))))
(list libffi (build-system asdf-build-system/sbcl)
sbcl-alexandria (inputs
sbcl-babel (list libffi
sbcl-trivial-features)) sbcl-alexandria
(native-inputs sbcl-babel
(list pkg-config sbcl-trivial-features))
sbcl-bordeaux-threads (native-inputs
sbcl-rt)) (list pkg-config
(arguments sbcl-bordeaux-threads
'(#:phases sbcl-rt))
(modify-phases %standard-phases (arguments
(add-after 'unpack 'fix-arm-support (list #:phases
(lambda _ #~(modify-phases %standard-phases
;; This is apparently deprecated since libffi-3.3. (add-after 'unpack 'fix-paths
(substitute* "libffi/libffi-types.lisp" (lambda* (#:key inputs #:allow-other-keys)
(("\\\(\\\(:unix64.*") ")\n")))) (substitute* "libffi/libffi.lisp"
(add-after 'unpack 'fix-paths (("libffi.so.8" all)
(lambda* (#:key inputs #:allow-other-keys) (search-input-file inputs (string-append "/lib/" all))))
(substitute* "libffi/libffi.lisp" (substitute* "toolchain/c-toolchain.lisp"
(("libffi.so.7" all) (string-append (("\"cc\"")
(assoc-ref inputs "libffi") (format #f "~S" (which "gcc"))))))
"/lib/" all))) (add-after 'build 'install-headers
(substitute* "toolchain/c-toolchain.lisp" (lambda _
(("\"cc\"") (format #f "~S" (which "gcc")))))) (install-file "grovel/common.h"
(add-after 'build 'install-headers (string-append #$output
(lambda* (#:key outputs #:allow-other-keys) "/include/grovel")))))
(install-file "grovel/common.h" #:asd-systems ''("cffi"
(string-append "cffi-libffi"
(assoc-ref outputs "out") "cffi-uffi-compat")))
"/include/grovel"))))) (home-page "https://common-lisp.net/project/cffi/")
#:asd-systems '("cffi" (synopsis "Common Foreign Function Interface for Common Lisp")
"cffi-libffi" (description "The Common Foreign Function Interface (CFFI)
"cffi-uffi-compat")))
(home-page "https://common-lisp.net/project/cffi/")
(synopsis "Common Foreign Function Interface for Common Lisp")
(description "The Common Foreign Function Interface (CFFI)
purports to be a portable foreign function interface for Common Lisp. purports to be a portable foreign function interface for Common Lisp.
The CFFI library is composed of a Lisp-implementation-specific backend The CFFI library is composed of a Lisp-implementation-specific backend
in the CFFI-SYS package, and a portable frontend in the CFFI in the CFFI-SYS package, and a portable frontend in the CFFI
package.") package.")
(license license:expat))) (license license:expat))))
(define-public cl-cffi (define-public cl-cffi
(sbcl-package->cl-source-package sbcl-cffi)) (sbcl-package->cl-source-package sbcl-cffi))