06/08: gnu: Add sbcl-clsql-postgresql.

[guix-commits]

glv pushed a commit to branch master
in repository guix.

commit cd53df62c9d0872331c6872727feeb5aca6cd3f6
Author: Guillaume Le Vaillant <address@hidden>
AuthorDate: Fri Feb 28 19:15:36 2020 +0100

    gnu: Add sbcl-clsql-postgresql.
    
    * gnu/packages/lisp-xyz.scm (sbcl-clsql-postgresql): New variable.
---
 gnu/packages/lisp-xyz.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 2567bea..300638b 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -11107,3 +11107,24 @@ interfaces as well as a functional and an object 
oriented interface.")
                                  "/lib/libsqlite3")))
                #t))))))
     (synopsis "SQLite3 driver for Common Lisp SQL interface library")))
+
+(define-public sbcl-clsql-postgresql
+  (package
+    (inherit sbcl-clsql)
+    (name "sbcl-clsql-postgresql")
+    (inputs
+     `(("clsql" ,sbcl-clsql)
+       ("clsql-uffi" ,sbcl-clsql-uffi)
+       ("postgresql" ,postgresql)))
+    (arguments
+     (substitute-keyword-arguments (package-arguments sbcl-clsql)
+       ((#:phases phases '%standard-phases)
+        `(modify-phases ,phases
+           (add-after 'unpack 'fix-paths
+             (lambda* (#:key inputs #:allow-other-keys)
+               (substitute* "db-postgresql/postgresql-loader.lisp"
+                 (("libpq")
+                  (string-append (assoc-ref inputs "postgresql")
+                                 "/lib/libpq")))
+               #t))))))
+    (synopsis "PostgreSQL driver for Common Lisp SQL interface library")))