From 1cd8b5ef4dd39a764f95663a18b83f1a26dd16d3 Mon Sep 17 00:00:00 2001
From: jgart <jgart@dismail.de>
Date: Sun, 15 Feb 2026 14:16:28 -0500
Subject: gnu: Remove cl-py4cl, ecl-py4cl, clasp-py4cl, and sbcl-py4cl.

* gnu/packages/lisp-xyz.scm (Remove cl-py4cl, ecl-py4cl, clasp-py4cl, and
sbcl-py4cl.): Delete variables.

Closes https://codeberg.org/guix/guix/issues/5438.

Change-Id: I2f3648d98d6b1077da4af7f2a18ec123872f6fba
---
 gnu/packages/lisp-xyz.scm | 71 -----------------------------------------------
 1 file changed, 71 deletions(-)

(limited to 'gnu')

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index a6ff773454b..c4cd5f342b2 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -27206,77 +27206,6 @@ values in other options.")
 (define-public clasp-py-configparser
   (sbcl-package->clasp-package sbcl-py-configparser))
 
-(define-public sbcl-py4cl
-  (let ((commit "2f2a008dd6162d4446803971292fe1b323fe0dd5")
-        (revision "2"))
-    (package
-      (name "sbcl-py4cl")
-      (version (git-version "0.0.0" revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/bendudson/py4cl")
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1zx1kpfpd8mi1qaa7gr32mki6nvl6pqcs3437fvn4xa3yf7ybsha"))
-         (modules '((guix build utils)))))
-      (build-system asdf-build-system/sbcl)
-      (native-inputs
-       (list sbcl-clunit))
-      (inputs
-       (list python sbcl-trivial-garbage))
-      (propagated-inputs
-       (list ;; For multi-dimensional array support
-             python-numpy))
-      (arguments
-       '(#:phases
-         (modify-phases %standard-phases
-           (add-after 'unpack 'fix-python3-path
-             (lambda* (#:key inputs #:allow-other-keys)
-               (substitute* "src/python-process.lisp"
-                 (("\\*python-command\\* \"python\"")
-                  (string-append "*python-command* "
-                                 "\""
-                                 (search-input-file inputs "/bin/python3")
-                                 "\"")))))
-           (add-after 'unpack 'replace-*base-directory*-var
-             (lambda* (#:key outputs #:allow-other-keys)
-               ;; In the ASD, the author makes an attempt to
-               ;; programmatically determine the location of the
-               ;; source-code so lisp can call into "py4cl.py". We can
-               ;; hard-code this since we know where this file will
-               ;; reside.
-               (substitute* "src/python-process.lisp"
-                 (("py4cl/config:\\*base-directory\\*")
-                  (string-append
-                   "\""
-                   (assoc-ref outputs "out")
-                   "/share/common-lisp/"
-                   (%lisp-type)
-                   "/py4cl/"
-                   "\""))))))))
-      (synopsis "Call python from Common Lisp")
-      (description
-       "Py4CL is a bridge between Common Lisp and Python, which enables Common
-Lisp to interact with Python code.  It uses streams to communicate with a
-separate python process, the approach taken by cl4py.  This is different to
-the CFFI approach used by burgled-batteries, but has the same goal.")
-      (home-page "https://github.com/bendudson/py4cl")
-      ;; MIT License
-      (license license:expat))))
-
-(define-public cl-py4cl
-  (sbcl-package->cl-source-package sbcl-py4cl))
-
-(define-public ecl-py4cl
-  (sbcl-package->ecl-package sbcl-py4cl))
-
-(define-public clasp-py4cl
-  (sbcl-package->clasp-package sbcl-py4cl))
-
 (define-public sbcl-pythonic-string-reader
   (let ((commit "47a70ba1e32362e03dad6ef8e6f36180b560f86a"))
     (package
-- 
cgit v1.3