gnu: cl-py4cl: Improve package definition.

This is a follow-up to 917c25b3ba.

* gnu/packages/lisp-xyz.scm (sbcl-py4cl)[propagated-inputs]: Move python
  to...
  [inputs]: ... here.
  [arguments]: Use 'search-input-file' instead of 'which' in
  'fix-python3-path' phase.

gnu/packages/lisp-xyz.scm

@@ -5172,21 +5172,21 @@ (define-public sbcl-py4cl
       (native-inputs
        (list sbcl-clunit))
       (inputs
-       (list sbcl-trivial-garbage))
+       (list python sbcl-trivial-garbage))
       (propagated-inputs
-       ;; This package doesn't do anything without python available
-       (list python
-             ;; For multi-dimensional array support
+       (list ;; For multi-dimensional array support
              python-numpy))
       (arguments
        '(#:phases
          (modify-phases %standard-phases
            (add-after 'unpack 'fix-python3-path
-             (lambda _
+             (lambda* (#:key inputs #:allow-other-keys)
                (substitute* "src/callpython.lisp"
                  (("\\*python-command\\* \"python\"")
                   (string-append "*python-command* "
-                                 "\"" (which "python3") "\"")))))
+                                 "\""
+                                 (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