1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-17 04:20:44 +02:00

gnu: sbcl-slime-swank: Update to 2.29.1.

* gnu/packages/lisp-xyz.scm (sbcl-slime-swank): Update to 2.29.1.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
This commit is contained in:
Andre A. Gomes 2024-03-18 10:47:56 +02:00 committed by Guillaume Le Vaillant
parent fa36331344
commit 3f5fe4503c
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -3687,48 +3687,47 @@ writing code that contains string literals that contain code themselves.")
(sbcl-package->ecl-package sbcl-pythonic-string-reader)) (sbcl-package->ecl-package sbcl-pythonic-string-reader))
(define-public sbcl-slime-swank (define-public sbcl-slime-swank
(let ((commit "735258a26bb97e85d25f39e4bef83c1f80c12f5d") ;; Update together with emacs-slime.
(revision "1")) (package
(package (name "sbcl-slime-swank")
(name "sbcl-slime-swank") (version "2.29.1")
(version (git-version "2.28" revision commit)) (source
(source (origin
(origin (file-name (git-file-name "cl-slime-swank" version))
(file-name (git-file-name "cl-slime-swank" version)) (method git-fetch)
(method git-fetch) (uri (git-reference
(uri (git-reference (url "https://github.com/slime/slime/")
(url "https://github.com/slime/slime/") (commit (string-append "v" version))))
(commit commit))) (sha256
(sha256 (base32 "1fcasqsdfwsphkfx1vd3r5mr89vgvzb9g2dbw82mc9lijg1mr1ki"))
(base32 "0prskgzfqjmn8sc7p9nklnd0n1plwcvh40slgh23km31raplmzk7")) (modules '((guix build utils)))
(modules '((guix build utils))) (snippet
(snippet ;; The doc folder drags `gawk' into the closure. Doc is already
;; The doc folder drags `gawk' into the closure. Doc is already ;; provided by emacs-slime.
;; provided by emacs-slime. `(begin
`(begin (delete-file-recursively "doc")
(delete-file-recursively "doc") #t))))
#t)))) (build-system asdf-build-system/sbcl)
(build-system asdf-build-system/sbcl) (arguments
(arguments '(#:asd-systems '("swank" "swank/exts")
'(#:asd-systems '("swank" "swank/exts") #:phases
#:phases (modify-phases %standard-phases
(modify-phases %standard-phases (add-after 'unpack 'set-fasl-directory
(add-after 'unpack 'set-fasl-directory (lambda* (#:key outputs #:allow-other-keys)
(lambda* (#:key outputs #:allow-other-keys) (substitute* "swank-loader.lisp"
(substitute* "swank-loader.lisp" (("\\(probe-file fasl\\)" all)
(("\\(probe-file fasl\\)" all) ;; Do not try to delete Guix store files.
;; Do not try to delete Guix store files. (string-append
(string-append all "\n"
all "\n" " (not (equal (subseq (pathname-directory fasl) 1 3)"
" (not (equal (subseq (pathname-directory fasl) 1 3)" " '(\"gnu\" \"store\"))) ; XXX: GUIX PATCH"))))))))
" '(\"gnu\" \"store\"))) ; XXX: GUIX PATCH")))))))) (home-page "https://github.com/slime/slime")
(home-page "https://github.com/slime/slime") (synopsis "Common Lisp Swank server")
(synopsis "Common Lisp Swank server") (description
(description "This is only useful if you want to start a Swank server in a Lisp
"This is only useful if you want to start a Swank server in a Lisp
processes that doesn't run under Emacs. Lisp processes created by processes that doesn't run under Emacs. Lisp processes created by
@command{M-x slime} automatically start the server.") @command{M-x slime} automatically start the server.")
(license (list license:gpl2+ license:public-domain))))) (license (list license:gpl2+ license:public-domain))))
(define-public cl-slime-swank (define-public cl-slime-swank
(sbcl-package->cl-source-package sbcl-slime-swank)) (sbcl-package->cl-source-package sbcl-slime-swank))