[bug#48453] [PATCH 1/1]: Add cl-typesetting

[Sharlatan Hellseher <sharlatanus@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 2886 bytes --]

Hi Guix team!

Build of ecl version  breaks because of ecl-xmls package, the build of
ecl-xmls breaks by itself as well.

--8<---------------cut here---------------start------------->8---
phase `build' succeeded after 1.6 seconds starting phase `check'
Invoking ecl: "/gnu/store/pmg6fgkd59v8p52g186q3na0dx2bw3p1-ecl-21.2.1/bin/ecl"
"--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename
\"/gnu/store/97aiyiablqfph85bmkna350b4g7nchl1-ecl-xmls-3.0.2-1.18546f0/share/common-lisp/ecl/xmls/xmls.asd\"))"
"--eval" "(when (uiop:file-exists-p \"xmls-tests.asd\") (asdf:load-asd
(truename \"xmls-tests.asd\")))" "--eval" "(when (uiop:file-exists-p
\"xmls-test.asd\") (asdf:load-asd (truename \"xmls-test.asd\")))"
"--eval" "(when (uiop:file-exists-p \"tests.asd\") (asdf:load-asd
(truename \"tests.asd\")))" "--eval" "(when (uiop:file-exists-p
\"test.asd\") (asdf:load-asd (truename \"test.asd\")))" "--eval"
"(asdf:test-system \"xmls\")" "--eval" "(quit)" ;;; Loading
#P"/gnu/store/pmg6fgkd59v8p52g186q3na0dx2bw3p1-ecl-21.2.1/lib/ecl-21.2.1/asdf.fas"
An error occurred during initialization: There is no symbol :TEST in
package "XMLS". command
"/gnu/store/pmg6fgkd59v8p52g186q3na0dx2bw3p1-ecl-21.2.1/bin/ecl"
"--eval" "(require :asdf)" "--eval" "(asdf:load-asd (truename
\"/gnu/store/97aiyiablqfph85bmkna350b4g7nchl1-ecl-xmls-3.0.2-1.18546f0/share/common-lisp/ecl/xmls/xmls.asd\"))"
"--eval" "(when (uiop:file-exists-p \"xmls-tests.asd\") (asdf:load-asd
(truename \"xmls-tests.asd\")))" "--eval" "(when (uiop:file-exists-p
\"xmls-test.asd\") (asdf:load-asd (truename \"xmls-test.asd\")))"
"--eval" "(when (uiop:file-exists-p \"tests.asd\") (asdf:load-asd
(truename \"tests.asd\")))" "--eval" "(when (uiop:file-exists-p
\"test.asd\") (asdf:load-asd (truename \"test.asd\")))" "--eval"
"(asdf:test-system \"xmls\")" "--eval" "(quit)" failed with status 1
builder for `/gnu/store/ibfq58irvnmbl28xs2llg8d4bliqdr26-ecl-xmls-3.0.2-1.18546f0.drv'
failed with exit code 1 build of
/gnu/store/ibfq58irvnmbl28xs2llg8d4bliqdr26-ecl-xmls-3.0.2-1.18546f0.drv
failed View build log at
'/var/log/guix/drvs/ib/fq58irvnmbl28xs2llg8d4bliqdr26-ecl-xmls-3.0.2-1.18546f0.drv.bz2'.
cannot build derivation
`/gnu/store/rdpii2amg77ir8ncydjk3mbc3x0r1xs8-ecl-cl-typesetting-0.8.0-1.86eba98.drv':
1 dependencies couldn't be built guix build: error: build of
`/gnu/store/rdpii2amg77ir8ncydjk3mbc3x0r1xs8-ecl-cl-typesetting-0.8.0-1.86eba98.drv'
failed
--8<---------------cut here---------------end--------------->8---

--
… наш разум - превосходная объяснительная машина которая способна
найти смысл почти в чем угодно, истолковать любой феномен, но
совершенно не в состоянии принять мысль о непредсказуемости.

[-- Attachment #2: 0001-gnu-add-cl-typesetting.patch --]
[-- Type: text/x-patch, Size: 2108 bytes --]

From bd91fed654392674d1909b9b9da99ca43731c86f Mon Sep 17 00:00:00 2001
From: Sharlatan Hellseher <sharlatanus@gmail.com>
Date: Sat, 15 May 2021 21:42:18 +0100
Subject: [PATCH] gnu: add: cl-typesetting

* gnu/packages/lisp-xyz.scm (sbcl-cl-typesetting, ecl-cl-typesetting,
  cl-typesetting): New variables.
---
 gnu/packages/lisp-xyz.scm | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index efd18f21a3..cf4968d628 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -16602,3 +16602,39 @@ package locks across supported Common Lisp implementations.")
 
 (define-public cl-package-locks
   (sbcl-package->cl-source-package sbcl-cl-package-locks))
+
+(define-public sbcl-cl-typesetting
+  (let ((commit "86eba981fc4254addebecf765578ec350d6e3b75")
+        (revision "1"))
+    (package
+      (name "sbcl-cl-typesetting")
+      (version (git-version "0.8.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/mbattyani/cl-typesetting")
+               (commit commit)))
+         (file-name (git-file-name "cl-typesetting" version))
+         (sha256
+          (base32 "0fcs5mq0gxfczbrg7ay8r4bf5r4g6blvpdbjkhcl8dapcikyn35h"))))
+      (build-system asdf-build-system/sbcl)
+      (arguments
+       ;; NOTE: (Sharlatan-20210515T213014+0100): Circular dependencies with
+       ;; cl-typegraph
+       `(#:tests? #f))
+      (inputs
+       `(("cl-pdf" ,sbcl-cl-pdf)
+         ("xmls" ,sbcl-xmls)))
+      (home-page "https://github.com/mbattyani/cl-typesetting")
+      (synopsis "Stand-alone Common Lisp typesetting system")
+      (description
+       "CL-TYPESETTING is a cross-platform Common Lisp typesetting library for
+all kind of typesetting applications.")
+      (license license:bsd-2))))
+
+(define-public ecl-cl-typesetting
+  (sbcl-package->ecl-package sbcl-cl-typesetting))
+
+(define-public cl-typesetting
+  (sbcl-package->cl-source-package sbcl-cl-typesetting))
-- 
2.31.1