gnu: gcl: Update snapshot.

* gnu/packages/lisp.scm (gcl): Update to 2.6.12-1.5956140.
[arguments]: Remove CFLAGS from and add GCL_CC and CC to make-flags; adjust
pre-conf phase.

This update includes small upstream bug fixes and optimizations.

gnu/packages/lisp.scm

@@ -76,27 +76,36 @@
              ,lisp))))
 
 (define-public gcl
+  (let ((commit "5956140b1083e2302a59d7ce2054b0b7c2cbb417")
+        (revision "1")) ;Guix package revision
     (package
       (name "gcl")
-    (version "2.6.12")
+      (version (string-append "2.6.12-" revision "."
+                              (string-take commit 7)))
       (source
        (origin
-      (method url-fetch)
-      (uri (string-append "mirror://gnu/" name "/" name "-" version ".tar.gz"))
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://git.savannah.gnu.org/r/gcl.git")
+               (commit commit)))
+         (file-name (string-append "gcl-" version "-checkout"))
          (sha256
-       (base32 "1s4hs2qbjqmn9h88l4xvsifq5c3dlc5s74lyb61rdi5grhdlkf4f"))))
+          (base32 "0mwclf2879mh3d9xqkqhghf58lwy7srsnsq9x0f1cc6j302sy4hb"))))
       (build-system gnu-build-system)
       (arguments
        `(#:parallel-build? #f  ; The build system seems not to be thread safe.
          #:tests? #f  ; There does not seem to be make check or anything similar.
          #:configure-flags '("--enable-ansi") ; required for use by the maxima package
          #:make-flags (list
-                     "CFLAGS=-fgnu89-inline" ; removes inline function warnings
-                     (string-append "GCC=" (assoc-ref %build-inputs "gcc")
+                       (string-append "GCL_CC=" (assoc-ref %build-inputs "gcc")
+                                      "/bin/gcc")
+                       (string-append "CC=" (assoc-ref %build-inputs "gcc")
                                       "/bin/gcc"))
-       #:phases (modify-phases %standard-phases
+         #:phases
+         (modify-phases %standard-phases
            (add-before 'configure 'pre-conf
-                    (lambda _
+             (lambda* (#:key inputs #:allow-other-keys)
+               (chdir "gcl")
                (substitute*
                    (append
                     '("pcl/impl/kcl/makefile.akcl"
@@ -114,6 +123,18 @@
                  (("#CC") "CC")
                  (("-fwritable-strings") "")
                  (("-Werror") ""))
+               (substitute* "lsp/gcl_top.lsp"
+                 (("\"cc\"")
+                  (string-append "\"" (assoc-ref %build-inputs "gcc")
+                                 "/bin/gcc\""))
+                 (("\\(or \\(get-path \\*cc\\*\\) \\*cc\\*\\)") "*cc*")
+                 (("\"ld\"")
+                  (string-append "\"" (assoc-ref %build-inputs "binutils")
+                                 "/bin/ld\""))
+                 (("\\(or \\(get-path \\*ld\\*\\) \\*ld\\*\\)") "*ld*")
+                 (("\\(get-path \"objdump --source \"\\)")
+                  (string-append "\"" (assoc-ref %build-inputs "binutils")
+                                 "/bin/objdump --source \"")))
                #t))
            (add-after 'install 'wrap
              (lambda* (#:key inputs outputs #:allow-other-keys)
@@ -150,7 +171,7 @@ features the ability to compile to native object code and to load native
 object code modules directly into its lisp core.  It also features a
 stratified garbage collection strategy, a source-level debugger and a built-in
 interface to the Tk widget system.")
-    (license license:lgpl2.0+)))
+      (license license:lgpl2.0+))))
 
 (define-public ecl
   (package