gnu: cl-ltk: Update to 0.992-0.ff14a78.

* gnu/packages/lisp-xyz.scm (sbcl-ltk): Update to 0.992-0.ff14a78.
[file-name]: Rename to cl-ltk.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>

gnu/packages/lisp-xyz.scm

@@ -10794,52 +10794,55 @@ ZeroMQ.")
   (sbcl-package->ecl-package sbcl-cl-z85))
 
 (define-public sbcl-ltk
-  (package
+  (let ((commit "ff14a781d211c19c35e65a7ecaece67dda0b3ebb")
-    (name "sbcl-ltk")
+        (revision "0"))
-    (version "0.992")
+    (package
-    (source
+      (name "sbcl-ltk")
-     (origin
+      (version (git-version "0.992" revision commit))
-       (method git-fetch)
+      (source
-       (uri (git-reference
+       (origin
-             (url "https://github.com/herth/ltk")
+         (method git-fetch)
-             (commit version)))
+         (uri (git-reference
-       (file-name (git-file-name name version))
+               (url "https://github.com/herth/ltk")
-       (sha256
+               (commit commit)))
-        (base32 "13l2q4mskzilya9xh5wy2xvy30lwn104bd8wrq6ifds56r82iy3x"))))
+         (file-name (git-file-name "cl-ltk" version))
-    (build-system asdf-build-system/sbcl)
+         (sha256
-    (inputs
+          (base32 "0f1xgsj2j7bq21cq2pa9rw3ybxd9vyknisl6z307lxx7lvhm3xac"))))
-     (list imagemagick tk))
+      (build-system asdf-build-system/sbcl)
-    (arguments
+      (inputs
-     `(#:asd-systems '("ltk"
+       (list imagemagick tk))
-                       "ltk-mw"
+      (arguments
-                       "ltk-remote")
+       `(#:asd-systems '("ltk"
-       #:tests? #f
+                         "ltk-mw"
-       #:phases
+                         "ltk-remote")
-       (modify-phases %standard-phases
+         #:tests? #f
-         (add-after 'unpack 'fix-paths
+         #:phases
-           (lambda* (#:key inputs #:allow-other-keys)
+         (modify-phases %standard-phases
-             (substitute* "ltk/ltk.lisp"
+           (add-after 'unpack 'fix-paths
-               (("#-freebsd \"wish\"")
+             (lambda* (#:key inputs #:allow-other-keys)
-                (string-append "#-freebsd \""
+               (substitute* "ltk/ltk.lisp"
-                               (assoc-ref inputs "tk")
+                 (("#-freebsd \"wish\"")
-                               "/bin/wish\""))
+                  (string-append "#-freebsd \""
-               (("do-execute \"convert\"")
+                                 (assoc-ref inputs "tk")
-                (string-append "do-execute \""
+                                 "/bin/wish\""))
-                               (assoc-ref inputs "imagemagick")
+                 (("do-execute \"convert\"")
-                               "/bin/convert\"")))
+                  (string-append "do-execute \""
-             #t))
+                                 (assoc-ref inputs "imagemagick")
-         (add-after 'unpack 'fix-build
+                                 "/bin/convert\"")))
-           (lambda _
+               #t))
-             (substitute* "ltk/ltk-remote.lisp"
+           (add-after 'unpack 'fix-build
-               (("\\(:export")
+             (lambda _
-                "(:shadow #:raise) (:export"))
+               (substitute* "ltk/ltk-remote.lisp"
-             #t)))))
+                 (("\\(:export")
-    (synopsis "Common Lisp bindings for the Tk GUI toolkit")
+                  "(:shadow #:raise) (:export"))
-    (description
+               #t)))))
-     "LTK is a Common Lisp binding for the Tk graphics toolkit.  It is written
+      (synopsis "Common Lisp bindings for the Tk GUI toolkit")
-in pure Common Lisp and does not require any Tk knowledge for its usage.")
+      (description
-    (home-page "http://www.peter-herth.de/ltk/")
+       "LTK is a Common Lisp binding for the Tk graphics toolkit.  It is
-    (license license:llgpl)))
+written in pure Common Lisp and does not require any Tk knowledge for its
+usage.")
+      (home-page "http://www.peter-herth.de/ltk/")
+      (license license:llgpl))))
 
 (define-public cl-ltk
   (sbcl-package->cl-source-package sbcl-ltk))