gnu: sbcl-fare-quasiquote: Fix source and home-page.

* gnu/packages/lisp-xyz.scm (sbcl-fare-quasiquote)[source]: Use main
  repository instead of Quicklisp archive.
  [home-page]: Fix URL.
  [synopsis]: Shorten it.

gnu/packages/lisp-xyz.scm

@@ -5892,26 +5892,28 @@ optimizing techniques widely used in the functional programming world.")
   (sbcl-package->cl-source-package sbcl-optima))
 
 (define-public sbcl-fare-quasiquote
+  (let ((commit "640d39a0451094071b3e093c97667b3947f43639")
+        (revision "1"))
     (package
       (name "sbcl-fare-quasiquote")
       (build-system asdf-build-system/sbcl)
-    (version "20171130")
-    (home-page "http://common-lisp.net/project/fare-quasiquote")
+      (version (git-version "1.0.1" revision commit))
+      (home-page "https://gitlab.common-lisp.net/frideau/fare-quasiquote")
       (source
        (origin
-       (method url-fetch)
-       (uri (string-append "http://beta.quicklisp.org/archive/fare-quasiquote/"
-                           (date->string (string->date version "~Y~m~d") "~Y-~m-~d")
-                           "/fare-quasiquote-"
-                           version
-                           "-git.tgz"))
+         (method git-fetch)
+         (uri (git-reference
+               (url (string-append "https://gitlab.common-lisp.net/frideau/"
+                                   "fare-quasiquote.git"))
+               (commit commit)))
+         (file-name (git-file-name name version))
          (sha256
-        (base32
-         "00brmh7ndsi0c97nibi8cy10j3l4gmkyrfrr5jr5lzkfb7ngyfqa"))))
+          (base32 "1g6q11l50kgija9f55lzqpcwvaq0ljiw8v1j265hnyg6nahjwjvg"))))
       (inputs
        `(("fare-utils" ,sbcl-fare-utils)))
       (arguments
-     ;; XXX: Circular dependencies: Tests depend on subsystems, which depend on the main systems.
+       ;; XXX: Circular dependencies: Tests depend on subsystems,
+       ;; which depend on the main systems.
        `(#:tests? #f
          #:phases
          (modify-phases %standard-phases
@@ -5921,12 +5923,13 @@ optimizing techniques widely used in the functional programming world.")
            (add-after 'unpack 'patch-requirement
              (lambda _
                (substitute* "fare-quasiquote.asd"
-               (("\\(:version \"fare-utils\" \"1.0.0\"\\)") "\"fare-utils\"")))))))
-    (synopsis "Pattern-matching friendly implementation of quasiquote for Common Lisp")
+                 (("\\(:version \"fare-utils\" \"1.0.0\"\\)")
+                  "\"fare-utils\"")))))))
+      (synopsis "Pattern-matching friendly implementation of quasiquote")
       (description "The main purpose of this n+2nd reimplementation of
 quasiquote is enable matching of quasiquoted patterns, using Optima or
 Trivia.")
-    (license license:expat)))
+      (license license:expat))))
 
 (define-public cl-fare-quasiquote
   (sbcl-package->cl-source-package sbcl-fare-quasiquote))