gnu/packages/lisp-xyz.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 John Darrington <jmd@gnu.org>
   3 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   4 ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
   5 ;;; Copyright © 2016 Federico Beffa <beffa@fbengineering.ch>
   6 ;;; Copyright © 2016, 2017 ng0 <ng0@n0.is>
   7 ;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
   8 ;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
   9 ;;; Copyright © 2017, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
  10 ;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
  11 ;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
  12 ;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
  13 ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
  14 ;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
  15 ;;; Copyright © 2019, 2020 Katherine Cox-Buday <cox.katherine.e@gmail.com>
  16 ;;; Copyright © 2019 Jesse Gildersleve <jessejohngildersleve@protonmail.com>
  17 ;;; Copyright © 2019, 2020 Guillaume Le Vaillant <glv@posteo.net>
  18 ;;; Copyright © 2019 Brett Gilio <brettg@gnu.org>
  19 ;;;
  20 ;;; This file is part of GNU Guix.
  21 ;;;
  22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  23 ;;; under the terms of the GNU General Public License as published by
  24 ;;; the Free Software Foundation; either version 3 of the License, or (at
  25 ;;; your option) any later version.
  26 ;;;
  27 ;;; GNU Guix is distributed in the hope that it will be useful, but
  28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  30 ;;; GNU General Public License for more details.
  31 ;;;
  32 ;;; You should have received a copy of the GNU General Public License
  33 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  34
  35 ;;; This file only contains Common Lisp libraries.
  36 ;;; Common Lisp compilers and tooling go to lisp.scm.
  37 ;;; Common Lisp applications should go to the most appropriate file,
  38 ;;; e.g. StumpWM is in wm.scm.
  39
  40 (define-module (gnu packages lisp-xyz)
  41   #:use-module (gnu packages)
  42   #:use-module ((guix licenses) #:prefix license:)
  43   #:use-module (guix packages)
  44   #:use-module (guix download)
  45   #:use-module (guix git-download)
  46   #:use-module (guix hg-download)
  47   #:use-module (guix utils)
  48   #:use-module (guix build-system asdf)
  49   #:use-module (guix build-system trivial)
  50   #:use-module (gnu packages c)
  51   #:use-module (gnu packages compression)
  52   #:use-module (gnu packages glib)
  53   #:use-module (gnu packages gtk)
  54   #:use-module (gnu packages imagemagick)
  55   #:use-module (gnu packages libevent)
  56   #:use-module (gnu packages libffi)
  57   #:use-module (gnu packages lisp)
  58   #:use-module (gnu packages maths)
  59   #:use-module (gnu packages pkg-config)
  60   #:use-module (gnu packages python)
  61   #:use-module (gnu packages python-xyz)
  62   #:use-module (gnu packages sqlite)
  63   #:use-module (gnu packages tcl)
  64   #:use-module (gnu packages tls)
  65   #:use-module (gnu packages webkit)
  66   #:use-module (gnu packages xdisorg)
  67   #:use-module (ice-9 match)
  68   #:use-module (srfi srfi-19))
  69
  70 (define-public sbcl-alexandria
  71   (let ((revision "1")
  72         (commit "3b849bc0116ea70f215ee6b2fbf354e862aaa9dd"))
  73     (package
  74       (name "sbcl-alexandria")
  75       (version (git-version "1.0.0" revision commit))
  76       (source
  77        (origin
  78          (method git-fetch)
  79          (uri (git-reference
  80                (url "https://gitlab.common-lisp.net/alexandria/alexandria.git")
  81                (commit commit)))
  82          (sha256
  83           (base32
  84            "04amwvx2vl691f0plcfbqqwxgib9zimih7jrn5zl7mbwvrxy022b"))
  85          (file-name (git-file-name name version))))
  86       (build-system asdf-build-system/sbcl)
  87       (native-inputs
  88        `(("rt" ,sbcl-rt)))
  89       (synopsis "Collection of portable utilities for Common Lisp")
  90       (description
  91        "Alexandria is a collection of portable utilities.  It does not contain
  92 conceptual extensions to Common Lisp.  It is conservative in scope, and
  93 portable between implementations.")
  94       (home-page "https://common-lisp.net/project/alexandria/")
  95       (license license:public-domain))))
  96
  97 (define-public cl-alexandria
  98   (sbcl-package->cl-source-package sbcl-alexandria))
  99
 100 (define-public ecl-alexandria
 101   (sbcl-package->ecl-package sbcl-alexandria))
 102
 103 (define-public sbcl-net.didierverna.asdf-flv
 104   (package
 105     (name "sbcl-net.didierverna.asdf-flv")
 106     (version "2.1")
 107     (source
 108      (origin
 109        (method git-fetch)
 110        (uri (git-reference
 111              (url "https://github.com/didierverna/asdf-flv")
 112              (commit (string-append "version-" version))))
 113        (file-name (git-file-name "asdf-flv" version))
 114        (sha256
 115         (base32 "1fi2y4baxan103jbg4idjddzihy03kwnj2mzbwrknw4d4x7xlgwj"))))
 116     (build-system asdf-build-system/sbcl)
 117     (synopsis "Common Lisp ASDF extension to provide support for file-local variables")
 118     (description "ASDF-FLV provides support for file-local variables through
 119 ASDF.  A file-local variable behaves like @code{*PACKAGE*} and
 120 @code{*READTABLE*} with respect to @code{LOAD} and @code{COMPILE-FILE}: a new
 121 dynamic binding is created before processing the file, so that any
 122 modification to the variable becomes essentially file-local.
 123
 124 In order to make one or several variables file-local, use the macros
 125 @code{SET-FILE-LOCAL-VARIABLE(S)}.")
 126     (home-page "https://www.lrde.epita.fr/~didier/software/lisp/misc.php#asdf-flv")
 127     (license (license:non-copyleft
 128               "https://www.gnu.org/prep/maintain/html_node/License-Notices-for-Other-Files.html"
 129               "GNU All-Permissive License"))))
 130
 131 (define-public cl-net.didierverna.asdf-flv
 132   (sbcl-package->cl-source-package sbcl-net.didierverna.asdf-flv))
 133
 134 (define-public ecl-net.didierverna.asdf-flv
 135   (sbcl-package->ecl-package sbcl-net.didierverna.asdf-flv))
 136
 137 (define-public sbcl-fiveam
 138   (package
 139     (name "sbcl-fiveam")
 140     (version "1.4.1")
 141     (source
 142      (origin
 143        (method git-fetch)
 144        (uri (git-reference
 145              (url "https://github.com/sionescu/fiveam.git")
 146              (commit (string-append "v" version))))
 147        (file-name (git-file-name "fiveam" version))
 148        (sha256
 149         (base32 "1q3d38pwafnwnw42clq0f8g5xw7pbzr287jl9jsqmb1vb0n1vrli"))))
 150     (inputs
 151      `(("alexandria" ,sbcl-alexandria)
 152        ("net.didierverna.asdf-flv" ,sbcl-net.didierverna.asdf-flv)
 153        ("trivial-backtrace" ,sbcl-trivial-backtrace)))
 154     (build-system asdf-build-system/sbcl)
 155     (synopsis "Common Lisp testing framework")
 156     (description "FiveAM is a simple (as far as writing and running tests
 157 goes) regression testing framework.  It has been designed with Common Lisp's
 158 interactive development model in mind.")
 159     (home-page "https://common-lisp.net/project/fiveam/")
 160     (license license:bsd-3)))
 161
 162 (define-public cl-fiveam
 163   (sbcl-package->cl-source-package sbcl-fiveam))
 164
 165 (define-public ecl-fiveam
 166   (sbcl-package->ecl-package sbcl-fiveam))
 167
 168 (define-public sbcl-bordeaux-threads
 169   (package
 170     (name "sbcl-bordeaux-threads")
 171     (version "0.8.7")
 172     (source (origin
 173               (method git-fetch)
 174               (uri (git-reference
 175                     (url "https://github.com/sionescu/bordeaux-threads.git")
 176                     (commit (string-append "v" version))))
 177               (sha256
 178                (base32 "1whpfmyxp2fsw6viqj45fqgsifgr534c575bfh5vaqw5m84b6alp"))
 179               (file-name
 180                (git-file-name "bordeaux-threads" version))))
 181     (inputs `(("alexandria" ,sbcl-alexandria)))
 182     (native-inputs `(("fiveam" ,sbcl-fiveam)))
 183     (build-system asdf-build-system/sbcl)
 184     (synopsis "Portable shared-state concurrency library for Common Lisp")
 185     (description "BORDEAUX-THREADS is a proposed standard for a minimal
 186 MP/Threading interface.  It is similar to the CLIM-SYS threading and lock
 187 support.")
 188     (home-page "https://common-lisp.net/project/bordeaux-threads/")
 189     (license license:x11)))
 190
 191 (define-public cl-bordeaux-threads
 192   (sbcl-package->cl-source-package sbcl-bordeaux-threads))
 193
 194 (define-public ecl-bordeaux-threads
 195   (sbcl-package->ecl-package sbcl-bordeaux-threads))
 196
 197 (define-public sbcl-trivial-gray-streams
 198   (let ((revision "1")
 199         (commit "0483ade330508b4b2edeabdb47d16ec9437ee1cb"))
 200     (package
 201       (name "sbcl-trivial-gray-streams")
 202       (version (string-append "0.0.0-" revision "." (string-take commit 7)))
 203       (source
 204        (origin
 205          (method git-fetch)
 206          (uri
 207           (git-reference
 208            (url "https://github.com/trivial-gray-streams/trivial-gray-streams.git")
 209            (commit commit)))
 210          (sha256
 211           (base32 "0m3rpf2x0zmdk3nf1qfa01j6a55vj7gkwhyw78qslcgbjlgh8p4d"))
 212          (file-name
 213           (string-append "trivial-gray-streams-" version "-checkout"))))
 214       (build-system asdf-build-system/sbcl)
 215       (synopsis "Compatibility layer for Gray streams implementations")
 216       (description "Gray streams is an interface proposed for inclusion with
 217 ANSI CL by David N. Gray.  The proposal did not make it into ANSI CL, but most
 218 popular CL implementations implement it.  This package provides an extremely
 219 thin compatibility layer for gray streams.")
 220       (home-page "http://www.cliki.net/trivial-gray-streams")
 221       (license license:x11))))
 222
 223 (define-public cl-trivial-gray-streams
 224   (sbcl-package->cl-source-package sbcl-trivial-gray-streams))
 225
 226 (define-public ecl-trivial-gray-streams
 227   (sbcl-package->ecl-package sbcl-trivial-gray-streams))
 228
 229 (define-public sbcl-fiasco
 230   (let ((commit "d62f7558b21addc89f87e306f65d7f760632655f")
 231         (revision "1"))
 232     (package
 233       (name "sbcl-fiasco")
 234       (version (git-version "0.0.1" revision commit))
 235       (source
 236        (origin
 237          (method git-fetch)
 238          (uri (git-reference
 239                (url "https://github.com/joaotavora/fiasco.git")
 240                (commit commit)))
 241          (file-name (git-file-name "fiasco" version))
 242          (sha256
 243           (base32
 244            "1zwxs3d6iswayavcmb49z2892xhym7n556d8dnmvalc32pm9bkjh"))))
 245       (build-system asdf-build-system/sbcl)
 246       (inputs
 247        `(("alexandria" ,sbcl-alexandria)
 248          ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
 249       (synopsis "Simple and powerful test framework for Common Lisp")
 250       (description "A Common Lisp test framework that treasures your failures,
 251 logical continuation of Stefil.  It focuses on interactive debugging.")
 252       (home-page "https://github.com/joaotavora/fiasco")
 253       ;; LICENCE specifies this is public-domain unless the legislation
 254       ;; doesn't allow or recognize it.  In that case it falls back to a
 255       ;; permissive licence.
 256       (license (list license:public-domain
 257                      (license:x11-style "file://LICENCE"))))))
 258
 259 (define-public cl-fiasco
 260   (sbcl-package->cl-source-package sbcl-fiasco))
 261
 262 (define-public ecl-fiasco
 263   (sbcl-package->ecl-package sbcl-fiasco))
 264
 265 (define-public sbcl-flexi-streams
 266   (package
 267     (name "sbcl-flexi-streams")
 268     (version "1.0.18")
 269     (source
 270      (origin
 271        (method git-fetch)
 272        (uri (git-reference
 273              (url "https://github.com/edicl/flexi-streams.git")
 274              (commit (string-append "v" version))))
 275        (file-name (git-file-name "flexi-streams" version))
 276        (sha256
 277         (base32 "0bjv7fd2acknidc5dyi3h85pn10krxv5jyxs1xg8jya2rlfv7f1j"))))
 278     (build-system asdf-build-system/sbcl)
 279     (arguments
 280      `(#:phases
 281        (modify-phases %standard-phases
 282          (add-after 'unpack 'make-git-checkout-writable
 283            (lambda _
 284              (for-each make-file-writable (find-files "."))
 285              #t)))))
 286     (inputs `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
 287     (synopsis "Implementation of virtual bivalent streams for Common Lisp")
 288     (description "Flexi-streams is an implementation of \"virtual\" bivalent
 289 streams that can be layered atop real binary or bivalent streams and that can
 290 be used to read and write character data in various single- or multi-octet
 291 encodings which can be changed on the fly.  It also supplies in-memory binary
 292 streams which are similar to string streams.")
 293     (home-page "http://weitz.de/flexi-streams/")
 294     (license license:bsd-3)))
 295
 296 (define-public cl-flexi-streams
 297   (sbcl-package->cl-source-package sbcl-flexi-streams))
 298
 299 (define-public ecl-flexi-streams
 300   (sbcl-package->ecl-package sbcl-flexi-streams))
 301
 302 (define-public sbcl-cl-ppcre
 303   (package
 304     (name "sbcl-cl-ppcre")
 305     (version "2.1.1")
 306     (source
 307      (origin
 308        (method git-fetch)
 309        (uri (git-reference
 310              (url "https://github.com/edicl/cl-ppcre.git")
 311              (commit (string-append "v" version))))
 312        (file-name (git-file-name "cl-ppcre" version))
 313        (sha256
 314         (base32 "0dwvr29diqzcg5n6jvbk2rnd90i05l7n828hhw99khmqd0kz7xsi"))))
 315     (build-system asdf-build-system/sbcl)
 316     (native-inputs `(("flexi-streams" ,sbcl-flexi-streams)))
 317     (synopsis "Portable regular expression library for Common Lisp")
 318     (description "CL-PPCRE is a portable regular expression library for Common
 319 Lisp, which is compatible with perl.  It is pretty fast, thread-safe, and
 320 compatible with ANSI-compliant Common Lisp implementations.")
 321     (home-page "http://weitz.de/cl-ppcre/")
 322     (license license:bsd-2)))
 323
 324 (define-public cl-ppcre
 325   (sbcl-package->cl-source-package sbcl-cl-ppcre))
 326
 327 (define-public ecl-cl-ppcre
 328   (sbcl-package->ecl-package sbcl-cl-ppcre))
 329
 330 (define sbcl-cl-unicode-base
 331   (package
 332     (name "sbcl-cl-unicode-base")
 333     (version "0.1.6")
 334     (source (origin
 335               (method git-fetch)
 336               (uri (git-reference
 337                     (url "https://github.com/edicl/cl-unicode.git")
 338                     (commit (string-append "v" version))))
 339               (file-name (git-file-name name version))
 340               (sha256
 341                (base32
 342                 "0ykx2s9lqfl74p1px0ik3l2izd1fc9jd1b4ra68s5x34rvjy0hza"))))
 343     (build-system asdf-build-system/sbcl)
 344     (arguments
 345      '(#:asd-file "cl-unicode.asd"
 346        #:asd-system-name "cl-unicode/base"))
 347     (inputs
 348      `(("cl-ppcre" ,sbcl-cl-ppcre)))
 349     (home-page "http://weitz.de/cl-unicode/")
 350     (synopsis "Portable Unicode library for Common Lisp")
 351     (description "CL-UNICODE is a portable Unicode library Common Lisp, which
 352 is compatible with perl.  It is pretty fast, thread-safe, and compatible with
 353 ANSI-compliant Common Lisp implementations.")
 354     (license license:bsd-2)))
 355
 356 (define-public sbcl-cl-unicode
 357   (package
 358     (inherit sbcl-cl-unicode-base)
 359     (name "sbcl-cl-unicode")
 360     (inputs
 361      `(("cl-unicode/base" ,sbcl-cl-unicode-base)
 362        ,@(package-inputs sbcl-cl-unicode-base)))
 363     (native-inputs
 364      `(("flexi-streams" ,sbcl-flexi-streams)))
 365     (arguments '())))
 366
 367 (define-public ecl-cl-unicode
 368   (sbcl-package->ecl-package sbcl-cl-unicode))
 369
 370 (define-public cl-unicode
 371   (sbcl-package->cl-source-package sbcl-cl-unicode))
 372
 373 (define-public sbcl-zpb-ttf
 374   (package
 375     (name "sbcl-zpb-ttf")
 376     (version "1.0.3")
 377     (source
 378      (origin
 379        (method git-fetch)
 380        (uri (git-reference
 381              (url "https://github.com/xach/zpb-ttf.git")
 382              (commit (string-append "release-" version))))
 383        (file-name (git-file-name name version))
 384        (sha256
 385         (base32
 386          "1wh66vjijzqlydnrihynpwp6796917xwrh0i9li93c17kyxa74ih"))))
 387     (build-system asdf-build-system/sbcl)
 388     (home-page "https://github.com/xach/zpb-ttf")
 389     (synopsis "TrueType font file access for Common Lisp")
 390     (description
 391      "ZPB-TTF is a TrueType font file parser that provides an interface for
 392 reading typographic metrics, glyph outlines, and other information from the
 393 file.")
 394     (license license:bsd-2)))
 395
 396 (define-public ecl-zpb-ttf
 397   (sbcl-package->ecl-package sbcl-zpb-ttf))
 398
 399 (define-public cl-zpb-ttf
 400   (sbcl-package->cl-source-package sbcl-zpb-ttf))
 401
 402 (define-public sbcl-cl-aa
 403   (package
 404     (name "sbcl-cl-aa")
 405     (version "0.1.5")
 406     (source
 407      (origin
 408        (method url-fetch)
 409        (uri (string-append "http://projects.tuxee.net/cl-vectors/"
 410                            "files/cl-vectors-" version ".tar.gz"))
 411        (sha256
 412         (base32
 413          "04lhwi0kq8pkwhgd885pk80m1cp9sfvjjn5zj70s1dnckibhdmqh"))))
 414     (build-system asdf-build-system/sbcl)
 415     (arguments '(#:asd-file "cl-aa.asd"))
 416     (home-page "http://projects.tuxee.net/cl-vectors/")
 417     (synopsis "Polygon rasterizer")
 418     (description
 419      "This is a Common Lisp library implementing the AA polygon rasterization
 420 algorithm from the @url{http://antigrain.com, Antigrain} project.")
 421     (license license:expat)))
 422
 423 (define-public ecl-cl-aa
 424   (sbcl-package->ecl-package sbcl-cl-aa))
 425
 426 (define-public cl-aa
 427   (sbcl-package->cl-source-package sbcl-cl-aa))
 428
 429 (define-public sbcl-cl-paths
 430   (package
 431     (inherit sbcl-cl-aa)
 432     (name "sbcl-cl-paths")
 433     (arguments '(#:asd-file "cl-paths.asd"))
 434     (synopsis "Facilities to create and manipulate vectorial paths")
 435     (description
 436      "This package provides facilities to create and manipulate vectorial
 437 paths.")))
 438
 439 (define-public ecl-cl-paths
 440   (sbcl-package->ecl-package sbcl-cl-paths))
 441
 442 (define-public cl-paths
 443   (sbcl-package->cl-source-package sbcl-cl-paths))
 444
 445 (define-public sbcl-cl-paths-ttf
 446   (package
 447     (inherit sbcl-cl-aa)
 448     (name "sbcl-cl-paths-ttf")
 449     (arguments '(#:asd-file "cl-paths-ttf.asd"))
 450     (inputs
 451      `(("cl-paths" ,sbcl-cl-paths)
 452        ("zpb-ttf" ,sbcl-zpb-ttf)))
 453     (synopsis "Facilities to create and manipulate vectorial paths")
 454     (description
 455      "This package provides facilities to create and manipulate vectorial
 456 paths.")))
 457
 458 (define-public ecl-cl-paths-ttf
 459   (sbcl-package->ecl-package sbcl-cl-paths-ttf))
 460
 461 (define-public cl-paths-ttf
 462   (sbcl-package->cl-source-package sbcl-cl-paths-ttf))
 463
 464 (define-public sbcl-cl-vectors
 465   (package
 466     (inherit sbcl-cl-aa)
 467     (name "sbcl-cl-vectors")
 468     (arguments '(#:asd-file "cl-vectors.asd"))
 469     (inputs
 470      `(("cl-aa" ,sbcl-cl-aa)
 471        ("cl-paths" ,sbcl-cl-paths)))
 472     (synopsis "Create, transform and render anti-aliased vectorial paths")
 473     (description
 474      "This is a pure Common Lisp library to create, transform and render
 475 anti-aliased vectorial paths.")))
 476
 477 (define-public ecl-cl-vectors
 478   (sbcl-package->ecl-package sbcl-cl-vectors))
 479
 480 (define-public cl-vectors
 481   (sbcl-package->cl-source-package sbcl-cl-vectors))
 482
 483 (define-public sbcl-spatial-trees
 484   ;; There have been no releases.
 485   (let ((commit "81fdad0a0bf109c80a53cc96eca2e093823400ba")
 486         (revision "1"))
 487     (package
 488       (name "sbcl-spatial-trees")
 489       (version (git-version "0" revision commit))
 490       (source
 491        (origin
 492          (method git-fetch)
 493          (uri (git-reference
 494                (url "https://github.com/rpav/spatial-trees.git")
 495                (commit commit)))
 496          (file-name (git-file-name name version))
 497          (sha256
 498           (base32
 499            "11rhc6h501dwcik2igkszz7b9n515cr99m5pjh4r2qfwgiri6ysa"))))
 500       (build-system asdf-build-system/sbcl)
 501       (arguments
 502        '(#:tests? #f           ; spatial-trees.test requires spatial-trees.nns
 503          #:asd-file "spatial-trees.asd"
 504          #:test-asd-file "spatial-trees.test.asd"))
 505       (native-inputs
 506        `(("fiveam" ,sbcl-fiveam)))
 507       (home-page "https://github.com/rpav/spatial-trees")
 508       (synopsis "Dynamic index data structures for spatially-extended data")
 509       (description
 510        "Spatial-trees is a set of dynamic index data structures for
 511 spatially-extended data.")
 512       (license license:bsd-3))))
 513
 514 (define-public ecl-spatial-trees
 515   (sbcl-package->ecl-package sbcl-spatial-trees))
 516
 517 (define-public cl-spatial-trees
 518   (sbcl-package->cl-source-package sbcl-spatial-trees))
 519
 520 (define-public sbcl-flexichain
 521   ;; There are no releases.
 522   (let ((commit "13d2a6c505ed0abfcd4c4ec7d7145059b06855d6")
 523         (revision "1"))
 524     (package
 525       (name "sbcl-flexichain")
 526       (version "1.5.1")
 527       (source
 528        (origin
 529          (method git-fetch)
 530          (uri (git-reference
 531                (url "https://github.com/robert-strandh/Flexichain.git")
 532                (commit commit)))
 533          (file-name (git-file-name name version))
 534          (sha256
 535           (base32
 536            "0pfyvhsfbjd2sjb30grfs52r51a428xglv7bwydvpg2lc117qimg"))))
 537       (build-system asdf-build-system/sbcl)
 538       (home-page "https://github.com/robert-strandh/Flexichain.git")
 539       (synopsis "Dynamically add elements to or remove them from sequences")
 540       (description
 541        "This package provides an implementation of the flexichain protocol,
 542 allowing client code to dynamically add elements to, and delete elements from
 543 a sequence (or chain) of such elements.")
 544       (license license:lgpl2.1+))))
 545
 546 (define-public ecl-flexichain
 547   (sbcl-package->ecl-package sbcl-flexichain))
 548
 549 (define-public cl-flexichain
 550   (sbcl-package->cl-source-package sbcl-flexichain))
 551
 552 (define-public sbcl-cl-pdf
 553   ;; There are no releases
 554   (let ((commit "752e337e6d6fc206f09d091a982e7f8e5c404e4e")
 555         (revision "1"))
 556     (package
 557       (name "sbcl-cl-pdf")
 558       (version (git-version "0" revision commit))
 559       (source
 560        (origin
 561          (method git-fetch)
 562          (uri (git-reference
 563                (url "https://github.com/mbattyani/cl-pdf.git")
 564                (commit commit)))
 565          (file-name (git-file-name name version))
 566          (sha256
 567           (base32
 568            "1cg3k3m3r11ipb8j008y8ipynj97l3xjlpi2knqc9ndmx4r3kb1r"))))
 569       (build-system asdf-build-system/sbcl)
 570       (inputs
 571        `(("iterate" ,sbcl-iterate)
 572          ("zpb-ttf" ,sbcl-zpb-ttf)))
 573       (home-page "https://github.com/mbattyani/cl-pdf")
 574       (synopsis "Common Lisp library for generating PDF files")
 575       (description
 576        "CL-PDF is a cross-platform Common Lisp library for generating PDF
 577 files.")
 578       (license license:bsd-2))))
 579
 580 (define-public ecl-cl-pdf
 581   (sbcl-package->ecl-package sbcl-cl-pdf))
 582
 583 (define-public cl-pdf
 584   (sbcl-package->cl-source-package sbcl-cl-pdf))
 585
 586 (define-public sbcl-clx
 587   (package
 588     (name "sbcl-clx")
 589     (version "0.7.5")
 590     (source
 591      (origin
 592        (method git-fetch)
 593        (uri
 594         (git-reference
 595          (url "https://github.com/sharplispers/clx.git")
 596          (commit version)))
 597        (sha256
 598         (base32
 599          "1vi67z9hpj5rr4xcmfbfwzmlcc0ah7hzhrmfid6lqdkva238v2wf"))
 600        (file-name (string-append "clx-" version))))
 601     (build-system asdf-build-system/sbcl)
 602     (native-inputs
 603      `(("fiasco" ,sbcl-fiasco)))
 604     (home-page "http://www.cliki.net/portable-clx")
 605     (synopsis "X11 client library for Common Lisp")
 606     (description "CLX is an X11 client library for Common Lisp.  The code was
 607 originally taken from a CMUCL distribution, was modified somewhat in order to
 608 make it compile and run under SBCL, then a selection of patches were added
 609 from other CLXes around the net.")
 610     (license license:x11)))
 611
 612 (define-public cl-clx
 613   (sbcl-package->cl-source-package sbcl-clx))
 614
 615 (define-public ecl-clx
 616   (sbcl-package->ecl-package sbcl-clx))
 617
 618 (define-public sbcl-cl-ppcre-unicode
 619   (package (inherit sbcl-cl-ppcre)
 620     (name "sbcl-cl-ppcre-unicode")
 621     (arguments
 622      `(#:tests? #f ; tests fail with "Component :CL-PPCRE-TEST not found"
 623        #:asd-file "cl-ppcre-unicode.asd"))
 624     (inputs
 625      `(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
 626        ("sbcl-cl-unicode" ,sbcl-cl-unicode)))))
 627
 628 (define-public ecl-cl-ppcre-unicode
 629   (sbcl-package->ecl-package sbcl-cl-ppcre-unicode))
 630
 631 ;; The slynk that users expect to install includes all of slynk's contrib
 632 ;; modules.  Therefore, we build the base module and all contribs first; then
 633 ;; we expose the union of these as `sbcl-slynk'.  The following variable
 634 ;; describes the base module.
 635 (define sbcl-slynk-boot0
 636   (let ((revision "2")
 637         (commit "cbf84c36c4eca8b032e3fd16177a7bc02df3ec4c"))
 638     (package
 639       (name "sbcl-slynk-boot0")
 640       (version (string-append "1.0.0-beta-" revision "." (string-take commit 7)))
 641       (source
 642        (origin
 643          (method git-fetch)
 644          (uri
 645           (git-reference
 646            (url "https://github.com/joaotavora/sly.git")
 647            (commit commit)))
 648          (sha256
 649           (base32 "13dyhsravn591p7g6is01mp2ynzjnnj7pwgi57r6xqmd4611y9vh"))
 650          (file-name (string-append "slynk-" version "-checkout"))
 651          (modules '((guix build utils)
 652                     (ice-9 ftw)))
 653          (snippet
 654           '(begin
 655              ;; Move the contribs into the main source directory for easier
 656              ;; access
 657              (substitute* "slynk/slynk.asd"
 658                (("\\.\\./contrib")
 659                 "contrib")
 660                (("\\(defsystem :slynk/util")
 661                 "(defsystem :slynk/util :depends-on (:slynk)")
 662                ((":depends-on \\(:slynk :slynk/util\\)")
 663                 ":depends-on (:slynk :slynk-util)"))
 664              (substitute* "contrib/slynk-trace-dialog.lisp"
 665                (("\\(slynk::reset-inspector\\)") ; Causes problems on load
 666                 "nil"))
 667              (substitute* "contrib/slynk-profiler.lisp"
 668                (("slynk:to-line")
 669                 "slynk-pprint-to-line"))
 670              (substitute* "contrib/slynk-fancy-inspector.lisp"
 671                (("slynk/util") "slynk-util")
 672                ((":compile-toplevel :load-toplevel") ""))
 673              (rename-file "contrib" "slynk/contrib")
 674              ;; Move slynk's contents into the base directory for easier
 675              ;; access
 676              (for-each (lambda (file)
 677                          (unless (string-prefix? "." file)
 678                            (rename-file (string-append "slynk/" file)
 679                                         (string-append "./" (basename file)))))
 680                        (scandir "slynk"))
 681              #t))))
 682       (build-system asdf-build-system/sbcl)
 683       (arguments
 684        `(#:tests? #f ; No test suite
 685          #:asd-system-name "slynk"))
 686       (synopsis "Common Lisp IDE for Emacs")
 687       (description "SLY is a fork of SLIME, an IDE backend for Common Lisp.
 688 It also features a completely redesigned REPL based on Emacs's own
 689 full-featured comint.el, live code annotations, and a consistent interactive
 690 button interface.  Everything can be copied to the REPL.  One can create
 691 multiple inspectors with independent history.")
 692       (home-page "https://github.com/joaotavora/sly")
 693       (license license:public-domain)
 694       (properties `((cl-source-variant . ,(delay cl-slynk)))))))
 695
 696 (define-public cl-slynk
 697   (package
 698     (inherit (sbcl-package->cl-source-package sbcl-slynk-boot0))
 699     (name "cl-slynk")))
 700
 701 (define ecl-slynk-boot0
 702   (sbcl-package->ecl-package sbcl-slynk-boot0))
 703
 704 (define sbcl-slynk-arglists
 705   (package
 706     (inherit sbcl-slynk-boot0)
 707     (name "sbcl-slynk-arglists")
 708     (inputs `(("slynk" ,sbcl-slynk-boot0)))
 709     (arguments
 710      (substitute-keyword-arguments (package-arguments sbcl-slynk-boot0)
 711        ((#:asd-file _ "") "slynk.asd")
 712        ((#:asd-system-name _ #f) "slynk/arglists")))))
 713
 714 (define ecl-slynk-arglists
 715   (sbcl-package->ecl-package sbcl-slynk-arglists))
 716
 717 (define sbcl-slynk-util
 718   (package
 719     (inherit sbcl-slynk-boot0)
 720     (name "sbcl-slynk-util")
 721     (inputs `(("slynk" ,sbcl-slynk-boot0)))
 722     (arguments
 723      (substitute-keyword-arguments (package-arguments sbcl-slynk-boot0)
 724        ((#:asd-file _ "") "slynk.asd")
 725        ((#:asd-system-name _ #f) "slynk/util")))))
 726
 727 (define ecl-slynk-util
 728   (sbcl-package->ecl-package sbcl-slynk-util))
 729
 730 (define sbcl-slynk-fancy-inspector
 731   (package
 732     (inherit sbcl-slynk-arglists)
 733     (name "sbcl-slynk-fancy-inspector")
 734     (inputs `(("slynk-util" ,sbcl-slynk-util)
 735               ,@(package-inputs sbcl-slynk-arglists)))
 736     (arguments
 737      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 738        ((#:asd-system-name _ #f) "slynk/fancy-inspector")))))
 739
 740 (define ecl-slynk-fancy-inspector
 741   (sbcl-package->ecl-package sbcl-slynk-fancy-inspector))
 742
 743 (define sbcl-slynk-package-fu
 744   (package
 745     (inherit sbcl-slynk-arglists)
 746     (name "sbcl-slynk-package-fu")
 747     (arguments
 748      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 749        ((#:asd-system-name _ #f) "slynk/package-fu")))))
 750
 751 (define ecl-slynk-package-fu
 752   (sbcl-package->ecl-package sbcl-slynk-package-fu))
 753
 754 (define sbcl-slynk-mrepl
 755   (package
 756     (inherit sbcl-slynk-fancy-inspector)
 757     (name "sbcl-slynk-mrepl")
 758     (arguments
 759      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 760        ((#:asd-system-name _ #f) "slynk/mrepl")))))
 761
 762 (define ecl-slynk-mrepl
 763   (sbcl-package->ecl-package sbcl-slynk-mrepl))
 764
 765 (define sbcl-slynk-trace-dialog
 766   (package
 767     (inherit sbcl-slynk-arglists)
 768     (name "sbcl-slynk-trace-dialog")
 769     (arguments
 770      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 771        ((#:asd-system-name _ #f) "slynk/trace-dialog")))))
 772
 773 (define ecl-slynk-trace-dialog
 774   (sbcl-package->ecl-package sbcl-slynk-trace-dialog))
 775
 776 (define sbcl-slynk-profiler
 777   (package
 778     (inherit sbcl-slynk-arglists)
 779     (name "sbcl-slynk-profiler")
 780     (arguments
 781      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 782        ((#:asd-system-name _ #f) "slynk/profiler")))))
 783
 784 (define ecl-slynk-profiler
 785   (sbcl-package->ecl-package sbcl-slynk-profiler))
 786
 787 (define sbcl-slynk-stickers
 788   (package
 789     (inherit sbcl-slynk-arglists)
 790     (name "sbcl-slynk-stickers")
 791     (arguments
 792      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 793        ((#:asd-system-name _ #f) "slynk/stickers")))))
 794
 795 (define ecl-slynk-stickers
 796   (sbcl-package->ecl-package sbcl-slynk-stickers))
 797
 798 (define sbcl-slynk-indentation
 799   (package
 800     (inherit sbcl-slynk-arglists)
 801     (name "sbcl-slynk-indentation")
 802     (arguments
 803      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 804        ((#:asd-system-name _ #f) "slynk/indentation")))))
 805
 806 (define ecl-slynk-indentation
 807   (sbcl-package->ecl-package sbcl-slynk-indentation))
 808
 809 (define sbcl-slynk-retro
 810   (package
 811     (inherit sbcl-slynk-arglists)
 812     (name "sbcl-slynk-retro")
 813     (arguments
 814      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 815        ((#:asd-system-name _ #f) "slynk/retro")))))
 816
 817 (define ecl-slynk-retro
 818   (sbcl-package->ecl-package sbcl-slynk-retro))
 819
 820 (define slynk-systems
 821   '("slynk"
 822     "slynk-util"
 823     "slynk-arglists"
 824     "slynk-fancy-inspector"
 825     "slynk-package-fu"
 826     "slynk-mrepl"
 827     "slynk-profiler"
 828     "slynk-trace-dialog"
 829     "slynk-stickers"
 830     "slynk-indentation"
 831     "slynk-retro"))
 832
 833 (define-public sbcl-slynk
 834   (package
 835     (inherit sbcl-slynk-boot0)
 836     (name "sbcl-slynk")
 837     (inputs
 838      `(("slynk" ,sbcl-slynk-boot0)
 839        ("slynk-util" ,sbcl-slynk-util)
 840        ("slynk-arglists" ,sbcl-slynk-arglists)
 841        ("slynk-fancy-inspector" ,sbcl-slynk-fancy-inspector)
 842        ("slynk-package-fu" ,sbcl-slynk-package-fu)
 843        ("slynk-mrepl" ,sbcl-slynk-mrepl)
 844        ("slynk-profiler" ,sbcl-slynk-profiler)
 845        ("slynk-trace-dialog" ,sbcl-slynk-trace-dialog)
 846        ("slynk-stickers" ,sbcl-slynk-stickers)
 847        ("slynk-indentation" ,sbcl-slynk-indentation)
 848        ("slynk-retro" ,sbcl-slynk-retro)))
 849     (native-inputs `(("sbcl" ,sbcl)))
 850     (build-system trivial-build-system)
 851     (source #f)
 852     (outputs '("out" "image"))
 853     (arguments
 854      `(#:modules ((guix build union)
 855                   (guix build utils)
 856                   (guix build lisp-utils))
 857        #:builder
 858        (begin
 859          (use-modules (ice-9 match)
 860                       (srfi srfi-1)
 861                       (guix build union)
 862                       (guix build lisp-utils))
 863
 864          (union-build
 865           (assoc-ref %outputs "out")
 866           (filter-map
 867            (match-lambda
 868              ((name . path)
 869               (if (string-prefix? "slynk" name) path #f)))
 870            %build-inputs))
 871
 872          (prepend-to-source-registry
 873           (string-append (assoc-ref %outputs "out") "//"))
 874
 875          (parameterize ((%lisp-type "sbcl")
 876                         (%lisp (string-append (assoc-ref %build-inputs "sbcl")
 877                                               "/bin/sbcl")))
 878            (build-image (string-append
 879                          (assoc-ref %outputs "image")
 880                          "/bin/slynk")
 881                         %outputs
 882                         #:dependencies ',slynk-systems))
 883          #t)))))
 884
 885 (define-public ecl-slynk
 886   (package
 887     (inherit sbcl-slynk)
 888     (name "ecl-slynk")
 889     (inputs
 890      (map (match-lambda
 891             ((name pkg . _)
 892              (list name (sbcl-package->ecl-package pkg))))
 893           (package-inputs sbcl-slynk)))
 894     (native-inputs '())
 895     (outputs '("out"))
 896     (arguments
 897      '(#:modules ((guix build union))
 898        #:builder
 899        (begin
 900          (use-modules (ice-9 match)
 901                       (guix build union))
 902          (match %build-inputs
 903            (((names . paths) ...)
 904             (union-build (assoc-ref %outputs "out")
 905                          paths)
 906             #t)))))))
 907
 908 (define-public sbcl-parse-js
 909   (let ((commit "fbadc6029bec7039602abfc06c73bb52970998f6")
 910         (revision "1"))
 911     (package
 912       (name "sbcl-parse-js")
 913       (version (string-append "0.0.0-" revision "." (string-take commit 9)))
 914       (source
 915        (origin
 916          (method git-fetch)
 917          (uri (git-reference
 918                (url "http://marijn.haverbeke.nl/git/parse-js")
 919                (commit commit)))
 920          (file-name (string-append name "-" commit "-checkout"))
 921          (sha256
 922           (base32
 923            "1wddrnr5kiya5s3gp4cdq6crbfy9fqcz7fr44p81502sj3bvdv39"))))
 924       (build-system asdf-build-system/sbcl)
 925       (home-page "http://marijnhaverbeke.nl/parse-js/")
 926       (synopsis "Parse JavaScript")
 927       (description "Parse-js is a Common Lisp package for parsing
 928 JavaScript (ECMAScript 3).  It has basic support for ECMAScript 5.")
 929       (license license:zlib))))
 930
 931 (define-public cl-parse-js
 932   (sbcl-package->cl-source-package sbcl-parse-js))
 933
 934 (define-public sbcl-parse-number
 935   (package
 936     (name "sbcl-parse-number")
 937     (version "1.7")
 938     (source
 939      (origin
 940        (method git-fetch)
 941        (uri (git-reference
 942               (url "https://github.com/sharplispers/parse-number/")
 943               (commit (string-append "v" version))))
 944        (file-name (git-file-name name version))
 945        (sha256
 946         (base32
 947          "0sk06ib1bhqv9y39vwnnw44vmbc4b0kvqm37xxmkxd4dwchq82d7"))))
 948     (build-system asdf-build-system/sbcl)
 949     (home-page "http://www.cliki.net/PARSE-NUMBER")
 950     (synopsis "Parse numbers")
 951     (description "@code{parse-number} is a library of functions for parsing
 952 strings into one of the standard Common Lisp number types without using the
 953 reader.  @code{parse-number} accepts an arbitrary string and attempts to parse
 954 the string into one of the standard Common Lisp number types, if possible, or
 955 else @code{parse-number} signals an error of type @code{invalid-number}.")
 956     (license license:bsd-3)))
 957
 958 (define-public cl-parse-number
 959   (sbcl-package->cl-source-package sbcl-parse-number))
 960
 961 (define-public sbcl-iterate
 962   (package
 963     (name "sbcl-iterate")
 964     ;; The latest official release (1.4.3) fails to build so we have to take
 965     ;; the current darcs tarball from quicklisp.
 966     (version "20160825")
 967     (source
 968      (origin
 969        (method url-fetch)
 970        (uri (string-append "http://beta.quicklisp.org/archive/iterate/"
 971                            "2016-08-25/iterate-"
 972                            version "-darcs.tgz"))
 973        (sha256
 974         (base32
 975          "0kvz16gnxnkdz0fy1x8y5yr28nfm7i2qpvix7mgwccdpjmsb4pgm"))))
 976     (build-system asdf-build-system/sbcl)
 977     (native-inputs
 978      `(("rt" ,sbcl-rt)))
 979     (home-page "https://common-lisp.net/project/iterate/")
 980     (synopsis "Iteration construct for Common Lisp")
 981     (description "@code{iterate} is an iteration construct for Common Lisp.
 982 It is similar to the @code{CL:LOOP} macro, with these distinguishing marks:
 983
 984 @itemize
 985 @item it is extensible,
 986 @item it helps editors like Emacs indent iterate forms by having a more
 987   lisp-like syntax, and
 988 @item it isn't part of the ANSI standard for Common Lisp.
 989 @end itemize\n")
 990     (license license:expat)))
 991
 992 (define-public cl-iterate
 993   (sbcl-package->cl-source-package sbcl-iterate))
 994
 995 (define-public ecl-iterate
 996   (sbcl-package->ecl-package sbcl-iterate))
 997
 998 (define-public sbcl-cl-uglify-js
 999   ;; There have been many bug fixes since the 2010 release.
1000   (let ((commit "429c5e1d844e2f96b44db8fccc92d6e8e28afdd5")
1001         (revision "1"))
1002     (package
1003       (name "sbcl-cl-uglify-js")
1004       (version (string-append "0.1-" revision "." (string-take commit 9)))
1005       (source
1006        (origin
1007          (method git-fetch)
1008          (uri (git-reference
1009                (url "https://github.com/mishoo/cl-uglify-js.git")
1010                (commit commit)))
1011          (file-name (git-file-name name version))
1012          (sha256
1013           (base32
1014            "0k39y3c93jgxpr7gwz7w0d8yknn1fdnxrjhd03057lvk5w8js27a"))))
1015       (build-system asdf-build-system/sbcl)
1016       (inputs
1017        `(("sbcl-parse-js" ,sbcl-parse-js)
1018          ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
1019          ("sbcl-cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
1020          ("sbcl-parse-number" ,sbcl-parse-number)
1021          ("sbcl-iterate" ,sbcl-iterate)))
1022       (home-page "https://github.com/mishoo/cl-uglify-js")
1023       (synopsis "JavaScript compressor library for Common Lisp")
1024       (description "This is a Common Lisp version of UglifyJS, a JavaScript
1025 compressor.  It works on data produced by @code{parse-js} to generate a
1026 @dfn{minified} version of the code.  Currently it can:
1027
1028 @itemize
1029 @item reduce variable names (usually to single letters)
1030 @item join consecutive @code{var} statements
1031 @item resolve simple binary expressions
1032 @item group most consecutive statements using the @code{sequence} operator (comma)
1033 @item remove unnecessary blocks
1034 @item convert @code{IF} expressions in various ways that result in smaller code
1035 @item remove some unreachable code
1036 @end itemize\n")
1037       (license license:zlib))))
1038
1039 (define-public cl-uglify-js
1040   (sbcl-package->cl-source-package sbcl-cl-uglify-js))
1041
1042 (define-public uglify-js
1043   (package
1044     (inherit sbcl-cl-uglify-js)
1045     (name "uglify-js")
1046     (build-system trivial-build-system)
1047     (arguments
1048      `(#:modules ((guix build utils))
1049        #:builder
1050        (let* ((bin    (string-append (assoc-ref %outputs "out") "/bin/"))
1051               (script (string-append bin "uglify-js")))
1052          (use-modules (guix build utils))
1053          (mkdir-p bin)
1054          (with-output-to-file script
1055            (lambda _
1056              (format #t "#!~a/bin/sbcl --script
1057  (require :asdf)
1058  (push (truename \"~a/lib/sbcl\") asdf:*central-registry*)"
1059                      (assoc-ref %build-inputs "sbcl")
1060                      (assoc-ref %build-inputs "sbcl-cl-uglify-js"))
1061              ;; FIXME: cannot use progn here because otherwise it fails to
1062              ;; find cl-uglify-js.
1063              (for-each
1064               write
1065               '(;; Quiet, please!
1066                 (let ((*standard-output* (make-broadcast-stream))
1067                       (*error-output* (make-broadcast-stream)))
1068                   (asdf:load-system :cl-uglify-js))
1069                 (let ((file (cadr *posix-argv*)))
1070                   (if file
1071                       (format t "~a"
1072                               (cl-uglify-js:ast-gen-code
1073                                (cl-uglify-js:ast-mangle
1074                                 (cl-uglify-js:ast-squeeze
1075                                  (with-open-file (in file)
1076                                                  (parse-js:parse-js in))))
1077                                :beautify nil))
1078                       (progn
1079                        (format *error-output*
1080                                "Please provide a JavaScript file.~%")
1081                        (sb-ext:exit :code 1))))))))
1082          (chmod script #o755)
1083          #t)))
1084     (inputs
1085      `(("sbcl" ,sbcl)
1086        ("sbcl-cl-uglify-js" ,sbcl-cl-uglify-js)))
1087     (synopsis "JavaScript compressor")))
1088
1089 (define-public sbcl-cl-strings
1090   (let ((revision "1")
1091         (commit "c5c5cbafbf3e6181d03c354d66e41a4f063f00ae"))
1092     (package
1093       (name "sbcl-cl-strings")
1094       (version (git-version "0.0.0" revision commit))
1095       (source
1096        (origin
1097          (method git-fetch)
1098          (uri (git-reference
1099                (url "https://github.com/diogoalexandrefranco/cl-strings")
1100                (commit commit)))
1101          (sha256
1102           (base32
1103            "00754mfaqallj480lwd346nkfb6ra8pa8xcxcylf4baqn604zlmv"))
1104          (file-name (string-append "cl-strings-" version "-checkout"))))
1105       (build-system asdf-build-system/sbcl)
1106       (synopsis "Portable, dependency-free set of utilities to manipulate strings in Common Lisp")
1107       (description
1108        "@command{cl-strings} is a small, portable, dependency-free set of
1109 utilities that make it even easier to manipulate text in Common Lisp.  It has
1110 100% test coverage and works at least on sbcl, ecl, ccl, abcl and clisp.")
1111       (home-page "https://github.com/diogoalexandrefranco/cl-strings")
1112       (license license:expat))))
1113
1114 (define-public cl-strings
1115   (sbcl-package->cl-source-package sbcl-cl-strings))
1116
1117 (define-public ecl-cl-strings
1118   (sbcl-package->ecl-package sbcl-cl-strings))
1119
1120 (define-public sbcl-trivial-features
1121   (package
1122     (name "sbcl-trivial-features")
1123     (version "0.8")
1124     (source
1125      (origin
1126        (method git-fetch)
1127        (uri (git-reference
1128              (url "https://github.com/trivial-features/trivial-features.git")
1129              (commit (string-append "v" version))))
1130        (file-name (git-file-name "trivial-features" version))
1131        (sha256
1132         (base32 "0ccv7dqyrk55xga78i5vzlic7mdwp28in3g1a8fqhlk6626scsq9"))))
1133     (build-system asdf-build-system/sbcl)
1134     (arguments '(#:tests? #f))
1135     (home-page "http://cliki.net/trivial-features")
1136     (synopsis "Ensures consistency of @code{*FEATURES*} in Common Lisp")
1137     (description "Trivial-features ensures that @code{*FEATURES*} is
1138 consistent across multiple Common Lisp implementations.")
1139     (license license:expat)))
1140
1141 (define-public cl-trivial-features
1142   (sbcl-package->cl-source-package sbcl-trivial-features))
1143
1144 (define-public ecl-trivial-features
1145   (sbcl-package->ecl-package sbcl-trivial-features))
1146
1147 (define-public sbcl-hu.dwim.asdf
1148   (package
1149     (name "sbcl-hu.dwim.asdf")
1150     (version "20190521")
1151     (source
1152      (origin
1153        (method url-fetch)
1154        (uri (string-append "http://beta.quicklisp.org/archive/hu.dwim.asdf/"
1155                            "2019-05-21/hu.dwim.asdf-" version "-darcs.tgz"))
1156        (sha256
1157         (base32
1158          "0rsbv71vyszy8w35yjwb5h6zcmknjq223hkzir79y72qdsc6sabn"))))
1159     (build-system asdf-build-system/sbcl)
1160     (home-page "https://hub.darcs.net/hu.dwim/hu.dwim.asdf")
1161     (synopsis "Extensions to ASDF")
1162     (description "Various ASDF extensions such as attached test and
1163 documentation system, explicit development support, etc.")
1164     (license license:public-domain)))
1165
1166 (define-public cl-hu.dwim.asdf
1167   (sbcl-package->cl-source-package sbcl-hu.dwim.asdf))
1168
1169 (define-public ecl-hu.dwim.asdf
1170   (sbcl-package->ecl-package sbcl-hu.dwim.asdf))
1171
1172 (define-public sbcl-hu.dwim.stefil
1173   (let ((commit "ab6d1aa8995878a1b66d745dfd0ba021090bbcf9"))
1174     (package
1175       (name "sbcl-hu.dwim.stefil")
1176       (version (git-version "0.0.0" "1" commit))
1177       (source
1178        (origin
1179          (method git-fetch)
1180          (uri
1181           (git-reference
1182            (url "https://gitlab.common-lisp.net/xcvb/hu.dwim.stefil.git")
1183            (commit commit)))
1184          (sha256
1185           (base32 "1d8yccw65zj3zh46cbi3x6nmn1dwdb76s9d0av035077mvyirqqp"))
1186          (file-name (git-file-name "hu.dwim.stefil" version))))
1187       (build-system asdf-build-system/sbcl)
1188       (native-inputs
1189        `(("asdf:cl-hu.dwim.asdf" ,sbcl-hu.dwim.asdf)))
1190       (inputs
1191        `(("sbcl-alexandria" ,sbcl-alexandria)))
1192       (home-page "https://hub.darcs.net/hu.dwim/hu.dwim.stefil")
1193       (synopsis "Simple test framework")
1194       (description "Stefil is a simple test framework for Common Lisp,
1195 with a focus on interactive development.")
1196       (license license:public-domain))))
1197
1198 (define-public cl-hu.dwim.stefil
1199   (sbcl-package->cl-source-package sbcl-hu.dwim.stefil))
1200
1201 (define-public ecl-hu.dwim.stefil
1202   (sbcl-package->ecl-package sbcl-hu.dwim.stefil))
1203
1204 (define-public sbcl-babel
1205   (package
1206     (name "sbcl-babel")
1207     (version "0.5.0")
1208     (source
1209      (origin
1210        (method git-fetch)
1211        (uri (git-reference
1212              (url "https://github.com/cl-babel/babel.git")
1213              (commit (string-append "v" version))))
1214        (file-name (git-file-name "babel" version))
1215        (sha256
1216         (base32 "139a8rn2gnhj082n8jg01gc8fyr63hkj57hgrnmb3d1r327yc77f"))))
1217     (build-system asdf-build-system/sbcl)
1218     (native-inputs
1219      `(("tests:cl-hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
1220     (inputs
1221      `(("sbcl-alexandria" ,sbcl-alexandria)
1222        ("sbcl-trivial-features" ,sbcl-trivial-features)))
1223     (home-page "https://common-lisp.net/project/babel/")
1224     (synopsis "Charset encoding and decoding library")
1225     (description "Babel is a charset encoding and decoding library, not unlike
1226 GNU libiconv, but completely written in Common Lisp.")
1227     (license license:expat)))
1228
1229 (define-public cl-babel
1230   (sbcl-package->cl-source-package sbcl-babel))
1231
1232 (define-public ecl-babel
1233   (sbcl-package->ecl-package sbcl-babel))
1234
1235 (define-public sbcl-cl-yacc
1236   (package
1237     (name "sbcl-cl-yacc")
1238     (version "0.3")
1239     (source
1240      (origin
1241        (method git-fetch)
1242        (uri (git-reference
1243              (url "https://github.com/jech/cl-yacc")
1244              (commit (string-append "cl-yacc-" version))))
1245        (sha256
1246         (base32
1247          "16946pzf8vvadnyfayvj8rbh4zjzw90h0azz2qk1mxrvhh5wklib"))
1248        (file-name (string-append "cl-yacc-" version "-checkout"))))
1249     (build-system asdf-build-system/sbcl)
1250     (arguments
1251      `(#:asd-file "yacc.asd"
1252        #:asd-system-name "yacc"))
1253     (synopsis "LALR(1) parser generator for Common Lisp, similar in spirit to Yacc")
1254     (description
1255      "CL-Yacc is a LALR(1) parser generator for Common Lisp, similar in spirit
1256 to AT&T Yacc, Berkeley Yacc, GNU Bison, Zebu, lalr.cl or lalr.scm.
1257
1258 CL-Yacc uses the algorithm due to Aho and Ullman, which is the one also used
1259 by AT&T Yacc, Berkeley Yacc and Zebu.  It does not use the faster algorithm due
1260 to DeRemer and Pennello, which is used by Bison and lalr.scm (not lalr.cl).")
1261     (home-page "https://www.irif.fr/~jch//software/cl-yacc/")
1262     (license license:expat)))
1263
1264 (define-public cl-yacc
1265   (sbcl-package->cl-source-package sbcl-cl-yacc))
1266
1267 (define-public ecl-cl-yacc
1268   (sbcl-package->ecl-package sbcl-cl-yacc))
1269
1270 (define-public sbcl-jpl-util
1271   (let ((commit "0311ed374e19a49d43318064d729fe3abd9a3b62"))
1272     (package
1273       (name "sbcl-jpl-util")
1274       (version "20151005")
1275       (source
1276        (origin
1277          (method git-fetch)
1278          (uri (git-reference
1279                ;; Quicklisp uses this fork.
1280                (url "https://github.com/hawkir/cl-jpl-util")
1281                (commit commit)))
1282          (file-name
1283           (git-file-name "jpl-util" version))
1284          (sha256
1285           (base32
1286            "0nc0rk9n8grkg3045xsw34whmcmddn2sfrxki4268g7kpgz0d2yz"))))
1287       (build-system asdf-build-system/sbcl)
1288       (synopsis "Collection of Common Lisp utility functions and macros")
1289       (description
1290        "@command{cl-jpl-util} is a collection of Common Lisp utility functions
1291 and macros, primarily for software projects written in CL by the author.")
1292       (home-page "https://www.thoughtcrime.us/software/cl-jpl-util/")
1293       (license license:isc))))
1294
1295 (define-public cl-jpl-util
1296   (sbcl-package->cl-source-package sbcl-jpl-util))
1297
1298 (define-public ecl-jpl-util
1299   (sbcl-package->ecl-package sbcl-jpl-util))
1300
1301 (define-public sbcl-jpl-queues
1302   (package
1303     (name "sbcl-jpl-queues")
1304     (version "0.1")
1305     (source
1306      (origin
1307        (method url-fetch)
1308        (uri (string-append
1309              "http://www.thoughtcrime.us/software/jpl-queues/jpl-queues-"
1310              version
1311              ".tar.gz"))
1312        (sha256
1313         (base32
1314          "1wvvv7j117h9a42qaj1g4fh4mji28xqs7s60rn6d11gk9jl76h96"))))
1315     (build-system asdf-build-system/sbcl)
1316     (inputs
1317      `(("jpl-util" ,sbcl-jpl-util)
1318        ("bordeaux-threads" ,sbcl-bordeaux-threads)))
1319     (arguments
1320      ;; Tests seem to be broken.
1321      `(#:tests? #f))
1322     (synopsis "Common Lisp library implementing a few different kinds of queues")
1323     (description
1324      "A Common Lisp library implementing a few different kinds of queues:
1325
1326 @itemize
1327 @item Bounded and unbounded FIFO queues.
1328 @item Lossy bounded FIFO queues that drop elements when full.
1329 @item Unbounded random-order queues that use less memory than unbounded FIFO queues.
1330 @end itemize
1331
1332 Additionally, a synchronization wrapper is provided to make any queue
1333 conforming to the @command{jpl-queues} API thread-safe for lightweight
1334 multithreading applications.  (See Calispel for a more sophisticated CL
1335 multithreaded message-passing library with timeouts and alternation among
1336 several blockable channels.)")
1337     (home-page "https://www.thoughtcrime.us/software/jpl-queues/")
1338     (license license:isc)))
1339
1340 (define-public cl-jpl-queues
1341   (sbcl-package->cl-source-package sbcl-jpl-queues))
1342
1343 (define-public ecl-jpl-queues
1344   (sbcl-package->ecl-package sbcl-jpl-queues))
1345
1346 (define-public sbcl-eos
1347   (let ((commit "b0faca83781ead9a588661e37bd47f90362ccd94"))
1348     (package
1349       (name "sbcl-eos")
1350       (version (git-version "0.0.0" "1" commit))
1351       (source
1352        (origin
1353          (method git-fetch)
1354          (uri (git-reference
1355                (url "https://github.com/adlai/Eos")
1356                (commit commit)))
1357          (sha256
1358           (base32
1359            "1bq8cfg087iyxmxi1mwgx5cfgy3b8ydrf81xljcis8qbgb2vszph"))
1360          (file-name (git-file-name "eos" version))))
1361       (build-system asdf-build-system/sbcl)
1362       (synopsis "Unit Testing for Common Lisp")
1363       (description
1364        "Eos was a unit testing library for Common Lisp.
1365 It began as a fork of FiveAM; however, FiveAM development has continued, while
1366 that of Eos has not.  Thus, Eos is now deprecated in favor of FiveAM.")
1367       (home-page "https://github.com/adlai/Eos")
1368       (license license:expat))))
1369
1370 (define-public cl-eos
1371   (sbcl-package->cl-source-package sbcl-eos))
1372
1373 (define-public ecl-eos
1374   (sbcl-package->ecl-package sbcl-eos))
1375
1376 (define-public sbcl-esrap
1377   (let ((commit "133be8b05c2aae48696fe5b739eea2fa573fa48d"))
1378     (package
1379       (name "sbcl-esrap")
1380       (version (git-version "0.0.0" "1" commit))
1381       (source
1382        (origin
1383          (method git-fetch)
1384          (uri (git-reference
1385                (url "https://github.com/nikodemus/esrap")
1386                (commit commit)))
1387          (sha256
1388           (base32
1389            "02d5clihsdryhf7pix8c5di2571fdsffh75d40fkzhws90r5mksl"))
1390          (file-name (git-file-name "esrap" version))))
1391       (build-system asdf-build-system/sbcl)
1392       (native-inputs
1393        `(("eos" ,sbcl-eos)))            ;For testing only.
1394       (inputs
1395        `(("alexandria" ,sbcl-alexandria)))
1396       (synopsis "Common Lisp packrat parser")
1397       (description
1398        "A packrat parser for Common Lisp.
1399 In addition to regular Packrat / Parsing Grammar / TDPL features ESRAP supports:
1400
1401 @itemize
1402 @item dynamic redefinition of nonterminals
1403 @item inline grammars
1404 @item semantic predicates
1405 @item introspective facilities (describing grammars, tracing, setting breaks)
1406 @end itemize\n")
1407       (home-page "https://nikodemus.github.io/esrap/")
1408       (license license:expat))))
1409
1410 (define-public cl-esrap
1411   (sbcl-package->cl-source-package sbcl-esrap))
1412
1413 (define-public ecl-esrap
1414   (sbcl-package->ecl-package sbcl-esrap))
1415
1416 (define-public sbcl-split-sequence
1417   (package
1418     (name "sbcl-split-sequence")
1419     (version "2.0.0")
1420     (source
1421      (origin
1422        (method git-fetch)
1423        (uri (git-reference
1424              (url "https://github.com/sharplispers/split-sequence")
1425              (commit (string-append "v" version))))
1426        (sha256
1427         (base32
1428          "0jcpnx21hkfwqj5fvp7kc6pn1qcz9hk7g2s5x8h0349x1j2irln0"))
1429        (file-name (git-file-name "split-sequence" version))))
1430     (build-system asdf-build-system/sbcl)
1431     (native-inputs
1432      `(("fiveam" ,sbcl-fiveam)))
1433     (synopsis "Member of the Common Lisp Utilities family of programs")
1434     (description
1435      "Splits sequence into a list of subsequences delimited by objects
1436 satisfying the test.")
1437     (home-page "https://cliki.net/split-sequence")
1438     (license license:expat)))
1439
1440 (define-public cl-split-sequence
1441   (sbcl-package->cl-source-package sbcl-split-sequence))
1442
1443 (define-public ecl-split-sequence
1444   (sbcl-package->ecl-package sbcl-split-sequence))
1445
1446 (define-public sbcl-html-encode
1447   (package
1448     (name "sbcl-html-encode")
1449     (version "1.2")
1450     (source
1451      (origin
1452        (method url-fetch)
1453        (uri (string-append
1454              "http://beta.quicklisp.org/archive/html-encode/2010-10-06/html-encode-"
1455              version ".tgz"))
1456        (sha256
1457         (base32
1458          "06mf8wn95yf5swhmzk4vp0xr4ylfl33dgfknkabbkd8n6jns8gcf"))
1459        (file-name (string-append "colorize" version "-checkout"))))
1460     (build-system asdf-build-system/sbcl)
1461     (synopsis "Common Lisp library for encoding text in various web-savvy encodings")
1462     (description
1463      "A library for encoding text in various web-savvy encodings.")
1464     (home-page "http://quickdocs.org/html-encode/")
1465     (license license:expat)))
1466
1467 (define-public cl-html-encode
1468   (sbcl-package->cl-source-package sbcl-html-encode))
1469
1470 (define-public ecl-html-encode
1471   (sbcl-package->ecl-package sbcl-html-encode))
1472
1473 (define-public sbcl-colorize
1474   (let ((commit "ea676b584e0899cec82f21a9e6871172fe3c0eb5"))
1475     (package
1476       (name "sbcl-colorize")
1477       (version (git-version "0.0.0" "1" commit))
1478       (source
1479        (origin
1480          (method git-fetch)
1481          (uri (git-reference
1482                (url "https://github.com/kingcons/colorize")
1483                (commit commit)))
1484          (sha256
1485           (base32
1486            "1pdg4kiaczmr3ivffhirp7m3lbr1q27rn7dhaay0vwghmi31zcw9"))
1487          (file-name (git-file-name "colorize" version))))
1488       (build-system asdf-build-system/sbcl)
1489       (inputs
1490        `(("alexandria" ,sbcl-alexandria)
1491          ("split-sequence" ,sbcl-split-sequence)
1492          ("html-encode" ,sbcl-html-encode)))
1493       (synopsis "Common Lisp for syntax highlighting")
1494       (description
1495        "@command{colorize} is a Lisp library for syntax highlighting
1496 supporting the following languages: Common Lisp, Emacs Lisp, Scheme, Clojure,
1497 C, C++, Java, Python, Erlang, Haskell, Objective-C, Diff, Webkit.")
1498       (home-page "https://github.com/kingcons/colorize")
1499       ;; TODO: Missing license?
1500       (license license:expat))))
1501
1502 (define-public cl-colorize
1503   (sbcl-package->cl-source-package sbcl-colorize))
1504
1505 (define-public ecl-colorize
1506   (sbcl-package->ecl-package sbcl-colorize))
1507
1508 (define-public sbcl-3bmd
1509   (let ((commit "192ea13435b605a96ef607df51317056914cabbd"))
1510     (package
1511       (name "sbcl-3bmd")
1512       (version (git-version "0.0.0" "1" commit))
1513       (source
1514        (origin
1515          (method git-fetch)
1516          (uri (git-reference
1517                (url "https://github.com/3b/3bmd")
1518                (commit commit)))
1519          (sha256
1520           (base32
1521            "1rgv3gi7wf963ikmmpk132wgn0icddf226gq3bmcnk1fr3v9gf2f"))
1522          (file-name (git-file-name "3bmd" version))))
1523       (build-system asdf-build-system/sbcl)
1524       (arguments
1525        ;; FIXME: We need to specify the name because the build-system thinks
1526        ;; "3" is a version marker.
1527        `(#:asd-system-name "3bmd"))
1528       (inputs
1529        `(("esrap" ,sbcl-esrap)
1530          ("split-sequence" ,sbcl-split-sequence)))
1531       (synopsis "Markdown processor in Command Lisp using esrap parser")
1532       (description
1533        "Common Lisp Markdown -> HTML converter, using @command{esrap} for
1534 parsing, and grammar based on @command{peg-markdown}.")
1535       (home-page "https://github.com/3b/3bmd")
1536       (license license:expat))))
1537
1538 (define-public cl-3bmd
1539   (sbcl-package->cl-source-package sbcl-3bmd))
1540
1541 (define-public ecl-3bmd
1542   (sbcl-package->ecl-package sbcl-3bmd))
1543
1544 (define-public sbcl-3bmd-ext-code-blocks
1545   (let ((commit "192ea13435b605a96ef607df51317056914cabbd"))
1546     (package
1547       (inherit sbcl-3bmd)
1548       (name "sbcl-3bmd-ext-code-blocks")
1549       (arguments
1550        `(#:asd-system-name "3bmd-ext-code-blocks"
1551          #:asd-file "3bmd-ext-code-blocks.asd"))
1552       (inputs
1553        `(("3bmd" ,sbcl-3bmd)
1554          ("colorize" ,sbcl-colorize)))
1555       (synopsis "3bmd extension which adds support for GitHub-style fenced
1556 code blocks")
1557       (description
1558        "3bmd extension which adds support for GitHub-style fenced code blocks,
1559 with @command{colorize} support."))))
1560
1561 (define-public cl-3bmd-ext-code-blocks
1562   (sbcl-package->cl-source-package sbcl-3bmd-ext-code-blocks))
1563
1564 (define-public ecl-3bmd-ext-code-blocks
1565   (sbcl-package->ecl-package sbcl-3bmd-ext-code-blocks))
1566
1567 (define-public sbcl-cl-fad
1568   (package
1569     (name "sbcl-cl-fad")
1570     (version "0.7.6")
1571     (source
1572      (origin
1573        (method git-fetch)
1574        (uri (git-reference
1575              (url "https://github.com/edicl/cl-fad/")
1576              (commit (string-append "v" version))))
1577        (sha256
1578         (base32
1579          "1gc8i82v6gks7g0lnm54r4prk2mklidv2flm5fvbr0a7rsys0vpa"))
1580        (file-name (string-append "cl-fad" version "-checkout"))))
1581     (build-system asdf-build-system/sbcl)
1582     (inputs
1583      `(("bordeaux-threads" ,sbcl-bordeaux-threads)))
1584     (synopsis "Portable pathname library for Common Lisp")
1585     (description
1586      "CL-FAD (for \"Files and Directories\") is a thin layer atop Common
1587 Lisp's standard pathname functions.  It is intended to provide some
1588 unification between current CL implementations on Windows, OS X, Linux, and
1589 Unix.  Most of the code was written by Peter Seibel for his book Practical
1590 Common Lisp.")
1591     (home-page "https://edicl.github.io/cl-fad/")
1592     (license license:bsd-2)))
1593
1594 (define-public cl-fad
1595   (sbcl-package->cl-source-package sbcl-cl-fad))
1596
1597 (define-public ecl-cl-fad
1598   (sbcl-package->ecl-package sbcl-cl-fad))
1599
1600 (define-public sbcl-rt
1601   (package
1602     (name "sbcl-rt")
1603     (version "1990.12.19")
1604     (source
1605      (origin
1606        (method url-fetch)
1607        (uri (string-append "http://beta.quicklisp.org/archive/rt/2010-10-06/rt-"
1608                            "20101006-git" ".tgz"))
1609        (sha256
1610         (base32
1611          "1jncar0xwkqk8yrc2dln389ivvgzs7ijdhhs3zpfyi5d21f0qa1v"))))
1612     (build-system asdf-build-system/sbcl)
1613     (synopsis "MIT Regression Tester")
1614     (description
1615      "RT provides a framework for writing regression test suites.")
1616     (home-page "https://github.com/sharplispers/nibbles")
1617     (license license:unlicense)))
1618
1619 (define-public cl-rt
1620   (sbcl-package->cl-source-package sbcl-rt))
1621
1622 (define-public ecl-rt
1623   (sbcl-package->ecl-package sbcl-rt))
1624
1625 (define-public sbcl-nibbles
1626   (package
1627     (name "sbcl-nibbles")
1628     (version "0.14")
1629     (source
1630      (origin
1631        (method git-fetch)
1632        (uri (git-reference
1633              (url "https://github.com/sharplispers/nibbles/")
1634              (commit (string-append "v" version))))
1635        (sha256
1636         (base32
1637          "1v7qfgpvdr6nz7v63dj69d26dis0kff3rd8xamr1llfdvza2pm8f"))
1638        (file-name (git-file-name "nibbles" version))))
1639     (build-system asdf-build-system/sbcl)
1640     (native-inputs
1641      ;; Tests only.
1642      `(("rt" ,sbcl-rt)))
1643     (synopsis "Common Lisp library for accessing octet-addressed blocks of data")
1644     (description
1645      "When dealing with network protocols and file formats, it's common to
1646 have to read or write 16-, 32-, or 64-bit datatypes in signed or unsigned
1647 flavors.  Common Lisp sort of supports this by specifying :element-type for
1648 streams, but that facility is underspecified and there's nothing similar for
1649 read/write from octet vectors.  What most people wind up doing is rolling their
1650 own small facility for their particular needs and calling it a day.
1651
1652 This library attempts to be comprehensive and centralize such
1653 facilities.  Functions to read 16-, 32-, and 64-bit quantities from octet
1654 vectors in signed or unsigned flavors are provided; these functions are also
1655 SETFable.  Since it's sometimes desirable to read/write directly from streams,
1656 functions for doing so are also provided.  On some implementations,
1657 reading/writing IEEE singles/doubles (i.e. single-float and double-float) will
1658 also be supported.")
1659     (home-page "https://github.com/sharplispers/nibbles")
1660     (license license:bsd-3)))
1661
1662 (define-public cl-nibbles
1663   (sbcl-package->cl-source-package sbcl-nibbles))
1664
1665 (define-public ecl-nibbles
1666   (sbcl-package->ecl-package sbcl-nibbles))
1667
1668 (define-public sbcl-ironclad
1669   (package
1670     (name "sbcl-ironclad")
1671     (version "0.48")
1672     (source
1673      (origin
1674        (method git-fetch)
1675        (uri (git-reference
1676              (url "https://github.com/sharplispers/ironclad/")
1677              (commit (string-append "v" version))))
1678        (sha256
1679         (base32
1680          "1wzczpgvgjc5h8ghz75kxi7iykmqxqchdhgdhkif9j99kyqvbyam"))
1681        (file-name (git-file-name name version))))
1682     (build-system asdf-build-system/sbcl)
1683     (native-inputs
1684      ;; Tests only.
1685      `(("rt" ,sbcl-rt)))
1686     (inputs
1687      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
1688        ("flexi-streams" ,sbcl-flexi-streams)))
1689     (synopsis "Cryptographic toolkit written in Common Lisp")
1690     (description
1691      "Ironclad is a cryptography library written entirely in Common Lisp.
1692 It includes support for several popular ciphers, digests, MACs and public key
1693 cryptography algorithms.  For several implementations that support Gray
1694 streams, support is included for convenient stream wrappers.")
1695     (home-page "https://github.com/sharplispers/ironclad")
1696     (license license:bsd-3)))
1697
1698 (define-public cl-ironclad
1699   (sbcl-package->cl-source-package sbcl-ironclad))
1700
1701 (define-public ecl-ironclad
1702   (sbcl-package->ecl-package sbcl-ironclad))
1703
1704 (define-public sbcl-named-readtables
1705   (let ((commit "4dfb89fa1af6b305b6492b8af042f5190c11e9fc")
1706         (revision "1"))
1707     (package
1708       (name "sbcl-named-readtables")
1709       (version (string-append "0.9-" revision "." (string-take commit 7)))
1710       (source
1711        (origin
1712          (method git-fetch)
1713          (uri (git-reference
1714                (url "https://github.com/melisgl/named-readtables.git")
1715                (commit commit)))
1716          (sha256
1717           (base32 "083kgh5462iqbb4px6kq8s7sggvpvkm36hx4qi9rnaw53b6ilqkk"))
1718          (file-name (git-file-name "named-readtables" version))))
1719       (build-system asdf-build-system/sbcl)
1720       (arguments
1721        ;; Tests seem to be broken.
1722        `(#:tests? #f))
1723       (home-page "https://github.com/melisgl/named-readtables/")
1724       (synopsis "Library that creates a namespace for named readtables")
1725       (description "Named readtables is a library that creates a namespace for
1726 named readtables, which is akin to package namespacing in Common Lisp.")
1727       (license license:bsd-3))))
1728
1729 (define-public cl-named-readtables
1730   (sbcl-package->cl-source-package sbcl-named-readtables))
1731
1732 (define-public ecl-named-readtables
1733   (sbcl-package->ecl-package sbcl-named-readtables))
1734
1735 (define-public sbcl-pythonic-string-reader
1736   (let ((commit "47a70ba1e32362e03dad6ef8e6f36180b560f86a"))
1737     (package
1738       (name "sbcl-pythonic-string-reader")
1739       (version (git-version "0.0.0" "1" commit))
1740       (source
1741        (origin
1742          (method git-fetch)
1743          (uri (git-reference
1744                (url "https://github.com/smithzvk/pythonic-string-reader/")
1745                (commit commit)))
1746          (sha256
1747           (base32 "1b5iryqw8xsh36swckmz8rrngmc39k92si33fgy5pml3n9l5rq3j"))
1748          (file-name (git-file-name "pythonic-string-reader" version))))
1749       (build-system asdf-build-system/sbcl)
1750       (inputs
1751        `(("named-readtables" ,sbcl-named-readtables)))
1752       (home-page "https://github.com/smithzvk/pythonic-string-reader")
1753       (synopsis "Read table modification inspired by Python's three quote strings")
1754       (description "This piece of code sets up some reader macros that make it
1755 simpler to input string literals which contain backslashes and double quotes
1756 This is very useful for writing complicated docstrings and, as it turns out,
1757 writing code that contains string literals that contain code themselves.")
1758       (license license:bsd-3))))
1759
1760 (define-public cl-pythonic-string-reader
1761   (sbcl-package->cl-source-package sbcl-pythonic-string-reader))
1762
1763 (define-public ecl-pythonic-string-reader
1764   (sbcl-package->ecl-package sbcl-pythonic-string-reader))
1765
1766 ;; SLIME does not have a ASDF system definition to build all of Swank.  As a
1767 ;; result, the asdf-build-system/sbcl will produce an almost empty package.
1768 ;; Some work was done to fix this at
1769 ;; https://github.com/sionescu/slime/tree/swank-asdf but it was never merged
1770 ;; and is now lagging behind.  Building SBCL fasls might not be worth the
1771 ;; hassle, so let's just ship the source then.
1772 (define-public cl-slime-swank
1773   (package
1774     (name "cl-slime-swank")
1775     (version "2.24")
1776     (source
1777      (origin
1778        (file-name (string-append name "-" version ".tar.gz"))
1779        (method git-fetch)
1780        (uri (git-reference
1781              (url "https://github.com/slime/slime/")
1782              (commit (string-append "v" version))))
1783        (sha256
1784         (base32
1785          "0js24x42m7b5iymb4rxz501dff19vav5pywnzv50b673rbkaaqvh"))))
1786     (build-system asdf-build-system/source)
1787     (home-page "https://github.com/slime/slime")
1788     (synopsis "Common Lisp Swank server")
1789     (description
1790      "This is only useful if you want to start a Swank server in a Lisp
1791 processes that doesn't run under Emacs.  Lisp processes created by
1792 @command{M-x slime} automatically start the server.")
1793     (license (list license:gpl2+ license:public-domain))))
1794
1795 (define-public sbcl-slime-swank
1796   (deprecated-package "sbcl-slime-swank" cl-slime-swank))
1797
1798 (define-public sbcl-mgl-pax
1799   (let ((commit "818448418d6b9de74620f606f5b23033c6082769"))
1800     (package
1801       (name "sbcl-mgl-pax")
1802       (version (git-version "0.0.0" "1" commit))
1803       (source
1804        (origin
1805          (method git-fetch)
1806          (uri (git-reference
1807                (url "https://github.com/melisgl/mgl-pax")
1808                (commit commit)))
1809          (sha256
1810           (base32
1811            "1p97zfkh130bdxqqxwaw2j9psv58751wakx7czbfpq410lg7dd7i"))
1812          (file-name (git-file-name "mgl-pax" version))))
1813       (build-system asdf-build-system/sbcl)
1814       (inputs
1815        `(("3bmd" ,sbcl-3bmd)
1816          ("3bmd-ext-code-blocks" ,sbcl-3bmd-ext-code-blocks)
1817          ("babel" ,sbcl-babel)
1818          ("cl-fad" ,sbcl-cl-fad)
1819          ("ironclad" ,sbcl-ironclad)
1820          ("named-readtables" ,sbcl-named-readtables)
1821          ("pythonic-string-reader" ,sbcl-pythonic-string-reader)))
1822       (propagated-inputs
1823        ;; Packages having mgl-pax as input complain that it can't find
1824        ;; swank if we put it in inputs, so let's put it in propageted-inputs.
1825        `(("swank" ,cl-slime-swank)))
1826       (synopsis "Exploratory programming environment and documentation generator")
1827       (description
1828        "PAX provides an extremely poor man's Explorable Programming
1829 environment.  Narrative primarily lives in so called sections that mix markdown
1830 docstrings with references to functions, variables, etc, all of which should
1831 probably have their own docstrings.
1832
1833 The primary focus is on making code easily explorable by using SLIME's
1834 @command{M-.} (@command{slime-edit-definition}).  See how to enable some
1835 fanciness in Emacs Integration.  Generating documentation from sections and all
1836 the referenced items in Markdown or HTML format is also implemented.
1837
1838 With the simplistic tools provided, one may accomplish similar effects as with
1839 Literate Programming, but documentation is generated from code, not vice versa
1840 and there is no support for chunking yet.  Code is first, code must look
1841 pretty, documentation is code.")
1842       (home-page "http://quotenil.com/")
1843       (license license:expat))))
1844
1845 (define-public cl-mgl-pax
1846   (sbcl-package->cl-source-package sbcl-mgl-pax))
1847
1848 (define-public ecl-mgl-pax
1849   (sbcl-package->ecl-package sbcl-mgl-pax))
1850
1851 (define-public sbcl-lisp-unit
1852   (let ((commit "89653a232626b67400bf9a941f9b367da38d3815"))
1853     (package
1854       (name "sbcl-lisp-unit")
1855       (version (git-version "0.0.0" "1" commit))
1856       (source
1857        (origin
1858          (method git-fetch)
1859          (uri (git-reference
1860                (url "https://github.com/OdonataResearchLLC/lisp-unit")
1861                (commit commit)))
1862          (sha256
1863           (base32
1864            "0p6gdmgr7p383nvd66c9y9fp2bjk4jx1lpa5p09g43hr9y9pp9ry"))
1865          (file-name (git-file-name "lisp-unit" version))))
1866       (build-system asdf-build-system/sbcl)
1867       (synopsis "Common Lisp Test framework inspired by JUnit to be simple of use")
1868       (description
1869        "@command{lisp-unit} is a Common Lisp library that supports unit
1870 testing.  It is an extension of the library written by Chris Riesbeck.")
1871       (home-page "https://github.com/OdonataResearchLLC/lisp-unit")
1872       (license license:expat))))
1873
1874 (define-public cl-lisp-unit
1875   (sbcl-package->cl-source-package sbcl-lisp-unit))
1876
1877 (define-public ecl-lisp-unit
1878   (sbcl-package->ecl-package sbcl-lisp-unit))
1879
1880 (define-public sbcl-anaphora
1881   (package
1882     (name "sbcl-anaphora")
1883     (version "0.9.6")
1884     (source
1885      (origin
1886        (method git-fetch)
1887        (uri (git-reference
1888              (url "https://github.com/tokenrove/anaphora")
1889              (commit version)))
1890        (sha256
1891         (base32
1892          "19wfrk3asimznkli0x2rfy637hwpdgqyvwj3vhq9x7vjvyf5vv6x"))
1893        (file-name (git-file-name "anaphora" version))))
1894     (build-system asdf-build-system/sbcl)
1895     (native-inputs
1896      `(("rt" ,sbcl-rt)))
1897     (synopsis "The anaphoric macro collection from Hell")
1898     (description
1899      "Anaphora is the anaphoric macro collection from Hell: it includes many
1900 new fiends in addition to old friends like @command{aif} and
1901 @command{awhen}.")
1902     (home-page "https://github.com/tokenrove/anaphora")
1903     (license license:public-domain)))
1904
1905 (define-public cl-anaphora
1906   (sbcl-package->cl-source-package sbcl-anaphora))
1907
1908 (define-public ecl-anaphora
1909   (sbcl-package->ecl-package sbcl-anaphora))
1910
1911 (define-public sbcl-lift
1912   (let ((commit "7d49a66c62759535624037826891152223d4206c"))
1913     (package
1914       (name "sbcl-lift")
1915       (version (git-version "1.7.1" "1" commit))
1916       (source
1917        (origin
1918          (method git-fetch)
1919          (uri (git-reference
1920                (url "https://github.com/gwkkwg/lift")
1921                (commit commit)))
1922          (sha256
1923           (base32
1924            "127v5avpz1i4m0lkaxqrq8hrl69rdazqaxf6s8awf0nd7wj2g4dp"))
1925          (file-name (git-file-name "lift" version))
1926          (modules '((guix build utils)))
1927          (snippet
1928           ;; Don't keep the bundled website
1929           `(begin
1930              (delete-file-recursively "website")
1931              #t))))
1932       (build-system asdf-build-system/sbcl)
1933       (arguments
1934        ;; The tests require a debugger, but we run with the debugger disabled.
1935        '(#:tests? #f))
1936       (synopsis "LIsp Framework for Testing")
1937       (description
1938        "The LIsp Framework for Testing (LIFT) is a unit and system test tool for LISP.
1939 Though inspired by SUnit and JUnit, it's built with Lisp in mind.  In LIFT,
1940 testcases are organized into hierarchical testsuites each of which can have
1941 its own fixture.  When run, a testcase can succeed, fail, or error.  LIFT
1942 supports randomized testing, benchmarking, profiling, and reporting.")
1943       (home-page "https://github.com/gwkkwg/lift")
1944       (license license:expat))))
1945
1946 (define-public cl-lift
1947   (sbcl-package->cl-source-package sbcl-lift))
1948
1949 (define-public ecl-lift
1950   (sbcl-package->ecl-package sbcl-lift))
1951
1952 (define-public sbcl-let-plus
1953   (let ((commit "5f14af61d501ecead02ec6b5a5c810efc0c9fdbb"))
1954     (package
1955       (name "sbcl-let-plus")
1956       (version (git-version "0.0.0" "1" commit))
1957       (source
1958        (origin
1959          (method git-fetch)
1960          (uri (git-reference
1961                (url "https://github.com/sharplispers/let-plus")
1962                (commit commit)))
1963          (sha256
1964           (base32
1965            "0i050ca2iys9f5mb7dgqgqdxfnc3b0rnjdwv95sqd490vkiwrsaj"))
1966          (file-name (git-file-name "let-plus" version))))
1967       (build-system asdf-build-system/sbcl)
1968       (inputs
1969        `(("alexandria" ,sbcl-alexandria)
1970          ("anaphora" ,sbcl-anaphora)))
1971       (native-inputs
1972        `(("lift" ,sbcl-lift)))
1973       (synopsis "Destructuring extension of let*")
1974       (description
1975        "This library implements the let+ macro, which is a dectructuring
1976 extension of let*.  It features:
1977
1978 @itemize
1979 @item Clean, consistent syntax and small implementation (less than 300 LOC,
1980 not counting tests)
1981 @item Placeholder macros allow editor hints and syntax highlighting
1982 @item @command{&ign} for ignored values (in forms where that makes sense)
1983 @item Very easy to extend
1984 @end itemize\n")
1985       (home-page "https://github.com/sharplispers/let-plus")
1986       (license license:boost1.0))))
1987
1988 (define-public cl-let-plus
1989   (sbcl-package->cl-source-package sbcl-let-plus))
1990
1991 (define-public ecl-let-plus
1992   (sbcl-package->ecl-package sbcl-let-plus))
1993
1994 (define-public sbcl-cl-colors
1995   (let ((commit "827410584553f5c717eec6182343b7605f707f75"))
1996     (package
1997       (name "sbcl-cl-colors")
1998       (version (git-version "0.0.0" "1" commit))
1999       (source
2000        (origin
2001          (method git-fetch)
2002          (uri (git-reference
2003                (url "https://github.com/tpapp/cl-colors")
2004                (commit commit)))
2005          (sha256
2006           (base32
2007            "0l446lday4hybsm9bq3jli97fvv8jb1d33abg79vbylpwjmf3y9a"))
2008          (file-name (git-file-name "cl-colors" version))))
2009       (build-system asdf-build-system/sbcl)
2010       (inputs
2011        `(("alexandria" ,sbcl-alexandria)
2012          ("let-plus" ,sbcl-let-plus)))
2013       (synopsis "Simple color library for Common Lisp")
2014       (description
2015        "This is a very simple color library for Common Lisp, providing
2016
2017 @itemize
2018 @item Types for representing colors in HSV and RGB spaces.
2019 @item Simple conversion functions between the above types (and also
2020 hexadecimal representation for RGB).
2021 @item Some predefined colors (currently X11 color names – of course the
2022 library does not depend on X11).Because color in your terminal is nice.
2023 @end itemize
2024
2025 This library is no longer supported by its author.")
2026       (home-page "https://github.com/tpapp/cl-colors")
2027       (license license:boost1.0))))
2028
2029 (define-public cl-colors
2030   (sbcl-package->cl-source-package sbcl-cl-colors))
2031
2032 (define-public ecl-cl-colors
2033   (sbcl-package->ecl-package sbcl-cl-colors))
2034
2035 (define-public sbcl-cl-ansi-text
2036   (let ((commit "53badf7878f27f22f2d4a2a43e6df458e43acbe9"))
2037     (package
2038       (name "sbcl-cl-ansi-text")
2039       (version (git-version "1.0.0" "1" commit))
2040       (source
2041        (origin
2042          (method git-fetch)
2043          (uri (git-reference
2044                (url "https://github.com/pnathan/cl-ansi-text")
2045                (commit commit)))
2046          (sha256
2047           (base32
2048            "11i27n0dbz5lmygiw65zzr8lx0rac6b6yysqranphn31wls6ja3v"))
2049          (file-name (git-file-name "cl-ansi-text" version))))
2050       (build-system asdf-build-system/sbcl)
2051       (inputs
2052        `(("alexandria" ,sbcl-alexandria)
2053          ("cl-colors" ,sbcl-cl-colors)))
2054       (native-inputs
2055        `(("fiveam" ,sbcl-fiveam)))
2056       (synopsis "ANSI terminal color implementation for Common Lisp")
2057       (description
2058        "@command{cl-ansi-text} provides utilities which enable printing to an
2059 ANSI terminal with colored text.  It provides the macro @command{with-color}
2060 which causes everything printed in the body to be displayed with the provided
2061 color.  It further provides functions which will print the argument with the
2062 named color.")
2063       (home-page "https://github.com/pnathan/cl-ansi-text")
2064       (license license:llgpl))))
2065
2066 (define-public cl-ansi-text
2067   (sbcl-package->cl-source-package sbcl-cl-ansi-text))
2068
2069 (define-public ecl-cl-ansi-text
2070   (sbcl-package->ecl-package sbcl-cl-ansi-text))
2071
2072 (define-public sbcl-prove-asdf
2073   (let ((commit "4f9122bd393e63c5c70c1fba23070622317cfaa0"))
2074     (package
2075       (name "sbcl-prove-asdf")
2076       (version (git-version "1.0.0" "1" commit))
2077       (source
2078        (origin
2079          (method git-fetch)
2080          (uri (git-reference
2081                (url "https://github.com/fukamachi/prove")
2082                (commit commit)))
2083          (sha256
2084           (base32
2085            "07sbfw459z8bbjvx1qlmfa8qk2mvbjnnzi2mi0x72blaj8bkl4vc"))
2086          (file-name (git-file-name "prove" version))))
2087       (build-system asdf-build-system/sbcl)
2088       (arguments
2089        `(#:asd-file "prove-asdf.asd"))
2090       (synopsis "Test requirement for the Common Lisp 'prove' library")
2091       (description
2092        "Test requirement for the Common Lisp @command{prove} library.")
2093       (home-page "https://github.com/fukamachi/prove")
2094       (license license:expat))))
2095
2096 (define-public cl-prove-asdf
2097   (sbcl-package->cl-source-package sbcl-prove-asdf))
2098
2099 (define-public ecl-prove-asdf
2100   (sbcl-package->ecl-package sbcl-prove-asdf))
2101
2102 (define-public sbcl-prove
2103   (package
2104     (inherit sbcl-prove-asdf)
2105     (name "sbcl-prove")
2106     (inputs
2107      `(("alexandria" ,sbcl-alexandria)
2108        ("cl-ppcre" ,sbcl-cl-ppcre)
2109        ("cl-ansi-text" ,sbcl-cl-ansi-text)))
2110     (native-inputs
2111      `(("prove-asdf" ,sbcl-prove-asdf)))
2112     (arguments
2113      `(#:asd-file "prove.asd"))
2114     (synopsis "Yet another unit testing framework for Common Lisp")
2115     (description
2116      "This project was originally called @command{cl-test-more}.
2117 @command{prove} is yet another unit testing framework for Common Lisp.  The
2118 advantages of @command{prove} are:
2119
2120 @itemize
2121 @item Various simple functions for testing and informative error messages
2122 @item ASDF integration
2123 @item Extensible test reporters
2124 @item Colorizes the report if it's available (note for SLIME)
2125 @item Reports test durations
2126 @end itemize\n")))
2127
2128 (define-public cl-prove
2129   (sbcl-package->cl-source-package sbcl-prove))
2130
2131 (define-public ecl-prove
2132   (sbcl-package->ecl-package sbcl-prove))
2133
2134 (define-public sbcl-proc-parse
2135   (let ((commit "ac3636834d561bdc2686c956dbd82494537285fd"))
2136     (package
2137       (name "sbcl-proc-parse")
2138       (version (git-version "0.0.0" "1" commit))
2139       (source
2140        (origin
2141          (method git-fetch)
2142          (uri (git-reference
2143                (url "https://github.com/fukamachi/proc-parse")
2144                (commit commit)))
2145          (sha256
2146           (base32
2147            "06rnl0h4cx6xv2wj3jczmmcxqn2703inmmvg1s4npbghmijsybfh"))
2148          (file-name (git-file-name "proc-parse" version))))
2149       (build-system asdf-build-system/sbcl)
2150       (inputs
2151        `(("alexandria" ,sbcl-alexandria)
2152          ("babel" ,sbcl-babel)))
2153       (native-inputs
2154        `(("prove" ,sbcl-prove)
2155          ("prove-asdf" ,sbcl-prove-asdf)))
2156       (arguments
2157        ;; TODO: Tests don't find "proc-parse-test", why?
2158        `(#:tests? #f))
2159       (synopsis "Procedural vector parser")
2160       (description
2161        "This is a string/octets parser library for Common Lisp with speed and
2162 readability in mind.  Unlike other libraries, the code is not a
2163 pattern-matching-like, but a char-by-char procedural parser.")
2164       (home-page "https://github.com/fukamachi/proc-parse")
2165       (license license:bsd-2))))
2166
2167 (define-public cl-proc-parse
2168   (sbcl-package->cl-source-package sbcl-proc-parse))
2169
2170 (define-public ecl-proc-parse
2171   (sbcl-package->ecl-package sbcl-proc-parse))
2172
2173 (define-public sbcl-parse-float
2174   (let ((commit "2aae569f2a4b2eb3bfb5401a959425dcf151b09c"))
2175     (package
2176       (name "sbcl-parse-float")
2177       (version (git-version "0.0.0" "1" commit))
2178       (source
2179        (origin
2180          (method git-fetch)
2181          (uri (git-reference
2182                (url "https://github.com/soemraws/parse-float")
2183                (commit commit)))
2184          (sha256
2185           (base32
2186            "08xw8cchhmqcc0byng69m3f5a2izc9y2290jzz2k0qrbibp1fdk7"))
2187          (file-name (git-file-name "proc-parse" version))))
2188       (build-system asdf-build-system/sbcl)
2189       (inputs
2190        `(("alexandria" ,sbcl-alexandria)
2191          ("babel" ,sbcl-babel)))
2192       (native-inputs
2193        `(("prove" ,sbcl-prove)
2194          ("prove-asdf" ,sbcl-prove-asdf)))
2195       (arguments
2196        ;; TODO: Tests don't find "proc-parse-test", why?
2197        `(#:tests? #f))
2198       (synopsis "Parse a floating point value from a string in Common Lisp")
2199       (description
2200        "This package exports the following function to parse floating-point
2201 values from a string in Common Lisp.")
2202       (home-page "https://github.com/soemraws/parse-float")
2203       (license license:public-domain))))
2204
2205 (define-public cl-parse-float
2206   (sbcl-package->cl-source-package sbcl-parse-float))
2207
2208 (define-public ecl-parse-float
2209   (sbcl-package->ecl-package sbcl-parse-float))
2210
2211 (define-public sbcl-ascii-strings
2212   (let ((revision "1")
2213         (changeset "5048480a61243e6f1b02884012c8f25cdbee6d97"))
2214     (package
2215       (name "sbcl-ascii-strings")
2216       (version (string-append "0-" revision "." (string-take changeset 7)))
2217       (source
2218        (origin
2219          (method hg-fetch)
2220          (uri (hg-reference
2221                (url "https://bitbucket.org/vityok/cl-string-match/")
2222                (changeset changeset)))
2223          (sha256
2224           (base32
2225            "01wn5qx562w43ssy92xlfgv79w7p0nv0wbl76mpmba131n9ziq2y"))
2226          (file-name (git-file-name "cl-string-match" version))))
2227       (build-system asdf-build-system/sbcl)
2228       (inputs
2229        `(("alexandria" ,sbcl-alexandria)
2230          ("babel" ,sbcl-babel)))
2231       (arguments
2232        `(#:asd-file "ascii-strings.asd"))
2233       (synopsis "Operations on ASCII strings")
2234       (description
2235        "Operations on ASCII strings.  Essentially this can be any kind of
2236 single-byte encoded strings.")
2237       (home-page "https://bitbucket.org/vityok/cl-string-match/")
2238       (license license:bsd-3))))
2239
2240 (define-public cl-ascii-strings
2241   (sbcl-package->cl-source-package sbcl-ascii-strings))
2242
2243 (define-public ecl-ascii-strings
2244   (sbcl-package->ecl-package sbcl-ascii-strings))
2245
2246 (define-public sbcl-simple-scanf
2247   (package
2248     (inherit sbcl-ascii-strings)
2249     (name "sbcl-simple-scanf")
2250     (inputs
2251      `(("alexandria" ,sbcl-alexandria)
2252        ("iterate" ,sbcl-iterate)
2253        ("proc-parse" ,sbcl-proc-parse)
2254        ("parse-float" ,sbcl-parse-float)))
2255     (arguments
2256      `(#:asd-file "simple-scanf.asd"))
2257     (synopsis "Simple scanf-like functionality implementation")
2258     (description
2259      "A simple scanf-like functionality implementation.")))
2260
2261 (define-public cl-simple-scanf
2262   (sbcl-package->cl-source-package sbcl-simple-scanf))
2263
2264 (define-public ecl-simple-scanf
2265   (sbcl-package->ecl-package sbcl-simple-scanf))
2266
2267 (define-public sbcl-cl-string-match
2268   (package
2269     (inherit sbcl-ascii-strings)
2270     (name "sbcl-cl-string-match")
2271     (inputs
2272      `(("alexandria" ,sbcl-alexandria)
2273        ("ascii-strings" ,sbcl-ascii-strings)
2274        ("yacc" ,sbcl-cl-yacc)
2275        ("jpl-util" ,sbcl-jpl-util)
2276        ("jpl-queues" ,sbcl-jpl-queues)
2277        ("mgl-pax" ,sbcl-mgl-pax)
2278        ("iterate" ,sbcl-iterate)))
2279     ;; TODO: Tests are not evaluated properly.
2280     (native-inputs
2281      ;; For testing:
2282      `(("lisp-unit" ,sbcl-lisp-unit)
2283        ("simple-scanf" ,sbcl-simple-scanf)))
2284     (arguments
2285      `(#:tests? #f
2286        #:asd-file "cl-string-match.asd"))
2287     (synopsis "Portable, dependency-free set of utilities to manipulate strings in Common Lisp")
2288     (description
2289      "@command{cl-strings} is a small, portable, dependency-free set of
2290 utilities that make it even easier to manipulate text in Common Lisp.  It has
2291 100% test coverage and works at least on sbcl, ecl, ccl, abcl and clisp.")))
2292
2293 (define-public cl-string-match
2294   (sbcl-package->cl-source-package sbcl-cl-string-match))
2295
2296 (define-public ecl-cl-string-match
2297   (sbcl-package->ecl-package sbcl-cl-string-match))
2298
2299 (define-public sbcl-ptester
2300   (package
2301     (name "sbcl-ptester")
2302     (version "20160929")
2303     (source
2304      (origin
2305        (method url-fetch)
2306        (uri (string-append "http://beta.quicklisp.org/archive/ptester/"
2307                            (date->string (string->date version "~Y~m~d") "~Y-~m-~d")
2308                            "/ptester-"
2309                            version
2310                            "-git.tgz"))
2311        (sha256
2312         (base32
2313          "04rlq1zljhxc65pm31bah3sq3as24l0sdivz440s79qlnnyh13hz"))))
2314     (build-system asdf-build-system/sbcl)
2315     (home-page "http://quickdocs.org/ptester/")
2316     (synopsis "Portable test harness package")
2317     (description
2318      "@command{ptester} is a portable testing framework based on Franz's
2319 tester module.")
2320     (license license:lgpl3+)))
2321
2322 (define-public cl-ptester
2323   (sbcl-package->cl-source-package sbcl-ptester))
2324
2325 (define-public ecl-ptester
2326   (sbcl-package->ecl-package sbcl-ptester))
2327
2328 (define-public sbcl-puri
2329   (package
2330     (name "sbcl-puri")
2331     (version "20180228")
2332     (source
2333      (origin
2334        (method url-fetch)
2335        (uri (string-append "http://beta.quicklisp.org/archive/puri/"
2336                            (date->string (string->date version "~Y~m~d") "~Y-~m-~d")
2337                            "/puri-"
2338                            version
2339                            "-git.tgz"))
2340        (sha256
2341         (base32
2342          "1s4r5adrjy5asry45xbcbklxhdjydvf6n55z897nvyw33bigrnbz"))))
2343     (build-system asdf-build-system/sbcl)
2344     ;; REVIEW: Webiste down?
2345     (native-inputs
2346      `(("ptester" ,sbcl-ptester)))
2347     (home-page "http://files.kpe.io/puri/")
2348     (synopsis "Portable URI Library")
2349     (description
2350      "This is portable Universal Resource Identifier library for Common Lisp
2351 programs.  It parses URI according to the RFC 2396 specification")
2352     (license license:lgpl3+)))
2353
2354 (define-public cl-puri
2355   (sbcl-package->cl-source-package sbcl-puri))
2356
2357 (define-public ecl-puri
2358   (sbcl-package->ecl-package sbcl-puri))
2359
2360 (define-public sbcl-queues
2361   (let ((commit "47d4da65e9ea20953b74aeeab7e89a831b66bc94"))
2362     (package
2363       (name "sbcl-queues")
2364       (version (git-version "0.0.0" "1" commit))
2365       (source
2366        (origin
2367          (method git-fetch)
2368          (uri (git-reference
2369                (url "https://github.com/oconnore/queues")
2370                (commit commit)))
2371          (file-name (git-file-name "queues" version))
2372          (sha256
2373           (base32
2374            "0wdhfnzi4v6d97pggzj2aw55si94w4327br94jrmyvwf351wqjvv"))))
2375       (build-system asdf-build-system/sbcl)
2376       (home-page "https://github.com/oconnore/queues")
2377       (synopsis "Common Lisp queue library")
2378       (description
2379        "This is a simple queue library for Common Lisp with features such as
2380 non-consing thread safe queues and fibonacci priority queues.")
2381       (license license:expat))))
2382
2383 (define-public cl-queues
2384   (sbcl-package->cl-source-package sbcl-queues))
2385
2386 (define-public ecl-queues
2387   (sbcl-package->ecl-package sbcl-queues))
2388
2389 (define-public sbcl-queues.simple-queue
2390   (package
2391     (inherit sbcl-queues)
2392     (name "sbcl-queues.simple-queue")
2393     (inputs
2394      `(("sbcl-queues" ,sbcl-queues)))
2395     (arguments
2396      `(#:asd-file "queues.simple-queue.asd"))
2397     (synopsis "Simple queue implementation")
2398     (description
2399      "This is a simple queue library for Common Lisp with features such as
2400 non-consing thread safe queues and fibonacci priority queues.")
2401     (license license:expat)))
2402
2403 (define-public cl-queues.simple-queue
2404   (sbcl-package->cl-source-package sbcl-queues.simple-queue))
2405
2406 (define-public ecl-queues.simple-queue
2407   (sbcl-package->ecl-package sbcl-queues.simple-queue))
2408
2409 (define-public sbcl-queues.simple-cqueue
2410   (package
2411     (inherit sbcl-queues)
2412     (name "sbcl-queues.simple-cqueue")
2413     (inputs
2414      `(("sbcl-queues" ,sbcl-queues)
2415        ("sbcl-queues.simple-queue" ,sbcl-queues.simple-queue)
2416        ("bordeaux-threads" ,sbcl-bordeaux-threads)))
2417     (arguments
2418      `(#:asd-file "queues.simple-cqueue.asd"))
2419     (synopsis "Thread safe queue implementation")
2420     (description
2421      "This is a simple queue library for Common Lisp with features such as
2422 non-consing thread safe queues and fibonacci priority queues.")
2423     (license license:expat)))
2424
2425 (define-public cl-queues.simple-cqueue
2426   (sbcl-package->cl-source-package sbcl-queues.simple-cqueue))
2427
2428 (define-public ecl-queues.simple-cqueue
2429   (sbcl-package->ecl-package sbcl-queues.simple-cqueue))
2430
2431 (define-public sbcl-queues.priority-queue
2432   (package
2433     (inherit sbcl-queues)
2434     (name "sbcl-queues.priority-queue")
2435     (inputs
2436      `(("sbcl-queues" ,sbcl-queues)))
2437     (arguments
2438      `(#:asd-file "queues.priority-queue.asd"))
2439     (synopsis "Priority queue (Fibonacci) implementation")
2440     (description
2441      "This is a simple queue library for Common Lisp with features such as
2442 non-consing thread safe queues and fibonacci priority queues.")
2443     (license license:expat)))
2444
2445 (define-public cl-queues.priority-queue
2446   (sbcl-package->cl-source-package sbcl-queues.priority-queue))
2447
2448 (define-public ecl-queues.priority-queue
2449   (sbcl-package->ecl-package sbcl-queues.priority-queue))
2450
2451 (define-public sbcl-queues.priority-cqueue
2452   (package
2453     (inherit sbcl-queues)
2454     (name "sbcl-queues.priority-cqueue")
2455     (inputs
2456      `(("sbcl-queues" ,sbcl-queues)
2457        ("sbcl-queues.priority-queue" ,sbcl-queues.priority-queue)
2458        ("bordeaux-threads" ,sbcl-bordeaux-threads)))
2459     (arguments
2460      `(#:asd-file "queues.priority-cqueue.asd"))
2461     (synopsis "Thread safe fibonacci priority queue implementation")
2462     (description
2463      "This is a simple queue library for Common Lisp with features such as
2464 non-consing thread safe queues and fibonacci priority queues.")
2465     (license license:expat)))
2466
2467 (define-public cl-queues.priority-cqueue
2468   (sbcl-package->cl-source-package sbcl-queues.priority-cqueue))
2469
2470 (define-public ecl-queues.priority-cqueue
2471   (sbcl-package->ecl-package sbcl-queues.priority-cqueue))
2472
2473 (define sbcl-cffi-bootstrap
2474   (package
2475     (name "sbcl-cffi-bootstrap")
2476     (version "0.21.0")
2477     (source
2478      (origin
2479        (method git-fetch)
2480        (uri (git-reference
2481              (url "https://github.com/cffi/cffi.git")
2482              (commit (string-append "v" version))))
2483        (file-name (git-file-name "cffi-bootstrap" version))
2484        (sha256
2485         (base32 "1qalargz9bhp850qv60ffwpdqi4xirzar4l3g6qcg8yc6xqf2cjk"))))
2486     (build-system asdf-build-system/sbcl)
2487     (inputs
2488      `(("libffi" ,libffi)
2489        ("alexandria" ,sbcl-alexandria)
2490        ("babel" ,sbcl-babel)
2491        ("trivial-features" ,sbcl-trivial-features)))
2492     (native-inputs
2493      `(("pkg-config" ,pkg-config)))
2494     (arguments
2495      '(#:phases
2496        (modify-phases %standard-phases
2497          (add-after 'unpack 'fix-paths
2498            (lambda* (#:key inputs #:allow-other-keys)
2499              (substitute* "libffi/libffi.lisp"
2500                (("libffi.so.6" all) (string-append
2501                                      (assoc-ref inputs "libffi")
2502                                      "/lib/" all)))
2503              (substitute* "toolchain/c-toolchain.lisp"
2504                (("\"cc\"") (format #f "~S" (which "gcc")))))))
2505        #:asd-system-name "cffi"
2506        #:tests? #f))
2507     (home-page "https://common-lisp.net/project/cffi/")
2508     (synopsis "Common Foreign Function Interface for Common Lisp")
2509     (description "The Common Foreign Function Interface (CFFI)
2510 purports to be a portable foreign function interface for Common Lisp.
2511 The CFFI library is composed of a Lisp-implementation-specific backend
2512 in the CFFI-SYS package, and a portable frontend in the CFFI
2513 package.")
2514     (license license:expat)))
2515
2516 (define-public sbcl-cffi-toolchain
2517   (package
2518     (inherit sbcl-cffi-bootstrap)
2519     (name "sbcl-cffi-toolchain")
2520     (inputs
2521      `(("libffi" ,libffi)
2522        ("sbcl-cffi" ,sbcl-cffi-bootstrap)))
2523     (arguments
2524      (substitute-keyword-arguments (package-arguments sbcl-cffi-bootstrap)
2525        ((#:asd-system-name _) #f)
2526        ((#:tests? _) #t)))))
2527
2528 (define-public sbcl-cffi-libffi
2529   (package
2530     (inherit sbcl-cffi-toolchain)
2531     (name "sbcl-cffi-libffi")
2532     (inputs
2533      `(("cffi" ,sbcl-cffi-bootstrap)
2534        ("cffi-grovel" ,sbcl-cffi-grovel)
2535        ("trivial-features" ,sbcl-trivial-features)
2536        ("libffi" ,libffi)))))
2537
2538 (define-public sbcl-cffi-grovel
2539   (package
2540     (inherit sbcl-cffi-toolchain)
2541     (name "sbcl-cffi-grovel")
2542     (inputs
2543      `(("libffi" ,libffi)
2544        ("cffi" ,sbcl-cffi-bootstrap)
2545        ("cffi-toolchain" ,sbcl-cffi-toolchain)
2546        ("alexandria" ,sbcl-alexandria)))
2547     (arguments
2548      (substitute-keyword-arguments (package-arguments sbcl-cffi-toolchain)
2549        ((#:phases phases)
2550         `(modify-phases ,phases
2551            (add-after 'build 'install-headers
2552              (lambda* (#:key outputs #:allow-other-keys)
2553                (install-file "grovel/common.h"
2554                              (string-append
2555                               (assoc-ref outputs "out")
2556                               "/include/grovel"))))))))))
2557
2558 (define-public sbcl-cffi
2559   (package
2560     (inherit sbcl-cffi-toolchain)
2561     (name "sbcl-cffi")
2562     (inputs (package-inputs sbcl-cffi-bootstrap))
2563     (native-inputs
2564      `(("cffi-grovel" ,sbcl-cffi-grovel)
2565        ("cffi-libffi" ,sbcl-cffi-libffi)
2566        ("rt" ,sbcl-rt)
2567        ("bordeaux-threads" ,sbcl-bordeaux-threads)
2568        ,@(package-native-inputs sbcl-cffi-bootstrap)))))
2569
2570 (define-public cl-cffi
2571   (sbcl-package->cl-source-package sbcl-cffi))
2572
2573 (define-public sbcl-cl-sqlite
2574   (let ((commit "c738e66d4266ef63a1debc4ef4a1b871a068c112"))
2575     (package
2576       (name "sbcl-cl-sqlite")
2577       (version (git-version "0.2" "1" commit))
2578       (source
2579        (origin
2580          (method git-fetch)
2581          (uri (git-reference
2582                (url "https://github.com/dmitryvk/cl-sqlite")
2583                (commit commit)))
2584          (file-name (git-file-name "cl-sqlite" version))
2585          (sha256
2586           (base32
2587            "1ng45k1hdb84sqjryrfx93g66bsbybmpy301wd0fdybnc5jzr36q"))))
2588       (build-system asdf-build-system/sbcl)
2589       (inputs
2590        `(("iterate" ,sbcl-iterate)
2591          ("cffi" ,sbcl-cffi)
2592          ("sqlite" ,sqlite)))
2593       (native-inputs
2594        `(("fiveam" ,sbcl-fiveam)
2595          ("bordeaux-threads" ,sbcl-bordeaux-threads)))
2596       (arguments
2597        `(#:tests? #f                    ; Upstream seems to have issues with tests: https://github.com/dmitryvk/cl-sqlite/issues/7
2598          #:asd-file "sqlite.asd"
2599          #:asd-system-name "sqlite"
2600          #:phases
2601          (modify-phases %standard-phases
2602            (add-after 'unpack 'fix-paths
2603              (lambda* (#:key inputs #:allow-other-keys)
2604                (substitute* "sqlite-ffi.lisp"
2605                  (("libsqlite3" all) (string-append
2606                                       (assoc-ref inputs "sqlite")"/lib/" all))))))))
2607       (home-page "https://common-lisp.net/project/cl-sqlite/")
2608       (synopsis "Common Lisp binding for SQLite")
2609       (description
2610        "The @command{cl-sqlite} package is an interface to the SQLite embedded
2611 relational database engine.")
2612       (license license:public-domain))))
2613
2614 (define-public cl-sqlite
2615   (sbcl-package->cl-source-package sbcl-cl-sqlite))
2616
2617 (define-public sbcl-parenscript
2618   (let ((commit "061d8e286c81c3f45c84fb2b11ee7d83f590a8f8"))
2619     (package
2620       (name "sbcl-parenscript")
2621       (version (git-version "2.6" "1" commit))
2622       (source
2623        (origin
2624          (method git-fetch)
2625          (uri (git-reference
2626                (url "https://gitlab.common-lisp.net/parenscript/parenscript")
2627                (commit commit)))
2628          (file-name (git-file-name "parenscript" version))
2629          (sha256
2630           (base32
2631            "1kbhgsjbikc73m5cwdp4d4fdafyqcr1b7b630qjrziql0nh6mi3k"))))
2632       (build-system asdf-build-system/sbcl)
2633       (inputs
2634        `(("cl-ppcre" ,sbcl-cl-ppcre)
2635          ("anaphora" ,sbcl-anaphora)
2636          ("named-readtables" ,sbcl-named-readtables)))
2637       (home-page "https://common-lisp.net/project/parenscript/")
2638       (synopsis "Translator from a subset of Common Lisp to JavaScript")
2639       (description
2640        "Parenscript is a translator from an extended subset of Common Lisp to
2641 JavaScript.  Parenscript code can run almost identically on both the
2642 browser (as JavaScript) and server (as Common Lisp).
2643
2644 Parenscript code is treated the same way as Common Lisp code, making the full
2645 power of Lisp macros available for JavaScript.  This provides a web
2646 development environment that is unmatched in its ability to reduce code
2647 duplication and provide advanced meta-programming facilities to web
2648 developers.
2649
2650 At the same time, Parenscript is different from almost all other \"language
2651 X\" to JavaScript translators in that it imposes almost no overhead:
2652
2653 @itemize
2654 @item No run-time dependencies: Any piece of Parenscript code is runnable
2655 as-is.  There are no JavaScript files to include.
2656 @item Native types: Parenscript works entirely with native JavaScript data
2657 types.  There are no new types introduced, and object prototypes are not
2658 touched.
2659 @item Native calling convention: Any JavaScript code can be called without the
2660 need for bindings.  Likewise, Parenscript can be used to make efficient,
2661 self-contained JavaScript libraries.
2662 @item Readable code: Parenscript generates concise, formatted, idiomatic
2663 JavaScript code.  Identifier names are preserved.  This enables seamless
2664 debugging in tools like Firebug.
2665 @item Efficiency: Parenscript introduces minimal overhead for advanced Common
2666 Lisp features.  The generated code is almost as fast as hand-written
2667 JavaScript.
2668 @end itemize\n")
2669       (license license:bsd-3))))
2670
2671 (define-public cl-parenscript
2672   (sbcl-package->cl-source-package sbcl-parenscript))
2673
2674 (define-public ecl-parenscript
2675   (sbcl-package->ecl-package sbcl-parenscript))
2676
2677 (define-public sbcl-cl-json
2678   (let ((commit "6dfebb9540bfc3cc33582d0c03c9ec27cb913e79"))
2679     (package
2680       (name "sbcl-cl-json")
2681       (version (git-version "0.5" "1" commit))
2682       (source
2683        (origin
2684          (method git-fetch)
2685          (uri (git-reference
2686                (url "https://github.com/hankhero/cl-json")
2687                (commit commit)))
2688          (file-name (git-file-name "cl-json" version))
2689          (sha256
2690           (base32
2691            "0fx3m3x3s5ji950yzpazz4s0img3l6b3d6l3jrfjv0lr702496lh"))))
2692       (build-system asdf-build-system/sbcl)
2693       (native-inputs
2694        `(("fiveam" ,sbcl-fiveam)))
2695       (home-page "https://github.com/hankhero/cl-json")
2696       (synopsis "JSON encoder and decoder for Common-Lisp")
2697       (description
2698        "@command{cl-json} provides an encoder of Lisp objects to JSON format
2699 and a corresponding decoder of JSON data to Lisp objects.  Both the encoder
2700 and the decoder are highly customizable; at the same time, the default
2701 settings ensure a very simple mode of operation, similar to that provided by
2702 @command{yason} or @command{st-json}.")
2703       (license license:expat))))
2704
2705 (define-public cl-json
2706   (sbcl-package->cl-source-package sbcl-cl-json))
2707
2708 (define-public ecl-cl-json
2709   (sbcl-package->ecl-package sbcl-cl-json))
2710
2711 (define-public sbcl-unix-opts
2712   (package
2713     (name "sbcl-unix-opts")
2714     (version "0.1.7")
2715     (source
2716      (origin
2717        (method git-fetch)
2718        (uri (git-reference
2719              (url "https://github.com/libre-man/unix-opts")
2720              (commit version)))
2721        (file-name (git-file-name "unix-opts" version))
2722        (sha256
2723         (base32
2724          "08djdi1ard09fijb7w9bdmhmwd98b1hzmcnjw9fqjiqa0g3b44rr"))))
2725     (build-system asdf-build-system/sbcl)
2726     (home-page "https://github.com/hankhero/cl-json")
2727     (synopsis "Unix-style command line options parser")
2728     (description
2729      "This is a minimalistic parser of command line options.  The main
2730 advantage of the library is the ability to concisely define command line
2731 options once and then use this definition for parsing and extraction of
2732 command line arguments, as well as printing description of command line
2733 options (you get --help for free).  This way you don't need to repeat
2734 yourself.  Also, @command{unix-opts} doesn't depend on anything and allows to
2735 precisely control behavior of the parser via Common Lisp restarts.")
2736     (license license:expat)))
2737
2738 (define-public cl-unix-opts
2739   (sbcl-package->cl-source-package sbcl-unix-opts))
2740
2741 (define-public ecl-unix-opts
2742   (sbcl-package->ecl-package sbcl-unix-opts))
2743
2744 (define-public sbcl-trivial-garbage
2745   (package
2746     (name "sbcl-trivial-garbage")
2747     (version "0.21")
2748     (source
2749      (origin
2750        (method git-fetch)
2751        (uri (git-reference
2752              (url "https://github.com/trivial-garbage/trivial-garbage.git")
2753              (commit (string-append "v" version))))
2754        (file-name (git-file-name "trivial-garbage" version))
2755        (sha256
2756         (base32 "0122jicfg7pca1wxw8zak1n92h5friqy60988ns0ysksj3fphw9n"))))
2757     (build-system asdf-build-system/sbcl)
2758     (native-inputs
2759      `(("rt" ,sbcl-rt)))
2760     (home-page "https://common-lisp.net/project/trivial-garbage/")
2761     (synopsis "Portable GC-related APIs for Common Lisp")
2762     (description "@command{trivial-garbage} provides a portable API to
2763 finalizers, weak hash-tables and weak pointers on all major implementations of
2764 the Common Lisp programming language.")
2765     (license license:public-domain)))
2766
2767 (define-public cl-trivial-garbage
2768   (sbcl-package->cl-source-package sbcl-trivial-garbage))
2769
2770 (define-public ecl-trivial-garbage
2771   (sbcl-package->ecl-package sbcl-trivial-garbage))
2772
2773 (define-public sbcl-closer-mop
2774   (let ((commit "fac29ce90e3a46e1fc6cf182190e193526fa9dbc"))
2775     (package
2776       (name "sbcl-closer-mop")
2777       (version (git-version  "1.0.0" "1" commit))
2778       (source
2779        (origin
2780          (method git-fetch)
2781          (uri (git-reference
2782                (url "https://github.com/pcostanza/closer-mop")
2783                (commit commit)))
2784          (sha256
2785           (base32 "0hvh77y869h8fg9di5snyg85fxq6fdh9gj1igmx1g6j6j5x915dl"))
2786          (file-name (git-file-name "closer-mop" version ))))
2787       (build-system asdf-build-system/sbcl)
2788       (home-page "https://github.com/pcostanza/closer-mop")
2789       (synopsis "Rectifies absent or incorrect CLOS MOP features")
2790       (description "Closer to MOP is a compatibility layer that rectifies many
2791 of the absent or incorrect CLOS MOP features across a broad range of Common
2792 Lisp implementations.")
2793       (license license:expat))))
2794
2795 (define-public cl-closer-mop
2796   (sbcl-package->cl-source-package sbcl-closer-mop))
2797
2798 (define-public ecl-closer-mop
2799   (sbcl-package->ecl-package sbcl-closer-mop))
2800
2801 (define sbcl-cl-cffi-gtk-boot0
2802   (let ((commit "29443c5aaca975709df8025c4649366d882033cb"))
2803     (package
2804       (name "sbcl-cl-cffi-gtk-boot0")
2805       (version (git-version "0.11.2" "1" commit))
2806       (source
2807        (origin
2808          (method git-fetch)
2809          (uri (git-reference
2810                (url "https://github.com/Ferada/cl-cffi-gtk/")
2811                (commit commit)))
2812          (file-name (git-file-name "cl-cffi-gtk" version))
2813          (sha256
2814           (base32
2815            "0f6s92sf8xyzh1yksqx8bsy1sv0zmy0c13j3b8bavaba5hlxpxah"))))
2816       (build-system asdf-build-system/sbcl)
2817       (inputs
2818        `(("iterate" ,sbcl-iterate)
2819          ("cffi" ,sbcl-cffi)
2820          ("trivial-features" ,sbcl-trivial-features)))
2821       (home-page "https://github.com/Ferada/cl-cffi-gtk/")
2822       (synopsis "Common Lisp binding for GTK+3")
2823       (description
2824        "@command{cl-cffi-gtk} is a Lisp binding to GTK+ 3 (GIMP Toolkit) which
2825 is a library for creating graphical user interfaces.")
2826       (license license:lgpl3))))
2827
2828 (define-public sbcl-cl-cffi-gtk-glib
2829   (package
2830     (inherit sbcl-cl-cffi-gtk-boot0)
2831     (name "sbcl-cl-cffi-gtk-glib")
2832     (inputs
2833      `(("glib" ,glib)
2834        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2835     (arguments
2836      `(#:asd-file "glib/cl-cffi-gtk-glib.asd"
2837        #:phases
2838        (modify-phases %standard-phases
2839          (add-after 'unpack 'fix-paths
2840            (lambda* (#:key inputs #:allow-other-keys)
2841              (substitute* "glib/glib.init.lisp"
2842                (("libglib|libgthread" all) (string-append
2843                                             (assoc-ref inputs "glib") "/lib/" all))))))))))
2844
2845 (define-public sbcl-cl-cffi-gtk-gobject
2846   (package
2847     (inherit sbcl-cl-cffi-gtk-boot0)
2848     (name "sbcl-cl-cffi-gtk-gobject")
2849     (inputs
2850      `(("glib" ,glib)
2851        ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2852        ("trivial-garbage" ,sbcl-trivial-garbage)
2853        ("bordeaux-threads" ,sbcl-bordeaux-threads)
2854        ("closer-mop" ,sbcl-closer-mop)
2855        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2856     (arguments
2857      `(#:asd-file "gobject/cl-cffi-gtk-gobject.asd"
2858        #:phases
2859        (modify-phases %standard-phases
2860          (add-after 'unpack 'fix-paths
2861            (lambda* (#:key inputs #:allow-other-keys)
2862              (substitute* "gobject/gobject.init.lisp"
2863                (("libgobject" all) (string-append
2864                                     (assoc-ref inputs "glib") "/lib/" all))))))))))
2865
2866 (define-public sbcl-cl-cffi-gtk-gio
2867   (package
2868     (inherit sbcl-cl-cffi-gtk-boot0)
2869     (name "sbcl-cl-cffi-gtk-gio")
2870     (inputs
2871      `(("glib" ,glib)
2872        ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2873        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
2874        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2875     (arguments
2876      `(#:asd-file "gio/cl-cffi-gtk-gio.asd"
2877        #:phases
2878        (modify-phases %standard-phases
2879          (add-after 'unpack 'fix-paths
2880            (lambda* (#:key inputs #:allow-other-keys)
2881              (substitute* "gio/gio.init.lisp"
2882                (("libgio" all)
2883                 (string-append
2884                  (assoc-ref inputs "glib") "/lib/" all))))))))))
2885
2886 (define-public sbcl-cl-cffi-gtk-cairo
2887   (package
2888     (inherit sbcl-cl-cffi-gtk-boot0)
2889     (name "sbcl-cl-cffi-gtk-cairo")
2890     (inputs
2891      `(("cairo" ,cairo)
2892        ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2893        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2894     (arguments
2895      `(#:asd-file "cairo/cl-cffi-gtk-cairo.asd"
2896        #:phases
2897        (modify-phases %standard-phases
2898          (add-after 'unpack 'fix-paths
2899            (lambda* (#:key inputs #:allow-other-keys)
2900              (substitute* "cairo/cairo.init.lisp"
2901                (("libcairo" all)
2902                 (string-append
2903                  (assoc-ref inputs "cairo") "/lib/" all))))))))))
2904
2905 (define-public sbcl-cl-cffi-gtk-pango
2906   (package
2907     (inherit sbcl-cl-cffi-gtk-boot0)
2908     (name "sbcl-cl-cffi-gtk-pango")
2909     (inputs
2910      `(("pango" ,pango)
2911        ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2912        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
2913        ("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
2914        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2915     (arguments
2916      `(#:asd-file "pango/cl-cffi-gtk-pango.asd"
2917        #:phases
2918        (modify-phases %standard-phases
2919          (add-after 'unpack 'fix-paths
2920            (lambda* (#:key inputs #:allow-other-keys)
2921              (substitute* "pango/pango.init.lisp"
2922                (("libpango" all)
2923                 (string-append
2924                  (assoc-ref inputs "pango") "/lib/" all))))))))))
2925
2926 (define-public sbcl-cl-cffi-gtk-gdk-pixbuf
2927   (package
2928     (inherit sbcl-cl-cffi-gtk-boot0)
2929     (name "sbcl-cl-cffi-gtk-gdk-pixbuf")
2930     (inputs
2931      `(("gdk-pixbuf" ,gdk-pixbuf)
2932        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
2933        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2934     (arguments
2935      `(#:asd-file "gdk-pixbuf/cl-cffi-gtk-gdk-pixbuf.asd"
2936        #:phases
2937        (modify-phases %standard-phases
2938          (add-after 'unpack 'fix-paths
2939            (lambda* (#:key inputs #:allow-other-keys)
2940              (substitute* "gdk-pixbuf/gdk-pixbuf.init.lisp"
2941                (("libgdk_pixbuf" all)
2942                 (string-append
2943                  (assoc-ref inputs "gdk-pixbuf") "/lib/" all))))))))))
2944
2945 (define-public sbcl-cl-cffi-gtk-gdk
2946   (package
2947     (inherit sbcl-cl-cffi-gtk-boot0)
2948     (name "sbcl-cl-cffi-gtk-gdk")
2949     (inputs
2950      `(("gtk" ,gtk+)
2951        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
2952        ("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
2953        ("cl-cffi-gtk-gdk-pixbuf" ,sbcl-cl-cffi-gtk-gdk-pixbuf)
2954        ("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
2955        ("cl-cffi-gtk-pango" ,sbcl-cl-cffi-gtk-pango)
2956        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2957     (arguments
2958      `(#:asd-file "gdk/cl-cffi-gtk-gdk.asd"
2959        #:phases
2960        (modify-phases %standard-phases
2961          (add-after 'unpack 'fix-paths
2962            (lambda* (#:key inputs #:allow-other-keys)
2963              (substitute* "gdk/gdk.init.lisp"
2964                (("libgdk" all)
2965                 (string-append
2966                  (assoc-ref inputs "gtk") "/lib/" all)))
2967              (substitute* "gdk/gdk.package.lisp"
2968                (("libgtk" all)
2969                 (string-append
2970                  (assoc-ref inputs "gtk") "/lib/" all))))))))))
2971
2972 (define-public sbcl-cl-cffi-gtk
2973   (package
2974     (inherit sbcl-cl-cffi-gtk-boot0)
2975     (name "sbcl-cl-cffi-gtk")
2976     (inputs
2977      `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2978        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
2979        ("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
2980        ("cl-cffi-gtk-gdk" ,sbcl-cl-cffi-gtk-gdk)
2981        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2982     (native-inputs
2983      `(("fiveam" ,sbcl-fiveam)))
2984     (arguments
2985      `(#:asd-file "gtk/cl-cffi-gtk.asd"
2986        #:test-asd-file "test/cl-cffi-gtk-test.asd"
2987        ;; TODO: Tests fail with memory fault.
2988        ;; See https://github.com/Ferada/cl-cffi-gtk/issues/24.
2989        #:tests? #f))))
2990
2991 (define-public cl-cffi-gtk
2992   (sbcl-package->cl-source-package sbcl-cl-cffi-gtk))
2993
2994 (define-public sbcl-cl-webkit
2995   (let ((commit "cd2a9008e0c152e54755e8a7f07b050fe36bab31"))
2996     (package
2997       (name "sbcl-cl-webkit")
2998       (version (git-version "2.4" "1" commit))
2999       (source
3000        (origin
3001          (method git-fetch)
3002          (uri (git-reference
3003                (url "https://github.com/jmercouris/cl-webkit")
3004                (commit commit)))
3005          (file-name (git-file-name "cl-webkit" version))
3006          (sha256
3007           (base32
3008            "0f5lyn9i7xrn3g1bddga377mcbawkbxydijpg389q4n04gqj0vwf"))))
3009       (build-system asdf-build-system/sbcl)
3010       (inputs
3011        `(("cffi" ,sbcl-cffi)
3012          ("cl-cffi-gtk" ,sbcl-cl-cffi-gtk)
3013          ("webkitgtk" ,webkitgtk)))
3014       (arguments
3015        `(#:asd-file "webkit2/cl-webkit2.asd"
3016          #:asd-system-name "cl-webkit2"
3017          #:phases
3018          (modify-phases %standard-phases
3019            (add-after 'unpack 'fix-paths
3020              (lambda* (#:key inputs #:allow-other-keys)
3021                (substitute* "webkit2/webkit2.init.lisp"
3022                  (("libwebkit2gtk" all)
3023                   (string-append
3024                    (assoc-ref inputs "webkitgtk") "/lib/" all))))))))
3025       (home-page "https://github.com/jmercouris/cl-webkit")
3026       (synopsis "Binding to WebKitGTK+ for Common Lisp")
3027       (description
3028        "@command{cl-webkit} is a binding to WebKitGTK+ for Common Lisp,
3029 currently targeting WebKit version 2.  The WebKitGTK+ library adds web
3030 browsing capabilities to an application, leveraging the full power of the
3031 WebKit browsing engine.")
3032       (license license:expat))))
3033
3034 (define-public cl-webkit
3035   (sbcl-package->cl-source-package sbcl-cl-webkit))
3036
3037 (define-public sbcl-lparallel
3038   (package
3039     (name "sbcl-lparallel")
3040     (version "2.8.4")
3041     (source
3042      (origin
3043        (method git-fetch)
3044        (uri (git-reference
3045              (url "https://github.com/lmj/lparallel/")
3046              (commit (string-append "lparallel-" version))))
3047        (file-name (git-file-name "lparallel" version))
3048        (sha256
3049         (base32
3050          "0g0aylrbbrqsz0ahmwhvnk4cmc2931fllbpcfgzsprwnqqd7vwq9"))))
3051     (build-system asdf-build-system/sbcl)
3052     (inputs
3053      `(("alexandria" ,sbcl-alexandria)
3054        ("bordeaux-threads" ,sbcl-bordeaux-threads)
3055        ("trivial-garbage" ,sbcl-trivial-garbage)))
3056     (home-page "https://lparallel.org/")
3057     (synopsis "Parallelism for Common Lisp")
3058     (description
3059      "@command{lparallel} is a library for parallel programming in Common
3060 Lisp, featuring:
3061
3062 @itemize
3063 @item a simple model of task submission with receiving queue,
3064 @item constructs for expressing fine-grained parallelism,
3065 @item asynchronous condition handling across thread boundaries,
3066 @item parallel versions of map, reduce, sort, remove, and many others,
3067 @item promises, futures, and delayed evaluation constructs,
3068 @item computation trees for parallelizing interconnected tasks,
3069 @item bounded and unbounded FIFO queues,
3070 @item high and low priority tasks,
3071 @item task killing by category,
3072 @item integrated timeouts.
3073 @end itemize\n")
3074     (license license:expat)))
3075
3076 (define-public cl-lparallel
3077   (sbcl-package->cl-source-package sbcl-lparallel))
3078
3079 (define-public ecl-lparallel
3080   (sbcl-package->ecl-package sbcl-lparallel))
3081
3082 (define-public sbcl-cl-markup
3083   (let ((commit "e0eb7debf4bdff98d1f49d0f811321a6a637b390"))
3084     (package
3085       (name "sbcl-cl-markup")
3086       (version (git-version "0.1" "1" commit))
3087       (source
3088        (origin
3089          (method git-fetch)
3090          (uri (git-reference
3091                (url "https://github.com/arielnetworks/cl-markup/")
3092                (commit commit)))
3093          (file-name (git-file-name "cl-markup" version))
3094          (sha256
3095           (base32
3096            "10l6k45971dl13fkdmva7zc6i453lmq9j4xax2ci6pjzlc6xjhp7"))))
3097       (build-system asdf-build-system/sbcl)
3098       (home-page "https://github.com/arielnetworks/cl-markup/")
3099       (synopsis "Markup generation library for Common Lisp")
3100       (description
3101        "A modern markup generation library for Common Lisp that features:
3102
3103 @itemize
3104 @item Fast (even faster through compiling the code)
3105 @item Safety
3106 @item Support for multiple document types (markup, xml, html, html5, xhtml)
3107 @item Output with doctype
3108 @item Direct output to stream
3109 @end itemize\n")
3110       (license license:lgpl3+))))
3111
3112 (define-public cl-markup
3113   (sbcl-package->cl-source-package sbcl-cl-markup))
3114
3115 (define-public ecl-cl-markup
3116   (sbcl-package->ecl-package sbcl-cl-markup))
3117
3118 (define-public sbcl-cl-css
3119   (let ((commit "8fe654c8f0cf95b300718101cce4feb517f78e2f"))
3120     (package
3121       (name "sbcl-cl-css")
3122       (version (git-version "0.1" "1" commit))
3123       (source
3124        (origin
3125          (method git-fetch)
3126          (uri (git-reference
3127                (url "https://github.com/inaimathi/cl-css/")
3128                (commit commit)))
3129          (file-name (git-file-name "cl-css" version))
3130          (sha256
3131           (base32
3132            "1lc42zi2sw11fl2589sc19nr5sd2p0wy7wgvgwaggxa5f3ajhsmd"))))
3133       (build-system asdf-build-system/sbcl)
3134       (home-page "https://github.com/inaimathi/cl-css/")
3135       (synopsis "Non-validating, inline CSS generator for Common Lisp")
3136       (description
3137        "This is a dead-simple, non validating, inline CSS generator for Common
3138 Lisp.  Its goals are axiomatic syntax, simple implementation to support
3139 portability, and boilerplate reduction in CSS.")
3140       (license license:expat))))
3141
3142 (define-public cl-css
3143   (sbcl-package->cl-source-package sbcl-cl-css))
3144
3145 (define-public ecl-cl-css
3146   (sbcl-package->ecl-package sbcl-cl-css))
3147
3148 (define-public sbcl-portable-threads
3149   (let ((commit "c0e61a1faeb0583c80fd3f20b16cc4c555226920"))
3150     (package
3151       (name "sbcl-portable-threads")
3152       (version (git-version "2.3" "1" commit))
3153       (source
3154        (origin
3155          (method git-fetch)
3156          (uri (git-reference
3157                (url "https://github.com/binghe/portable-threads/")
3158                (commit commit)))
3159          (file-name (git-file-name "portable-threads" version))
3160          (sha256
3161           (base32
3162            "03fmxyarc0xf4kavwkfa0a2spkyfrz6hbgbi9y4q7ny5aykdyfaq"))))
3163       (build-system asdf-build-system/sbcl)
3164       (arguments
3165        `(;; Tests seem broken.
3166          #:tests? #f))
3167       (home-page "https://github.com/binghe/portable-threads")
3168       (synopsis "Portable threads (and scheduled and periodic functions) API for Common Lisp")
3169       (description
3170        "Portable Threads (and Scheduled and Periodic Functions) API for Common
3171 Lisp (from GBBopen project).")
3172       (license license:asl2.0))))
3173
3174 (define-public cl-portable-threads
3175   (sbcl-package->cl-source-package sbcl-portable-threads))
3176
3177 (define-public ecl-portable-threada
3178   (sbcl-package->ecl-package sbcl-portable-threads))
3179
3180 (define-public sbcl-usocket-boot0
3181   ;; usocket's test rely on usocket-server which depends on usocket itself.
3182   ;; We break this cyclic dependency with -boot0 that packages usocket.
3183   (let ((commit "86e7efbfe50101931edf4b67cdcfa7e221ecfde9"))
3184     (package
3185       (name "sbcl-usocket-boot0")
3186       (version (git-version "0.7.1" "1" commit))
3187       (source
3188        (origin
3189          (method git-fetch)
3190          (uri (git-reference
3191                (url "https://github.com/usocket/usocket/")
3192                (commit commit)))
3193          (file-name (git-file-name "usocket" version))
3194          (sha256
3195           (base32
3196            "1lk6ipakrib7kdgzw44hrgmls9akp5pz4h35yynw0k5zwmmq6374"))))
3197       (build-system asdf-build-system/sbcl)
3198       (inputs
3199        `(("split-sequence" ,sbcl-split-sequence)))
3200       (arguments
3201        `(#:tests? #f
3202          #:asd-system-name "usocket"))
3203       (home-page "https://common-lisp.net/project/usocket/")
3204       (synopsis "Universal socket library for Common Lisp (server side)")
3205       (description
3206        "This library strives to provide a portable TCP/IP and UDP/IP socket
3207 interface for as many Common Lisp implementations as possible, while keeping
3208 the abstraction and portability layer as thin as possible.")
3209       (license license:expat))))
3210
3211 (define-public sbcl-usocket-server
3212   (package
3213     (inherit sbcl-usocket-boot0)
3214     (name "sbcl-usocket-server")
3215     (inputs
3216      `(("usocket" ,sbcl-usocket-boot0)
3217        ("portable-threads" ,sbcl-portable-threads)))
3218     (arguments
3219      '(#:asd-system-name "usocket-server"))
3220     (synopsis "Universal socket library for Common Lisp (server side)")))
3221
3222 (define-public cl-usocket-server
3223   (sbcl-package->cl-source-package sbcl-usocket-server))
3224
3225 (define-public ecl-socket-server
3226   (sbcl-package->ecl-package sbcl-usocket-server))
3227
3228 (define-public sbcl-usocket
3229   (package
3230     (inherit sbcl-usocket-boot0)
3231     (name "sbcl-usocket")
3232     (arguments
3233      ;; FIXME: Tests need network access?
3234      `(#:tests? #f))
3235     (native-inputs
3236      ;; Testing only.
3237      `(("usocket-server" ,sbcl-usocket-server)
3238        ("rt" ,sbcl-rt)))))
3239
3240 (define-public cl-usocket
3241   (sbcl-package->cl-source-package sbcl-usocket))
3242
3243 (define-public ecl-socket
3244   (sbcl-package->ecl-package sbcl-usocket))
3245
3246 (define-public sbcl-s-xml
3247   (package
3248     (name "sbcl-s-xml")
3249     (version "3")
3250     (source
3251      (origin
3252        (method url-fetch)
3253        (uri "https://common-lisp.net/project/s-xml/s-xml.tgz")
3254        (sha256
3255         (base32
3256          "061qcr0dzshsa38s5ma4ay924cwak2nq9gy59dw6v9p0qb58nzjf"))))
3257     (build-system asdf-build-system/sbcl)
3258     (home-page "https://common-lisp.net/project/s-xml/")
3259     (synopsis "Simple XML parser implemented in Common Lisp")
3260     (description
3261      "S-XML is a simple XML parser implemented in Common Lisp.  This XML
3262 parser implementation has the following features:
3263
3264 @itemize
3265 @item It works (handling many common XML usages).
3266 @item It is very small (the core is about 700 lines of code, including
3267 comments and whitespace).
3268 @item It has a core API that is simple, efficient and pure functional, much
3269 like that from SSAX (see also http://ssax.sourceforge.net).
3270 @item It supports different DOM models: an XSML-based one, an LXML-based one
3271 and a classic xml-element struct based one.
3272 @item It is reasonably time and space efficient (internally avoiding garbage
3273 generatation as much as possible).
3274 @item It does support CDATA.
3275 @item It should support the same character sets as your Common Lisp
3276 implementation.
3277 @item It does support XML name spaces.
3278 @end itemize
3279
3280 This XML parser implementation has the following limitations:
3281
3282 @itemize
3283 @item It does not support any special tags (like processing instructions).
3284 @item It is not validating, even skips DTD's all together.
3285 @end itemize\n")
3286     (license license:lgpl3+)))
3287
3288 (define-public cl-s-xml
3289   (sbcl-package->cl-source-package sbcl-s-xml))
3290
3291 (define-public ecl-s-xml
3292   (sbcl-package->ecl-package sbcl-s-xml))
3293
3294 (define-public sbcl-s-xml-rpc
3295   (package
3296     (name "sbcl-s-xml-rpc")
3297     (version "7")
3298     (source
3299      (origin
3300        (method url-fetch)
3301        (uri "https://common-lisp.net/project/s-xml-rpc/s-xml-rpc.tgz")
3302        (sha256
3303         (base32
3304          "02z7k163d51v0pzk8mn1xb6h5s6x64gjqkslhwm3a5x26k2gfs11"))))
3305     (build-system asdf-build-system/sbcl)
3306     (inputs
3307      `(("s-xml" ,sbcl-s-xml)))
3308     (home-page "https://common-lisp.net/project/s-xml-rpc/")
3309     (synopsis "Implementation of XML-RPC in Common Lisp for both client and server")
3310     (description
3311      "S-XML-RPC is an implementation of XML-RPC in Common Lisp for both
3312 client and server.")
3313     (license license:lgpl3+)))
3314
3315 (define-public cl-s-xml-rpc
3316   (sbcl-package->cl-source-package sbcl-s-xml-rpc))
3317
3318 (define-public ecl-s-xml-rpc
3319   (sbcl-package->ecl-package sbcl-s-xml-rpc))
3320
3321 (define-public sbcl-trivial-clipboard
3322   (let ((commit "5af3415d1484e6d69a1b5c178f24680d9fd01796"))
3323     (package
3324       (name "sbcl-trivial-clipboard")
3325       (version (git-version "0.0.0.0" "2" commit))
3326       (source
3327        (origin
3328          (method git-fetch)
3329          (uri (git-reference
3330                (url "https://github.com/snmsts/trivial-clipboard")
3331                (commit commit)))
3332          (file-name (git-file-name "trivial-clipboard" version))
3333          (sha256
3334           (base32
3335            "1gb515z5yq6h5548pb1fwhmb0hhq1ssyb78pvxh4alq799xipxs9"))))
3336       (build-system asdf-build-system/sbcl)
3337       (inputs
3338        `(("xclip" ,xclip)))
3339       (native-inputs
3340        `(("fiveam" ,sbcl-fiveam)))
3341       (arguments
3342        `(#:phases
3343          (modify-phases %standard-phases
3344            (add-after 'unpack 'fix-paths
3345              (lambda* (#:key inputs #:allow-other-keys)
3346                (substitute* "src/text.lisp"
3347                  (("\\(executable-find \"xclip\"\\)")
3348                   (string-append "(executable-find \""
3349                                  (assoc-ref inputs "xclip")
3350                                  "/bin/xclip\")"))))))))
3351       (home-page "https://github.com/snmsts/trivial-clipboard")
3352       (synopsis "Access system clipboard in Common Lisp")
3353       (description
3354        "@command{trivial-clipboard} gives access to the system clipboard.")
3355       (license license:expat))))
3356
3357 (define-public cl-trivial-clipboard
3358   (sbcl-package->cl-source-package sbcl-trivial-clipboard))
3359
3360 (define-public ecl-trivial-clipboard
3361   (sbcl-package->ecl-package sbcl-trivial-clipboard))
3362
3363 (define-public sbcl-trivial-backtrace
3364   (let ((commit "ca81c011b86424a381a7563cea3b924f24e6fbeb")
3365         (revision "1"))
3366     (package
3367      (name "sbcl-trivial-backtrace")
3368      (version (git-version "0.0.0" revision commit))
3369      (source
3370       (origin
3371        (method git-fetch)
3372        (uri (git-reference
3373              (url "https://github.com/gwkkwg/trivial-backtrace.git")
3374              (commit commit)))
3375        (file-name (git-file-name "trivial-backtrace" version))
3376        (sha256
3377         (base32 "10p41p43skj6cimdg8skjy7372s8v2xpkg8djjy0l8rm45i654k1"))))
3378      (build-system asdf-build-system/sbcl)
3379      (inputs
3380       `(("sbcl-lift" ,sbcl-lift)))
3381      (arguments
3382       `(#:phases
3383         (modify-phases %standard-phases
3384           (add-after 'check 'delete-test-results
3385             (lambda* (#:key outputs #:allow-other-keys)
3386               (let ((test-results (string-append (assoc-ref outputs "out")
3387                                                  "/share/common-lisp/"
3388                                                  (%lisp-type) "-source"
3389                                                  "/trivial-backtrace"
3390                                                  "/test-results")))
3391                 (when (file-exists? test-results)
3392                   (delete-file-recursively test-results)))
3393               #t)))))
3394      (home-page "https://common-lisp.net/project/trivial-backtrace/")
3395      (synopsis "Portable simple API to work with backtraces in Common Lisp")
3396      (description
3397       "On of the many things that didn't quite get into the Common Lisp
3398 standard was how to get a Lisp to output its call stack when something has
3399 gone wrong.  As such, each Lisp has developed its own notion of what to
3400 display, how to display it, and what sort of arguments can be used to
3401 customize it.  @code{trivial-backtrace} is a simple solution to generating a
3402 backtrace portably.")
3403      (license license:expat))))
3404
3405 (define-public cl-trivial-backtrace
3406   (sbcl-package->cl-source-package sbcl-trivial-backtrace))
3407
3408 (define-public sbcl-rfc2388
3409   (let ((commit "591bcf7e77f2c222c43953a80f8c297751dc0c4e")
3410         (revision "1"))
3411     (package
3412      (name "sbcl-rfc2388")
3413      (version (git-version "0.0.0" revision commit))
3414      (source
3415       (origin
3416        (method git-fetch)
3417        (uri (git-reference
3418              (url "https://github.com/jdz/rfc2388.git")
3419              (commit commit)))
3420        (file-name (git-file-name "rfc2388" version))
3421        (sha256
3422         (base32 "0phh5n3clhl9ji8jaxrajidn22d3f0aq87mlbfkkxlnx2pnw694k"))))
3423      (build-system asdf-build-system/sbcl)
3424      (home-page "https://github.com/jdz/rfc2388/")
3425      (synopsis "An implementation of RFC 2388 in Common Lisp")
3426      (description
3427       "This package contains an implementation of RFC 2388, which is used to
3428 process form data posted with HTTP POST method using enctype
3429 \"multipart/form-data\".")
3430      (license license:bsd-2))))
3431
3432 (define-public cl-rfc2388
3433   (sbcl-package->cl-source-package sbcl-rfc2388))
3434
3435 (define-public sbcl-md5
3436   (package
3437     (name "sbcl-md5")
3438     (version "2.0.4")
3439     (source
3440      (origin
3441        (method url-fetch)
3442        (uri (string-append
3443              "https://github.com/pmai/md5/archive/release-" version ".tar.gz"))
3444        (sha256
3445         (base32 "19yl9n0pjdz5gw4qi711lka97xcd9f81ylg434hk7jwn9f2s6w11"))))
3446     (build-system asdf-build-system/sbcl)
3447     (home-page "https://github.com/pmai/md5")
3448     (synopsis
3449      "Common Lisp implementation of the MD5 Message-Digest Algorithm (RFC 1321)")
3450     (description
3451      "This package implements The MD5 Message-Digest Algorithm, as defined in
3452 RFC 1321 by R. Rivest, published April 1992.")
3453     (license license:public-domain)))
3454
3455 (define-public cl-md5
3456   (sbcl-package->cl-source-package sbcl-md5))
3457
3458 (define-public sbcl-cl+ssl
3459   (let ((commit "141ae91416bc40f1618dc07e48429b84388aa599")
3460         (revision "1"))
3461     (package
3462       (name "sbcl-cl+ssl")
3463       (version (git-version "0.0.0" revision commit))
3464       (source
3465        (origin
3466          (method git-fetch)
3467          (uri (git-reference
3468                (url "https://github.com/cl-plus-ssl/cl-plus-ssl.git")
3469                (commit commit)))
3470          (file-name (git-file-name "cl+ssl" version))
3471          (sha256
3472           (base32 "1s0hg1h9sf8q89v0yrxmzg5f5sng29rgx3n21r9h9yql8351myan"))))
3473       (build-system asdf-build-system/sbcl)
3474       (arguments
3475        '(#:phases
3476          (modify-phases %standard-phases
3477            (add-after 'unpack 'fix-paths
3478              (lambda* (#:key inputs #:allow-other-keys)
3479                (substitute* "src/reload.lisp"
3480                  (("libssl.so" all)
3481                   (string-append
3482                    (assoc-ref inputs "openssl") "/lib/" all))))))))
3483       (inputs
3484        `(("openssl" ,openssl)
3485          ("sbcl-cffi" ,sbcl-cffi)
3486          ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)
3487          ("sbcl-flexi-streams" ,sbcl-flexi-streams)
3488          ("sbcl-bordeaux-threads" ,sbcl-bordeaux-threads)
3489          ("sbcl-trivial-garbage" ,sbcl-trivial-garbage)
3490          ("sbcl-alexandria" ,sbcl-alexandria)
3491          ("sbcl-trivial-features" ,sbcl-trivial-features)))
3492       (home-page "http://common-lisp.net/project/cl-plus-ssl/")
3493       (synopsis "Common Lisp bindings to OpenSSL")
3494       (description
3495        "This library is a fork of SSL-CMUCL.  The original SSL-CMUCL source
3496 code was written by Eric Marsden and includes contributions by Jochen Schmidt.
3497 Development into CL+SSL was done by David Lichteblau.")
3498       (license license:expat))))
3499
3500 (define-public cl-cl+ssl
3501   (sbcl-package->cl-source-package sbcl-cl+ssl))
3502
3503 (define-public sbcl-kmrcl
3504   (let ((version "1.109.0")
3505         (commit "5260068b2eb735af6796740c2db4955afac21636")
3506         (revision "1"))
3507     (package
3508       (name "sbcl-kmrcl")
3509       (version (git-version version revision commit))
3510       (source
3511        (origin
3512          (method git-fetch)
3513          (uri (git-reference
3514                (url "http://git.kpe.io/kmrcl.git/")
3515                (commit commit)))
3516          (file-name (git-file-name name version))
3517          (sha256
3518           (base32 "1va7xjgzfv674bpsli674i7zj3f7wg5kxic41kz18r6hh4n52dfv"))))
3519       (build-system asdf-build-system/sbcl)
3520       (arguments
3521        ;; Tests fail with: :FORCE and :FORCE-NOT arguments not allowed in a
3522        ;; nested call to ASDF/OPERATE:OPERATE unless identically to toplevel
3523        '(#:tests? #f))
3524       (inputs
3525        `(("sbcl-rt" ,sbcl-rt)))
3526       (home-page "http://files.kpe.io/kmrcl/")
3527       (synopsis "General utilities for Common Lisp programs")
3528       (description
3529        "KMRCL is a collection of utilities used by a number of Kevin
3530 Rosenberg's CL packages.")
3531       (license license:llgpl))))
3532
3533 (define-public cl-kmrcl
3534   (sbcl-package->cl-source-package sbcl-kmrcl))
3535
3536 (define-public sbcl-cl-base64
3537   (let ((version "3.3.3"))
3538     (package
3539       (name "sbcl-cl-base64")
3540       (version version)
3541       (source
3542        (origin
3543          (method git-fetch)
3544          (uri (git-reference
3545                (url "http://git.kpe.io/cl-base64.git")
3546                (commit (string-append "v" version))))
3547          (file-name (git-file-name "cl-base64" version))
3548          (sha256
3549           (base32 "1dw6j7n6gsd2qa0p0rbsjxj00acxx3i9ca1qkgl0liy8lpnwkypl"))))
3550       (build-system asdf-build-system/sbcl)
3551       (arguments
3552        ;; Tests fail with: :FORCE and :FORCE-NOT arguments not allowed
3553        ;; in a nested call to ASDF/OPERATE:OPERATE unless identically
3554        ;; to toplevel
3555        '(#:tests? #f))
3556       (inputs
3557        `(("sbcl-ptester" ,sbcl-ptester)
3558          ("sbcl-kmrcl" ,sbcl-kmrcl)))
3559       (home-page "http://files.kpe.io/cl-base64/")
3560       (synopsis
3561        "Common Lisp package to encode and decode base64 with URI support")
3562       (description
3563        "This package provides highly optimized base64 encoding and decoding.
3564 Besides conversion to and from strings, integer conversions are supported.
3565 Encoding with Uniform Resource Identifiers is supported by using a modified
3566 encoding table that uses only URI-compatible characters.")
3567       (license license:bsd-3))))
3568
3569 (define-public cl-base64
3570   (sbcl-package->cl-source-package sbcl-cl-base64))
3571
3572 (define-public sbcl-chunga
3573   (package
3574     (name "sbcl-chunga")
3575     (version "1.1.7")
3576     (source
3577      (origin
3578        (method git-fetch)
3579        (uri (git-reference
3580               (url "https://github.com/edicl/chunga.git")
3581               (commit (string-append "v" version))))
3582        (file-name (git-file-name name version))
3583        (sha256
3584         (base32 "0jzn3nyb3f22gm983rfk99smqs3mhb9ivjmasvhq9qla5cl9pyhd"))))
3585     (build-system asdf-build-system/sbcl)
3586     (inputs
3587      `(("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)))
3588     (home-page "https://edicl.github.io/chunga/")
3589     (synopsis "Portable chunked streams for Common Lisp")
3590     (description
3591      "Chunga implements streams capable of chunked encoding on demand as
3592 defined in RFC 2616.")
3593     (license license:bsd-2)))
3594
3595 (define-public cl-chunga
3596   (sbcl-package->cl-source-package sbcl-chunga))
3597
3598 (define-public sbcl-cl-who
3599   (let ((version "1.1.4")
3600         (commit "2c08caa4bafba720409af9171feeba3f32e86d32")
3601         (revision "1"))
3602     (package
3603       (name "sbcl-cl-who")
3604       (version (git-version version revision commit))
3605       (source
3606        (origin
3607          (method git-fetch)
3608          (uri (git-reference
3609                (url "https://github.com/edicl/cl-who.git")
3610                (commit commit)))
3611          (file-name (git-file-name name version))
3612          (sha256
3613           (base32
3614            "0yjb6sr3yazm288m318kqvj9xk8rm9n1lpimgf65ymqv0i5agxsb"))))
3615       (build-system asdf-build-system/sbcl)
3616       (native-inputs
3617        `(("sbcl-flexi-streams" ,sbcl-flexi-streams)))
3618       (home-page "https://edicl.github.io/cl-who/")
3619       (synopsis "Yet another Lisp markup language")
3620       (description
3621        "There are plenty of Lisp Markup Languages out there - every Lisp
3622 programmer seems to write at least one during his career - and CL-WHO (where
3623 WHO means \"with-html-output\" for want of a better acronym) is probably just
3624 as good or bad as the next one.")
3625       (license license:bsd-2))))
3626
3627 (define-public cl-cl-who
3628   (sbcl-package->cl-source-package sbcl-cl-who))
3629
3630 (define-public sbcl-chipz
3631   (let ((version "0.8")
3632         (commit "75dfbc660a5a28161c57f115adf74c8a926bfc4d")
3633         (revision "1"))
3634     (package
3635       (name "sbcl-chipz")
3636       (version (git-version version revision commit))
3637       (source
3638        (origin
3639          (method git-fetch)
3640          (uri (git-reference
3641                (url "https://github.com/froydnj/chipz.git")
3642                (commit commit)))
3643          (file-name (git-file-name name version))
3644          (sha256
3645           (base32
3646            "0plx4rs39zbs4gjk77h4a2q11zpy75fh9v8hnxrvsf8fnakajhwg"))))
3647       (build-system asdf-build-system/sbcl)
3648       (native-inputs
3649        `(("sbcl-flexi-streams" ,sbcl-flexi-streams)))
3650       (home-page "http://method-combination.net/lisp/chipz/")
3651       (synopsis
3652        "Common Lisp library for decompressing deflate, zlib, gzip, and bzip2
3653 data")
3654       (description
3655        "DEFLATE data, defined in RFC1951, forms the core of popular
3656 compression formats such as zlib (RFC 1950) and gzip (RFC 1952).  As such,
3657 Chipz also provides for decompressing data in those formats as well.  BZIP2 is
3658 the format used by the popular compression tool bzip2.")
3659       ;; The author describes it as "MIT-like"
3660       (license license:expat))))
3661
3662 (define-public cl-chipz
3663   (sbcl-package->cl-source-package sbcl-chipz))
3664
3665 (define-public sbcl-drakma
3666   (package
3667     (name "sbcl-drakma")
3668     (version "2.0.7")
3669     (source
3670      (origin
3671        (method git-fetch)
3672        (uri (git-reference
3673              (url "https://github.com/edicl/drakma.git")
3674              (commit (string-append "v" version))))
3675        (file-name (git-file-name name version))
3676        (sha256
3677         (base32
3678          "1441idnyif9xzx3ln1p3fg36k2v9h4wasjqrzc8y52j61420qpci"))))
3679     (build-system asdf-build-system/sbcl)
3680     (inputs
3681      `(("sbcl-puri" ,sbcl-puri)
3682        ("sbcl-cl-base64" ,sbcl-cl-base64)
3683        ("sbcl-chunga" ,sbcl-chunga)
3684        ("sbcl-flexi-streams" ,sbcl-flexi-streams)
3685        ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
3686        ("sbcl-chipz" ,sbcl-chipz)
3687        ("sbcl-usocket" ,sbcl-usocket)
3688        ("sbcl-cl+ssl" ,sbcl-cl+ssl)))
3689     (native-inputs
3690      `(("sbcl-fiveam" ,sbcl-fiveam)))
3691     (home-page "https://edicl.github.io/drakma/")
3692     (synopsis "HTTP client written in Common Lisp")
3693     (description
3694      "Drakma is a full-featured HTTP client implemented in Common Lisp.  It
3695 knows how to handle HTTP/1.1 chunking, persistent connections, re-usable
3696 sockets, SSL, continuable uploads, file uploads, cookies, and more.")
3697     (license license:bsd-2)))
3698
3699 (define-public cl-drakma
3700   (sbcl-package->cl-source-package sbcl-drakma))
3701
3702 (define-public ecl-drakma
3703   (sbcl-package->ecl-package sbcl-drakma))
3704
3705 (define-public sbcl-hunchentoot
3706   (package
3707     (name "sbcl-hunchentoot")
3708     (version "1.2.38")
3709     (source
3710      (origin
3711        (method git-fetch)
3712        (uri (git-reference
3713              (url "https://github.com/edicl/hunchentoot.git")
3714              (commit (string-append "v" version))))
3715        (file-name (git-file-name "hunchentoot" version))
3716        (sha256
3717         (base32 "1anpcad7w045m4rsjs1f3xdhjwx5cppq1h0vlb3q7dz81fi3i6yq"))))
3718     (build-system asdf-build-system/sbcl)
3719     (native-inputs
3720      `(("sbcl-cl-who" ,sbcl-cl-who)
3721        ("sbcl-drakma" ,sbcl-drakma)))
3722     (inputs
3723      `(("sbcl-chunga" ,sbcl-chunga)
3724        ("sbcl-cl-base64" ,sbcl-cl-base64)
3725        ("sbcl-cl-fad" ,sbcl-cl-fad)
3726        ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
3727        ("sbcl-flexi-streams" ,sbcl-flexi-streams)
3728        ("sbcl-cl+ssl" ,sbcl-cl+ssl)
3729        ("sbcl-md5" ,sbcl-md5)
3730        ("sbcl-rfc2388" ,sbcl-rfc2388)
3731        ("sbcl-trivial-backtrace" ,sbcl-trivial-backtrace)
3732        ("sbcl-usocket" ,sbcl-usocket)))
3733     (home-page "https://edicl.github.io/hunchentoot/")
3734     (synopsis "Web server written in Common Lisp")
3735     (description
3736      "Hunchentoot is a web server written in Common Lisp and at the same
3737 time a toolkit for building dynamic websites.  As a stand-alone web server,
3738 Hunchentoot is capable of HTTP/1.1 chunking (both directions), persistent
3739 connections (keep-alive), and SSL.")
3740     (license license:bsd-2)))
3741
3742 (define-public cl-hunchentoot
3743   (sbcl-package->cl-source-package sbcl-hunchentoot))
3744
3745 (define-public sbcl-trivial-types
3746   (package
3747     (name "sbcl-trivial-types")
3748     (version "0.0.1")
3749     (source
3750      (origin
3751        (method git-fetch)
3752        (uri (git-reference
3753              (url "https://github.com/m2ym/trivial-types.git")
3754              (commit "ee869f2b7504d8aa9a74403641a5b42b16f47d88")))
3755        (file-name (git-file-name name version))
3756        (sha256
3757         (base32 "1s4cp9bdlbn8447q7w7f1wkgwrbvfzp20mgs307l5pxvdslin341"))))
3758     (build-system asdf-build-system/sbcl)
3759     (home-page "https://github.com/m2ym/trivial-types")
3760     (synopsis "Trivial type definitions for Common Lisp")
3761     (description
3762      "TRIVIAL-TYPES provides missing but important type definitions such as
3763 PROPER-LIST, ASSOCIATION-LIST, PROPERTY-LIST and TUPLE.")
3764     (license license:llgpl)))
3765
3766 (define-public cl-trivial-types
3767   (sbcl-package->cl-source-package sbcl-trivial-types))
3768
3769 (define-public sbcl-cl-syntax
3770   (package
3771     (name "sbcl-cl-syntax")
3772     (version "0.0.3")
3773     (source
3774      (origin
3775        (method git-fetch)
3776        (uri (git-reference
3777              (url "https://github.com/m2ym/cl-syntax.git")
3778              (commit "03f0c329bbd55b8622c37161e6278366525e2ccc")))
3779        (file-name (git-file-name "cl-syntax" version))
3780        (sha256
3781         (base32 "17ran8xp77asagl31xv8w819wafh6whwfc9p6dgx22ca537gyl4y"))))
3782     (build-system asdf-build-system/sbcl)
3783     (arguments
3784      '(#:asd-file "cl-syntax.asd"
3785        #:asd-system-name "cl-syntax"))
3786     (inputs `(("sbcl-trivial-types" ,sbcl-trivial-types)
3787               ("sbcl-named-readtables" ,sbcl-named-readtables)))
3788     (home-page "https://github.com/m2ym/cl-syntax")
3789     (synopsis "Reader Syntax Coventions for Common Lisp and SLIME")
3790     (description
3791      "CL-SYNTAX provides Reader Syntax Coventions for Common Lisp and SLIME.")
3792     (license license:llgpl)))
3793
3794 (define-public cl-syntax
3795   (sbcl-package->cl-source-package sbcl-cl-syntax))
3796
3797 (define-public sbcl-cl-annot
3798   (let ((commit "c99e69c15d935eabc671b483349a406e0da9518d")
3799         (revision "1"))
3800     (package
3801       (name "sbcl-cl-annot")
3802       (version (git-version "0.0.0" revision commit))
3803       (source
3804        (origin
3805          (method git-fetch)
3806          (uri (git-reference
3807                (url "https://github.com/m2ym/cl-annot.git")
3808                (commit commit)))
3809          (file-name (git-file-name name version))
3810          (sha256
3811           (base32 "1wq1gs9jjd5m6iwrv06c2d7i5dvqsfjcljgbspfbc93cg5xahk4n"))))
3812       (build-system asdf-build-system/sbcl)
3813     (arguments
3814      '(#:asd-file "cl-annot.asd"
3815        #:asd-system-name "cl-annot"))
3816       (inputs
3817        `(("sbcl-alexandria" ,sbcl-alexandria)))
3818       (home-page "https://github.com/m2ym/cl-annot")
3819       (synopsis "Python-like Annotation Syntax for Common Lisp.")
3820       (description
3821        "@code{cl-annot} is an general annotation library for Common Lisp.")
3822       (license license:llgpl))))
3823
3824 (define-public cl-annot
3825   (sbcl-package->cl-source-package sbcl-cl-annot))
3826
3827 (define-public sbcl-cl-syntax-annot
3828   (package
3829     (name "sbcl-cl-syntax-annot")
3830     (version "0.0.3")
3831     (source
3832      (origin
3833        (method git-fetch)
3834        (uri (git-reference
3835              (url "https://github.com/m2ym/cl-syntax.git")
3836              (commit "03f0c329bbd55b8622c37161e6278366525e2ccc")))
3837        (file-name (git-file-name name version))
3838        (sha256
3839         (base32 "17ran8xp77asagl31xv8w819wafh6whwfc9p6dgx22ca537gyl4y"))))
3840     (build-system asdf-build-system/sbcl)
3841     (arguments
3842      '(#:asd-file "cl-syntax-annot.asd"
3843        #:asd-system-name "cl-syntax-annot"))
3844     (inputs
3845      `(("sbcl-cl-syntax" ,sbcl-cl-syntax)
3846        ("sbcl-cl-annot" ,sbcl-cl-annot)))
3847     (home-page "https://github.com/m2ym/cl-syntax")
3848     (synopsis "Reader Syntax Coventions for Common Lisp and SLIME")
3849     (description
3850      "CL-SYNTAX provides Reader Syntax Coventions for Common Lisp and
3851 SLIME.")
3852     (license license:llgpl)))
3853
3854 (define-public cl-syntax-annot
3855   (sbcl-package->cl-source-package sbcl-cl-syntax-annot))
3856
3857 (define-public sbcl-cl-utilities
3858   (let ((commit "dce2d2f6387091ea90357a130fa6d13a6776884b")
3859         (revision "1"))
3860     (package
3861       (name "sbcl-cl-utilities")
3862       (version (git-version "0.0.0" revision commit))
3863       (source
3864        (origin
3865          (method url-fetch)
3866          (uri
3867           (string-append
3868            "https://gitlab.common-lisp.net/cl-utilities/cl-utilities/-/"
3869            "archive/" commit "/cl-utilities-" commit ".tar.gz"))
3870          (sha256
3871           (base32 "1r46v730yf96nk2vb24qmagv9x96xvd08abqwhf02ghgydv1a7z2"))))
3872       (build-system asdf-build-system/sbcl)
3873       (arguments
3874        '(#:asd-file "cl-utilities.asd"
3875          #:asd-system-name "cl-utilities"
3876          #:phases
3877          (modify-phases %standard-phases
3878            (add-after 'unpack 'fix-paths
3879              (lambda* (#:key inputs #:allow-other-keys)
3880                (substitute* "rotate-byte.lisp"
3881                  (("in-package :cl-utilities)" all)
3882                   "in-package :cl-utilities)\n\n#+sbcl\n(require :sb-rotate-byte)")))))))
3883       (home-page "http://common-lisp.net/project/cl-utilities")
3884       (synopsis "A collection of semi-standard utilities")
3885       (description
3886        "On Cliki.net <http://www.cliki.net/Common%20Lisp%20Utilities>, there
3887 is a collection of Common Lisp Utilities, things that everybody writes since
3888 they're not part of the official standard.  There are some very useful things
3889 there; the only problems are that they aren't implemented as well as you'd
3890 like (some aren't implemented at all) and they aren't conveniently packaged
3891 and maintained.  It takes quite a bit of work to carefully implement utilities
3892 for common use, commented and documented, with error checking placed
3893 everywhere some dumb user might make a mistake.")
3894       (license license:public-domain))))
3895
3896 (define-public cl-utilities
3897   (sbcl-package->cl-source-package sbcl-cl-utilities))
3898
3899 (define-public sbcl-map-set
3900   (let ((commit "7b4b545b68b8")
3901         (revision "1"))
3902     (package
3903       (name "sbcl-map-set")
3904       (version (git-version "0.0.0" revision commit))
3905       (source
3906        (origin
3907          (method url-fetch)
3908          (uri (string-append
3909                "https://bitbucket.org/tarballs_are_good/map-set/get/"
3910                commit ".tar.gz"))
3911          (sha256
3912           (base32 "1sx5j5qdsy5fklspfammwb16kjrhkggdavm922a9q86jm5l0b239"))))
3913       (build-system asdf-build-system/sbcl)
3914       (home-page "https://bitbucket.org/tarballs_are_good/map-set")
3915       (synopsis "Set-like data structure")
3916       (description
3917        "Implementation of a set-like data structure with constant time
3918 addition, removal, and random selection.")
3919       (license license:bsd-3))))
3920
3921 (define-public cl-map-set
3922   (sbcl-package->cl-source-package sbcl-map-set))
3923
3924 (define-public sbcl-quri
3925   (let ((commit "76b75103f21ead092c9f715512fa82441ef61185")
3926         (revision "1"))
3927     (package
3928       (name "sbcl-quri")
3929       (version (git-version "0.1.0" revision commit))
3930       (source
3931        (origin
3932          (method git-fetch)
3933          (uri (git-reference
3934                (url "https://github.com/fukamachi/quri.git")
3935                (commit commit)))
3936          (file-name (git-file-name name version))
3937          (sha256
3938           (base32 "1ccbxsgzdibmzq33mmbmmz9vwl6l03xh6nbpsh1hkdvdcl7q0a60"))))
3939       (build-system asdf-build-system/sbcl)
3940       (arguments
3941        ;; Tests fail with: Component QURI-ASD::QURI-TEST not found,
3942        ;; required by #<SYSTEM "quri">. Why?
3943        '(#:tests? #f))
3944       (native-inputs `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
3945                        ("sbcl-prove" ,sbcl-prove)))
3946       (inputs `(("sbcl-babel" ,sbcl-babel)
3947                 ("sbcl-split-sequence" ,sbcl-split-sequence)
3948                 ("sbcl-cl-utilities" ,sbcl-cl-utilities)
3949                 ("sbcl-alexandria" ,sbcl-alexandria)))
3950       (home-page "https://github.com/fukamachi/quri")
3951       (synopsis "Yet another URI library for Common Lisp")
3952       (description
3953        "QURI (pronounced \"Q-ree\") is yet another URI library for Common
3954 Lisp. It is intended to be a replacement of PURI.")
3955       (license license:bsd-3))))
3956
3957 (define-public cl-quri
3958   (sbcl-package->cl-source-package sbcl-quri))
3959
3960 (define-public sbcl-myway
3961   (let ((commit "286230082a11f879c18b93f17ca571c5f676bfb7")
3962         (revision "1"))
3963     (package
3964      (name "sbcl-myway")
3965      (version (git-version "0.1.0" revision commit))
3966      (source
3967       (origin
3968        (method git-fetch)
3969        (uri (git-reference
3970              (url "https://github.com/fukamachi/myway.git")
3971              (commit commit)))
3972        (file-name (git-file-name "myway" version))
3973        (sha256
3974         (base32 "0briia9bk3lbr0frnx39d1qg6i38dm4j6z9w3yga3d40k6df4a90"))))
3975      (build-system asdf-build-system/sbcl)
3976      (arguments
3977       ;; Tests fail with: Component MYWAY-ASD::MYWAY-TEST not found, required
3978       ;; by #<SYSTEM "myway">. Why?
3979       '(#:tests? #f))
3980      (native-inputs
3981       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
3982         ("sbcl-prove" ,sbcl-prove)))
3983      (inputs
3984       `(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
3985         ("sbcl-quri" ,sbcl-quri)
3986         ("sbcl-map-set" ,sbcl-map-set)))
3987      (home-page "https://github.com/fukamachi/myway")
3988      (synopsis "Sinatra-compatible URL routing library for Common Lisp")
3989      (description "My Way is a Sinatra-compatible URL routing library.")
3990      (license license:llgpl))))
3991
3992 (define-public cl-myway
3993   (sbcl-package->cl-source-package sbcl-myway))
3994
3995 (define-public sbcl-xsubseq
3996   (let ((commit "5ce430b3da5cda3a73b9cf5cee4df2843034422b")
3997         (revision "1"))
3998     (package
3999      (name "sbcl-xsubseq")
4000      (version (git-version "0.0.1" revision commit))
4001      (source
4002       (origin
4003        (method git-fetch)
4004        (uri (git-reference
4005              (url "https://github.com/fukamachi/xsubseq")
4006              (commit commit)))
4007        (file-name (git-file-name name version))
4008        (sha256
4009         (base32 "1xz79q0p2mclf3sqjiwf6izdpb6xrsr350bv4mlmdlm6rg5r99px"))))
4010      (build-system asdf-build-system/sbcl)
4011      (arguments
4012       ;; Tests fail with: Component XSUBSEQ-ASD::XSUBSEQ-TEST not found,
4013       ;; required by #<SYSTEM "xsubseq">. Why?
4014       '(#:tests? #f))
4015      (native-inputs
4016       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4017         ("sbcl-prove" ,sbcl-prove)))
4018      (home-page "https://github.com/fukamachi/xsubseq")
4019      (synopsis "Efficient way to use \"subseq\"s in Common Lisp")
4020      (description
4021       "XSubseq provides functions to be able to handle \"subseq\"s more
4022 effieiently.")
4023      (license license:bsd-2))))
4024
4025 (define-public cl-xsubseq
4026   (sbcl-package->cl-source-package sbcl-xsubseq))
4027
4028 (define-public sbcl-smart-buffer
4029   (let ((commit "09b9a9a0b3abaa37abe9a730f5aac2643dca4e62")
4030         (revision "1"))
4031     (package
4032       (name "sbcl-smart-buffer")
4033       (version (git-version "0.0.1" revision commit))
4034       (source
4035        (origin
4036          (method git-fetch)
4037          (uri (git-reference
4038                (url "https://github.com/fukamachi/smart-buffer")
4039                (commit commit)))
4040          (file-name (git-file-name name version))
4041          (sha256
4042           (base32 "0qz1zzxx0wm5ff7gpgsq550a59p0qj594zfmm2rglj97dahj54l7"))))
4043       (build-system asdf-build-system/sbcl)
4044       (arguments
4045        ;; Tests fail with: Component SMART-BUFFER-ASD::SMART-BUFFER-TEST not
4046        ;; found, required by #<SYSTEM "smart-buffer">. Why?
4047        `(#:tests? #f))
4048       (native-inputs
4049        `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4050          ("sbcl-prove" ,sbcl-prove)))
4051       (inputs
4052        `(("sbcl-xsubseq" ,sbcl-xsubseq)
4053          ("sbcl-flexi-streams" ,sbcl-flexi-streams)))
4054       (home-page "https://github.com/fukamachi/smart-buffer")
4055       (synopsis "Smart octets buffer")
4056       (description
4057        "Smart-buffer provides an output buffer which changes the destination
4058 depending on content size.")
4059       (license license:bsd-3))))
4060
4061 (define-public cl-smart-buffer
4062   (sbcl-package->cl-source-package sbcl-smart-buffer))
4063
4064 (define-public sbcl-fast-http
4065   (let ((commit "f9e7597191bae380503e20724fd493a24d024935")
4066         (revision "1"))
4067     (package
4068       (name "sbcl-fast-http")
4069       (version (git-version "0.2.0" revision commit))
4070       (source
4071        (origin
4072          (method git-fetch)
4073          (uri (git-reference
4074                (url "https://github.com/fukamachi/fast-http")
4075                (commit commit)))
4076          (file-name (git-file-name name version))
4077          (sha256
4078           (base32 "0qdmwv2zm0sizxdb8nnclgwl0nfjcbjaimbakavikijw7lr9b4jp"))))
4079       (build-system asdf-build-system/sbcl)
4080       (arguments
4081        ;; Tests fail with: Component FAST-HTTP-ASD::FAST-HTTP-TEST not found,
4082        ;; required by #<SYSTEM "fast-http">. Why?
4083        `(#:tests? #f))
4084       (native-inputs
4085        `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4086          ("sbcl-prove" ,sbcl-prove)))
4087       (inputs
4088        `(("sbcl-alexandria" ,sbcl-alexandria)
4089          ("sbcl-proc-parse" ,sbcl-proc-parse)
4090          ("sbcl-xsubseq" ,sbcl-xsubseq)
4091          ("sbcl-smart-buffer" ,sbcl-smart-buffer)
4092          ("sbcl-cl-utilities" ,sbcl-cl-utilities)))
4093       (home-page "https://github.com/fukamachi/fast-http")
4094       (synopsis "HTTP request/response parser for Common Lisp")
4095       (description
4096        "@code{fast-http} is a HTTP request/response protocol parser for Common
4097 Lisp.")
4098       ;; Author specified the MIT license
4099       (license license:expat))))
4100
4101 (define-public cl-fast-http
4102   (sbcl-package->cl-source-package sbcl-fast-http))
4103
4104 (define-public sbcl-static-vectors
4105   (let ((commit "0681eac1f49370cde03e64b077251e8abf47d702")
4106         (revision "1"))
4107     (package
4108      (name "sbcl-static-vectors")
4109      (version (git-version "1.8.3" revision commit))
4110      (source
4111       (origin
4112        (method git-fetch)
4113        (uri (git-reference
4114              (url "https://github.com/sionescu/static-vectors.git")
4115              (commit commit)))
4116        (file-name (git-file-name name version))
4117        (sha256
4118         (base32 "138nlsq14hv8785ycjm6jw3i6ablhq8vcwys7q09y80arcgrg6r3"))))
4119      (native-inputs
4120       `(("sbcl-fiveam" ,sbcl-fiveam)))
4121      (inputs
4122       `(("sbcl-cffi-grovel" ,sbcl-cffi-grovel)
4123         ("sbcl-cffi" ,sbcl-cffi)))
4124      (build-system asdf-build-system/sbcl)
4125      (home-page "http://common-lisp.net/projects/iolib/")
4126      (synopsis "Allocate SIMPLE-ARRAYs in static memory")
4127      (description
4128       "With @code{static-vectors}, you can create vectors allocated in static
4129 memory.")
4130      (license license:expat))))
4131
4132 (define-public cl-static-vectors
4133   (sbcl-package->cl-source-package sbcl-static-vectors))
4134
4135 (define-public sbcl-marshal
4136   (let ((commit "eff1b15f2b0af2f26f71ad6a4dd5c4beab9299ec")
4137         (revision "1"))
4138     (package
4139      (name "sbcl-marshal")
4140      (version (git-version "1.3.0" revision commit))
4141      (source
4142       (origin
4143        (method git-fetch)
4144        (uri (git-reference
4145              (url "https://github.com/wlbr/cl-marshal.git")
4146              (commit commit)))
4147        (file-name (git-file-name name version))
4148        (sha256
4149         (base32 "08qs6fhk38xpkkjkpcj92mxx0lgy4ygrbbzrmnivdx281syr0gwh"))))
4150      (build-system asdf-build-system/sbcl)
4151      (home-page "https://github.com/wlbr/cl-marshal")
4152      (synopsis "Simple (de)serialization of Lisp datastructures")
4153      (description
4154       "Simple and fast marshalling of Lisp datastructures.  Convert any object
4155 into a string representation, put it on a stream an revive it from there.
4156 Only minimal changes required to make your CLOS objects serializable.")
4157      (license license:expat))))
4158
4159 (define-public cl-marshal
4160   (sbcl-package->cl-source-package sbcl-marshal))
4161
4162 (define-public sbcl-checkl
4163   (let ((commit "80328800d047fef9b6e32dfe6bdc98396aee3cc9")
4164         (revision "1"))
4165     (package
4166       (name "sbcl-checkl")
4167       (version (git-version "0.0.0" revision commit))
4168       (source
4169        (origin
4170          (method git-fetch)
4171          (uri (git-reference
4172                (url "https://github.com/rpav/CheckL.git")
4173                (commit commit)))
4174          (file-name (git-file-name name version))
4175          (sha256
4176           (base32 "0bpisihx1gay44xmyr1dmhlwh00j0zzi04rp9fy35i95l2r4xdlx"))))
4177       (build-system asdf-build-system/sbcl)
4178       (arguments
4179        ;; Error while trying to load definition for system checkl-test from
4180        ;; pathname [...]/checkl-test.asd: The function CHECKL:DEFINE-TEST-OP
4181        ;; is undefined.
4182        '(#:tests? #f))
4183       (native-inputs
4184        `(("sbcl-fiveam" ,sbcl-fiveam)))
4185       (inputs
4186        `(("sbcl-marshal" ,sbcl-marshal)))
4187       (home-page "https://github.com/rpav/CheckL/")
4188       (synopsis "Dynamic testing for Common Lisp")
4189       (description
4190        "CheckL lets you write tests dynamically, it checks resulting values
4191 against the last run.")
4192       ;; The author specifies both LLGPL and "BSD", but the "BSD" license
4193       ;; isn't specified anywhere, so I don't know which kind.  LLGPL is the
4194       ;; stronger of the two and so I think only listing this should suffice.
4195       (license license:llgpl))))
4196
4197 (define-public cl-checkl
4198   (sbcl-package->cl-source-package sbcl-checkl))
4199
4200 (define-public sbcl-fast-io
4201   (let ((commit "dc3a71db7e9b756a88781ae9c342fe9d4bbab51c")
4202         (revision "1"))
4203     (package
4204      (name "sbcl-fast-io")
4205      (version (git-version "1.0.0" revision commit))
4206      (source
4207       (origin
4208        (method git-fetch)
4209        (uri (git-reference
4210              (url "https://github.com/rpav/fast-io.git")
4211              (commit commit)))
4212        (file-name (git-file-name name version))
4213        (sha256
4214         (base32 "1jsp6xvi26ln6fdy5j5zi05xvan8jsqdhisv552dy6xg6ws8i1yq"))))
4215      (build-system asdf-build-system/sbcl)
4216      (arguments
4217       ;; Error while trying to load definition for system fast-io-test from
4218       ;; pathname [...]/fast-io-test.asd: The function CHECKL:DEFINE-TEST-OP
4219       ;; is undefined.
4220       '(#:tests? #f))
4221      (native-inputs
4222       `(("sbcl-fiveam" ,sbcl-fiveam)
4223         ("sbcl-checkl" ,sbcl-checkl)))
4224      (inputs
4225       `(("sbcl-alexandria" ,sbcl-alexandria)
4226         ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)
4227         ("sbcl-static-vectors" ,sbcl-static-vectors)))
4228      (home-page "https://github.com/rpav/fast-io")
4229      (synopsis "Fast octet-vector/stream I/O for Common Lisp")
4230      (description
4231       "Fast-io is about improving performance to octet-vectors and octet
4232 streams (though primarily the former, while wrapping the latter).")
4233      ;; Author specifies this as NewBSD which is an alias
4234      (license license:bsd-3))))
4235
4236 (define-public cl-fast-io
4237   (sbcl-package->cl-source-package sbcl-fast-io))
4238
4239 (define-public sbcl-jonathan
4240   (let ((commit "1f448b4f7ac8265e56e1c02b32ce383e65316300")
4241         (revision "1"))
4242     (package
4243      (name "sbcl-jonathan")
4244      (version (git-version "0.1.0" revision commit))
4245      (source
4246       (origin
4247        (method git-fetch)
4248        (uri (git-reference
4249              (url "https://github.com/Rudolph-Miller/jonathan.git")
4250              (commit commit)))
4251        (file-name (git-file-name name version))
4252        (sha256
4253         (base32 "14x4iwz3mbag5jzzzr4sb6ai0m9r4q4kyypbq32jmsk2dx1hi807"))))
4254      (build-system asdf-build-system/sbcl)
4255      (arguments
4256       ;; Tests fail with: Component JONATHAN-ASD::JONATHAN-TEST not found,
4257       ;; required by #<SYSTEM "jonathan">. Why?
4258       `(#:tests? #f))
4259      (native-inputs
4260       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4261         ("sbcl-prove" ,sbcl-prove)))
4262      (inputs
4263       `(("sbcl-cl-syntax" ,sbcl-cl-syntax)
4264         ("sbcl-cl-syntax-annot" ,sbcl-cl-syntax-annot)
4265         ("sbcl-fast-io" ,sbcl-fast-io)
4266         ("sbcl-proc-parse" ,sbcl-proc-parse)
4267         ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)))
4268      (home-page "http://rudolph-miller.github.io/jonathan/overview.html")
4269      (synopsis "JSON encoder and decoder")
4270      (description
4271       "High performance JSON encoder and decoder.  Currently support: SBCL,
4272 CCL.")
4273      ;; Author specifies the MIT license
4274      (license license:expat))))
4275
4276 (define-public cl-jonathan
4277   (sbcl-package->cl-source-package sbcl-jonathan))
4278
4279 (define-public sbcl-http-body
4280   (let ((commit "dd01dc4f5842e3d29728552e5163acce8386eb73")
4281         (revision "1"))
4282     (package
4283      (name "sbcl-http-body")
4284      (version (git-version "0.1.0" revision commit))
4285      (source
4286       (origin
4287        (method git-fetch)
4288        (uri (git-reference
4289              (url "https://github.com/fukamachi/http-body")
4290              (commit commit)))
4291        (file-name (git-file-name name version))
4292        (sha256
4293         (base32 "1jd06snjvxcprhapgfq8sx0y5lrldkvhf206ix6d5a23dd6zcmr0"))))
4294      (build-system asdf-build-system/sbcl)
4295      (arguments
4296       ;; Tests fail with: Component HTTP-BODY-ASD::HTTP-BODY-TEST not
4297       ;; found, required by #<SYSTEM "http-body">. Why?
4298       `(#:tests? #f))
4299      (native-inputs
4300       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4301         ("sbcl-prove" ,sbcl-prove)))
4302      (inputs
4303       `(("sbcl-fast-http" ,sbcl-fast-http)
4304         ("sbcl-jonathan" ,sbcl-jonathan)
4305         ("sbcl-quri" ,sbcl-quri)))
4306      (home-page "https://github.com/fukamachi/http-body")
4307      (synopsis "HTTP POST data parser")
4308      (description
4309       "HTTP-Body parses HTTP POST data and returns POST parameters.  It
4310 supports application/x-www-form-urlencoded, application/json, and
4311 multipart/form-data.")
4312      (license license:bsd-2))))
4313
4314 (define-public cl-http-body
4315   (sbcl-package->cl-source-package sbcl-http-body))
4316
4317 (define-public sbcl-circular-streams
4318   (let ((commit "e770bade1919c5e8533dd2078c93c3d3bbeb38df")
4319         (revision "1"))
4320     (package
4321      (name "sbcl-circular-streams")
4322      (version (git-version "0.1.0" revision commit))
4323      (source
4324       (origin
4325        (method git-fetch)
4326        (uri (git-reference
4327              (url "https://github.com/fukamachi/circular-streams")
4328              (commit commit)))
4329        (file-name (git-file-name name version))
4330        (sha256
4331         (base32 "1wpw6d5cciyqcf92f7mvihak52pd5s47kk4qq6f0r2z2as68p5rs"))))
4332      (build-system asdf-build-system/sbcl)
4333      (arguments
4334       ;; The tests depend on cl-test-more which is now prove. Prove
4335       ;; tests aren't working for some reason.
4336       `(#:tests? #f))
4337      (inputs
4338       `(("sbcl-fast-io" ,sbcl-fast-io)
4339         ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)))
4340      (home-page "https://github.com/fukamachi/circular-streams")
4341      (synopsis "Circularly readable streams for Common Lisp")
4342      (description
4343       "Circular-Streams allows you to read streams circularly by wrapping real
4344 streams. Once you reach end-of-file of a stream, it's file position will be
4345 reset to 0 and you're able to read it again.")
4346      (license license:llgpl))))
4347
4348 (define-public cl-circular-streams
4349   (sbcl-package->cl-source-package sbcl-circular-streams))
4350
4351 (define-public sbcl-lack-request
4352   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4353         (revision "1"))
4354     (package
4355      (name "sbcl-lack-request")
4356      (version (git-version "0.1.0" revision commit))
4357      (source
4358       (origin
4359        (method git-fetch)
4360        (uri (git-reference
4361              (url "https://github.com/fukamachi/lack.git")
4362              (commit commit)))
4363        (file-name (git-file-name "lack-request" version))
4364        (sha256
4365         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4366      (build-system asdf-build-system/sbcl)
4367      (arguments
4368       '(#:asd-file "lack-request.asd"
4369         #:asd-system-name "lack-request"
4370         #:test-asd-file "t-lack-request.asd"
4371         ;; XXX: Component :CLACK-TEST not found
4372         #:tests? #f))
4373      (native-inputs
4374       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4375         ("sbcl-prove" ,sbcl-prove)))
4376      (inputs
4377       `(("sbcl-quri" ,sbcl-quri)
4378         ("sbcl-http-body" ,sbcl-http-body)
4379         ("sbcl-circular-streams" ,sbcl-circular-streams)))
4380      (home-page "https://github.com/fukamachi/lack")
4381      (synopsis "Lack, the core of Clack")
4382      (description
4383       "Lack is a Common Lisp library which allows web applications to be
4384 constructed of modular components.  It was originally a part of Clack, however
4385 it's going to be rewritten as an individual project since Clack v2 with
4386 performance and simplicity in mind.")
4387      (license license:llgpl))))
4388
4389 (define-public cl-lack-request
4390   (sbcl-package->cl-source-package sbcl-lack-request))
4391
4392 (define-public sbcl-local-time
4393   (let ((commit "beac054eef428552b63d4ae7820c32ffef9a3015")
4394         (revision "1"))
4395     (package
4396      (name "sbcl-local-time")
4397      (version (git-version "1.0.6" revision commit))
4398      (source
4399       (origin
4400        (method git-fetch)
4401        (uri (git-reference
4402              (url "https://github.com/dlowe-net/local-time.git")
4403              (commit commit)))
4404        (file-name (git-file-name name version))
4405        (sha256
4406         (base32 "0xhkmgxh41dg2wwlsp0h2l41jp144xn4gpxhh0lna6kh0560w2cc"))))
4407      (build-system asdf-build-system/sbcl)
4408      (arguments
4409       ;; TODO: Component :STEFIL not found, required by #<SYSTEM
4410       ;; "local-time/test">
4411       '(#:tests? #f))
4412      (native-inputs
4413       `(("stefil" ,sbcl-hu.dwim.stefil)))
4414      (inputs
4415       `(("sbcl-cl-fad" ,sbcl-cl-fad)))
4416      (home-page "https://common-lisp.net/project/local-time/")
4417      (synopsis "Time manipulation library for Common Lisp")
4418      (description
4419       "The LOCAL-TIME library is a Common Lisp library for the manipulation of
4420 dates and times.  It is based almost entirely upon Erik Naggum's paper \"The
4421 Long Painful History of Time\".")
4422      (license license:expat))))
4423
4424 (define-public cl-local-time
4425   (sbcl-package->cl-source-package sbcl-local-time))
4426
4427 (define-public sbcl-lack-response
4428   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4429         (revision "1"))
4430     (package
4431      (name "sbcl-lack-response")
4432      (version (git-version "0.1.0" revision commit))
4433      (source
4434       (origin
4435        (method git-fetch)
4436        (uri (git-reference
4437              (url "https://github.com/fukamachi/lack.git")
4438              (commit commit)))
4439        (file-name (git-file-name name version))
4440        (sha256
4441         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4442      (build-system asdf-build-system/sbcl)
4443      (arguments
4444       '(#:asd-file "lack-response.asd"
4445         #:asd-system-name "lack-response"
4446         ;; XXX: no tests for lack-response.
4447         #:tests? #f))
4448      (native-inputs
4449       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4450         ("sbcl-prove" ,sbcl-prove)))
4451      (inputs
4452       `(("sbcl-quri" ,sbcl-quri)
4453         ("sbcl-http-body" ,sbcl-http-body)
4454         ("sbcl-circular-streams" ,sbcl-circular-streams)
4455         ("sbcl-local-time" ,sbcl-local-time)))
4456      (home-page "https://github.com/fukamachi/lack")
4457      (synopsis "Lack, the core of Clack")
4458      (description
4459       "Lack is a Common Lisp library which allows web applications to be
4460 constructed of modular components.  It was originally a part of Clack, however
4461 it's going to be rewritten as an individual project since Clack v2 with
4462 performance and simplicity in mind.")
4463      (license license:llgpl))))
4464
4465 (define-public cl-lack-response
4466   (sbcl-package->cl-source-package sbcl-lack-response))
4467
4468 (define-public sbcl-lack-component
4469   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4470         (revision "1"))
4471     (package
4472      (name "sbcl-lack-component")
4473      (version (git-version "0.0.0" revision commit))
4474      (source
4475       (origin
4476        (method git-fetch)
4477        (uri (git-reference
4478              (url "https://github.com/fukamachi/lack.git")
4479              (commit commit)))
4480        (file-name (git-file-name "lack-component" version))
4481        (sha256
4482         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4483      (build-system asdf-build-system/sbcl)
4484      (arguments
4485       '(#:asd-file "lack-component.asd"
4486         #:asd-system-name "lack-component"
4487         #:test-asd-file "t-lack-component.asd"
4488         ;; XXX: Component :LACK-TEST not found
4489         #:tests? #f))
4490      (native-inputs
4491       `(("prove-asdf" ,sbcl-prove-asdf)))
4492      (home-page "https://github.com/fukamachi/lack")
4493      (synopsis "Lack, the core of Clack")
4494      (description
4495       "Lack is a Common Lisp library which allows web applications to be
4496 constructed of modular components.  It was originally a part of Clack, however
4497 it's going to be rewritten as an individual project since Clack v2 with
4498 performance and simplicity in mind.")
4499      (license license:llgpl))))
4500
4501 (define-public cl-lack-component
4502   (sbcl-package->cl-source-package sbcl-lack-component))
4503
4504 (define-public sbcl-lack-util
4505   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4506         (revision "1"))
4507     (package
4508      (name "sbcl-lack-util")
4509      (version (git-version "0.1.0" revision commit))
4510      (source
4511       (origin
4512        (method git-fetch)
4513        (uri (git-reference
4514              (url "https://github.com/fukamachi/lack.git")
4515              (commit commit)))
4516        (file-name (git-file-name "lack-util" version))
4517        (sha256
4518         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4519      (build-system asdf-build-system/sbcl)
4520      (arguments
4521       '(#:asd-file "lack-util.asd"
4522         #:asd-system-name "lack-util"
4523         #:test-asd-file "t-lack-util.asd"
4524         ;; XXX: Component :LACK-TEST not found
4525         #:tests? #f))
4526      (native-inputs
4527       `(("prove-asdf" ,sbcl-prove-asdf)))
4528      (inputs
4529       `(("sbcl-ironclad" ,sbcl-ironclad)))
4530      (home-page "https://github.com/fukamachi/lack")
4531      (synopsis "Lack, the core of Clack")
4532      (description
4533       "Lack is a Common Lisp library which allows web applications to be
4534 constructed of modular components.  It was originally a part of Clack, however
4535 it's going to be rewritten as an individual project since Clack v2 with
4536 performance and simplicity in mind.")
4537      (license license:llgpl))))
4538
4539 (define-public cl-lack-util
4540   (sbcl-package->cl-source-package sbcl-lack-util))
4541
4542 (define-public sbcl-lack-middleware-backtrace
4543   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4544         (revision "1"))
4545     (package
4546      (name "sbcl-lack-middleware-backtrace")
4547      (version (git-version "0.1.0" revision commit))
4548      (source
4549       (origin
4550        (method git-fetch)
4551        (uri (git-reference
4552              (url "https://github.com/fukamachi/lack.git")
4553              (commit commit)))
4554        (file-name (git-file-name "lack-middleware-backtrace" version))
4555        (sha256
4556         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4557      (build-system asdf-build-system/sbcl)
4558      (arguments
4559       '(#:asd-file "lack-middleware-backtrace.asd"
4560         #:asd-system-name "lack-middleware-backtrace"
4561         #:test-asd-file "t-lack-middleware-backtrace.asd"
4562         ;; XXX: Component :LACK not found
4563         #:tests? #f))
4564      (native-inputs
4565       `(("prove-asdf" ,sbcl-prove-asdf)))
4566      (home-page "https://github.com/fukamachi/lack")
4567      (synopsis "Lack, the core of Clack")
4568      (description
4569       "Lack is a Common Lisp library which allows web applications to be
4570 constructed of modular components.  It was originally a part of Clack, however
4571 it's going to be rewritten as an individual project since Clack v2 with
4572 performance and simplicity in mind.")
4573      (license license:llgpl))))
4574
4575 (define-public cl-lack-middleware-backtrace
4576   (sbcl-package->cl-source-package sbcl-lack-middleware-backtrace))
4577
4578 (define-public sbcl-trivial-mimes
4579   (let ((commit "303f8ac0aa6ca0bc139aa3c34822e623c3723fab")
4580         (revision "1"))
4581     (package
4582       (name "sbcl-trivial-mimes")
4583       (version (git-version "1.1.0" revision commit))
4584       (source
4585        (origin
4586          (method git-fetch)
4587          (uri (git-reference
4588                (url "https://github.com/Shinmera/trivial-mimes.git")
4589                (commit commit)))
4590          (file-name (git-file-name name version))
4591          (sha256
4592           (base32 "17jxgl47r695bvsb7wi3n2ws5rp1zzgvw0zii8cy5ggw4b4ayv6m"))))
4593       (build-system asdf-build-system/sbcl)
4594       (arguments
4595        '(#:phases
4596          (modify-phases %standard-phases
4597            (add-after
4598                'unpack 'fix-paths
4599              (lambda* (#:key inputs #:allow-other-keys)
4600                (let ((anchor "#p\"/etc/mime.types\""))
4601                  (substitute* "mime-types.lisp"
4602                    ((anchor all)
4603                     (string-append
4604                      anchor "\n"
4605                      "(asdf:system-relative-pathname :trivial-mimes "
4606                      "\"../../share/common-lisp/" (%lisp-type)
4607                      "-source/trivial-mimes/mime.types\")")))))))))
4608       (native-inputs
4609        `(("stefil" ,sbcl-hu.dwim.stefil)))
4610       (inputs
4611        `(("sbcl-cl-fad" ,sbcl-cl-fad)))
4612       (home-page "http://shinmera.github.io/trivial-mimes/")
4613       (synopsis "Tiny Common Lisp library to detect mime types in files")
4614       (description
4615        "This is a teensy library that provides some functions to determine the
4616 mime-type of a file.")
4617       (license license:artistic2.0))))
4618
4619 (define-public cl-trivial-mimes
4620   (sbcl-package->cl-source-package sbcl-trivial-mimes))
4621
4622 (define-public ecl-trivial-mimes
4623   (sbcl-package->ecl-package sbcl-trivial-mimes))
4624
4625 (define-public sbcl-lack-middleware-static
4626   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4627         (revision "1"))
4628     (package
4629      (name "sbcl-lack-middleware-static")
4630      (version (git-version "0.1.0" revision commit))
4631      (source
4632       (origin
4633        (method git-fetch)
4634        (uri (git-reference
4635              (url "https://github.com/fukamachi/lack.git")
4636              (commit commit)))
4637        (file-name (git-file-name "lack-middleware-static" version))
4638        (sha256
4639         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4640      (build-system asdf-build-system/sbcl)
4641      (arguments
4642       '(#:asd-file "lack-middleware-static.asd"
4643         #:asd-system-name "lack-middleware-static"
4644         #:test-asd-file "t-lack-middleware-static.asd"
4645         ;; XXX: Component :LACK not found
4646         #:tests? #f))
4647      (native-inputs
4648       `(("prove-asdf" ,sbcl-prove-asdf)))
4649      (inputs
4650       `(("sbcl-ironclad" ,sbcl-ironclad)
4651         ("sbcl-trivial-mimes" ,sbcl-trivial-mimes)
4652         ("sbcl-local-time" ,sbcl-local-time)))
4653      (home-page "https://github.com/fukamachi/lack")
4654      (synopsis "Lack, the core of Clack")
4655      (description
4656       "Lack is a Common Lisp library which allows web applications to be
4657 constructed of modular components.  It was originally a part of Clack, however
4658 it's going to be rewritten as an individual project since Clack v2 with
4659 performance and simplicity in mind.")
4660      (license license:llgpl))))
4661
4662 (define-public cl-lack-middleware-static
4663   (sbcl-package->cl-source-package sbcl-lack-middleware-static))
4664
4665 (define-public sbcl-lack
4666   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4667         (revision "1"))
4668     (package
4669      (name "sbcl-lack")
4670      (version (git-version "0.1.0" revision commit))
4671      (source
4672       (origin
4673        (method git-fetch)
4674        (uri (git-reference
4675              (url "https://github.com/fukamachi/lack.git")
4676              (commit commit)))
4677        (file-name (git-file-name "lack" version))
4678        (sha256
4679         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4680      (build-system asdf-build-system/sbcl)
4681      (arguments
4682       '(#:test-asd-file "t-lack.asd"
4683         ;; XXX: Component :CLACK not found
4684         #:tests? #f))
4685      (native-inputs
4686       `(("prove-asdf" ,sbcl-prove-asdf)))
4687      (inputs
4688       `(("sbcl-lack-component" ,sbcl-lack-component)
4689         ("sbcl-lack-util" ,sbcl-lack-util)))
4690      (home-page "https://github.com/fukamachi/lack")
4691      (synopsis "Lack, the core of Clack")
4692      (description
4693       "Lack is a Common Lisp library which allows web applications to be
4694 constructed of modular components.  It was originally a part of Clack, however
4695 it's going to be rewritten as an individual project since Clack v2 with
4696 performance and simplicity in mind.")
4697      (license license:llgpl))))
4698
4699 (define-public cl-lack
4700   (sbcl-package->cl-source-package sbcl-lack))
4701
4702 (define-public sbcl-ningle
4703   (let ((commit "50bd4f09b5a03a7249bd4d78265d6451563b25ad")
4704         (revision "1"))
4705     (package
4706       (name "sbcl-ningle")
4707       (version (git-version "0.3.0" revision commit))
4708       (source
4709        (origin
4710          (method git-fetch)
4711          (uri (git-reference
4712                (url "https://github.com/fukamachi/ningle.git")
4713                (commit commit)))
4714          (file-name (git-file-name name version))
4715          (sha256
4716           (base32 "1bsl8cnxhacb8p92z9n89vhk1ikmij5zavk0m2zvmj7iqm79jzgw"))))
4717       (build-system asdf-build-system/sbcl)
4718       (arguments
4719        ;; TODO: pull in clack-test
4720        '(#:tests? #f
4721          #:phases
4722          (modify-phases %standard-phases
4723            (delete 'cleanup-files)
4724            (delete 'cleanup)
4725            (add-before 'cleanup 'combine-fasls
4726              (lambda* (#:key outputs #:allow-other-keys)
4727                (let* ((out (assoc-ref outputs "out"))
4728                       (lib (string-append out "/lib/sbcl"))
4729                       (ningle-path (string-append lib "/ningle"))
4730                       (fasl-files (find-files out "\\.fasl$")))
4731                  (mkdir-p ningle-path)
4732                  (let ((fasl-path (lambda (name)
4733                                     (string-append ningle-path
4734                                                    "/"
4735                                                    (basename name)
4736                                                    "--system.fasl"))))
4737                    (for-each (lambda (file)
4738                                (rename-file file
4739                                             (fasl-path
4740                                              (basename file ".fasl"))))
4741                              fasl-files))
4742                  fasl-files)
4743                #t)))))
4744       (native-inputs
4745        `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4746          ("sbcl-prove" ,sbcl-prove)))
4747       (inputs
4748        `(("sbcl-cl-syntax" ,sbcl-cl-syntax)
4749          ("sbcl-cl-syntax-annot" ,sbcl-cl-syntax-annot)
4750          ("sbcl-myway" ,sbcl-myway)
4751          ("sbcl-lack-request" ,sbcl-lack-request)
4752          ("sbcl-lack-response" ,sbcl-lack-response)
4753          ("sbcl-lack-component" ,sbcl-lack-component)
4754          ("sbcl-alexandria" ,sbcl-alexandria)
4755          ("sbcl-babel" ,sbcl-babel)))
4756       (home-page "http://8arrow.org/ningle/")
4757       (synopsis "Super micro framework for Common Lisp")
4758       (description
4759        "Ningle is a lightweight web application framework for Common Lisp.")
4760       (license license:llgpl))))
4761
4762 (define-public cl-ningle
4763   (sbcl-package->cl-source-package sbcl-ningle))
4764
4765 (define-public sbcl-clack
4766   (let ((commit "e3e032843bb1220ab96263c411aa7f2feb4746e0")
4767         (revision "1"))
4768     (package
4769      (name "sbcl-clack")
4770      (version (git-version "2.0.0" revision commit))
4771      (source
4772       (origin
4773        (method git-fetch)
4774        (uri (git-reference
4775              (url "https://github.com/fukamachi/clack.git")
4776              (commit commit)))
4777        (file-name (git-file-name name version))
4778        (sha256
4779         (base32 "1ymzs6qyrwhlj6cgqsnpyn6g5cbp7a3s1vgxwna20y2q7y4iacy0"))))
4780      (build-system asdf-build-system/sbcl)
4781      (inputs
4782       `(("sbcl-lack" ,sbcl-lack)
4783         ("sbcl-lack-middleware-backtrace" ,sbcl-lack-middleware-backtrace)
4784         ("sbcl-bordeaux-threads" ,sbcl-bordeaux-threads)))
4785      (home-page "https://github.com/fukamachi/clack")
4786      (synopsis "Web Application Environment for Common Lisp")
4787      (description
4788       "Clack is a web application environment for Common Lisp inspired by
4789 Python's WSGI and Ruby's Rack.")
4790      (license license:llgpl))))
4791
4792 (define-public cl-clack
4793   (sbcl-package->cl-source-package sbcl-clack))
4794
4795 (define-public sbcl-log4cl
4796   (let ((commit "611e094458504b938d49de904eab141285328c7c")
4797         (revision "1"))
4798     (package
4799       (name "sbcl-log4cl")
4800       (build-system asdf-build-system/sbcl)
4801       (version "1.1.2")
4802       (source
4803        (origin
4804          (method git-fetch)
4805          (uri (git-reference
4806                (url "https://github.com/sharplispers/log4cl")
4807                (commit commit)))
4808          (file-name (git-file-name name version))
4809          (sha256
4810           (base32
4811            "08jly0s0g26b56hhpfizxsb4j0yvbh946sd205gr42dkzv8l7dsc"))))
4812       ;; FIXME: tests require stefil, sbcl-hu.dwim.stefil wont work
4813       (arguments
4814        `(#:tests? #f))
4815       (inputs `(("bordeaux-threads" ,sbcl-bordeaux-threads)))
4816       (synopsis "Common Lisp logging framework, modeled after Log4J")
4817       (home-page "https://github.com/7max/log4cl")
4818       (description "This is a Common Lisp logging framework that can log at
4819 various levels and mix text with expressions.")
4820       (license license:asl2.0))))
4821
4822 (define-public cl-log4cl
4823   (sbcl-package->cl-source-package sbcl-log4cl))
4824
4825 (define-public ecl-log4cl
4826   (sbcl-package->ecl-package sbcl-log4cl))
4827
4828 (define-public sbcl-find-port
4829   (let ((commit "00c96a25af93a0f8681d34ec548861f2d7485478")
4830         (revision "1"))
4831     (package
4832       (name "sbcl-find-port")
4833       (build-system asdf-build-system/sbcl)
4834       (version "0.1")
4835       (home-page "https://github.com/eudoxia0/find-port")
4836       (source
4837        (origin
4838          (method git-fetch)
4839          (uri (git-reference
4840                (url home-page)
4841                (commit commit)))
4842          (file-name (git-file-name name version))
4843          (sha256
4844           (base32
4845            "0d6dzbb45jh0rx90wgs6v020k2xa87mvzas3mvfzvivjvqqlpryq"))))
4846       (native-inputs
4847        `(("fiveam" ,sbcl-fiveam)))
4848       (inputs
4849        `(("sbcl-usocket" ,sbcl-usocket)))
4850       (synopsis "Find open ports programmatically in Common Lisp")
4851       (description "This is a small Common Lisp library that finds an open
4852 port within a range.")
4853       (license license:expat))))
4854
4855 (define-public cl-find-port
4856   (sbcl-package->cl-source-package sbcl-find-port))
4857
4858 (define-public ecl-find-port
4859   (sbcl-package->ecl-package sbcl-find-port))
4860
4861 (define-public sbcl-clunit
4862   (let ((commit "6f6d72873f0e1207f037470105969384f8380628")
4863         (revision "1"))
4864     (package
4865       (name "sbcl-clunit")
4866       (version (git-version "0.2.3" revision commit))
4867       (source
4868        (origin
4869          (method git-fetch)
4870          (uri (git-reference
4871                (url "https://github.com/tgutu/clunit.git")
4872                (commit commit)))
4873          (file-name (git-file-name name version))
4874          (sha256
4875           (base32
4876            "1idf2xnqzlhi8rbrqmzpmb3i1l6pbdzhhajkmhwbp6qjkmxa4h85"))))
4877       (build-system asdf-build-system/sbcl)
4878       (synopsis "CLUnit is a Common Lisp unit testing framework")
4879       (description
4880        "CLUnit is a Common Lisp unit testing framework.  It is designed
4881 to be easy to use so that you can quickly start testing.  CLUnit
4882 provides a rich set of features aimed at improving your unit testing
4883 experience.")
4884       (home-page "http://tgutu.github.io/clunit/")
4885       ;; MIT License
4886       (license license:expat))))
4887
4888 (define-public cl-clunit
4889   (sbcl-package->cl-source-package sbcl-clunit))
4890
4891 (define-public ecl-clunit
4892   (sbcl-package->ecl-package sbcl-clunit))
4893
4894 (define-public sbcl-py4cl
4895   (let ((commit "4c8a2b0814fd311f978964f825ce012290f60136")
4896         (revision "1"))
4897     (package
4898       (name "sbcl-py4cl")
4899       (version (git-version "0.0.0" revision commit))
4900       (source
4901        (origin
4902          (method git-fetch)
4903          (uri (git-reference
4904                (url "https://github.com/bendudson/py4cl.git")
4905                (commit commit)))
4906          (file-name (git-file-name name version))
4907          (sha256
4908           (base32
4909            "15mk7qdqjkj56gdnbyrdyz6r7m1h26ldvn6ch96pmvg5vmr1m45r"))
4910          (modules '((guix build utils)))))
4911       (build-system asdf-build-system/sbcl)
4912       (native-inputs
4913        `(("sbcl-clunit" ,sbcl-clunit)))
4914       (inputs
4915        `(("sbcl-trivial-garbage" ,sbcl-trivial-garbage)))
4916       (propagated-inputs
4917        ;; This package doesn't do anything without python available
4918        `(("python" ,python)
4919          ;; For multi-dimensional array support
4920          ("python-numpy" ,python-numpy)))
4921       (arguments
4922        '(#:phases
4923          (modify-phases %standard-phases
4924            (add-after 'unpack 'replace-*base-directory*-var
4925              (lambda* (#:key outputs #:allow-other-keys)
4926                ;; In the ASD, the author makes an attempt to
4927                ;; programatically determine the location of the
4928                ;; source-code so lisp can call into "py4cl.py". We can
4929                ;; hard-code this since we know where this file will
4930                ;; reside.
4931                (substitute* "src/callpython.lisp"
4932                  (("py4cl/config:\\*base-directory\\*")
4933                   (string-append
4934                    "\""
4935                    (assoc-ref outputs "out")
4936                    "/share/common-lisp/sbcl-source/py4cl/"
4937                    "\""))))))))
4938       (synopsis "Call python from Common Lisp")
4939       (description
4940        "Py4CL is a bridge between Common Lisp and Python, which enables Common
4941 Lisp to interact with Python code.  It uses streams to communicate with a
4942 separate python process, the approach taken by cl4py.  This is different to
4943 the CFFI approach used by burgled-batteries, but has the same goal.")
4944       (home-page "https://github.com/bendudson/py4cl")
4945       ;; MIT License
4946       (license license:expat))))
4947
4948 (define-public cl-py4cl
4949   (sbcl-package->cl-source-package sbcl-py4cl))
4950
4951 (define-public ecl-py4cl
4952   (sbcl-package->ecl-package sbcl-py4cl))
4953
4954 (define-public sbcl-parse-declarations
4955   (package
4956     (name "sbcl-parse-declarations")
4957     (version "1.0.0")
4958     (source
4959      (origin
4960        (method url-fetch)
4961        (uri (string-append
4962              "http://beta.quicklisp.org/archive/parse-declarations/"
4963              "2010-10-06/parse-declarations-20101006-darcs.tgz"))
4964        (sha256
4965         (base32
4966          "0r85b0jfacd28kr65kw9c13dx4i6id1dpmby68zjy63mqbnyawrd"))))
4967     (build-system asdf-build-system/sbcl)
4968     (arguments
4969      `(#:asd-file "parse-declarations-1.0.asd"
4970        #:asd-system-name "parse-declarations-1.0"))
4971     (home-page "https://common-lisp.net/project/parse-declarations/")
4972     (synopsis "Parse, filter, and build declarations")
4973     (description
4974      "Parse-Declarations is a Common Lisp library to help writing
4975 macros which establish bindings.  To be semantically correct, such
4976 macros must take user declarations into account, as these may affect
4977 the bindings they establish.  Yet the ANSI standard of Common Lisp does
4978 not provide any operators to work with declarations in a convenient,
4979 high-level way.  This library provides such operators.")
4980     ;; MIT License
4981     (license license:expat)))
4982
4983 (define-public cl-parse-declarations
4984   (sbcl-package->cl-source-package sbcl-parse-declarations))
4985
4986 (define-public ecl-parse-declarations
4987   (sbcl-package->ecl-package sbcl-parse-declarations))
4988
4989 (define-public sbcl-cl-quickcheck
4990   (let ((commit "807b2792a30c883a2fbecea8e7db355b50ba662f")
4991         (revision "1"))
4992     (package
4993       (name "sbcl-cl-quickcheck")
4994       (version (git-version "0.0.4" revision commit))
4995       (source
4996        (origin
4997          (method git-fetch)
4998          (uri (git-reference
4999                (url "https://github.com/mcandre/cl-quickcheck.git")
5000                (commit commit)))
5001          (file-name (git-file-name name version))
5002          (sha256
5003           (base32
5004            "165lhypq5xkcys6hvzb3jq7ywnmqvzaflda29qk2cbs3ggas4767"))))
5005       (build-system asdf-build-system/sbcl)
5006       (synopsis
5007        "Common Lisp port of the QuickCheck unit test framework")
5008       (description
5009        "Common Lisp port of the QuickCheck unit test framework")
5010       (home-page "https://github.com/mcandre/cl-quickcheck")
5011       ;; MIT
5012       (license license:expat))))
5013
5014 (define-public cl-cl-quickcheck
5015   (sbcl-package->cl-source-package sbcl-cl-quickcheck))
5016
5017 (define-public ecl-cl-quickcheck
5018   (sbcl-package->ecl-package sbcl-cl-quickcheck))
5019
5020 (define-public sbcl-burgled-batteries3
5021   (let ((commit "9c0f6667e1a71ddf77e21793a0bea524710fef6e")
5022         (revision "1"))
5023     (package
5024       (name "sbcl-burgled-batteries3")
5025       (version (git-version "0.0.0" revision commit))
5026       (source
5027        (origin
5028          (method git-fetch)
5029          (uri (git-reference
5030                (url "https://github.com/snmsts/burgled-batteries3.git")
5031                (commit commit)))
5032          (file-name (git-file-name name version))
5033          (sha256
5034           (base32
5035            "0b726kz2xxcg5l930gz035rsdvhxrzmp05iwfwympnb4z4ammicb"))))
5036       (build-system asdf-build-system/sbcl)
5037       (arguments
5038        '(#:tests? #f
5039          #:phases
5040          (modify-phases %standard-phases
5041            (add-after 'unpack 'set-*cpython-include-dir*-var
5042              (lambda* (#:key inputs #:allow-other-keys)
5043                (substitute* "grovel-include-dir.lisp"
5044                  (("\\(defparameter \\*cpython-include-dir\\* \\(detect-python\\)\\)")
5045                   (string-append
5046                    "(defparameter *cpython-include-dir* \""
5047                    (assoc-ref inputs "python")
5048                    "/include/python3.7m"
5049                    "\")")))
5050                (substitute* "ffi-interface.lisp"
5051                  (("\\*cpython-lib\\*")
5052                   (format #f "'(\"~a/lib/libpython3.so\")"
5053                           (assoc-ref inputs "python"))))
5054                #t)))))
5055       (native-inputs
5056        `(("python" ,python)
5057          ("sbcl-cl-fad" ,sbcl-cl-fad)
5058          ("sbcl-lift" ,sbcl-lift)
5059          ("sbcl-cl-quickcheck" ,sbcl-cl-quickcheck)))
5060       (inputs
5061        `(("sbcl-cffi" ,sbcl-cffi)
5062          ("sbcl-cffi-grovel" ,sbcl-cffi-grovel)
5063          ("sbcl-alexandria" , sbcl-alexandria)
5064          ("sbcl-parse-declarations-1.0" ,sbcl-parse-declarations)
5065          ("sbcl-trivial-garbage" ,sbcl-trivial-garbage)))
5066       (synopsis "Bridge between Python and Lisp (FFI bindings, etc.)")
5067       (description
5068        "This package provides a shim between Python3 (specifically, the
5069 CPython implementation of Python) and Common Lisp.")
5070       (home-page "https://github.com/snmsts/burgled-batteries3")
5071       ;; MIT
5072       (license license:expat))))
5073
5074 (define-public cl-burgled-batteries3
5075   (sbcl-package->cl-source-package sbcl-burgled-batteries3))
5076
5077 (define-public ecl-burgled-batteries3
5078   (sbcl-package->ecl-package sbcl-burgled-batteries3))
5079
5080 (define-public sbcl-metabang-bind
5081   (let ((commit "c93b7f7e1c18c954c2283efd6a7fdab36746ab5e")
5082         (revision "1"))
5083     (package
5084       (name "sbcl-metabang-bind")
5085       (version (git-version "0.8.0" revision commit))
5086       (source
5087        (origin
5088          (method git-fetch)
5089          (uri (git-reference
5090                (url "https://github.com/gwkkwg/metabang-bind.git")
5091                (commit commit)))
5092          (file-name (git-file-name name version))
5093          (sha256
5094           (base32
5095            "0hd0kr91795v77akpbcyqiss9p0p7ypa9dznrllincnmgvsxlmf0"))))
5096       (build-system asdf-build-system/sbcl)
5097       (native-inputs
5098        `(("sbcl-lift" ,sbcl-lift)))
5099       (synopsis "Macro that generalizes @code{multiple-value-bind} etc.")
5100       (description
5101        "Bind extends the idea of of let and destructing to provide a uniform
5102 syntax for all your accessor needs.  It combines @code{let},
5103 @code{destructuring-bind}, @code{with-slots}, @code{with-accessors}, structure
5104 editing, property or association-lists, and @code{multiple-value-bind} and a
5105 whole lot more into a single form.")
5106       (home-page "https://common-lisp.net/project/metabang-bind/")
5107       ;; MIT License
5108       (license license:expat))))
5109
5110 (define-public cl-metabang-bind
5111   (sbcl-package->cl-source-package sbcl-metabang-bind))
5112
5113 (define-public ecl-metabang-bind
5114   (sbcl-package->ecl-package sbcl-metabang-bind))
5115
5116 (define-public sbcl-fare-utils
5117   (let ((commit "66e9c6f1499140bc00ccc22febf2aa528cbb5724")
5118         (revision "1"))
5119     (package
5120       (name "sbcl-fare-utils")
5121       (version (git-version "1.0.0.5" revision commit))
5122       (source
5123        (origin
5124          (method git-fetch)
5125          (uri
5126           (git-reference
5127            (url
5128             "https://gitlab.common-lisp.net/frideau/fare-utils.git")
5129            (commit commit)))
5130          (file-name (git-file-name name version))
5131          (sha256
5132           (base32
5133            "01wsr1aap3jdzhn4hrqjbhsjx6qci9dbd3gh4gayv1p49rbg8aqr"))))
5134       (build-system asdf-build-system/sbcl)
5135       (arguments
5136        `(#:test-asd-file "test/fare-utils-test.asd"))
5137       (native-inputs
5138        `(("sbcl-hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
5139       (synopsis "Collection of utilities and data structures")
5140       (description
5141        "fare-utils is a small collection of utilities.  It contains a lot of
5142 basic everyday functions and macros.")
5143       (home-page "https://gitlab.common-lisp.net/frideau/fare-utils")
5144       ;; MIT License
5145       (license license:expat))))
5146
5147 (define-public cl-fare-utils
5148   (sbcl-package->cl-source-package sbcl-fare-utils))
5149
5150 (define-public ecl-fare-utils
5151   (sbcl-package->ecl-package sbcl-fare-utils))
5152
5153 (define-public sbcl-trivial-utf-8
5154   (let ((commit "4d427cfbb1c452436a0efb71c3205c9da67f718f")
5155         (revision "1"))
5156     (package
5157       (name "sbcl-trivial-utf-8")
5158       (version (git-version "0.0.0" revision commit))
5159       (source
5160        (origin
5161          (method git-fetch)
5162          (uri
5163           (git-reference
5164            (url (string-append "https://gitlab.common-lisp.net/"
5165                                "trivial-utf-8/trivial-utf-8.git"))
5166            (commit commit)))
5167          (file-name (git-file-name name version))
5168          (sha256
5169           (base32
5170            "1jz27gz8gvqdmvp3k9bxschs6d5b3qgk94qp2bj6nv1d0jc3m1l1"))))
5171       (arguments
5172        ;; Guix incorrectly assumes the "8" is part of the version
5173        ;; number and lobs it off.
5174        `(#:asd-file "trivial-utf-8.asd"
5175          #:asd-system-name "trivial-utf-8"))
5176       (build-system asdf-build-system/sbcl)
5177       (synopsis "UTF-8 input/output library")
5178       (description
5179        "The Babel library solves a similar problem while understanding more
5180 encodings.  Trivial UTF-8 was written before Babel existed, but for new
5181 projects you might be better off going with Babel.  The one plus that Trivial
5182 UTF-8 has is that it doesn't depend on any other libraries.")
5183       (home-page "https://common-lisp.net/project/trivial-utf-8/")
5184       (license license:bsd-3))))
5185
5186 (define-public cl-trivial-utf-8
5187   (sbcl-package->cl-source-package sbcl-trivial-utf-8))
5188
5189 (define-public ecl-trivial-utf-8
5190   (sbcl-package->ecl-package sbcl-trivial-utf-8))
5191
5192 (define-public sbcl-idna
5193   (package
5194     (name "sbcl-idna")
5195     (build-system asdf-build-system/sbcl)
5196     (version "0.2.2")
5197     (home-page "https://github.com/antifuchs/idna")
5198     (source
5199      (origin
5200        (method git-fetch)
5201        (uri (git-reference
5202              (url home-page)
5203              (commit version)))
5204        (file-name (git-file-name name version))
5205        (sha256
5206         (base32
5207          "00nbr3mffxhlq14gg9d16pa6691s4qh35inyw76v906s77khm5a2"))))
5208     (inputs
5209      `(("split-sequence" ,sbcl-split-sequence)))
5210     (synopsis "IDNA string encoding and decoding routines for Common Lisp")
5211     (description "This Common Lisp library provides string encoding and
5212 decoding routines for IDNA, the International Domain Names in Applications.")
5213     (license license:expat)))
5214
5215 (define-public cl-idna
5216   (sbcl-package->cl-source-package sbcl-idna))
5217
5218 (define-public ecl-idna
5219   (sbcl-package->ecl-package sbcl-idna))
5220
5221 (define-public sbcl-swap-bytes
5222   (package
5223     (name "sbcl-swap-bytes")
5224     (build-system asdf-build-system/sbcl)
5225     (version "1.2")
5226     (home-page "https://github.com/sionescu/swap-bytes")
5227     (source
5228      (origin
5229        (method git-fetch)
5230        (uri (git-reference
5231              (url home-page)
5232              (commit (string-append "v" version))))
5233        (file-name (git-file-name name version))
5234        (sha256
5235         (base32
5236          "1hw1v1lw26rifyznpnj1csphha9jgzwpiic16ni3pvs6hcsni9rz"))))
5237     (inputs
5238      `(("trivial-features" ,sbcl-trivial-features)))
5239     (native-inputs
5240      `(("fiveam" ,sbcl-fiveam)))
5241     (synopsis "Efficient endianness conversion for Common Lisp")
5242     (description "This Common Lisp library provides optimized byte-swapping
5243 primitives.  The library can change endianness of unsigned integers of length
5244 1/2/4/8.  Very useful in implementing various network protocols and file
5245 formats.")
5246     (license license:expat)))
5247
5248 (define-public cl-swap-bytes
5249   (sbcl-package->cl-source-package sbcl-swap-bytes))
5250
5251 (define-public ecl-swap-bytes
5252   (sbcl-package->ecl-package sbcl-swap-bytes))
5253
5254 (define-public sbcl-iolib.asdf
5255   ;; Latest release is from June 2017.
5256   (let ((commit "81e20614c0d27f9605bf9766214e236fd31b99b4")
5257         (revision "1"))
5258     (package
5259       (name "sbcl-iolib.asdf")
5260       (build-system asdf-build-system/sbcl)
5261       (version "0.8.3")
5262       (home-page "https://github.com/sionescu/iolib")
5263       (source
5264        (origin
5265          (method git-fetch)
5266          (uri (git-reference
5267                (url home-page)
5268                (commit commit)))
5269          (file-name (git-file-name name version))
5270          (sha256
5271           (base32
5272            "1j81r0wm7nfbwl991f26s4npcy7kybzybd3m47rbxy31h0cfcmdm"))))
5273       (inputs
5274        `(("alexandria" ,sbcl-alexandria)))
5275       (arguments
5276        '(#:asd-file "iolib.asdf.asd"))
5277       (synopsis "ASDF component classes for IOLib, a Common Lisp I/O library")
5278       (description "IOlib is to be a better and more modern I/O library than
5279 the standard Common Lisp library.  It contains a socket library, a DNS
5280 resolver, an I/O multiplexer(which supports @code{select(2)}, @code{epoll(4)}
5281 and @code{kqueue(2)}), a pathname library and file-system utilities.")
5282       (license license:expat))))
5283
5284 (define-public sbcl-iolib.conf
5285   (package
5286     (inherit sbcl-iolib.asdf)
5287     (name "sbcl-iolib.conf")
5288     (inputs
5289      `(("iolib.asdf" ,sbcl-iolib.asdf)))
5290     (arguments
5291      '(#:asd-file "iolib.conf.asd"))
5292     (synopsis "Compile-time configuration for IOLib, a Common Lisp I/O library")))
5293
5294 (define-public sbcl-iolib.common-lisp
5295   (package
5296     (inherit sbcl-iolib.asdf)
5297     (name "sbcl-iolib.common-lisp")
5298     (inputs
5299      `(("iolib.asdf" ,sbcl-iolib.asdf)
5300        ("iolib.conf" ,sbcl-iolib.conf)))
5301     (arguments
5302      '(#:asd-file "iolib.common-lisp.asd"))
5303     (synopsis "Slightly modified Common Lisp for IOLib, a Common Lisp I/O library")))
5304
5305 (define-public sbcl-iolib.base
5306   (package
5307     (inherit sbcl-iolib.asdf)
5308     (name "sbcl-iolib.base")
5309     (inputs
5310      `(("iolib.asdf" ,sbcl-iolib.asdf)
5311        ("iolib.conf" ,sbcl-iolib.conf)
5312        ("iolib.common-lisp" ,sbcl-iolib.common-lisp)
5313        ("split-sequence" ,sbcl-split-sequence)))
5314     (arguments
5315      '(#:asd-file "iolib.base.asd"))
5316     (synopsis "Base package for IOLib, a Common Lisp I/O library")))
5317
5318 (define-public sbcl-iolib.grovel
5319   (package
5320     (inherit sbcl-iolib.asdf)
5321     (name "sbcl-iolib.grovel")
5322     (inputs
5323      `(("iolib.asdf" ,sbcl-iolib.asdf)
5324        ("iolib.conf" ,sbcl-iolib.conf)
5325        ("iolib.base", sbcl-iolib.base)
5326        ("cffi", sbcl-cffi)))
5327     (arguments
5328      '(#:asd-file "iolib.grovel.asd"
5329        #:phases
5330        (modify-phases %standard-phases
5331          (add-after 'install 'install-header
5332            (lambda* (#:key outputs #:allow-other-keys)
5333              ;; This header is required by sbcl-iolib.
5334              (install-file "src/grovel/grovel-common.h"
5335                            (string-append (assoc-ref outputs "out")
5336                                           "/lib/sbcl"))
5337              #t)))))
5338     (synopsis "CFFI Groveller for IOLib, a Common Lisp I/O library")))
5339
5340 (define-public sbcl-iolib
5341   (package
5342     (inherit sbcl-iolib.asdf)
5343     (name "sbcl-iolib")
5344     (inputs
5345      `(("iolib.asdf" ,sbcl-iolib.asdf)
5346        ("iolib.conf" ,sbcl-iolib.conf)
5347        ("iolib.grovel" ,sbcl-iolib.grovel)
5348        ("iolib.base" ,sbcl-iolib.base)
5349        ("bordeaux-threads" ,sbcl-bordeaux-threads)
5350        ("idna" ,sbcl-idna)
5351        ("swap-bytes" ,sbcl-swap-bytes)
5352        ("libfixposix" ,libfixposix)
5353        ("cffi" ,sbcl-cffi)))
5354     (native-inputs
5355      `(("fiveam" ,sbcl-fiveam)))
5356     (arguments
5357      '(#:asd-file "iolib.asd"
5358        #:asd-system-name "iolib"
5359        #:test-asd-file "iolib.tests.asd"
5360        #:phases
5361        (modify-phases %standard-phases
5362          (add-after 'unpack 'fix-paths
5363            (lambda* (#:key inputs #:allow-other-keys)
5364              (substitute* "src/syscalls/ffi-functions-unix.lisp"
5365                (("\\(:default \"libfixposix\"\\)")
5366                 (string-append
5367                  "(:default \""
5368                  (assoc-ref inputs "libfixposix") "/lib/libfixposix\")")))
5369              ;; Socket tests need Internet access, disable them.
5370              (substitute* "iolib.tests.asd"
5371                (("\\(:file \"sockets\" :depends-on \\(\"pkgdcl\" \"defsuites\"\\)\\)")
5372                 "")))))))
5373     (synopsis "Common Lisp I/O library")))
5374
5375 (define-public cl-iolib
5376   (sbcl-package->cl-source-package sbcl-iolib))
5377
5378 (define sbcl-iolib+multiplex
5379   (package
5380     (inherit sbcl-iolib)
5381     (name "sbcl-iolib+multiplex")
5382     (arguments
5383      (substitute-keyword-arguments (package-arguments sbcl-iolib)
5384        ((#:asd-system-name _) "iolib/multiplex")))))
5385
5386 (define sbcl-iolib+syscalls
5387   (package
5388     (inherit sbcl-iolib)
5389     (name "sbcl-iolib+syscalls")
5390     (arguments
5391      (substitute-keyword-arguments (package-arguments sbcl-iolib)
5392        ((#:asd-system-name _) "iolib/syscalls")))))
5393
5394 (define sbcl-iolib+streams
5395   (package
5396     (inherit sbcl-iolib)
5397     (name "sbcl-iolib+streams")
5398     (arguments
5399      (substitute-keyword-arguments (package-arguments sbcl-iolib)
5400        ((#:asd-system-name _) "iolib/streams")))))
5401
5402 (define sbcl-iolib+sockets
5403   (package
5404     (inherit sbcl-iolib)
5405     (name "sbcl-iolib+sockets")
5406     (arguments
5407      (substitute-keyword-arguments (package-arguments sbcl-iolib)
5408        ((#:asd-system-name _) "iolib/sockets")))))
5409
5410 (define-public sbcl-ieee-floats
5411   (let ((commit "566b51a005e81ff618554b9b2f0b795d3b29398d")
5412         (revision "1"))
5413     (package
5414       (name "sbcl-ieee-floats")
5415       (build-system asdf-build-system/sbcl)
5416       (version (git-version "20170924" revision commit))
5417       (home-page "https://github.com/marijnh/ieee-floats/")
5418       (source
5419        (origin
5420          (method git-fetch)
5421          (uri (git-reference
5422                (url home-page)
5423                (commit commit)))
5424          (file-name (git-file-name name version))
5425          (sha256
5426           (base32
5427            "1xyj49j9x3lc84cv3dhbf9ja34ywjk1c46dklx425fxw9mkwm83m"))))
5428       (native-inputs
5429        `(("fiveam" ,sbcl-fiveam)))
5430       (synopsis "IEEE 754 binary representation for floats in Common Lisp")
5431       (description "This is a Common Lisp library that allows to convert
5432 floating point values to IEEE 754 binary representation.")
5433       (license license:bsd-3))))
5434
5435 (define-public cl-ieee-floats
5436   (sbcl-package->cl-source-package sbcl-ieee-floats))
5437
5438 (define sbcl-closure-common
5439   (let ((commit "e3c5f5f454b72b01b89115e581c3c52a7e201e5c")
5440         (revision "1"))
5441     (package
5442       (name "sbcl-closure-common")
5443       (build-system asdf-build-system/sbcl)
5444       (version (git-version "20101006" revision commit))
5445       (home-page "https://common-lisp.net/project/cxml/")
5446       (source
5447        (origin
5448          (method git-fetch)
5449          (uri (git-reference
5450                (url "https://github.com/sharplispers/closure-common")
5451                (commit commit)))
5452          (file-name (git-file-name name version))
5453          (sha256
5454           (base32
5455            "0k5r2qxn122pxi301ijir3nayi9sg4d7yiy276l36qmzwhp4mg5n"))))
5456       (inputs
5457        `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)
5458          ("babel" ,sbcl-babel)))
5459       (synopsis "Support Common Lisp library for CXML")
5460       (description "Closure-common is an internal helper library.  The name
5461 Closure is a reference to the web browser it was originally written for.")
5462       ;; TODO: License?
5463       (license #f))))
5464
5465 (define-public sbcl-cxml+xml
5466   (let ((commit "00b22bf4c4cf11c993d5866fae284f95ab18e6bf")
5467         (revision "1"))
5468     (package
5469       (name "sbcl-cxml+xml")
5470       (build-system asdf-build-system/sbcl)
5471       (version (git-version "0.0.0" revision commit))
5472       (home-page "https://common-lisp.net/project/cxml/")
5473       (source
5474        (origin
5475          (method git-fetch)
5476          (uri (git-reference
5477                (url "https://github.com/sharplispers/cxml")
5478                (commit commit)))
5479          (file-name (git-file-name name version))
5480          (sha256
5481           (base32
5482            "13kif7rf3gqdycsk9zq0d7y0g9y81krkl0z87k0p2fkbjfgrph37"))))
5483       (inputs
5484        `(("closure-common" ,sbcl-closure-common)
5485          ("puri" ,sbcl-puri)
5486          ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
5487       (arguments
5488        `(#:asd-file "cxml.asd"
5489          #:asd-system-name "cxml/xml"))
5490       (synopsis "Common Lisp XML parser")
5491       (description "CXML implements a namespace-aware, validating XML 1.0
5492 parser as well as the DOM Level 2 Core interfaces.  Two parser interfaces are
5493 offered, one SAX-like, the other similar to StAX.")
5494       (license license:llgpl))))
5495
5496 (define sbcl-cxml+dom
5497   (package
5498     (inherit sbcl-cxml+xml)
5499     (name "sbcl-cxml+dom")
5500     (inputs
5501      `(("closure-common" ,sbcl-closure-common)
5502        ("puri" ,sbcl-puri)
5503        ("cxml+xml" ,sbcl-cxml+xml)))
5504     (arguments
5505      `(#:asd-file "cxml.asd"
5506        #:asd-system-name "cxml/dom"))))
5507
5508 (define sbcl-cxml+klacks
5509   (package
5510     (inherit sbcl-cxml+xml)
5511     (name "sbcl-cxml+klacks")
5512     (inputs
5513      `(("closure-common" ,sbcl-closure-common)
5514        ("puri" ,sbcl-puri)
5515        ("cxml+xml" ,sbcl-cxml+xml)))
5516     (arguments
5517      `(#:asd-file "cxml.asd"
5518        #:asd-system-name "cxml/klacks"))))
5519
5520 (define sbcl-cxml+test
5521   (package
5522     (inherit sbcl-cxml+xml)
5523     (name "sbcl-cxml+test")
5524     (inputs
5525      `(("closure-common" ,sbcl-closure-common)
5526        ("puri" ,sbcl-puri)
5527        ("cxml+xml" ,sbcl-cxml+xml)))
5528     (arguments
5529      `(#:asd-file "cxml.asd"
5530        #:asd-system-name "cxml/test"))))
5531
5532 (define-public sbcl-cxml
5533   (package
5534     (inherit sbcl-cxml+xml)
5535     (name "sbcl-cxml")
5536     (inputs
5537      `(("closure-common" ,sbcl-closure-common)
5538        ("puri" ,sbcl-puri)
5539        ("trivial-gray-streams" ,sbcl-trivial-gray-streams)
5540        ("cxml+dom" ,sbcl-cxml+dom)
5541        ("cxml+klacks" ,sbcl-cxml+klacks)
5542        ("cxml+test" ,sbcl-cxml+test)))
5543     (arguments
5544      `(#:asd-file "cxml.asd"
5545        #:asd-system-name "cxml"
5546        #:phases
5547        (modify-phases %standard-phases
5548          (add-after 'build 'install-dtd
5549            (lambda* (#:key outputs #:allow-other-keys)
5550              (install-file "catalog.dtd"
5551                            (string-append
5552                             (assoc-ref outputs "out")
5553                             "/lib/" (%lisp-type)))))
5554          (add-after 'create-asd 'remove-component
5555            ;; XXX: The original .asd has no components, but our build system
5556            ;; creates an entry nonetheless.  We need to remove it for the
5557            ;; generated .asd to load properly.  See trivia.trivial for a
5558            ;; similar problem.
5559            (lambda* (#:key outputs #:allow-other-keys)
5560              (let* ((out (assoc-ref outputs "out"))
5561                     (asd (string-append out "/lib/sbcl/cxml.asd")))
5562                (substitute* asd
5563                  (("  :components
5564 ")
5565                   ""))
5566                (substitute* asd
5567                  ((" *\\(\\(:compiled-file \"cxml--system\"\\)\\)")
5568                   ""))))))))))
5569
5570 (define-public cl-cxml
5571   (sbcl-package->cl-source-package sbcl-cxml))
5572
5573 (define-public sbcl-cl-reexport
5574   (let ((commit "312f3661bbe187b5f28536cd7ec2956e91366c3b")
5575         (revision "1"))
5576     (package
5577       (name "sbcl-cl-reexport")
5578       (build-system asdf-build-system/sbcl)
5579       (version (git-version "0.1" revision commit))
5580       (home-page "https://github.com/takagi/cl-reexport")
5581       (source
5582        (origin
5583          (method git-fetch)
5584          (uri (git-reference
5585                (url home-page)
5586                (commit commit)))
5587          (file-name (git-file-name name version))
5588          (sha256
5589           (base32
5590            "1cwpn1m3wrl0fl9plznn7p464db646gnfc8zkyk97dyxski2aq0x"))))
5591       (inputs
5592        `(("alexandria" ,sbcl-alexandria)))
5593       (arguments
5594        ;; TODO: Tests fail because cl-test-more is missing, but I can't find it online.
5595        `(#:tests? #f))
5596       (synopsis "HTTP cookie manager for Common Lisp")
5597       (description "cl-cookie is a Common Lisp library featuring parsing of
5598 cookie headers, cookie creation, cookie jar creation and more.")
5599       (license license:llgpl))))
5600
5601 (define-public cl-reexport
5602   (sbcl-package->cl-source-package sbcl-cl-reexport))
5603
5604 (define-public sbcl-cl-cookie
5605   (let ((commit "cea55aed8b9ad25fafd13defbcb9fe8f41b29546")
5606         (revision "1"))
5607     (package
5608       (name "sbcl-cl-cookie")
5609       (build-system asdf-build-system/sbcl)
5610       (version (git-version "0.9.10" revision commit))
5611       (home-page "https://github.com/fukamachi/cl-cookie")
5612       (source
5613        (origin
5614          (method git-fetch)
5615          (uri (git-reference
5616                (url home-page)
5617                (commit commit)))
5618          (file-name (git-file-name name version))
5619          (sha256
5620           (base32
5621            "090g7z75h98zvc1ldx0vh4jn4086dhjm2w30jcwkq553qmyxwl8h"))))
5622       (inputs
5623        `(("proc-parse" ,sbcl-proc-parse)
5624          ("alexandria" ,sbcl-alexandria)
5625          ("quri" ,sbcl-quri)
5626          ("cl-ppcre" ,sbcl-cl-ppcre)
5627          ("local-time" ,sbcl-local-time)))
5628       (native-inputs
5629        `(("prove-asdf" ,sbcl-prove-asdf)
5630          ("prove" ,sbcl-prove)))
5631       (arguments
5632        ;; TODO: Tests fail because cl-cookie depends on cl-cookie-test.
5633        `(#:tests? #f))
5634       (synopsis "HTTP cookie manager for Common Lisp")
5635       (description "cl-cookie is a Common Lisp library featuring parsing of
5636 cookie headers, cookie creation, cookie jar creation and more.")
5637       (license license:bsd-2))))
5638
5639 (define-public cl-cookie
5640   (sbcl-package->cl-source-package sbcl-cl-cookie))
5641
5642 (define-public sbcl-dexador
5643   (let ((commit "a2714d126cc94bc7a9a6e1e3c08de455b3a66378")
5644         (revision "1"))
5645     (package
5646       (name "sbcl-dexador")
5647       (build-system asdf-build-system/sbcl)
5648       (version (git-version "0.9.10" revision commit))
5649       (home-page "https://github.com/fukamachi/dexador")
5650       (source
5651        (origin
5652          (method git-fetch)
5653          (uri (git-reference
5654                (url home-page)
5655                (commit commit)))
5656          (file-name (git-file-name name version))
5657          (sha256
5658           (base32
5659            "0nbqgn4v3l2z6m1k1bdxfnqpfrk84nxdmz7csz11zzcfs4flkv79"))))
5660       (inputs
5661        `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)
5662          ("babel" ,sbcl-babel)
5663          ("usocket" ,sbcl-usocket)
5664          ("fast-http" ,sbcl-fast-http)
5665          ("quri" ,sbcl-quri)
5666          ("fast-io" ,sbcl-fast-io)
5667          ("chunga" ,sbcl-chunga)
5668          ("cl-ppcre" ,sbcl-cl-ppcre)
5669          ("cl-cookie" ,sbcl-cl-cookie)
5670          ("trivial-mimes" ,sbcl-trivial-mimes)
5671          ("chipz" ,sbcl-chipz)
5672          ("cl-base64" ,sbcl-cl-base64)
5673          ("cl-reexport" ,sbcl-cl-reexport)
5674          ("cl+ssl" ,sbcl-cl+ssl)
5675          ("bordeaux-threads" ,sbcl-bordeaux-threads)
5676          ("alexandria" ,sbcl-alexandria)))
5677       (native-inputs
5678        `(("prove" ,sbcl-prove)
5679          ("prove-asdf" ,sbcl-prove-asdf)
5680          ("lack-request" ,sbcl-lack-request)
5681          ("clack" ,sbcl-clack)
5682          ("babel" ,sbcl-babel)
5683          ("alexandria" ,sbcl-alexandria)
5684          ("cl-ppcre" ,sbcl-cl-ppcre)
5685          ("local-time" ,sbcl-local-time)))
5686       (arguments
5687        ;; TODO: Circular dependency: tests depend on clack-test which depends on dexador.
5688        `(#:tests? #f
5689          #:phases
5690          (modify-phases %standard-phases
5691            (add-after 'unpack 'fix-permissions
5692              (lambda _ (make-file-writable "t/data/test.gz") #t)))))
5693       (synopsis "Yet another HTTP client for Common Lisp")
5694       (description "Dexador is yet another HTTP client for Common Lisp with
5695 neat APIs and connection-pooling.  It is meant to supersede Drakma.")
5696       (license license:expat))))
5697
5698 (define-public cl-dexador
5699   (package
5700     (inherit (sbcl-package->cl-source-package sbcl-dexador))
5701     (arguments
5702      `(#:phases
5703        ;; asdf-build-system/source has its own phases and does not inherit
5704        ;; from asdf-build-system/sbcl phases.
5705        (modify-phases %standard-phases/source
5706          (add-after 'unpack 'fix-permissions
5707            (lambda _ (make-file-writable "t/data/test.gz") #t)))))))
5708
5709 (define-public ecl-dexador
5710   (sbcl-package->ecl-package sbcl-dexador))
5711
5712 (define-public sbcl-lisp-namespace
5713   (let ((commit "28107cafe34e4c1c67490fde60c7f92dc610b2e0")
5714         (revision "1"))
5715     (package
5716       (name "sbcl-lisp-namespace")
5717       (build-system asdf-build-system/sbcl)
5718       (version (git-version "0.1" revision commit))
5719       (home-page "https://github.com/guicho271828/lisp-namespace")
5720       (source
5721        (origin
5722          (method git-fetch)
5723          (uri (git-reference
5724                (url home-page)
5725                (commit commit)))
5726          (file-name (git-file-name name version))
5727          (sha256
5728           (base32
5729            "1jw2wykp06z2afb9nm1lgfzll5cjlj36pnknjx614057zkkxq4iy"))))
5730       (inputs
5731        `(("alexandria" ,sbcl-alexandria)))
5732       (native-inputs
5733        `(("fiveam" ,sbcl-fiveam)))
5734       (arguments
5735        `(#:test-asd-file "lisp-namespace.test.asd"
5736         ;; XXX: Component LISP-NAMESPACE-ASD::LISP-NAMESPACE.TEST not found
5737          #:tests? #f))
5738       (synopsis "LISP-N, or extensible namespaces in Common Lisp")
5739       (description "Common Lisp already has major 2 namespaces, function
5740 namespace and value namespace (or variable namespace), but there are actually
5741 more — e.g., class namespace.
5742 This library offers macros to deal with symbols from any namespace.")
5743       (license license:llgpl))))
5744
5745 (define-public cl-lisp-namespace
5746   (sbcl-package->cl-source-package sbcl-lisp-namespace))
5747
5748 (define-public sbcl-trivial-cltl2
5749   (let ((commit "8eec8407df833e8f27df8a388bc10913f16d9e83")
5750         (revision "1"))
5751     (package
5752       (name "sbcl-trivial-cltl2")
5753       (build-system asdf-build-system/sbcl)
5754       (version (git-version "0.1.1" revision commit))
5755       (home-page "https://github.com/Zulu-Inuoe/trivial-cltl2")
5756       (source
5757        (origin
5758          (method git-fetch)
5759          (uri (git-reference
5760                (url home-page)
5761                (commit commit)))
5762          (file-name (git-file-name name version))
5763          (sha256
5764           (base32
5765            "1dyyxz17vqv8hlfwq287gl8xxbvcnq798ajb7p5jdjz91wqf4bgk"))))
5766       (synopsis "Simple CLtL2 compatibility layer for Common Lisp")
5767       (description "This library is a portable compatibility layer around
5768 \"Common Lisp the Language, 2nd
5769 Edition\" (@url{https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node102.html})
5770 and it exports symbols from implementation-specific packages.")
5771       (license license:llgpl))))
5772
5773 (define-public cl-trivial-cltl2
5774   (sbcl-package->cl-source-package sbcl-trivial-cltl2))
5775
5776 (define-public sbcl-introspect-environment
5777   (let ((commit "fff42f8f8fd0d99db5ad6c5812e53de7d660020b")
5778         (revision "1"))
5779     (package
5780       (name "sbcl-introspect-environment")
5781       (build-system asdf-build-system/sbcl)
5782       (version (git-version "0.1" revision commit))
5783       (home-page "https://github.com/Bike/introspect-environment")
5784       (source
5785        (origin
5786          (method git-fetch)
5787          (uri (git-reference
5788                (url home-page)
5789                (commit commit)))
5790          (file-name (git-file-name name version))
5791          (sha256
5792           (base32
5793            "1i305n0wfmpac63ni4i3vixnnkl8daw5ncxy0k3dv92krgx6qzhp"))))
5794       (native-inputs
5795        `(("fiveam" ,sbcl-fiveam)))
5796       (synopsis "Common Lisp environment introspection portability layer")
5797       (description "This library is a small interface to portable but
5798 nonstandard introspection of Common Lisp environments.  It is intended to
5799 allow a bit more compile-time introspection of environments in Common Lisp.
5800
5801 Quite a bit of information is available at the time a macro or compiler-macro
5802 runs; inlining info, type declarations, that sort of thing.  This information
5803 is all standard - any Common Lisp program can @code{(declare (integer x))} and
5804 such.
5805
5806 This info ought to be accessible through the standard @code{&environment}
5807 parameters, but it is not.  Several implementations keep the information for
5808 their own purposes but do not make it available to user programs, because
5809 there is no standard mechanism to do so.
5810
5811 This library uses implementation-specific hooks to make information available
5812 to users.  This is currently supported on SBCL, CCL, and CMUCL.  Other
5813 implementations have implementations of the functions that do as much as they
5814 can and/or provide reasonable defaults.")
5815       (license license:wtfpl2))))
5816
5817 (define-public cl-introspect-environment
5818   (sbcl-package->cl-source-package sbcl-introspect-environment))
5819
5820 (define-public sbcl-type-i
5821   (let ((commit "dea233f45f94064105ec09f0767de338f67dcbe2")
5822         (revision "1"))
5823     (package
5824       (name "sbcl-type-i")
5825       (build-system asdf-build-system/sbcl)
5826       (version (git-version "0.1" revision commit))
5827       (home-page "https://github.com/guicho271828/type-i")
5828       (source
5829        (origin
5830          (method git-fetch)
5831          (uri (git-reference
5832                (url home-page)
5833                (commit commit)))
5834          (file-name (git-file-name name version))
5835          (sha256
5836           (base32
5837            "039g5pbrhh65s0bhr9314gmd2nwc2y5lp2377c5qrc2lxky89qs3"))))
5838       (inputs
5839        `(("alexandria" ,sbcl-alexandria)
5840          ("introspect-environment" ,sbcl-introspect-environment)
5841          ("trivia.trivial" ,sbcl-trivia.trivial)))
5842       (native-inputs
5843        `(("fiveam" ,sbcl-fiveam)))
5844       (arguments
5845        `(#:test-asd-file "type-i.test.asd"))
5846       (synopsis "Type inference utility on unary predicates for Common Lisp")
5847       (description "This library tries to provide a way to detect what kind of
5848 type the given predicate is trying to check.  This is different from inferring
5849 the return type of a function.")
5850       (license license:llgpl))))
5851
5852 (define-public cl-type-i
5853   (sbcl-package->cl-source-package sbcl-type-i))
5854
5855 (define-public sbcl-optima
5856   (let ((commit "373b245b928c1a5cce91a6cb5bfe5dd77eb36195")
5857         (revision "1"))
5858     (package
5859       (name "sbcl-optima")
5860       (build-system asdf-build-system/sbcl)
5861       (version (git-version "1.0" revision commit))
5862       (home-page "https://github.com/m2ym/optima")
5863       (source
5864        (origin
5865          (method git-fetch)
5866          (uri (git-reference
5867                (url home-page)
5868                (commit commit)))
5869          (file-name (git-file-name name version))
5870          (sha256
5871           (base32
5872            "1yw4ymq7ms89342kkvb3aqxgv0w38m9kd8ikdqxxzyybnkjhndal"))))
5873       (inputs
5874        `(("alexandria" ,sbcl-alexandria)
5875          ("closer-mop" ,sbcl-closer-mop)))
5876       (native-inputs
5877        `(("eos" ,sbcl-eos)))
5878       (arguments
5879        ;; XXX: Circular dependencies: tests depend on optima.ppcre which depends on optima.
5880        `(#:tests? #f
5881          #:test-asd-file "optima.test.asd"))
5882       (synopsis "Optimized pattern matching library for Common Lisp")
5883       (description "Optima is a fast pattern matching library which uses
5884 optimizing techniques widely used in the functional programming world.")
5885       (license license:expat))))
5886
5887 (define-public cl-optima
5888   (sbcl-package->cl-source-package sbcl-optima))
5889
5890 (define-public sbcl-fare-quasiquote
5891   (package
5892     (name "sbcl-fare-quasiquote")
5893     (build-system asdf-build-system/sbcl)
5894     (version "20171130")
5895     (home-page "http://common-lisp.net/project/fare-quasiquote")
5896     (source
5897      (origin
5898        (method url-fetch)
5899        (uri (string-append "http://beta.quicklisp.org/archive/fare-quasiquote/"
5900                            (date->string (string->date version "~Y~m~d") "~Y-~m-~d")
5901                            "/fare-quasiquote-"
5902                            version
5903                            "-git.tgz"))
5904        (sha256
5905         (base32
5906          "00brmh7ndsi0c97nibi8cy10j3l4gmkyrfrr5jr5lzkfb7ngyfqa"))))
5907     (inputs
5908      `(("fare-utils" ,sbcl-fare-utils)))
5909     (arguments
5910      ;; XXX: Circular dependencies: Tests depend on subsystems, which depend on the main systems.
5911      `(#:tests? #f
5912        #:phases
5913        (modify-phases %standard-phases
5914          ;; XXX: Require 1.0.0 version of fare-utils, and we package some
5915          ;; commits after 1.0.0.5, but ASDF fails to read the
5916          ;; "-REVISION-COMMIT" part generated by Guix.
5917          (add-after 'unpack 'patch-requirement
5918            (lambda _
5919              (substitute* "fare-quasiquote.asd"
5920                (("\\(:version \"fare-utils\" \"1.0.0\"\\)") "\"fare-utils\"")))))))
5921     (synopsis "Pattern-matching friendly implementation of quasiquote for Common Lisp")
5922     (description "The main purpose of this n+2nd reimplementation of
5923 quasiquote is enable matching of quasiquoted patterns, using Optima or
5924 Trivia.")
5925     (license license:expat)))
5926
5927 (define-public cl-fare-quasiquote
5928   (sbcl-package->cl-source-package sbcl-fare-quasiquote))
5929
5930 (define-public sbcl-fare-quasiquote-optima
5931   (package
5932     (inherit sbcl-fare-quasiquote)
5933     (name "sbcl-fare-quasiquote-optima")
5934     (inputs
5935      `(("optima" ,sbcl-optima)
5936        ("fare-quasiquote" ,sbcl-fare-quasiquote)))
5937     (arguments
5938      '(#:phases
5939        (modify-phases %standard-phases
5940          (add-after 'unpack 'patch-requirement
5941            (lambda _
5942              (substitute* "fare-quasiquote-optima.asd"
5943                (("\\(:version \"optima\" \"1\\.0\"\\)")
5944                 "\"optima\""))
5945              #t)))))))
5946
5947 (define-public cl-fare-quasiquote-optima
5948   (sbcl-package->cl-source-package sbcl-fare-quasiquote-optima))
5949
5950 (define-public sbcl-fare-quasiquote-readtable
5951   (package
5952     (inherit sbcl-fare-quasiquote)
5953     (name "sbcl-fare-quasiquote-readtable")
5954     (inputs
5955      `(("fare-quasiquote" ,sbcl-fare-quasiquote)
5956        ("named-readtables" ,sbcl-named-readtables)))
5957     (description "The main purpose of this n+2nd reimplementation of
5958 quasiquote is enable matching of quasiquoted patterns, using Optima or
5959 Trivia.
5960
5961 This package uses fare-quasiquote with named-readtable.")))
5962
5963 (define-public cl-fare-quasiquote-readtable
5964   (sbcl-package->cl-source-package sbcl-fare-quasiquote-readtable))
5965
5966 ;; TODO: Add support for component-less system in asdf-build-system/sbcl.
5967 (define-public cl-fare-quasiquote-extras
5968   (package
5969     (inherit cl-fare-quasiquote)
5970     (name "cl-fare-quasiquote-extras")
5971     (build-system asdf-build-system/source)
5972     (propagated-inputs
5973      `(("fare-quasiquote" ,cl-fare-quasiquote)
5974        ("fare-quasiquote-optima" ,cl-fare-quasiquote-optima)
5975        ("fare-quasiquote-readtable" ,cl-fare-quasiquote-readtable)))
5976     (description "This library combines @code{fare-quasiquote-readtable} and
5977 @code{fare-quasiquote-optima}.")))
5978
5979 (define-public sbcl-trivia.level0
5980   (let ((commit "902e0c65602bbfe96ae82e679330b3771ddc7603")
5981         (revision "1"))
5982     (package
5983       (name "sbcl-trivia.level0")
5984       (build-system asdf-build-system/sbcl)
5985       (version (git-version "0.0.0" revision commit))
5986       (home-page "https://github.com/guicho271828/trivia")
5987       (source
5988        (origin
5989          (method git-fetch)
5990          (uri (git-reference
5991                (url home-page)
5992                (commit commit)))
5993          (file-name (git-file-name name version))
5994          (sha256
5995           (base32
5996            "11qbab30qqnfy9mx3x9fvgcw1jbvh1qn2cqv3p8xdn2m8981jvhr"))))
5997       (inputs
5998        `(("alexandria" ,sbcl-alexandria)))
5999       (synopsis "Pattern matching in Common Lisp")
6000       (description "Trivia is a pattern matching compiler that is compatible
6001 with Optima, another pattern matching library for Common Lisp.  It is meant to
6002 be faster and more extensible than Optima.")
6003       (license license:llgpl))))
6004
6005 (define-public sbcl-trivia.level1
6006   (package
6007     (inherit sbcl-trivia.level0)
6008     (name "sbcl-trivia.level1")
6009     (inputs
6010      `(("trivia.level0" ,sbcl-trivia.level0)))
6011     (description "Trivia is a pattern matching compiler that is compatible
6012 with Optima, another pattern matching library for Common Lisp.  It is meant to
6013 be faster and more extensible than Optima.
6014
6015 This system contains the core patterns of Trivia.")))
6016
6017 (define-public sbcl-trivia.level2
6018   (package
6019     (inherit sbcl-trivia.level0)
6020     (name "sbcl-trivia.level2")
6021     (inputs
6022      `(("trivia.level1" ,sbcl-trivia.level1)
6023        ("lisp-namespace" ,sbcl-lisp-namespace)
6024        ("trivial-cltl2" ,sbcl-trivial-cltl2)
6025        ("closer-mop" ,sbcl-closer-mop)))
6026     (description "Trivia is a pattern matching compiler that is compatible
6027 with Optima, another pattern matching library for Common Lisp.  It is meant to
6028 be faster and more extensible than Optima.
6029
6030 This system contains a non-optimized pattern matcher compatible with Optima,
6031 with extensible optimizer interface.")))
6032
6033 (define-public sbcl-trivia.trivial
6034   (package
6035     (inherit sbcl-trivia.level0)
6036     (name "sbcl-trivia.trivial")
6037     (inputs
6038      `(("trivia.level2" ,sbcl-trivia.level2)))
6039     (arguments
6040      `(#:phases
6041        (modify-phases %standard-phases
6042          (replace 'create-asd-file
6043            (lambda* (#:key outputs inputs #:allow-other-keys)
6044              (let* ((out (assoc-ref outputs "out"))
6045                     (lib (string-append out "/lib/" (%lisp-type)))
6046                     (level2 (assoc-ref inputs "trivia.level2")))
6047                (mkdir-p lib)
6048                (install-file "trivia.trivial.asd" lib)
6049                ;; XXX: This .asd does not have any component and the build
6050                ;; system fails to work in this case.  We should update the
6051                ;; build system to handle component-less .asd.
6052                ;; TODO: How do we append to file in Guile?  It seems that
6053                ;; (open-file ... "a") gets a "Permission denied".
6054                (substitute* (string-append lib "/trivia.trivial.asd")
6055                  (("\"\\)")
6056                   (string-append "\")
6057
6058 (progn (asdf/source-registry:ensure-source-registry)
6059        (setf (gethash
6060                \"trivia.level2\"
6061                asdf/source-registry:*source-registry*)
6062              #p\""
6063                                  level2
6064                                  "/share/common-lisp/sbcl-bundle-systems/trivia.level2.asd\"))")))))))))
6065     (description "Trivia is a pattern matching compiler that is compatible
6066 with Optima, another pattern matching library for Common Lisp.  It is meant to
6067 be faster and more extensible than Optima.
6068
6069 This system contains the base level system of Trivia with a trivial optimizer.")))
6070
6071 (define-public sbcl-trivia.balland2006
6072   (package
6073     (inherit sbcl-trivia.level0)
6074     (name "sbcl-trivia.balland2006")
6075     (inputs
6076      `(("trivia.trivial" ,sbcl-trivia.trivial)
6077        ("iterate" ,sbcl-iterate)
6078        ("type-i" ,sbcl-type-i)
6079        ("alexandria" ,sbcl-alexandria)))
6080     (arguments
6081      ;; Tests are done in trivia itself.
6082      `(#:tests? #f))
6083     (description "Trivia is a pattern matching compiler that is compatible
6084 with Optima, another pattern matching library for Common Lisp.  It is meant to
6085 be faster and more extensible than Optima.
6086
6087 This system contains the base level system of Trivia with a trivial optimizer.")))
6088
6089 (define-public sbcl-trivia.ppcre
6090   (package
6091     (inherit sbcl-trivia.level0)
6092     (name "sbcl-trivia.ppcre")
6093     (inputs
6094      `(("trivia.trivial" ,sbcl-trivia.trivial)
6095        ("cl-ppcre" ,sbcl-cl-ppcre)))
6096     (description "Trivia is a pattern matching compiler that is compatible
6097 with Optima, another pattern matching library for Common Lisp.  It is meant to
6098 be faster and more extensible than Optima.
6099
6100 This system contains the PPCRE extension.")))
6101
6102 (define-public sbcl-trivia.quasiquote
6103   (package
6104     (inherit sbcl-trivia.level0)
6105     (name "sbcl-trivia.quasiquote")
6106     (inputs
6107      `(("trivia.trivial" ,sbcl-trivia.trivial)
6108        ("fare-quasiquote" ,sbcl-fare-quasiquote)
6109        ("fare-quasiquote-readtable" ,sbcl-fare-quasiquote-readtable)))
6110     (description "Trivia is a pattern matching compiler that is compatible
6111 with Optima, another pattern matching library for Common Lisp.  It is meant to
6112 be faster and more extensible than Optima.
6113
6114 This system contains the fare-quasiquote extension.")))
6115
6116 (define-public sbcl-trivia.cffi
6117   (package
6118     (inherit sbcl-trivia.level0)
6119     (name "sbcl-trivia.cffi")
6120     (inputs
6121      `(("cffi" ,sbcl-cffi)
6122        ("trivia.trivial" ,sbcl-trivia.trivial)))
6123     (description "Trivia is a pattern matching compiler that is compatible
6124 with Optima, another pattern matching library for Common Lisp.  It is meant to
6125 be faster and more extensible than Optima.
6126
6127 This system contains the CFFI foreign slot access extension.")))
6128
6129 (define-public sbcl-trivia
6130   (package
6131     (inherit sbcl-trivia.level0)
6132     (name "sbcl-trivia")
6133     (inputs
6134      `(("trivia.balland2006" ,sbcl-trivia.balland2006)))
6135     (native-inputs
6136      `(("fiveam" ,sbcl-fiveam)
6137        ("trivia.ppcre" ,sbcl-trivia.ppcre)
6138        ("trivia.quasiquote" ,sbcl-trivia.quasiquote)
6139        ("trivia.cffi" ,sbcl-trivia.cffi)
6140        ("optima" ,sbcl-optima)))
6141     (arguments
6142      `(#:test-asd-file "trivia.test.asd"
6143        #:phases
6144        (modify-phases %standard-phases
6145          (add-after 'create-asd 'remove-component
6146            ;; XXX: The original .asd has no components, but our build system
6147            ;; creates an entry nonetheless.  We need to remove it for the
6148            ;; generated .asd to load properly.  See trivia.trivial for a
6149            ;; similar problem.
6150            (lambda* (#:key outputs #:allow-other-keys)
6151              (let* ((out (assoc-ref outputs "out"))
6152                     (asd (string-append out "/lib/" (%lisp-type) "/trivia.asd")))
6153                (substitute* asd
6154                  (("  :components
6155 ")
6156                   ""))
6157                (substitute* asd
6158                  ((" *\\(\\(:compiled-file \"trivia--system\"\\)\\)")
6159                   ""))))))))
6160     (description "Trivia is a pattern matching compiler that is compatible
6161 with Optima, another pattern matching library for Common Lisp.  It is meant to
6162 be faster and more extensible than Optima.")))
6163
6164 (define-public cl-trivia
6165   (sbcl-package->cl-source-package sbcl-trivia))
6166
6167 (define-public sbcl-mk-string-metrics
6168   (package
6169     (name "sbcl-mk-string-metrics")
6170     (version "0.1.2")
6171     (home-page "https://github.com/cbaggers/mk-string-metrics/")
6172     (source (origin
6173               (method git-fetch)
6174               (uri (git-reference
6175                     (url home-page)
6176                     (commit version)))
6177               (sha256
6178                (base32 "0bg0bv2mfd4k0g3x72x563hvmrx18xavaffr6xk5rh4if5j7kcf6"))
6179               (file-name (git-file-name name version))))
6180     (build-system asdf-build-system/sbcl)
6181     (synopsis "Calculate various string metrics efficiently in Common Lisp")
6182     (description "This library implements efficient algorithms that calculate
6183 various string metrics in Common Lisp:
6184
6185 @itemize
6186 @item Damerau-Levenshtein distance
6187 @item Hamming distance
6188 @item Jaccard similarity coefficient
6189 @item Jaro distance
6190 @item Jaro-Winkler distance
6191 @item Levenshtein distance
6192 @item Normalized Damerau-Levenshtein distance
6193 @item Normalized Levenshtein distance
6194 @item Overlap coefficient
6195 @end itemize\n")
6196     (license license:x11)))
6197
6198 (define-public cl-mk-string-metrics
6199   (sbcl-package->cl-source-package sbcl-mk-string-metrics))
6200
6201 (define-public sbcl-cl-str
6202   (let ((commit "3d5ec86e3a0199e5973aacde951086dfd754b5e5"))
6203     (package
6204       (name "sbcl-cl-str")
6205       (version (git-version "0.8" "1" commit))
6206       (home-page "https://github.com/vindarel/cl-str")
6207       (source (origin
6208                 (method git-fetch)
6209                 (uri (git-reference
6210                       (url home-page)
6211                       (commit commit)))
6212                 (sha256
6213                  (base32 "0szzzbygw9h985yxz909vvqrp69pmpcpahn7hn350lnyjislk9ga"))
6214                 (file-name (git-file-name name version))))
6215       (build-system asdf-build-system/sbcl)
6216       (inputs
6217        `(("cl-ppcre" ,sbcl-cl-ppcre)
6218          ("cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)))
6219       (native-inputs
6220        `(("prove" ,sbcl-prove)
6221          ("prove-asdf" ,sbcl-prove-asdf)))
6222       (arguments
6223        `(#:asd-file "str.asd"
6224          #:asd-system-name "str"
6225          #:test-asd-file "str.test.asd"))
6226       (synopsis "Modern, consistent and terse Common Lisp string manipulation library")
6227       (description "A modern and consistent Common Lisp string manipulation
6228 library that focuses on modernity, simplicity and discoverability:
6229 @code{(str:trim s)} instead of @code{(string-trim '(#\\Space ...) s)}), or
6230 @code{str:concat strings} instead of an unusual format construct; one
6231 discoverable library instead of many; consistency and composability, where
6232 @code{s} is always the last argument, which makes it easier to feed pipes and
6233 arrows.")
6234       (license license:expat))))
6235
6236 (define-public cl-str
6237   (sbcl-package->cl-source-package sbcl-cl-str))
6238
6239 (define-public sbcl-cl-xmlspam
6240   (let ((commit "ea06abcca2a73a9779bcfb09081e56665f94e22a"))
6241     (package
6242       (name "sbcl-cl-xmlspam")
6243       (build-system asdf-build-system/sbcl)
6244       (version (git-version "0.0.0" "1" commit))
6245       (home-page "https://github.com/rogpeppe/cl-xmlspam")
6246       (source
6247        (origin
6248          (method git-fetch)
6249          (uri (git-reference
6250                (url home-page)
6251                (commit commit)))
6252          (file-name (string-append name "-" version))
6253          (sha256
6254           (base32
6255            "0w4rqvrgdgk3fwfq3kx4r7wwdr2bv3b6n3bdqwsiriw9psqzpz2s"))))
6256       (inputs
6257        `(("cxml" ,sbcl-cxml)
6258          ("cl-ppcre" ,sbcl-cl-ppcre)))
6259       (synopsis "Concise, regexp-like pattern matching on streaming XML for Common Lisp")
6260       (description "CXML does an excellent job at parsing XML elements, but what
6261 do you do when you have a XML file that's larger than you want to fit in
6262 memory, and you want to extract some information from it?  Writing code to deal
6263 with SAX events, or even using Klacks, quickly becomes tedious.
6264 @code{cl-xmlspam} (for XML Stream PAttern Matcher) is designed to make it easy
6265 to write code that mirrors the structure of the XML that it's parsing.  It
6266 also makes it easy to shift paradigms when necessary - the usual Lisp control
6267 constructs can be used interchangeably with pattern matching, and the full
6268 power of CXML is available when necessary.")
6269       (license license:bsd-3))))
6270
6271 ;; TODO: dbus uses ASDF's package-inferred-system which is not supported by
6272 ;; asdf-build-system/sbcl as of 2019-08-02.  We should fix
6273 ;; asdf-build-system/sbcl.
6274 (define-public cl-dbus
6275   (let ((commit "24b452df3a45ca5dc95015500f34baad175c981a")
6276         (revision "1"))
6277     (package
6278       (name "cl-dbus")
6279       (build-system asdf-build-system/source)
6280       (version (git-version "20190408" revision commit))
6281       (home-page "https://github.com/death/dbus")
6282       (source
6283        (origin
6284          (method git-fetch)
6285          (uri (git-reference
6286                (url home-page)
6287                (commit commit)))
6288          (file-name (git-file-name name version))
6289          (sha256
6290           (base32
6291            "0fw2q866yddbf23nk9pxphm9gsasx35vjyss82xzvndnjmzlqfl5"))))
6292       ;; Inputs must be propagated or else packages depending on this won't have the necessary packages.
6293       (propagated-inputs
6294        `(("alexandria" ,sbcl-alexandria)
6295          ("trivial-garbage" ,sbcl-trivial-garbage)
6296          ("babel" ,sbcl-babel)
6297          ("iolib" ,sbcl-iolib)
6298          ("iolib+multiplex" ,(@@ (gnu packages lisp-xyz) sbcl-iolib+multiplex))
6299          ("iolib+syscalls" ,(@@ (gnu packages lisp-xyz) sbcl-iolib+syscalls))
6300          ("iolib+streams" ,(@@ (gnu packages lisp-xyz) sbcl-iolib+streams))
6301          ("iolib+sockets" ,(@@ (gnu packages lisp-xyz) sbcl-iolib+sockets))
6302          ("ieee-floats" ,sbcl-ieee-floats)
6303          ("flexi-streams" ,sbcl-flexi-streams)
6304          ("cl-xmlspam" ,sbcl-cl-xmlspam)
6305          ("ironclad" ,sbcl-ironclad)))
6306       (synopsis "D-Bus client library for Common Lisp")
6307       (description "This is a Common Lisp library that allows to publish D-Bus
6308 objects as well as send and notify other objects connected to a bus.")
6309       (license license:bsd-2))))
6310
6311 (define-public sbcl-cl-hooks
6312   (let ((commit "5b638083f3b4f1221a52631d9c8a0a265565cac7")
6313         (revision "1"))
6314     (package
6315       (name "sbcl-cl-hooks")
6316       (build-system asdf-build-system/sbcl)
6317       (version (git-version "0.2.1" revision commit))
6318       (home-page "https://github.com/scymtym/architecture.hooks")
6319       (source
6320        (origin
6321          (method git-fetch)
6322          (uri (git-reference
6323                (url home-page)
6324                (commit commit)))
6325          (file-name (git-file-name name version))
6326          (sha256
6327           (base32
6328            "0bg3l0a28lw5gqqjp6p6b5nhwqk46sgkb7184w5qbfngw1hk8x9y"))))
6329       (inputs
6330        `(("alexandria" ,sbcl-alexandria)
6331          ("let-plus" ,sbcl-let-plus)
6332          ("trivial-garbage" ,sbcl-trivial-garbage)
6333          ("closer-mop" ,sbcl-closer-mop)))
6334       (native-inputs
6335        `(("fiveam" ,sbcl-fiveam)))
6336       (synopsis "Hooks extension point mechanism (as in Emacs) for Common Lisp")
6337       (description "A hook, in the present context, is a certain kind of
6338 extension point in a program that allows interleaving the execution of
6339 arbitrary code with the execution of a the program without introducing any
6340 coupling between the two.  Hooks are used extensively in the extensible editor
6341 Emacs.
6342
6343 In the Common LISP Object System (CLOS), a similar kind of extensibility is
6344 possible using the flexible multi-method dispatch mechanism.  It may even seem
6345 that the concept of hooks does not provide any benefits over the possibilities
6346 of CLOS.  However, there are some differences:
6347
6348 @itemize
6349
6350 @item There can be only one method for each combination of specializers and
6351 qualifiers.  As a result this kind of extension point cannot be used by
6352 multiple extensions independently.
6353 @item Removing code previously attached via a @code{:before}, @code{:after} or
6354 @code{:around} method can be cumbersome.
6355 @item There could be other or even multiple extension points besides @code{:before}
6356 and @code{:after} in a single method.
6357 @item Attaching codes to individual objects using eql specializers can be
6358 cumbersome.
6359 @item Introspection of code attached a particular extension point is
6360 cumbersome since this requires enumerating and inspecting the methods of a
6361 generic function.
6362 @end itemize
6363
6364 This library tries to complement some of these weaknesses of method-based
6365 extension-points via the concept of hooks.")
6366       (license license:llgpl))))
6367
6368 (define-public cl-hooks
6369   (sbcl-package->cl-source-package sbcl-cl-hooks))
6370
6371 (define-public ecl-cl-hooks
6372   (sbcl-package->ecl-package sbcl-cl-hooks))
6373
6374 (define-public sbcl-s-sysdeps
6375   (let ((commit "d28246b5dffef9e73a0e0e6cfbc4e878006fe34d")
6376         (revision "1"))
6377     (package
6378       (name "sbcl-s-sysdeps")
6379       (build-system asdf-build-system/sbcl)
6380       (version (git-version "1" revision commit))
6381       (home-page "https://github.com/svenvc/s-sysdeps")
6382       (source
6383        (origin
6384          (method git-fetch)
6385          (uri (git-reference
6386                (url home-page)
6387                (commit commit)))
6388          (file-name (git-file-name name version))
6389          (sha256
6390           (base32
6391            "14b69b81yrxmjlvmm3lfxk04x5v7hqz4fql121334wh72czznfh9"))))
6392       (synopsis "Common Lisp abstraction layer over platform dependent functionality")
6393       (description "@code{s-sysdeps} is an abstraction layer over platform
6394 dependent functionality.  This simple package is used as a building block in a
6395 number of other open source projects.
6396
6397 @code{s-sysdeps} abstracts:
6398
6399 @itemize
6400 @item managing processes,
6401 @item implementing a standard TCP/IP server,
6402 @item opening a client TCP/IP socket stream,
6403 @item working with process locks.
6404 @end itemize\n")
6405       (license license:llgpl))))
6406
6407 (define-public cl-s-sysdeps
6408   (sbcl-package->cl-source-package sbcl-s-sysdeps))
6409
6410 (define-public ecl-s-sysdeps
6411   (sbcl-package->ecl-package sbcl-s-sysdeps))
6412
6413 (define-public sbcl-cl-prevalence
6414   (let ((commit "c163c227ed85d430b82cb1e3502f72d4f88e3cfa")
6415         (revision "1"))
6416     (package
6417       (name "sbcl-cl-prevalence")
6418       (build-system asdf-build-system/sbcl)
6419       (version (git-version "5" revision commit))
6420       (home-page "https://github.com/40ants/cl-prevalence")
6421       (source
6422        (origin
6423          (method git-fetch)
6424          (uri (git-reference
6425                (url home-page)
6426                (commit commit)))
6427          (file-name (git-file-name name version))
6428          (sha256
6429           (base32
6430            "1i9zj1q2ahgwch56an21yzbgkynz0kab9fyxkq9mg8p3xrv38jjn"))))
6431       (inputs
6432        `(("s-sysdeps" ,sbcl-s-sysdeps)
6433          ("s-xml" ,sbcl-s-xml)))
6434       (synopsis "Implementation of object prevalence for Common Lisp")
6435       (description "This Common Lisp library implements object prevalence (see
6436 @url{https://en.wikipedia.org/wiki/System_prevalence}).  It allows
6437 for (de)serializing to and from s-exps as well as XML.  Serialization of arbitrary
6438 classes and cyclic data structures are supported.")
6439       (license license:llgpl))))
6440
6441 (define-public cl-prevalence
6442   (sbcl-package->cl-source-package sbcl-cl-prevalence))
6443
6444 (define-public ecl-cl-prevalence
6445   (sbcl-package->ecl-package sbcl-cl-prevalence))
6446
6447 (define-public sbcl-series
6448   (let ((commit "da9061b336119d1e5214aff9117171d494d5a58a")
6449         (revision "1"))
6450     (package
6451       (name "sbcl-series")
6452       (version (git-version "2.2.11" revision commit))
6453       (source
6454        (origin
6455          (method git-fetch)
6456          (uri (git-reference
6457                (url "git://git.code.sf.net/p/series/series")
6458                (commit commit)))
6459          (file-name (git-file-name name version))
6460          (sha256
6461           (base32
6462            "07hk2lhfx42zk018pxqvn4gs77vd4n4g8m4xxbqaxgca76mifwfw"))))
6463       (build-system asdf-build-system/sbcl)
6464       (arguments
6465        ;; Disable the tests, they are apparently buggy and I didn't find
6466        ;; a simple way to make them run and pass.
6467        '(#:tests? #f))
6468       (synopsis "Series data structure for Common Lisp")
6469       (description
6470        "This Common Lisp library provides a series data structure much like
6471 a sequence, with similar kinds of operations.  The difference is that in many
6472 situations, operations on series may be composed functionally and yet execute
6473 iteratively, without the need to construct intermediate series values
6474 explicitly.  In this manner, series provide both the clarity of a functional
6475 programming style and the efficiency of an iterative programming style.")
6476       (home-page "http://series.sourceforge.net/")
6477       (license license:expat))))
6478
6479 (define-public cl-series
6480   (sbcl-package->cl-source-package sbcl-series))
6481
6482 (define-public ecl-series
6483   (sbcl-package->ecl-package sbcl-series))
6484
6485 (define-public sbcl-periods
6486   (let ((commit "983d4a57325db3c8def942f163133cec5391ec28")
6487         (revision "1"))
6488     (package
6489       (name "sbcl-periods")
6490       (version (git-version "0.0.2" revision commit))
6491       (source
6492        (origin
6493          (method git-fetch)
6494          (uri (git-reference
6495                (url "https://github.com/jwiegley/periods.git")
6496                (commit commit)))
6497          (file-name (git-file-name name version))
6498          (sha256
6499           (base32
6500            "0z30jr3lxz3cmi019fsl4lgcgwf0yqpn95v9zkkkwgymdrkd4lga"))))
6501       (build-system asdf-build-system/sbcl)
6502       (inputs
6503        `(("local-time" ,sbcl-local-time)))
6504       (synopsis "Common Lisp library for manipulating date/time objects")
6505       (description
6506        "Periods is a Common Lisp library providing a set of utilities for
6507 manipulating times, distances between times, and both contiguous and
6508 discontiguous ranges of time.")
6509       (home-page "https://github.com/jwiegley/periods")
6510       (license license:bsd-3))))
6511
6512 (define-public cl-periods
6513   (sbcl-package->cl-source-package sbcl-periods))
6514
6515 (define-public ecl-periods
6516   (sbcl-package->ecl-package sbcl-periods))
6517
6518 (define-public sbcl-periods-series
6519   (package
6520     (inherit sbcl-periods)
6521     (name "sbcl-periods-series")
6522     (inputs
6523      `(("periods" ,sbcl-periods)
6524        ("series" ,sbcl-series)))
6525     (arguments
6526      '(#:asd-file "periods-series.asd"
6527        #:asd-system-name "periods-series"))
6528     (description
6529      "Periods-series is an extension of the periods Common Lisp library
6530 providing functions compatible with the series Common Lisp library.")))
6531
6532 (define-public cl-periods-series
6533   (sbcl-package->cl-source-package sbcl-periods-series))
6534
6535 (define-public ecl-periods-series
6536   (sbcl-package->ecl-package sbcl-periods-series))
6537
6538 (define-public sbcl-metatilities-base
6539   (let ((commit "6eaa9e3ff0939a93a92109dd0fcd218de85417d5")
6540         (revision "1"))
6541     (package
6542       (name "sbcl-metatilities-base")
6543       (version (git-version "0.6.6" revision commit))
6544       (source
6545        (origin
6546          (method git-fetch)
6547          (uri (git-reference
6548                (url "https://github.com/gwkkwg/metatilities-base.git")
6549                (commit commit)))
6550          (file-name (git-file-name name version))
6551          (sha256
6552           (base32
6553            "0xpa86pdzlnf4v5g64j3ifaplx71sx2ha8b7vvakswi652679ma0"))))
6554       (build-system asdf-build-system/sbcl)
6555       (native-inputs
6556        `(("lift" ,sbcl-lift)))
6557       (synopsis "Core of the metatilities Common Lisp library")
6558       (description
6559        "Metatilities-base is the core of the metatilities Common Lisp library
6560 which implements a set of utilities.")
6561       (home-page "https://common-lisp.net/project/metatilities-base/")
6562       (license license:expat))))
6563
6564 (define-public cl-metatilities-base
6565   (sbcl-package->cl-source-package sbcl-metatilities-base))
6566
6567 (define-public ecl-metatilities-base
6568   (sbcl-package->ecl-package sbcl-metatilities-base))
6569
6570 (define-public sbcl-cl-containers
6571   (let ((commit "810927e19d933bcf38ffeb7a23ce521efc432d45")
6572         (revision "1"))
6573     (package
6574       (name "sbcl-cl-containers")
6575       (version (git-version "0.12.1" revision commit))
6576       (source
6577        (origin
6578          (method git-fetch)
6579          (uri (git-reference
6580                (url "https://github.com/gwkkwg/cl-containers.git")
6581                (commit commit)))
6582          (file-name (git-file-name name version))
6583          (sha256
6584           (base32
6585            "1s9faxw7svhbjpkhfrz2qxgjm3cvyjb8wpyb4m8dx4i5g7vvprkv"))))
6586       (build-system asdf-build-system/sbcl)
6587       (native-inputs
6588        `(("lift" ,sbcl-lift)))
6589       (inputs
6590        `(("metatilities-base" ,sbcl-metatilities-base)))
6591       (arguments
6592        '(#:phases
6593          (modify-phases %standard-phases
6594            (add-after 'unpack 'relax-version-checks
6595              (lambda _
6596                (substitute* "cl-containers.asd"
6597                  (("\\(:version \"metatilities-base\" \"0\\.6\\.6\"\\)")
6598                   "\"metatilities-base\""))
6599                (substitute* "cl-containers-test.asd"
6600                  (("\\(:version \"lift\" \"1\\.7\\.0\"\\)")
6601                   "\"lift\""))
6602                #t)))))
6603       (synopsis "Container library for Common Lisp")
6604       (description
6605        "Common Lisp ships with a set of powerful built in data structures
6606 including the venerable list, full featured arrays, and hash-tables.
6607 CL-containers enhances and builds on these structures by adding containers
6608 that are not available in native Lisp (for example: binary search trees,
6609 red-black trees, sparse arrays and so on), and by providing a standard
6610 interface so that they are simpler to use and so that changing design
6611 decisions becomes significantly easier.")
6612       (home-page "https://common-lisp.net/project/cl-containers/")
6613       (license license:expat))))
6614
6615 (define-public cl-containers
6616   (sbcl-package->cl-source-package sbcl-cl-containers))
6617
6618 (define-public ecl-cl-containers
6619   (sbcl-package->ecl-package sbcl-cl-containers))
6620
6621 (define-public sbcl-xlunit
6622   (let ((commit "3805d34b1d8dc77f7e0ee527a2490194292dd0fc")
6623         (revision "1"))
6624     (package
6625       (name "sbcl-xlunit")
6626       (version (git-version "0.6.3" revision commit))
6627       (source
6628        (origin
6629          (method git-fetch)
6630          (uri (git-reference
6631                (url "http://git.kpe.io/xlunit.git")
6632                (commit commit)))
6633          (file-name (git-file-name name version))
6634          (sha256
6635           (base32
6636            "0argfmp9nghs4sihyj3f8ch9qfib2b7ll07v5m9ziajgzsfl5xw3"))))
6637       (build-system asdf-build-system/sbcl)
6638       (arguments
6639        '(#:phases
6640          (modify-phases %standard-phases
6641            (add-after 'unpack 'fix-tests
6642              (lambda _
6643                (substitute* "xlunit.asd"
6644                  ((" :force t") ""))
6645                #t)))))
6646       (synopsis "Unit testing package for Common Lisp")
6647       (description
6648        "The XLUnit package is a toolkit for building test suites.  It is based
6649 on the XPTest package by Craig Brozensky and the JUnit package by Kent Beck.")
6650       (home-page "http://quickdocs.org/xlunit/")
6651       (license license:bsd-3))))
6652
6653 (define-public cl-xlunit
6654   (sbcl-package->cl-source-package sbcl-xlunit))
6655
6656 (define-public ecl-xlunit
6657   (sbcl-package->ecl-package sbcl-xlunit))
6658
6659 (define-public sbcl-fprog
6660   (let ((commit "7016d1a98215f82605d1c158e7a16504ca1f4636")
6661         (revision "1"))
6662     (package
6663       (name "sbcl-fprog")
6664       (version (git-version "1.0.0" revision commit))
6665       (source
6666        (origin
6667          (method git-fetch)
6668          (uri (git-reference
6669                (url "https://github.com/jwiegley/cambl.git")
6670                (commit commit)))
6671          (file-name (git-file-name name version))
6672          (sha256
6673           (base32
6674            "103mry04j2k9vznsxm7wcvccgxkil92cdrv52miwcmxl8daa4jiz"))))
6675       (build-system asdf-build-system/sbcl)
6676       (synopsis "Functional programming utilities for Common Lisp")
6677       (description
6678        "@code{fprog} is a Common Lisp library allowing iteration over
6679 immutable lists sharing identical sublists.")
6680       (home-page "https://github.com/jwiegley/cambl")
6681       (license license:bsd-3))))
6682
6683 (define-public cl-fprog
6684   (sbcl-package->cl-source-package sbcl-fprog))
6685
6686 (define-public ecl-fprog
6687   (sbcl-package->ecl-package sbcl-fprog))
6688
6689 (define-public sbcl-cambl
6690   (let ((commit "7016d1a98215f82605d1c158e7a16504ca1f4636")
6691         (revision "1"))
6692     (package
6693       (inherit sbcl-fprog)
6694       (name "sbcl-cambl")
6695       (version (git-version "4.0.0" revision commit))
6696       (native-inputs
6697        `(("xlunit" ,sbcl-xlunit)))
6698       (inputs
6699        `(("alexandria" ,sbcl-alexandria)
6700          ("cl-containers" ,sbcl-cl-containers)
6701          ("local-time" ,sbcl-local-time)
6702          ("periods" ,sbcl-periods)
6703          ("fprog" ,sbcl-fprog)))
6704       (synopsis "Commoditized amounts and balances for Common Lisp")
6705       (description
6706        "CAMBL is a Common Lisp library providing a convenient facility for
6707 working with commoditized values.  It does not allow compound units (and so is
6708 not suited for scientific operations) but does work rather nicely for the
6709 purpose of financial calculations."))))
6710
6711 (define-public cl-cambl
6712   (sbcl-package->cl-source-package sbcl-cambl))
6713
6714 (define-public ecl-cambl
6715   (sbcl-package->ecl-package sbcl-cambl))
6716
6717 (define-public sbcl-cl-ledger
6718   (let ((commit "08e0be41795e804cd36142e51756ad0b1caa377b")
6719         (revision "1"))
6720     (package
6721       (name "sbcl-cl-ledger")
6722       (version (git-version "4.0.0" revision commit))
6723       (source
6724        (origin
6725          (method git-fetch)
6726          (uri (git-reference
6727                (url "https://github.com/ledger/cl-ledger.git")
6728                (commit commit)))
6729          (file-name (git-file-name name version))
6730          (sha256
6731           (base32
6732            "1via0qf6wjcyxnfbmfxjvms0ik9j8rqbifgpmnhrzvkhrq9pv8h1"))))
6733       (build-system asdf-build-system/sbcl)
6734       (inputs
6735        `(("cambl" ,sbcl-cambl)
6736          ("cl-ppcre" ,sbcl-cl-ppcre)
6737          ("local-time" ,sbcl-local-time)
6738          ("periods-series" ,sbcl-periods-series)))
6739       (arguments
6740        '(#:phases
6741          (modify-phases %standard-phases
6742            (add-after 'unpack 'fix-system-definition
6743              (lambda _
6744                (substitute* "cl-ledger.asd"
6745                  (("  :build-operation program-op") "")
6746                  (("  :build-pathname \"cl-ledger\"") "")
6747                  (("  :entry-point \"ledger::main\"") ""))
6748                #t)))))
6749       (synopsis "Common Lisp port of the Ledger accounting system")
6750       (description
6751        "CL-Ledger is a Common Lisp port of the Ledger double-entry accounting
6752 system.")
6753       (home-page "https://github.com/ledger/cl-ledger")
6754       (license license:bsd-3))))
6755
6756 (define-public cl-ledger
6757   (sbcl-package->cl-source-package sbcl-cl-ledger))
6758
6759 (define-public ecl-cl-ledger
6760   (sbcl-package->ecl-package sbcl-cl-ledger))
6761
6762 (define-public sbcl-bst
6763   (let ((commit "34f9c7e8e0a9f2c952fe310ab36cb630d5d9c15a")
6764         (revision "1"))
6765     (package
6766       (name "sbcl-bst")
6767       (version (git-version "1.1" revision commit))
6768       (source
6769        (origin
6770          (method git-fetch)
6771          (uri (git-reference
6772                (url "https://github.com/glv2/bst.git")
6773                (commit commit)))
6774          (file-name (git-file-name name version))
6775          (sha256
6776           (base32
6777            "1amxns7hvvh4arwbh8ciwfzplg127vh37dnbamv1m1kmmnmihfc8"))))
6778       (build-system asdf-build-system/sbcl)
6779       (native-inputs
6780        `(("alexandria" ,sbcl-alexandria)
6781          ("fiveam" ,sbcl-fiveam)))
6782       (synopsis "Binary search tree for Common Lisp")
6783       (description
6784        "BST is a Common Lisp library for working with binary search trees that
6785 can contain any kind of values.")
6786       (home-page "https://github.com/glv2/bst")
6787       (license license:gpl3))))
6788
6789 (define-public cl-bst
6790   (sbcl-package->cl-source-package sbcl-bst))
6791
6792 (define-public ecl-bst
6793   (sbcl-package->ecl-package sbcl-bst))
6794
6795 (define-public sbcl-cl-octet-streams
6796   (package
6797     (name "sbcl-cl-octet-streams")
6798     (version "1.0")
6799     (source
6800      (origin
6801        (method git-fetch)
6802        (uri (git-reference
6803              (url "https://github.com/glv2/cl-octet-streams.git")
6804              (commit (string-append "v" version))))
6805        (file-name (git-file-name name version))
6806        (sha256
6807         (base32
6808          "1d7mn6ydv0j2x4r7clpc9ijjwrnfpxmvhifv8n5j7jh7s744sf8d"))))
6809     (build-system asdf-build-system/sbcl)
6810     (native-inputs
6811      `(("fiveam" ,sbcl-fiveam)))
6812     (inputs
6813      `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
6814     (synopsis "In-memory octet streams for Common Lisp")
6815     (description
6816      "CL-octet-streams is a library implementing in-memory octet
6817 streams for Common Lisp.  It was inspired by the trivial-octet-streams and
6818 cl-plumbing libraries.")
6819     (home-page "https://github.com/glv2/cl-octet-streams")
6820     (license license:gpl3+)))
6821
6822 (define-public cl-octet-streams
6823   (sbcl-package->cl-source-package sbcl-cl-octet-streams))
6824
6825 (define-public ecl-cl-octet-streams
6826   (sbcl-package->ecl-package sbcl-cl-octet-streams))
6827
6828 (define-public sbcl-lzlib
6829   (let ((commit "0de1db7129fef9a58a059d35a2fa2ecfc5b47b47")
6830         (revision "1"))
6831     (package
6832       (name "sbcl-lzlib")
6833       (version (git-version "1.0" revision commit))
6834       (source
6835        (origin
6836          (method git-fetch)
6837          (uri (git-reference
6838                (url "https://github.com/glv2/cl-lzlib.git")
6839                (commit commit)))
6840          (file-name (git-file-name name version))
6841          (sha256
6842           (base32
6843            "12ny7vj52fgnd8hb8fc8mry92vq4c1x72x2350191m4476j95clz"))))
6844       (build-system asdf-build-system/sbcl)
6845       (native-inputs
6846        `(("fiveam" ,sbcl-fiveam)))
6847       (inputs
6848        `(("cffi" ,sbcl-cffi)
6849          ("cl-octet-streams" ,sbcl-cl-octet-streams)
6850          ("lzlib" ,lzlib)))
6851       (arguments
6852        '(#:phases
6853          (modify-phases %standard-phases
6854            (add-after 'unpack 'fix-paths
6855              (lambda* (#:key inputs #:allow-other-keys)
6856                (substitute* "src/lzlib.lisp"
6857                  (("liblz\\.so")
6858                   (string-append (assoc-ref inputs "lzlib") "/lib/liblz.so")))
6859                #t)))))
6860       (synopsis "Common Lisp library for lzip (de)compression")
6861       (description
6862        "This Common Lisp library provides functions for lzip (LZMA)
6863 compression/decompression using bindings to the lzlib C library.")
6864       (home-page "https://github.com/glv2/cl-lzlib")
6865       (license license:gpl3+))))
6866
6867 (define-public cl-lzlib
6868   (sbcl-package->cl-source-package sbcl-lzlib))
6869
6870 (define-public ecl-lzlib
6871   (sbcl-package->ecl-package sbcl-lzlib))
6872
6873 (define-public sbcl-chanl
6874   (let ((commit "2362b57550c2c9238cc882d03553aaa1040b7340")
6875         (revision "0"))
6876     (package
6877       (name "sbcl-chanl")
6878       (version (git-version "0.4.1" revision commit))
6879       (source
6880        (origin
6881          (method git-fetch)
6882          (uri (git-reference
6883                (url "https://github.com/zkat/chanl.git")
6884                (commit commit)))
6885          (file-name (git-file-name name version))
6886          (sha256
6887           (base32
6888            "0ag3wz7yrqwp0s5069wwda98z3rrqd25spg8sa8rdqghj084w28w"))))
6889       (build-system asdf-build-system/sbcl)
6890       (native-inputs
6891        `(("fiveam" ,sbcl-fiveam)))
6892       (inputs
6893        `(("bordeaux-threads" ,sbcl-bordeaux-threads)))
6894       (synopsis "Portable channel-based concurrency for Common Lisp")
6895       (description "Common Lisp library for channel-based concurrency.  In
6896 a nutshell, you create various threads sequentially executing tasks you need
6897 done, and use channel objects to communicate and synchronize the state of these
6898 threads.")
6899       (home-page "https://github.com/zkat/chanl")
6900       (license (list license:expat license:bsd-3)))))
6901
6902 (define-public cl-chanl
6903   (sbcl-package->cl-source-package sbcl-chanl))
6904
6905 (define-public ecl-chanl
6906   (let ((base (sbcl-package->ecl-package sbcl-chanl)))
6907     (package
6908       (inherit base)
6909       (arguments
6910        (substitute-keyword-arguments (package-arguments base)
6911          ;; The CHANL.ACTORS package uses the :ARGUMENTS option of
6912          ;; DEFINE-METHOD-COMBINATION, which is not implemented in ECL yet
6913          ;; (see https://gitlab.com/embeddable-common-lisp/ecl/issues/305).
6914          ;; So let's disable it for now, as it allows compiling the library
6915          ;; and using the rest of it.
6916          ((#:phases phases '%standard-phases)
6917           `(modify-phases ,phases
6918              (add-after 'unpack 'disable-chanl-actors
6919                (lambda _
6920                  (substitute* "chanl.asd"
6921                    (("\\(:file \"actors\"\\)") ""))
6922                  #t))))
6923          ;; Disable the tests for now, as the SEND-SEQUENCE test seems to
6924          ;; never end.
6925          ((#:tests? _ #f) #f))))))
6926
6927 (define-public sbcl-cl-store
6928   (let ((commit "c787337a16ea8cf8a06227f35933a4ec774746b3")
6929         (revision "1"))
6930     (package
6931       (name "sbcl-cl-store")
6932       (version (git-version "0.8.11" revision commit))
6933       (source
6934        (origin
6935          (method git-fetch)
6936          (uri (git-reference
6937                (url "https://github.com/skypher/cl-store.git")
6938                (commit commit)))
6939          (file-name (git-file-name name version))
6940          (sha256
6941           (base32
6942            "194srkg8nrym19c6i7zbnkzshc1qhqa82m53qnkirz9fw928bqxr"))))
6943       (build-system asdf-build-system/sbcl)
6944       (native-inputs
6945        `(("rt" ,sbcl-rt)))
6946       (synopsis "Common Lisp library to serialize data")
6947       (description
6948        "CL-STORE is a portable serialization package which should give you the
6949 ability to store all Common Lisp data types into streams.")
6950       (home-page "https://www.common-lisp.net/project/cl-store/")
6951       (license license:expat))))
6952
6953 (define-public cl-store
6954   (sbcl-package->cl-source-package sbcl-cl-store))
6955
6956 (define-public ecl-cl-store
6957   (sbcl-package->ecl-package sbcl-cl-store))
6958
6959 (define-public sbcl-cl-gobject-introspection
6960   (let ((commit "7b703e2384945ea0ac39d9b766de434a08d81560")
6961         (revision "0"))
6962     (package
6963       (name "sbcl-cl-gobject-introspection")
6964       (version (git-version "0.3" revision commit))
6965       (home-page "https://github.com/andy128k/cl-gobject-introspection")
6966       (source
6967        (origin
6968          (method git-fetch)
6969          (uri (git-reference
6970                (url home-page)
6971                (commit commit)))
6972          (file-name (git-file-name name version))
6973          (sha256
6974           (base32
6975            "1zcqd2qj14f6b38vys8gr89s6cijsp9r8j43xa8lynilwva7bwyh"))))
6976       (build-system asdf-build-system/sbcl)
6977       (inputs
6978        `(("alexandria" ,sbcl-alexandria)
6979          ("cffi" ,sbcl-cffi)
6980          ("iterate" ,sbcl-iterate)
6981          ("trivial-garbage" ,sbcl-trivial-garbage)
6982          ("glib" ,glib)
6983          ("gobject-introspection" ,gobject-introspection)))
6984       (native-inputs
6985        `(("fiveam" ,sbcl-fiveam)))
6986       (arguments
6987        ;; TODO: Tests fail, see
6988        ;; https://github.com/andy128k/cl-gobject-introspection/issues/70.
6989        '(#:tests? #f
6990          #:phases
6991          (modify-phases %standard-phases
6992            (add-after (quote unpack) (quote fix-paths)
6993              (lambda* (#:key inputs #:allow-other-keys)
6994                (substitute* "src/init.lisp"
6995                  (("libgobject-2\\.0\\.so")
6996                   (string-append (assoc-ref inputs "glib") "/lib/libgobject-2.0.so"))
6997                  (("libgirepository-1\\.0\\.so")
6998                   (string-append (assoc-ref inputs "gobject-introspection")
6999                                  "/lib/libgirepository-1.0.so")))
7000                #t)))))
7001       (synopsis "Common Lisp bindings to GObject Introspection")
7002       (description
7003        "This library is a bridge between Common Lisp and GObject
7004 Introspection, which enables Common Lisp programs to access the full interface
7005 of C+GObject libraries without the need of writing dedicated bindings.")
7006       (license (list license:bsd-3
7007                      ;; Tests are under a different license.
7008                      license:llgpl)))))
7009
7010 (define-public cl-gobject-introspection
7011   (sbcl-package->cl-source-package sbcl-cl-gobject-introspection))
7012
7013 (define-public sbcl-string-case
7014   (let ((commit "718c761e33749e297cd2809c7ba3ade1985c49f7")
7015         (revision "0"))
7016     (package
7017       (name "sbcl-string-case")
7018       (version (git-version "0.0.2" revision commit))
7019       (home-page "https://github.com/pkhuong/string-case")
7020       (source
7021        (origin
7022          (method git-fetch)
7023          (uri (git-reference
7024                (url home-page)
7025                (commit commit)))
7026          (file-name (git-file-name name version))
7027          (sha256
7028           (base32
7029            "1n5i3yh0h5s636rcnwn7jwqy3rjflikra04lymimhpcshhjsk0md"))))
7030       (build-system asdf-build-system/sbcl)
7031       (synopsis "Efficient string= case in Common Lisp")
7032       (description
7033        "@code{string-case} is a Common Lisp macro that generates specialised decision
7034 trees to dispatch on string equality.")
7035       (license license:bsd-3))))
7036
7037 (define-public cl-string-case
7038   (sbcl-package->cl-source-package sbcl-string-case))
7039
7040 (define-public ecl-string-case
7041   (sbcl-package->ecl-package sbcl-string-case))
7042
7043 (define-public sbcl-global-vars
7044   (let ((commit "c749f32c9b606a1457daa47d59630708ac0c266e")
7045         (revision "0"))
7046     (package
7047       (name "sbcl-global-vars")
7048       (version (git-version "1.0.0" revision commit))
7049       (home-page "https://github.com/lmj/global-vars")
7050       (source
7051        (origin
7052          (method git-fetch)
7053          (uri (git-reference
7054                (url home-page)
7055                (commit commit)))
7056          (file-name (git-file-name name version))
7057          (sha256
7058           (base32
7059            "06m3xc8l3pgsapl8fvsi9wf6y46zs75cp9zn7zh6dc65v4s5wz3d"))))
7060       (build-system asdf-build-system/sbcl)
7061       (synopsis "Efficient global variables in Common Lisp")
7062       (description
7063        "In Common Lisp, a special variable that is never dynamically bound
7064 typically serves as a stand-in for a global variable.  The @code{global-vars}
7065 library provides true global variables that are implemented by some compilers.
7066 An attempt to rebind a global variable properly results in a compiler error.
7067 That is, a global variable cannot be dynamically bound.
7068
7069 Global variables therefore allow us to communicate an intended usage that
7070 differs from special variables.  Global variables are also more efficient than
7071 special variables, especially in the presence of threads.")
7072       (license license:expat))))
7073
7074 (define-public cl-global-vars
7075   (sbcl-package->cl-source-package sbcl-global-vars))
7076
7077 (define-public ecl-global-vars
7078   (sbcl-package->ecl-package sbcl-global-vars))
7079
7080 (define-public sbcl-trivial-file-size
7081   (let ((commit "1c1d672a01a446ba0391dbb4ffc40be3b0476f23")
7082         (revision "0"))
7083     (package
7084       (name "sbcl-trivial-file-size")
7085       (version (git-version "0.0.0" revision commit))
7086       (home-page "https://github.com/ruricolist/trivial-file-size")
7087       (source
7088        (origin
7089          (method git-fetch)
7090          (uri (git-reference
7091                (url home-page)
7092                (commit commit)))
7093          (file-name (git-file-name name version))
7094          (sha256
7095           (base32
7096            "17pp86c9zs4y7i1sh7q9gbfw9iqv6655k7fz8qbj9ly1ypgxp4qs"))))
7097       (build-system asdf-build-system/sbcl)
7098       (native-inputs
7099        `(("fiveam" ,sbcl-fiveam)))
7100       (synopsis "Size of a file in bytes in Common Lisp")
7101       (description
7102        "The canonical way to determine the size of a file in bytes, using Common Lisp,
7103 is to open the file with an element type of (unsigned-byte 8) and then
7104 calculate the length of the stream.  This is less than ideal.  In most cases
7105 it is better to get the size of the file from its metadata, using a system
7106 call.
7107
7108 This library exports a single function, file-size-in-octets.  It returns the
7109 size of a file in bytes, using system calls when possible.")
7110       (license license:expat))))
7111
7112 (define-public cl-trivial-file-size
7113   (sbcl-package->cl-source-package sbcl-trivial-file-size))
7114
7115 (define-public ecl-trivial-file-size
7116   (sbcl-package->ecl-package sbcl-trivial-file-size))
7117
7118 (define-public sbcl-trivial-macroexpand-all
7119   (let ((commit "933270ac7107477de1bc92c1fd641fe646a7a8a9")
7120         (revision "0"))
7121     (package
7122       (name "sbcl-trivial-macroexpand-all")
7123       (version (git-version "0.0.0" revision commit))
7124       (home-page "https://github.com/cbaggers/trivial-macroexpand-all")
7125       (source
7126        (origin
7127          (method git-fetch)
7128          (uri (git-reference
7129                (url home-page)
7130                (commit commit)))
7131          (file-name (git-file-name name version))
7132          (sha256
7133           (base32
7134            "191hnn4b5j4i3crydmlzbm231kj0h7l8zj6mzj69r1npbzkas4bd"))))
7135       (build-system asdf-build-system/sbcl)
7136       (native-inputs
7137        `(("fiveam" ,sbcl-fiveam)))
7138       (synopsis "Portable macroexpand-all for Common Lisp")
7139       (description
7140        "This library provides a macroexpand-all function that calls the
7141 implementation specific equivalent.")
7142       (license license:unlicense))))
7143
7144 (define-public cl-trivial-macroexpand-all
7145   (sbcl-package->cl-source-package sbcl-trivial-macroexpand-all))
7146
7147 (define-public ecl-trivial-macroexpand-all
7148   (sbcl-package->ecl-package sbcl-trivial-macroexpand-all))
7149
7150 (define-public sbcl-serapeum
7151   (let ((commit "65837f8a0d65b36369ec8d000fff5c29a395b5fe")
7152         (revision "0"))
7153     (package
7154       (name "sbcl-serapeum")
7155       (version (git-version "0.0.0" revision commit))
7156       (home-page "https://github.com/ruricolist/serapeum")
7157       (source
7158        (origin
7159          (method git-fetch)
7160          (uri (git-reference
7161                (url home-page)
7162                (commit commit)))
7163          (file-name (git-file-name name version))
7164          (sha256
7165           (base32
7166            "0clwf81r2lvk1rbfvk91s9zmbkas9imf57ilqclw12mxaxlfsnbw"))))
7167       (build-system asdf-build-system/sbcl)
7168       (inputs
7169        `(("alexandria" ,sbcl-alexandria)
7170          ("trivia" ,sbcl-trivia)
7171          ("trivia.quasiquote" ,sbcl-trivia.quasiquote)
7172          ("split-sequence" ,sbcl-split-sequence)
7173          ("string-case" ,sbcl-string-case)
7174          ("parse-number" ,sbcl-parse-number)
7175          ("trivial-garbage" ,sbcl-trivial-garbage)
7176          ("bordeaux-threads" ,sbcl-bordeaux-threads)
7177          ("named-readtables" ,sbcl-named-readtables)
7178          ("fare-quasiquote-extras" ,cl-fare-quasiquote-extras)
7179          ("parse-declarations-1.0" ,sbcl-parse-declarations)
7180          ("global-vars" ,sbcl-global-vars)
7181          ("trivial-file-size" ,sbcl-trivial-file-size)
7182          ("trivial-macroexpand-all" ,sbcl-trivial-macroexpand-all)))
7183       (native-inputs
7184        `(("fiveam" ,sbcl-fiveam)
7185          ("local-time" ,sbcl-local-time)))
7186       (arguments
7187        '(#:phases
7188          (modify-phases %standard-phases
7189            (add-after 'unpack 'disable-failing-tests
7190              (lambda* (#:key inputs #:allow-other-keys)
7191                (substitute* "serapeum.asd"
7192                  ;; Guix does not have Quicklisp, and probably never will.
7193                  (("\\(:file \"quicklisp\"\\)") ""))
7194                #t)))))
7195       (synopsis "Common Lisp utility library beyond Alexandria")
7196       (description
7197        "Serapeum is a conservative library of Common Lisp utilities.  It is a
7198 supplement, not a competitor, to Alexandria.")
7199       (license license:expat))))
7200
7201 (define-public cl-serapeum
7202   (sbcl-package->cl-source-package sbcl-serapeum))
7203
7204 (define-public sbcl-arrows
7205   (let ((commit "df7cf0067e0132d9697ac8b1a4f1b9c88d4f5382")
7206         (revision "0"))
7207     (package
7208       (name "sbcl-arrows")
7209       (version (git-version "0.2.0" revision commit))
7210       (source
7211        (origin
7212          (method git-fetch)
7213          (uri (git-reference
7214                (url "https://gitlab.com/Harleqin/arrows.git")
7215                (commit commit)))
7216          (file-name (git-file-name name version))
7217          (sha256
7218           (base32
7219            "042k9vkssrqx9nhp14wdzm942zgdxvp35mba0p2syz98i75im2yy"))))
7220       (build-system asdf-build-system/sbcl)
7221       (native-inputs
7222        `(("hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
7223       (synopsis "Clojure-like arrow macros for Common Lisp")
7224       (description
7225        "This library implements the @code{->} and @code{->>} macros from
7226 Clojure, as well as several expansions on the idea.")
7227       (home-page "https://gitlab.com/Harleqin/arrows")
7228       (license license:public-domain))))
7229
7230 (define-public cl-arrows
7231   (sbcl-package->cl-source-package sbcl-arrows))
7232
7233 (define-public ecl-arrows
7234   (sbcl-package->ecl-package sbcl-arrows))
7235
7236 (define-public sbcl-simple-parallel-tasks
7237   (let ((commit "db460f7a3f7bbfe2d3a2223ed21e162068d04dda")
7238         (revision "0"))
7239     (package
7240       (name "sbcl-simple-parallel-tasks")
7241       (version (git-version "1.0" revision commit))
7242       (source
7243        (origin
7244          (method git-fetch)
7245          (uri (git-reference
7246                (url "https://github.com/glv2/simple-parallel-tasks.git")
7247                (commit commit)))
7248          (file-name (git-file-name name version))
7249          (sha256
7250           (base32
7251            "0amw3qk23wnlyrsgzszs6rs7y4zvxv8dr03rnqhc60mnm8ds4dd5"))))
7252       (build-system asdf-build-system/sbcl)
7253       (native-inputs
7254        `(("fiveam" ,sbcl-fiveam)))
7255       (inputs
7256        `(("chanl" ,sbcl-chanl)))
7257       (synopsis "Common Lisp library to evaluate some forms in parallel")
7258       (description "This is a simple Common Lisp library to evaluate some
7259 forms in parallel.")
7260       (home-page "https://github.com/glv2/simple-parallel-tasks")
7261       (license license:gpl3))))
7262
7263 (define-public cl-simple-parallel-tasks
7264   (sbcl-package->cl-source-package sbcl-simple-parallel-tasks))
7265
7266 (define-public ecl-simple-parallel-tasks
7267   (sbcl-package->ecl-package sbcl-simple-parallel-tasks))
7268
7269 (define-public sbcl-cl-heap
7270   (package
7271     (name "sbcl-cl-heap")
7272     (version "0.1.6")
7273     (source
7274      (origin
7275        (method url-fetch)
7276        (uri (string-append "https://common-lisp.net/project/cl-heap/releases/"
7277                            "cl-heap_" version ".tar.gz"))
7278        (sha256
7279         (base32
7280          "163hb07p2nxz126rpq3cj5dyala24n0by5i5786n2qcr1w0bak4i"))))
7281     (build-system asdf-build-system/sbcl)
7282     (native-inputs
7283      `(("xlunit" ,sbcl-xlunit)))
7284     (arguments
7285      `(#:test-asd-file "cl-heap-tests.asd"))
7286     (synopsis "Heap and priority queue data structures for Common Lisp")
7287     (description
7288      "CL-HEAP provides various implementations of heap data structures (a
7289 binary heap and a Fibonacci heap) as well as an efficient priority queue.")
7290     (home-page "https://common-lisp.net/project/cl-heap/")
7291     (license license:gpl3+)))
7292
7293 (define-public cl-heap
7294   (sbcl-package->cl-source-package sbcl-cl-heap))
7295
7296 (define-public ecl-cl-heap
7297   (sbcl-package->ecl-package sbcl-cl-heap))
7298
7299 (define-public sbcl-curry-compose-reader-macros
7300   (let ((commit "beaa92dedf392726c042184bfd6149fa8d9e6ac2")
7301         (revision "0"))
7302     (package
7303       (name "sbcl-curry-compose-reader-macros")
7304       (version (git-version "1.0.0" revision commit))
7305       (source
7306        (origin
7307          (method git-fetch)
7308          (uri
7309           (git-reference
7310            (url "https://github.com/eschulte/curry-compose-reader-macros.git")
7311            (commit commit)))
7312          (file-name (git-file-name name version))
7313          (sha256
7314           (base32
7315            "0rv9bl8xrad5wfcg5zs1dazvnpmvqz6297lbn8bywsrcfnlf7h98"))))
7316       (build-system asdf-build-system/sbcl)
7317       (inputs
7318        `(("alexandria" ,sbcl-alexandria)
7319          ("named-readtables" ,sbcl-named-readtables)))
7320       (synopsis "Reader macros for partial application and composition")
7321       (description
7322        "This Common Lisp library provides reader macros for concise expression
7323 of function partial application and composition.")
7324       (home-page "https://eschulte.github.io/curry-compose-reader-macros/")
7325       (license license:public-domain))))
7326
7327 (define-public cl-curry-compose-reader-macros
7328   (sbcl-package->cl-source-package sbcl-curry-compose-reader-macros))
7329
7330 (define-public ecl-curry-compose-reader-macros
7331   (sbcl-package->ecl-package sbcl-curry-compose-reader-macros))
7332
7333 (define-public sbcl-yason
7334   (package
7335     (name "sbcl-yason")
7336     (version "0.7.7")
7337     (source
7338      (origin
7339        (method git-fetch)
7340        (uri (git-reference
7341              (url "https://github.com/phmarek/yason.git")
7342              (commit (string-append "v" version))))
7343        (file-name (git-file-name name version))
7344        (sha256
7345         (base32
7346          "0479rbjgbj80jpk5bby18inlv1kfp771a82rlcq5psrz65qqa9bj"))))
7347     (build-system asdf-build-system/sbcl)
7348     (inputs
7349      `(("alexandria" ,sbcl-alexandria)
7350        ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
7351     (synopsis "Common Lisp JSON parser/encoder")
7352     (description
7353      "YASON is a Common Lisp library for encoding and decoding data in the
7354 JSON interchange format.")
7355     (home-page "https://github.com/phmarek/yason")
7356     (license license:bsd-3)))
7357
7358 (define-public cl-yason
7359   (sbcl-package->cl-source-package sbcl-yason))
7360
7361 (define-public ecl-yason
7362   (sbcl-package->ecl-package sbcl-yason))
7363
7364 (define-public sbcl-stefil
7365   (let ((commit "0398548ec95dceb50fc2c2c03e5fb0ce49b86c7a")
7366         (revision "0"))
7367     (package
7368       (name "sbcl-stefil")
7369       (version (git-version "0.1" revision commit))
7370       (source
7371        (origin
7372          (method git-fetch)
7373          (uri (git-reference
7374                (url "https://gitlab.common-lisp.net/stefil/stefil.git")
7375                (commit commit)))
7376          (file-name (git-file-name name version))
7377          (sha256
7378           (base32
7379            "0bqz64q2szzhf91zyqyssmvrz7da6442rs01808pf3wrdq28bclh"))))
7380       (build-system asdf-build-system/sbcl)
7381       (inputs
7382        `(("alexandria" ,sbcl-alexandria)
7383          ("iterate" ,sbcl-iterate)
7384          ("metabang-bind" ,sbcl-metabang-bind)))
7385       (propagated-inputs
7386        ;; Swank doesn't have a pre-compiled package, therefore we must
7387        ;; propagate its sources.
7388        `(("swank" ,cl-slime-swank)))
7389       (arguments
7390        '(#:phases
7391          (modify-phases %standard-phases
7392            (add-after 'unpack 'drop-unnecessary-dependency
7393              (lambda _
7394                (substitute* "package.lisp"
7395                  ((":stefil-system") ""))
7396                #t)))))
7397       (home-page "https://common-lisp.net/project/stefil/index-old.shtml")
7398       (synopsis "Simple test framework")
7399       (description
7400        "Stefil is a simple test framework for Common Lisp, with a focus on
7401 interactive development.")
7402       (license license:public-domain))))
7403
7404 (define-public cl-stefil
7405   (sbcl-package->cl-source-package sbcl-stefil))
7406
7407 (define-public sbcl-graph
7408   (let ((commit "78bf9ec930d8eae4f0861b5be76765fb1e45e24f")
7409         (revision "0"))
7410     (package
7411       (name "sbcl-graph")
7412       (version (git-version "0.0.0" revision commit))
7413       (source
7414        (origin
7415          (method git-fetch)
7416          (uri
7417           (git-reference
7418            (url "https://github.com/eschulte/graph.git")
7419            (commit commit)))
7420          (file-name (git-file-name name version))
7421          (sha256
7422           (base32
7423            "1qpij4xh8bqwc2myahpilcbh916v7vg0acz2fij14d3y0jm02h0g"))
7424          (patches (search-patches "sbcl-graph-asdf-definitions.patch"))))
7425       (build-system asdf-build-system/sbcl)
7426       (native-inputs
7427        `(("stefil" ,sbcl-stefil)))
7428       (inputs
7429        `(("alexandria" ,sbcl-alexandria)
7430          ("cl-heap" ,sbcl-cl-heap)
7431          ("curry-compose-reader-macros" ,sbcl-curry-compose-reader-macros)
7432          ("metabang-bind" ,sbcl-metabang-bind)
7433          ("named-readtables" ,sbcl-named-readtables)))
7434       (arguments
7435        '(#:test-asd-file "graph-test.asd"))
7436       (synopsis "Graph data structure and algorithms for Common Lisp")
7437       (description
7438        "The GRAPH Common Lisp library provides a data structures to represent
7439 graphs, as well as some graph manipulation and analysis algorithms (shortest
7440 path, maximum flow, minimum spanning tree, etc.).")
7441       (home-page "https://eschulte.github.io/graph/")
7442       (license license:gpl3+))))
7443
7444 (define-public cl-graph
7445   (sbcl-package->cl-source-package sbcl-graph))
7446
7447 (define-public sbcl-graph-dot
7448   (package
7449     (inherit sbcl-graph)
7450     (name "sbcl-graph-dot")
7451     (inputs
7452      `(("alexandria" ,sbcl-alexandria)
7453        ("cl-ppcre" ,sbcl-cl-ppcre)
7454        ("curry-compose-reader-macros" ,sbcl-curry-compose-reader-macros)
7455        ("graph" ,sbcl-graph)
7456        ("metabang-bind" ,sbcl-metabang-bind)
7457        ("named-readtables" ,sbcl-named-readtables)))
7458     (arguments
7459      (substitute-keyword-arguments (package-arguments sbcl-graph)
7460        ((#:asd-file _ "") "graph-dot.asd")
7461        ((#:asd-system-name _ #f) "graph-dot")))
7462     (synopsis "Serialize graphs to and from DOT format")))
7463
7464 (define-public sbcl-graph-json
7465   (package
7466     (inherit sbcl-graph)
7467     (name "sbcl-graph-json")
7468     (inputs
7469      `(("alexandria" ,sbcl-alexandria)
7470        ("curry-compose-reader-macros" ,sbcl-curry-compose-reader-macros)
7471        ("graph" ,sbcl-graph)
7472        ("metabang-bind" ,sbcl-metabang-bind)
7473        ("named-readtables" ,sbcl-named-readtables)
7474        ("yason" ,sbcl-yason)))
7475     (arguments
7476      (substitute-keyword-arguments (package-arguments sbcl-graph)
7477        ((#:asd-file _ "") "graph-json.asd")
7478        ((#:asd-system-name _ #f) "graph-json")))
7479     (synopsis "Serialize graphs to and from JSON format")))
7480
7481 (define-public sbcl-trivial-indent
7482   (let ((commit "2d016941751647c6cc5bd471751c2cf68861c94a")
7483         (revision "0"))
7484     (package
7485       (name "sbcl-trivial-indent")
7486       (version (git-version "1.0.0" revision commit))
7487       (source
7488        (origin
7489          (method git-fetch)
7490          (uri
7491           (git-reference
7492            (url "https://github.com/Shinmera/trivial-indent")
7493            (commit commit)))
7494          (file-name (git-file-name name version))
7495          (sha256
7496           (base32
7497            "1sj90nqz17w4jq0ixz00gb9g5g6d2s7l8r17zdby27gxxh51w266"))))
7498       (build-system asdf-build-system/sbcl)
7499       (synopsis "Simple Common Lisp library to allow indentation hints for SWANK")
7500       (description
7501        "This library allows you to define custom indentation hints for your
7502 macros if the one recognised by SLIME automatically produces unwanted
7503 results.")
7504       (home-page "https://shinmera.github.io/trivial-indent/")
7505       (license license:zlib))))
7506
7507 (define-public cl-trivial-indent
7508   (sbcl-package->cl-source-package sbcl-trivial-indent))
7509
7510 (define-public sbcl-documentation-utils
7511   (let ((commit "98630dd5f7e36ae057fa09da3523f42ccb5d1f55")
7512         (revision "0"))
7513     (package
7514       (name "sbcl-documentation-utils")
7515       (version (git-version "1.2.0" revision commit))
7516       (source
7517        (origin
7518          (method git-fetch)
7519          (uri
7520           (git-reference
7521            (url "https://github.com/Shinmera/documentation-utils.git")
7522            (commit commit)))
7523          (file-name (git-file-name name version))
7524          (sha256
7525           (base32
7526            "098qhkqskmmrh4wix34mawf7p5c87yql28r51r75yjxj577k5idq"))))
7527       (build-system asdf-build-system/sbcl)
7528       (inputs
7529        `(("trivial-indent" ,sbcl-trivial-indent)))
7530       (synopsis "Few simple tools to document Common Lisp libraries")
7531       (description
7532        "This is a small library to help you with managing the Common Lisp
7533 docstrings for your library.")
7534       (home-page "https://shinmera.github.io/documentation-utils/")
7535       (license license:zlib))))
7536
7537 (define-public cl-documentation-utils
7538   (sbcl-package->cl-source-package sbcl-documentation-utils))
7539
7540 (define-public sbcl-form-fiddle
7541   (let ((commit "e0c23599dbb8cff3e83e012f3d86d0764188ad18")
7542         (revision "0"))
7543     (package
7544       (name "sbcl-form-fiddle")
7545       (version (git-version "1.1.0" revision commit))
7546       (source
7547        (origin
7548          (method git-fetch)
7549          (uri
7550           (git-reference
7551            (url "https://github.com/Shinmera/form-fiddle")
7552            (commit commit)))
7553          (file-name (git-file-name name version))
7554          (sha256
7555           (base32
7556            "041iznc9mpfyrl0sv5893ys9pbb2pvbn9g3clarqi7gsfj483jln"))))
7557       (build-system asdf-build-system/sbcl)
7558       (inputs
7559        `(("documentation-utils" ,sbcl-documentation-utils)))
7560       (synopsis "Utilities to destructure Common Lisp lambda forms")
7561       (description
7562        "Often times we need to destructure a form definition in a Common Lisp
7563 macro.  This library provides a set of simple utilities to help with that.")
7564       (home-page "https://shinmera.github.io/form-fiddle/")
7565       (license license:zlib))))
7566
7567 (define-public cl-form-fiddle
7568   (sbcl-package->cl-source-package sbcl-form-fiddle))
7569
7570 (define-public sbcl-parachute
7571   (let ((commit "ca04dd8e43010a6dfffa26dbe1d62af86008d666")
7572         (revision "0"))
7573     (package
7574       (name "sbcl-parachute")
7575       (version (git-version "1.1.1" revision commit))
7576       (source
7577        (origin
7578          (method git-fetch)
7579          (uri
7580           (git-reference
7581            (url "https://github.com/Shinmera/parachute")
7582            (commit commit)))
7583          (file-name (git-file-name name version))
7584          (sha256
7585           (base32
7586            "1mvsm3r0r6a2bg75nw0q7n9vlby3ch45qjl7hnb5k1z2n5x5lh60"))))
7587       (build-system asdf-build-system/sbcl)
7588       (inputs
7589        `(("documentation-utils" ,sbcl-documentation-utils)
7590          ("form-fiddle" ,sbcl-form-fiddle)))
7591       (synopsis "Extensible and cross-compatible testing framework for Common Lisp")
7592       (description
7593        "Parachute is a simple-to-use and extensible testing framework.
7594 In Parachute, things are organised as a bunch of named tests within a package.
7595 Each test can contain a bunch of test forms that make up its body.")
7596       (home-page "https://shinmera.github.io/parachute/")
7597       (license license:zlib))))
7598
7599 (define-public cl-parachute
7600   (sbcl-package->cl-source-package sbcl-parachute))
7601
7602 (define-public sbcl-array-utils
7603   (let ((commit "f90eb9070d0b2205af51126a35033574725e5c56")
7604         (revision "0"))
7605     (package
7606       (name "sbcl-array-utils")
7607       (version (git-version "1.1.1" revision commit))
7608       (source
7609        (origin
7610          (method git-fetch)
7611          (uri
7612           (git-reference
7613            (url "https://github.com/Shinmera/array-utils")
7614            (commit commit)))
7615          (file-name (git-file-name name version))
7616          (sha256
7617           (base32
7618            "0zhwfbpr53vs1ii4sx75dz2k9yhh1xpwdqqpg8nmfndxkmhpbi3x"))))
7619       (build-system asdf-build-system/sbcl)
7620       (native-inputs
7621        `(("parachute" ,sbcl-parachute)))
7622       (inputs
7623        `(("documentation-utils" ,sbcl-documentation-utils)))
7624       (synopsis "Tiny collection of array and vector utilities for Common Lisp")
7625       (description
7626        "A miniature toolkit that contains some useful shifting/popping/pushing
7627 functions for arrays and vectors.  Originally from Plump.")
7628       (home-page "https://shinmera.github.io/array-utils/")
7629       (license license:zlib))))
7630
7631 (define-public cl-array-utils
7632   (sbcl-package->cl-source-package sbcl-array-utils))
7633
7634 (define-public sbcl-plump
7635   (let ((commit "16f1231bf706cfbc54d9e55a853ca945e4452a08")
7636         (revision "0"))
7637     (package
7638       (name "sbcl-plump")
7639       (version (git-version "2.0.0" revision commit))
7640       (source
7641        (origin
7642          (method git-fetch)
7643          (uri
7644           (git-reference
7645            (url "https://github.com/Shinmera/plump")
7646            (commit commit)))
7647          (file-name (git-file-name name version))
7648          (sha256
7649           (base32
7650            "0705k8pbip51v74rccgwscwph439f2pma9f915qf1h4bhjx999ip"))))
7651       (build-system asdf-build-system/sbcl)
7652       (inputs
7653        `(("array-utils" ,sbcl-array-utils)
7654          ("documentation-utils" ,sbcl-documentation-utils)))
7655       (synopsis "Lenient XML / XHTML / HTML parser for Common Lisp")
7656       (description
7657        "Plump is a parser for HTML/XML-like documents, focusing on being
7658 lenient towards invalid markup.  It can handle things like invalid attributes,
7659 bad closing tag order, unencoded entities, inexistent tag types, self-closing
7660 tags and so on.  It parses documents to a class representation and offers a
7661 small set of DOM functions to manipulate it.  It can be extended to parse to
7662 your own classes.")
7663       (home-page "https://shinmera.github.io/plump/")
7664       (license license:zlib))))
7665
7666 (define-public cl-plump
7667   (sbcl-package->cl-source-package sbcl-plump))
7668
7669 (define-public sbcl-antik-base
7670   (let ((commit "e4711a69b3d6bf37b5727af05c3cfd03e8428ba3")
7671         (revision "1"))
7672     (package
7673       (name "sbcl-antik-base")
7674       (version (git-version "0.0.0" revision commit))
7675       (source
7676        (origin
7677          (method git-fetch)
7678          (uri (git-reference
7679                (url "https://gitlab.common-lisp.net/antik/antik.git")
7680                (commit commit)))
7681          (file-name (git-file-name name version))
7682          (sha256
7683           (base32
7684            "047ga2c38par2xbgg4qx6hwv06qhf1c1f67as8xvir6s80lip1km"))))
7685       (build-system asdf-build-system/sbcl)
7686       (inputs
7687        `(("alexandria" ,sbcl-alexandria)
7688          ("cl-ppcre" ,sbcl-cl-ppcre)
7689          ("iterate" ,sbcl-iterate)
7690          ("metabang-bind" ,sbcl-metabang-bind)
7691          ("named-readtables" ,sbcl-named-readtables)
7692          ("split-sequence" ,sbcl-split-sequence)))
7693       (native-inputs
7694        `(("lisp-unit" ,sbcl-lisp-unit)))
7695       (synopsis "Scientific and engineering computation in Common Lisp")
7696       (description
7697        "Antik provides a foundation for scientific and engineering
7698 computation in Common Lisp.  It is designed not only to facilitate
7699 numerical computations, but to permit the use of numerical computation
7700 libraries and the interchange of data and procedures, whether
7701 foreign (non-Lisp) or Lisp libraries.  It is named after the
7702 Antikythera mechanism, one of the oldest examples of a scientific
7703 computer known.")
7704       (home-page "https://common-lisp.net/project/antik/")
7705       (license license:gpl3))))
7706
7707 (define-public cl-antik-base
7708   (sbcl-package->cl-source-package sbcl-antik-base))
7709
7710 (define-public ecl-antik-base
7711   (sbcl-package->ecl-package sbcl-antik-base))
7712
7713 (define-public sbcl-foreign-array
7714   (package
7715     (inherit sbcl-antik-base)
7716     (name "sbcl-foreign-array")
7717     (arguments
7718      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
7719        ((#:asd-file _ "") "foreign-array.asd")
7720        ((#:asd-system-name _ #f) "foreign-array")))
7721     (inputs
7722      `(("antik-base" ,sbcl-antik-base)
7723        ("cffi" ,sbcl-cffi)
7724        ("trivial-garbage" ,sbcl-trivial-garbage)
7725        ("static-vectors" ,sbcl-static-vectors)))
7726     (synopsis "Common Lisp library providing access to foreign arrays")))
7727
7728 (define-public cl-foreign-array
7729   (sbcl-package->cl-source-package sbcl-foreign-array))
7730
7731 (define-public ecl-foreign-array
7732   (sbcl-package->ecl-package sbcl-foreign-array))
7733
7734 (define-public sbcl-physical-dimension
7735   (package
7736     (inherit sbcl-antik-base)
7737     (name "sbcl-physical-dimension")
7738     (inputs
7739      `(("fare-utils" ,sbcl-fare-utils)
7740        ("foreign-array" ,sbcl-foreign-array)
7741        ("trivial-utf-8" ,sbcl-trivial-utf-8)))
7742     (arguments
7743      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
7744        ((#:asd-file _ "") "physical-dimension.asd")
7745        ((#:asd-system-name _ #f) "physical-dimension")))
7746     (synopsis
7747      "Common Lisp library providing computations with physical units")))
7748
7749 (define-public cl-physical-dimension
7750   (sbcl-package->cl-source-package sbcl-physical-dimension))
7751
7752 (define-public sbcl-science-data
7753   (package
7754     (inherit sbcl-antik-base)
7755     (name "sbcl-science-data")
7756     (inputs
7757      `(("physical-dimension" ,sbcl-physical-dimension)
7758        ("drakma" ,sbcl-drakma)))
7759     (arguments
7760      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
7761        ((#:asd-file _ "") "science-data.asd")
7762        ((#:asd-system-name _ #f) "science-data")))
7763     (synopsis
7764      "Common Lisp library for scientific and engineering numerical data")))
7765
7766 (define-public cl-science-data
7767   (sbcl-package->cl-source-package sbcl-science-data))
7768
7769 (define-public sbcl-gsll
7770   (let ((commit "1a8ada22f9cf5ed7372d352b2317f4ccdb6ab308")
7771         (revision "1"))
7772     (package
7773       (name "sbcl-gsll")
7774       (version (git-version "0.0.0" revision commit))
7775       (source
7776        (origin
7777          (method git-fetch)
7778          (uri (git-reference
7779                (url "https://gitlab.common-lisp.net/antik/gsll.git")
7780                (commit commit)))
7781          (file-name (git-file-name name version))
7782          (sha256
7783           (base32
7784            "0z5nypfk26hxihb08p085644afawicrgb4xvadh3lmrn46qbjfn4"))))
7785       (build-system asdf-build-system/sbcl)
7786       (native-inputs
7787        `(("lisp-unit" ,sbcl-lisp-unit)))
7788       (inputs
7789        `(("alexandria" ,sbcl-alexandria)
7790          ("cffi-grovel" ,sbcl-cffi-grovel)
7791          ("cffi-libffi" ,sbcl-cffi-libffi)
7792          ("foreign-array" ,sbcl-foreign-array)
7793          ("gsl" ,gsl)
7794          ("metabang-bind" ,sbcl-metabang-bind)
7795          ("trivial-features" ,sbcl-trivial-features)
7796          ("trivial-garbage" ,sbcl-trivial-garbage)))
7797       (arguments
7798        `(#:tests? #f
7799          #:phases
7800          (modify-phases %standard-phases
7801            (add-after 'unpack 'fix-cffi-paths
7802              (lambda* (#:key inputs #:allow-other-keys)
7803                (substitute* "gsll.asd"
7804                  ((":depends-on \\(#:foreign-array")
7805                   ":depends-on (#:foreign-array #:cffi-libffi"))
7806                (substitute* "init/init.lisp"
7807                  (("libgslcblas.so" all)
7808                   (string-append
7809                    (assoc-ref inputs "gsl") "/lib/" all)))
7810                (substitute* "init/init.lisp"
7811                  (("libgsl.so" all)
7812                   (string-append
7813                    (assoc-ref inputs "gsl") "/lib/" all))))))))
7814       (synopsis "GNU Scientific Library for Lisp")
7815       (description
7816        "The GNU Scientific Library for Lisp (GSLL) allows the use of the
7817 GNU Scientific Library (GSL) from Common Lisp.  This library provides a
7818 full range of common mathematical operations useful to scientific and
7819 engineering applications.  The design of the GSLL interface is such
7820 that access to most of the GSL library is possible in a Lisp-natural
7821 way; the intent is that the user not be hampered by the restrictions
7822 of the C language in which GSL has been written.  GSLL thus provides
7823 interactive use of GSL for getting quick answers, even for someone not
7824 intending to program in Lisp.")
7825       (home-page "https://common-lisp.net/project/gsll/")
7826       (license license:gpl3))))
7827
7828 (define-public cl-gsll
7829   (sbcl-package->cl-source-package sbcl-gsll))
7830
7831 (define-public sbcl-antik
7832   (package
7833     (inherit sbcl-antik-base)
7834     (name "sbcl-antik")
7835     (inputs
7836      `(("gsll" ,sbcl-gsll)
7837        ("physical-dimension" ,sbcl-physical-dimension)))
7838     (arguments
7839      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
7840        ((#:asd-file _ "") "antik.asd")
7841        ((#:asd-system-name _ #f) "antik")))))
7842
7843 (define-public cl-antik
7844   (sbcl-package->cl-source-package sbcl-antik))
7845
7846 (define-public sbcl-cl-interpol
7847   (let ((commit "1fd288d861db85bc4677cff3cdd6af75fda1afb4")
7848         (revision "1"))
7849     (package
7850       (name "sbcl-cl-interpol")
7851       (version (git-version "0.2.6" revision commit))
7852       (source
7853        (origin
7854          (method git-fetch)
7855          (uri (git-reference
7856                (url "https://github.com/edicl/cl-interpol.git")
7857                (commit commit)))
7858          (file-name (git-file-name name version))
7859          (sha256
7860           (base32
7861            "1hnikak52hmcq1r5f616m6qq1108qnkw80pja950nv1fq5p0ppjn"))))
7862       (build-system asdf-build-system/sbcl)
7863       (inputs
7864        `(("cl-unicode" ,sbcl-cl-unicode)
7865          ("named-readtables" ,sbcl-named-readtables)))
7866       (native-inputs
7867        `(("flexi-streams" ,sbcl-flexi-streams)))
7868       (synopsis "String interpolation for Common Lisp")
7869       (description
7870        "CL-INTERPOL is a library for Common Lisp which modifies the
7871 reader so that you can have interpolation within strings similar to
7872 Perl or Unix Shell scripts.  It also provides various ways to insert
7873 arbitrary characters into literal strings even if your editor/IDE
7874 doesn't support them.")
7875       (home-page "https://edicl.github.io/cl-interpol/")
7876       (license license:bsd-3))))
7877
7878 (define-public cl-interpol
7879   (sbcl-package->cl-source-package sbcl-cl-interpol))
7880
7881 (define-public ecl-cl-interpol
7882   (sbcl-package->ecl-package sbcl-cl-interpol))
7883
7884 (define sbcl-symbol-munger-boot0
7885   ;; There is a cyclical dependency between symbol-munger and lisp-unit2.
7886   ;; See https://github.com/AccelerationNet/symbol-munger/issues/4
7887   (let ((commit "cc2bb4b7acd454d756484aec81ba487648385fc3")
7888         (revision "1"))
7889     (package
7890       (name "sbcl-symbol-munger-boot0")
7891       (version (git-version "0.0.1" revision commit))
7892       (source
7893        (origin
7894          (method git-fetch)
7895          (uri (git-reference
7896                (url "https://github.com/AccelerationNet/symbol-munger.git")
7897                (commit commit)))
7898          (file-name (git-file-name name version))
7899          (sha256
7900           (base32
7901            "0diav5ricqsybqvbp4bkxyj3bn3v9n7xb2pqqc4vg1algsw2pyjl"))))
7902       (build-system asdf-build-system/sbcl)
7903       (arguments
7904        `(#:asd-file "symbol-munger.asd"
7905          #:asd-system-name "symbol-munger"))
7906       (inputs
7907        `(("iterate" ,sbcl-iterate)
7908          ("alexandria" ,sbcl-alexandria)))
7909       (native-inputs
7910        `(("lisp-unit" ,sbcl-lisp-unit)))
7911       (synopsis
7912        "Capitalization and spacing conversion functions for Common Lisp")
7913       (description
7914        "This is a Common Lisp library to change the capitalization and spacing
7915 of a string or a symbol.  It can convert to and from Lisp, english, underscore
7916 and camel-case rules.")
7917       (home-page "https://github.com/AccelerationNet/symbol-munger")
7918       ;; The package declares a BSD license, but all of the license
7919       ;; text is MIT.
7920       ;; See https://github.com/AccelerationNet/symbol-munger/issues/5
7921       (license license:expat))))
7922
7923 (define sbcl-lisp-unit2-boot0
7924   ;; There is a cyclical dependency between symbol-munger and lisp-unit2.
7925   ;; See https://github.com/AccelerationNet/symbol-munger/issues/4
7926   (let ((commit "fb9721524d1e4e73abb223ee036d74ce14a5505c")
7927         (revision "1"))
7928     (package
7929       (name "sbcl-lisp-unit2-boot0")
7930       (version (git-version "0.2.0" revision commit))
7931       (source
7932        (origin
7933          (method git-fetch)
7934          (uri (git-reference
7935                (url "https://github.com/AccelerationNet/lisp-unit2.git")
7936                (commit commit)))
7937          (file-name (git-file-name name version))
7938          (sha256
7939           (base32
7940            "1rsqy8y0jqll6xn9a593848f5wvd5ribv4csry1ly0hmdhfnqzlp"))))
7941       (build-system asdf-build-system/sbcl)
7942       (arguments
7943        `(#:asd-file "lisp-unit2.asd"
7944          #:asd-system-name "lisp-unit2"))
7945       (inputs
7946        `(("alexandria" ,sbcl-alexandria)
7947          ("cl-interpol" ,sbcl-cl-interpol)
7948          ("iterate" ,sbcl-iterate)
7949          ("symbol-munger-boot0" ,sbcl-symbol-munger-boot0)))
7950       (synopsis "Test Framework for Common Lisp")
7951       (description
7952        "LISP-UNIT2 is a Common Lisp library that supports unit testing in the
7953 style of JUnit for Java.  It is a new version of the lisp-unit library written
7954 by Chris Riesbeck.")
7955       (home-page "https://github.com/AccelerationNet/lisp-unit2")
7956       (license license:expat))))
7957
7958 (define-public sbcl-symbol-munger
7959   (let ((commit "97598d4c3c53fd5da72ab78908fbd5d8c7a13416")
7960         (revision "1"))
7961     (package
7962       (name "sbcl-symbol-munger")
7963       (version (git-version "0.0.1" revision commit))
7964       (source
7965        (origin
7966          (method git-fetch)
7967          (uri (git-reference
7968                (url "https://github.com/AccelerationNet/symbol-munger.git")
7969                (commit commit)))
7970          (file-name (git-file-name name version))
7971          (sha256
7972           (base32
7973            "0y8jywjy0ldyhp7bxf16fdvdd2qgqnd7nlhlqfpfnzxcqk4xy1km"))))
7974       (build-system asdf-build-system/sbcl)
7975       (inputs
7976        `(("alexandria" ,sbcl-alexandria)
7977          ("iterate" ,sbcl-iterate)))
7978       (native-inputs
7979        `(("lisp-unit2-boot0" ,sbcl-lisp-unit2-boot0)))
7980       (synopsis
7981        "Capitalization and spacing conversion functions for Common Lisp")
7982       (description
7983        "This is a Common Lisp library to change the capitalization and spacing
7984 of a string or a symbol.  It can convert to and from Lisp, english, underscore
7985 and camel-case rules.")
7986       (home-page "https://github.com/AccelerationNet/symbol-munger")
7987       ;; The package declares a BSD license, but all of the license
7988       ;; text is MIT.
7989       ;; See https://github.com/AccelerationNet/symbol-munger/issues/5
7990       (license license:expat))))
7991
7992 (define-public cl-symbol-munger
7993   (sbcl-package->cl-source-package sbcl-symbol-munger))
7994
7995 (define-public ecl-symbol-munger
7996   (sbcl-package->ecl-package sbcl-symbol-munger))
7997
7998 (define-public sbcl-lisp-unit2
7999   (package
8000     (inherit sbcl-lisp-unit2-boot0)
8001     (name "sbcl-lisp-unit2")
8002     (inputs
8003      `(("alexandria" ,sbcl-alexandria)
8004        ("cl-interpol" ,sbcl-cl-interpol)
8005        ("iterate" ,sbcl-iterate)
8006        ("symbol-munger" ,sbcl-symbol-munger)))))
8007
8008 (define-public cl-lisp-unit2
8009   (sbcl-package->cl-source-package sbcl-lisp-unit2))
8010
8011 (define-public ecl-lisp-unit2
8012   (sbcl-package->ecl-package sbcl-lisp-unit2))
8013
8014 (define-public sbcl-cl-csv
8015   (let ((commit "3eba29c8364b033fbe0d189c2500559278b6a362")
8016         (revision "1"))
8017     (package
8018       (name "sbcl-cl-csv")
8019       (version (git-version "1.0.6" revision commit))
8020       (source
8021        (origin
8022          (method git-fetch)
8023          (uri (git-reference
8024                (url "https://github.com/AccelerationNet/cl-csv.git")
8025                (commit commit)))
8026          (file-name (git-file-name name version))
8027          (sha256
8028           (base32
8029            "07h4ni89jzx93clx453hlnnb5g53hhlcmz5hghqv6ysam48lc8g6"))))
8030       (build-system asdf-build-system/sbcl)
8031       (arguments
8032        ;; See: https://github.com/AccelerationNet/cl-csv/pull/34
8033        `(#:tests? #f))
8034       (inputs
8035        `(("alexandria" ,sbcl-alexandria)
8036          ("cl-interpol" ,sbcl-cl-interpol)
8037          ("iterate" ,sbcl-iterate)))
8038       (native-inputs
8039        `(("lisp-unit2" ,sbcl-lisp-unit2)))
8040       (synopsis "Common lisp library for comma-separated values")
8041       (description
8042        "This is a Common Lisp library providing functions to read/write CSV
8043 from/to strings, streams and files.")
8044       (home-page "https://github.com/AccelerationNet/cl-csv")
8045       (license license:bsd-3))))
8046
8047 (define-public cl-csv
8048   (sbcl-package->cl-source-package sbcl-cl-csv))
8049
8050 (define-public ecl-cl-csv
8051   (sbcl-package->ecl-package sbcl-cl-csv))
8052
8053 (define-public sbcl-external-program
8054   (let ((commit "5888b8f1fd3953feeeacecbba4384ddda584a749")
8055         (revision "1"))
8056     (package
8057       (name "sbcl-external-program")
8058       (version (git-version "0.0.6" revision commit))
8059       (source
8060        (origin
8061          (method git-fetch)
8062          (uri (git-reference
8063                (url "https://github.com/sellout/external-program.git")
8064                (commit commit)))
8065          (file-name (git-file-name name version))
8066          (sha256
8067           (base32
8068            "0vww1x3yilb3bjwg6k184vaj4vxyxw4vralhnlm6lk4xac67kc9z"))))
8069       (build-system asdf-build-system/sbcl)
8070       (inputs
8071        `(("trivial-features" ,sbcl-trivial-features)))
8072       (native-inputs
8073        `(("fiveam" ,sbcl-fiveam)))
8074       (synopsis "Common Lisp library for running external programs")
8075       (description
8076        "EXTERNAL-PROGRAM enables running programs outside the Lisp
8077 process.  It is an attempt to make the RUN-PROGRAM functionality in
8078 implementations like SBCL and CCL as portable as possible without
8079 sacrificing much in the way of power.")
8080       (home-page "https://github.com/sellout/external-program")
8081       (license license:llgpl))))
8082
8083 (define-public cl-external-program
8084   (sbcl-package->cl-source-package sbcl-external-program))
8085
8086 (define-public ecl-external-program
8087   (sbcl-package->ecl-package sbcl-external-program))
8088
8089 (define sbcl-cl-ana-boot0
8090   (let ((commit "fa7cee4c50aa1c859652813049ba0da7c18a0df9")
8091         (revision "1"))
8092     (package
8093      (name "sbcl-cl-ana-boot0")
8094      (version (git-version "0.0.0" revision commit))
8095      (source
8096       (origin
8097        (method git-fetch)
8098        (uri (git-reference
8099              (url "https://github.com/ghollisjr/cl-ana.git")
8100              (commit commit)))
8101        (file-name (git-file-name name version))
8102        (sha256
8103         (base32
8104          "0mr47l57m276dbpap7irr4fcnk5fgknhf6mgv4043s8h73amk5qh"))))
8105      (build-system asdf-build-system/sbcl)
8106      (synopsis "Common Lisp data analysis library")
8107      (description
8108       "CL-ANA is a data analysis library in Common Lisp providing tabular and
8109 binned data analysis along with nonlinear least squares fitting and
8110 visualization.")
8111      (home-page "https://github.com/ghollisjr/cl-ana")
8112      (license license:gpl3))))
8113
8114 (define-public sbcl-cl-ana.pathname-utils
8115   (package
8116     (inherit sbcl-cl-ana-boot0)
8117     (name "sbcl-cl-ana.pathname-utils")
8118     (arguments
8119      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8120        ((#:asd-file _ "") "pathname-utils/cl-ana.pathname-utils.asd")
8121        ((#:asd-system-name _ #f) "cl-ana.pathname-utils")))))
8122
8123 (define-public cl-ana.pathname-utils
8124   (sbcl-package->cl-source-package sbcl-cl-ana.pathname-utils))
8125
8126 (define-public ecl-cl-ana.pathname-utils
8127   (sbcl-package->ecl-package sbcl-cl-ana.pathname-utils))
8128
8129 (define-public sbcl-cl-ana.package-utils
8130   (package
8131     (inherit sbcl-cl-ana-boot0)
8132     (name "sbcl-cl-ana.package-utils")
8133     (inputs
8134      `(("alexandria" ,sbcl-alexandria)))
8135     (arguments
8136      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8137        ((#:asd-file _ "") "package-utils/cl-ana.package-utils.asd")
8138        ((#:asd-system-name _ #f) "cl-ana.package-utils")))))
8139
8140 (define-public cl-ana.package-utils
8141   (sbcl-package->cl-source-package sbcl-cl-ana.package-utils))
8142
8143 (define-public ecl-cl-ana.package-utils
8144   (sbcl-package->ecl-package sbcl-cl-ana.package-utils))
8145
8146 (define-public sbcl-cl-ana.string-utils
8147   (package
8148     (inherit sbcl-cl-ana-boot0)
8149     (name "sbcl-cl-ana.string-utils")
8150     (inputs
8151      `(("split-sequence" ,sbcl-split-sequence)))
8152     (arguments
8153      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8154        ((#:asd-file _ "") "string-utils/cl-ana.string-utils.asd")
8155        ((#:asd-system-name _ #f) "cl-ana.string-utils")))))
8156
8157 (define-public cl-ana.string-utils
8158   (sbcl-package->cl-source-package sbcl-cl-ana.string-utils))
8159
8160 (define-public ecl-cl-ana.string-utils
8161   (sbcl-package->ecl-package sbcl-cl-ana.string-utils))
8162
8163 (define-public sbcl-cl-ana.functional-utils
8164   (package
8165     (inherit sbcl-cl-ana-boot0)
8166     (name "sbcl-cl-ana.functional-utils")
8167     (arguments
8168      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8169        ((#:asd-file _ "") "functional-utils/cl-ana.functional-utils.asd")
8170        ((#:asd-system-name _ #f) "cl-ana.functional-utils")))))
8171
8172 (define-public cl-ana.functional-utils
8173   (sbcl-package->cl-source-package sbcl-cl-ana.functional-utils))
8174
8175 (define-public ecl-cl-ana.functional-utils
8176   (sbcl-package->ecl-package sbcl-cl-ana.functional-utils))
8177
8178 (define-public sbcl-cl-ana.list-utils
8179   (package
8180     (inherit sbcl-cl-ana-boot0)
8181     (name "sbcl-cl-ana.list-utils")
8182     (inputs
8183      `(("alexandria" ,sbcl-alexandria)
8184        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8185        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)))
8186     (arguments
8187      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8188        ((#:asd-file _ "") "list-utils/cl-ana.list-utils.asd")
8189        ((#:asd-system-name _ #f) "cl-ana.list-utils")))))
8190
8191 (define-public cl-ana.list-utils
8192   (sbcl-package->cl-source-package sbcl-cl-ana.list-utils))
8193
8194 (define-public ecl-cl-ana.list-utils
8195   (sbcl-package->ecl-package sbcl-cl-ana.list-utils))
8196
8197 (define-public sbcl-cl-ana.generic-math
8198   (package
8199     (inherit sbcl-cl-ana-boot0)
8200     (name "sbcl-cl-ana.generic-math")
8201     (inputs
8202      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8203        ("cl-ana.package-utils" ,sbcl-cl-ana.package-utils)))
8204     (arguments
8205      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8206        ((#:asd-file _ "") "generic-math/cl-ana.generic-math.asd")
8207        ((#:asd-system-name _ #f) "cl-ana.generic-math")))))
8208
8209 (define-public cl-ana.generic-math
8210   (sbcl-package->cl-source-package sbcl-cl-ana.generic-math))
8211
8212 (define-public ecl-cl-ana.generic-math
8213   (sbcl-package->ecl-package sbcl-cl-ana.generic-math))
8214
8215 (define-public sbcl-cl-ana.math-functions
8216   (package
8217     (inherit sbcl-cl-ana-boot0)
8218     (name "sbcl-cl-ana.math-functions")
8219     (inputs
8220      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8221        ("gsll" ,sbcl-gsll)))
8222     (arguments
8223      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8224        ((#:asd-file _ "") "math-functions/cl-ana.math-functions.asd")
8225        ((#:asd-system-name _ #f) "cl-ana.math-functions")))))
8226
8227 (define-public cl-ana.math-functions
8228   (sbcl-package->cl-source-package sbcl-cl-ana.math-functions))
8229
8230 (define-public sbcl-cl-ana.calculus
8231   (package
8232     (inherit sbcl-cl-ana-boot0)
8233     (name "sbcl-cl-ana.calculus")
8234     (inputs
8235      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)))
8236     (arguments
8237      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8238        ((#:asd-file _ "") "calculus/cl-ana.calculus.asd")
8239        ((#:asd-system-name _ #f) "cl-ana.calculus")))))
8240
8241 (define-public cl-ana.calculus
8242   (sbcl-package->cl-source-package sbcl-cl-ana.calculus))
8243
8244 (define-public ecl-cl-ana.calculus
8245   (sbcl-package->ecl-package sbcl-cl-ana.calculus))
8246
8247 (define-public sbcl-cl-ana.symbol-utils
8248   (package
8249     (inherit sbcl-cl-ana-boot0)
8250     (name "sbcl-cl-ana.symbol-utils")
8251     (inputs
8252      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)))
8253     (arguments
8254      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8255        ((#:asd-file _ "") "symbol-utils/cl-ana.symbol-utils.asd")
8256        ((#:asd-system-name _ #f) "cl-ana.symbol-utils")))))
8257
8258 (define-public cl-ana.symbol-utils
8259   (sbcl-package->cl-source-package sbcl-cl-ana.symbol-utils))
8260
8261 (define-public ecl-cl-ana.symbol-utils
8262   (sbcl-package->ecl-package sbcl-cl-ana.symbol-utils))
8263
8264 (define-public sbcl-cl-ana.macro-utils
8265   (package
8266     (inherit sbcl-cl-ana-boot0)
8267     (name "sbcl-cl-ana.macro-utils")
8268     (inputs
8269      `(("alexandria" ,sbcl-alexandria)
8270        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8271        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8272        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8273        ("split-sequence" ,sbcl-split-sequence)))
8274     (arguments
8275      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8276        ((#:asd-file _ "") "macro-utils/cl-ana.macro-utils.asd")
8277        ((#:asd-system-name _ #f) "cl-ana.macro-utils")))))
8278
8279 (define-public cl-ana.macro-utils
8280   (sbcl-package->cl-source-package sbcl-cl-ana.macro-utils))
8281
8282 (define-public ecl-cl-ana.macro-utils
8283   (sbcl-package->ecl-package sbcl-cl-ana.macro-utils))
8284
8285 (define-public sbcl-cl-ana.binary-tree
8286   (package
8287     (inherit sbcl-cl-ana-boot0)
8288     (name "sbcl-cl-ana.binary-tree")
8289     (inputs
8290      `(("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8291        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8292        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)))
8293     (arguments
8294      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8295        ((#:asd-file _ "") "binary-tree/cl-ana.binary-tree.asd")
8296        ((#:asd-system-name _ #f) "cl-ana.binary-tree")))))
8297
8298 (define-public cl-ana.binary-tree
8299   (sbcl-package->cl-source-package sbcl-cl-ana.binary-tree))
8300
8301 (define-public ecl-cl-ana.binary-tree
8302   (sbcl-package->ecl-package sbcl-cl-ana.binary-tree))
8303
8304 (define-public sbcl-cl-ana.tensor
8305   (package
8306     (inherit sbcl-cl-ana-boot0)
8307     (name "sbcl-cl-ana.tensor")
8308     (inputs
8309      `(("alexandria" ,sbcl-alexandria)
8310        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8311        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8312        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8313        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)))
8314     (arguments
8315      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8316        ((#:asd-file _ "") "tensor/cl-ana.tensor.asd")
8317        ((#:asd-system-name _ #f) "cl-ana.tensor")))))
8318
8319 (define-public cl-ana.tensor
8320   (sbcl-package->cl-source-package sbcl-cl-ana.tensor))
8321
8322 (define-public ecl-cl-ana.tensor
8323   (sbcl-package->ecl-package sbcl-cl-ana.tensor))
8324
8325 (define-public sbcl-cl-ana.error-propogation
8326   (package
8327     (inherit sbcl-cl-ana-boot0)
8328     (name "sbcl-cl-ana.error-propogation")
8329     (inputs
8330      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8331        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)))
8332     (arguments
8333      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8334        ((#:asd-file _ "") "error-propogation/cl-ana.error-propogation.asd")
8335        ((#:asd-system-name _ #f) "cl-ana.error-propogation")))))
8336
8337 (define-public cl-ana.error-propogation
8338   (sbcl-package->cl-source-package sbcl-cl-ana.error-propogation))
8339
8340 (define-public sbcl-cl-ana.quantity
8341   (package
8342     (inherit sbcl-cl-ana-boot0)
8343     (name "sbcl-cl-ana.quantity")
8344     (inputs
8345      `(("alexandria" ,sbcl-alexandria)
8346        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
8347        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8348        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8349        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8350        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)))
8351     (arguments
8352      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8353        ((#:asd-file _ "") "quantity/cl-ana.quantity.asd")
8354        ((#:asd-system-name _ #f) "cl-ana.quantity")))))
8355
8356 (define-public cl-ana.quantity
8357   (sbcl-package->cl-source-package sbcl-cl-ana.quantity))
8358
8359 (define-public sbcl-cl-ana.table
8360   (package
8361     (inherit sbcl-cl-ana-boot0)
8362     (name "sbcl-cl-ana.table")
8363     (inputs
8364      `(("alexandria" ,sbcl-alexandria)
8365        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8366        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8367        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8368        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8369        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)))
8370     (arguments
8371      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8372        ((#:asd-file _ "") "table/cl-ana.table.asd")
8373        ((#:asd-system-name _ #f) "cl-ana.table")))))
8374
8375 (define-public cl-ana.table
8376   (sbcl-package->cl-source-package sbcl-cl-ana.table))
8377
8378 (define-public ecl-cl-ana.table
8379   (sbcl-package->ecl-package sbcl-cl-ana.table))
8380
8381 (define-public sbcl-cl-ana.table-utils
8382   (package
8383     (inherit sbcl-cl-ana-boot0)
8384     (name "sbcl-cl-ana.table-utils")
8385     (inputs
8386      `(("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8387        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8388        ("cl-ana.table" ,sbcl-cl-ana.table)))
8389     (arguments
8390      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8391        ((#:asd-file _ "") "table-utils/cl-ana.table-utils.asd")
8392        ((#:asd-system-name _ #f) "cl-ana.table-utils")))))
8393
8394 (define-public cl-ana.table-utils
8395   (sbcl-package->cl-source-package sbcl-cl-ana.table-utils))
8396
8397 (define-public ecl-cl-ana.table-utils
8398   (sbcl-package->ecl-package sbcl-cl-ana.table-utils))
8399
8400 (define-public sbcl-cl-ana.hdf-cffi
8401   (package
8402     (inherit sbcl-cl-ana-boot0)
8403     (name "sbcl-cl-ana.hdf-cffi")
8404     (inputs
8405      `(("cffi" ,sbcl-cffi)
8406        ("hdf5" ,hdf5-parallel-openmpi)))
8407     (arguments
8408      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8409        ((#:asd-file _ "") "hdf-cffi/cl-ana.hdf-cffi.asd")
8410        ((#:asd-system-name _ #f) "cl-ana.hdf-cffi")
8411        ((#:phases phases '%standard-phases)
8412         `(modify-phases ,phases
8413            (add-after 'unpack 'fix-paths
8414              (lambda* (#:key inputs #:allow-other-keys)
8415                (substitute* "hdf-cffi/hdf-cffi.lisp"
8416                  (("/usr/lib/i386-linux-gnu/hdf5/serial/libhdf5.so")
8417                   (string-append
8418                    (assoc-ref inputs "hdf5")
8419                    "/lib/libhdf5.so")))))))))))
8420
8421 (define-public cl-ana.hdf-cffi
8422   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-cffi))
8423
8424 (define-public ecl-cl-ana.hdf-cffi
8425   (sbcl-package->ecl-package sbcl-cl-ana.hdf-cffi))
8426
8427 (define-public sbcl-cl-ana.int-char
8428   (package
8429     (inherit sbcl-cl-ana-boot0)
8430     (name "sbcl-cl-ana.int-char")
8431     (arguments
8432      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8433        ((#:asd-file _ "") "int-char/cl-ana.int-char.asd")
8434        ((#:asd-system-name _ #f) "cl-ana.int-char")))))
8435
8436 (define-public cl-ana.int-char
8437   (sbcl-package->cl-source-package sbcl-cl-ana.int-char))
8438
8439 (define-public ecl-cl-ana.int-char
8440   (sbcl-package->ecl-package sbcl-cl-ana.int-char))
8441
8442 (define-public sbcl-cl-ana.memoization
8443   (package
8444     (inherit sbcl-cl-ana-boot0)
8445     (name "sbcl-cl-ana.memoization")
8446     (inputs
8447      `(("alexandria" ,sbcl-alexandria)))
8448     (arguments
8449      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8450        ((#:asd-file _ "") "memoization/cl-ana.memoization.asd")
8451        ((#:asd-system-name _ #f) "cl-ana.memoization")))))
8452
8453 (define-public cl-ana.memoization
8454   (sbcl-package->cl-source-package sbcl-cl-ana.memoization))
8455
8456 (define-public ecl-cl-ana.memoization
8457   (sbcl-package->ecl-package sbcl-cl-ana.memoization))
8458
8459 (define-public sbcl-cl-ana.typespec
8460   (package
8461     (inherit sbcl-cl-ana-boot0)
8462     (name "sbcl-cl-ana.typespec")
8463     (inputs
8464      `(("alexandria" ,sbcl-alexandria)
8465        ("cffi" ,sbcl-cffi)
8466        ("cl-ana.int-char" ,sbcl-cl-ana.int-char)
8467        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8468        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8469        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8470        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8471        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)))
8472     (arguments
8473      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8474        ((#:asd-file _ "") "typespec/cl-ana.typespec.asd")
8475        ((#:asd-system-name _ #f) "cl-ana.typespec")))))
8476
8477 (define-public cl-ana.typespec
8478   (sbcl-package->cl-source-package sbcl-cl-ana.typespec))
8479
8480 (define-public ecl-cl-ana.typespec
8481   (sbcl-package->ecl-package sbcl-cl-ana.typespec))
8482
8483 (define-public sbcl-cl-ana.hdf-typespec
8484   (package
8485     (inherit sbcl-cl-ana-boot0)
8486     (name "sbcl-cl-ana.hdf-typespec")
8487     (inputs
8488      `(("alexandria" ,sbcl-alexandria)
8489        ("cffi" ,sbcl-cffi)
8490        ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi)
8491        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8492        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8493        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8494        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8495        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8496     (arguments
8497      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8498        ((#:asd-file _ "") "hdf-typespec/cl-ana.hdf-typespec.asd")
8499        ((#:asd-system-name _ #f) "cl-ana.hdf-typespec")))))
8500
8501 (define-public cl-ana.hdf-typespec
8502   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-typespec))
8503
8504 (define-public ecl-cl-ana.hdf-typespec
8505   (sbcl-package->ecl-package sbcl-cl-ana.hdf-typespec))
8506
8507 (define-public sbcl-cl-ana.hdf-utils
8508   (package
8509     (inherit sbcl-cl-ana-boot0)
8510     (name "sbcl-cl-ana.hdf-utils")
8511     (inputs
8512      `(("alexandria" ,sbcl-alexandria)
8513        ("cffi" ,sbcl-cffi)
8514        ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi)
8515        ("cl-ana.hdf-typespec" ,sbcl-cl-ana.hdf-typespec)
8516        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8517        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8518        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
8519        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8520        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8521     (arguments
8522      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8523        ((#:asd-file _ "") "hdf-utils/cl-ana.hdf-utils.asd")
8524        ((#:asd-system-name _ #f) "cl-ana.hdf-utils")))))
8525
8526 (define-public cl-ana.hdf-utils
8527   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-utils))
8528
8529 (define-public ecl-cl-ana.hdf-utils
8530   (sbcl-package->ecl-package sbcl-cl-ana.hdf-utils))
8531
8532 (define-public sbcl-cl-ana.typed-table
8533   (package
8534     (inherit sbcl-cl-ana-boot0)
8535     (name "sbcl-cl-ana.typed-table")
8536     (inputs
8537      `(("alexandria" ,sbcl-alexandria)
8538        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8539        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8540        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8541        ("cl-ana.table" ,sbcl-cl-ana.table)
8542        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8543     (arguments
8544      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8545        ((#:asd-file _ "") "typed-table/cl-ana.typed-table.asd")
8546        ((#:asd-system-name _ #f) "cl-ana.typed-table")))))
8547
8548 (define-public cl-ana.typed-table
8549   (sbcl-package->cl-source-package sbcl-cl-ana.typed-table))
8550
8551 (define-public ecl-cl-ana.typed-table
8552   (sbcl-package->ecl-package sbcl-cl-ana.typed-table))
8553
8554 (define-public sbcl-cl-ana.hdf-table
8555   (package
8556     (inherit sbcl-cl-ana-boot0)
8557     (name "sbcl-cl-ana.hdf-table")
8558     (inputs
8559      `(("alexandria" ,sbcl-alexandria)
8560        ("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree)
8561        ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi)
8562        ("cl-ana.hdf-typespec" ,sbcl-cl-ana.hdf-typespec)
8563        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
8564        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8565        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8566        ("cl-ana.table" ,sbcl-cl-ana.table)
8567        ("cl-ana.typed-table" ,sbcl-cl-ana.typed-table)
8568        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8569     (arguments
8570      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8571        ((#:asd-file _ "") "hdf-table/cl-ana.hdf-table.asd")
8572        ((#:asd-system-name _ #f) "cl-ana.hdf-table")))))
8573
8574 (define-public cl-ana.hdf-table
8575   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-table))
8576
8577 (define-public ecl-cl-ana.hdf-table
8578   (sbcl-package->ecl-package sbcl-cl-ana.hdf-table))
8579
8580 (define-public sbcl-cl-ana.gsl-cffi
8581   (package
8582     (inherit sbcl-cl-ana-boot0)
8583     (name "sbcl-cl-ana.gsl-cffi")
8584     (inputs
8585      `(("cffi" ,sbcl-cffi)
8586        ("gsl" ,gsl)))
8587     (arguments
8588      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8589        ((#:asd-file _ "") "gsl-cffi/cl-ana.gsl-cffi.asd")
8590        ((#:asd-system-name _ #f) "cl-ana.gsl-cffi")
8591        ((#:phases phases '%standard-phases)
8592         `(modify-phases ,phases
8593            (add-after 'unpack 'fix-paths
8594              (lambda* (#:key inputs #:allow-other-keys)
8595                (substitute* "gsl-cffi/gsl-cffi.lisp"
8596                  (("define-foreign-library gsl-cffi" all)
8597                   (string-append all " (:unix "
8598                                  (assoc-ref inputs "gsl")
8599                                  "/lib/libgsl.so)")))))))))))
8600
8601 (define-public cl-ana.gsl-cffi
8602   (sbcl-package->cl-source-package sbcl-cl-ana.gsl-cffi))
8603
8604 (define-public ecl-cl-ana.gsl-cffi
8605   (sbcl-package->ecl-package sbcl-cl-ana.gsl-cffi))
8606
8607 (define-public sbcl-cl-ana.ntuple-table
8608   (package
8609     (inherit sbcl-cl-ana-boot0)
8610     (name "sbcl-cl-ana.ntuple-table")
8611     (inputs
8612      `(("alexandria" ,sbcl-alexandria)
8613        ("cffi" ,sbcl-cffi)
8614        ("cl-ana.gsl-cffi" ,sbcl-cl-ana.gsl-cffi)
8615        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8616        ("cl-ana.table" ,sbcl-cl-ana.table)
8617        ("cl-ana.typed-table" ,sbcl-cl-ana.typed-table)
8618        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)
8619        ("gsll" ,sbcl-gsll)))
8620     (arguments
8621      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8622        ((#:asd-file _ "") "ntuple-table/cl-ana.ntuple-table.asd")
8623        ((#:asd-system-name _ #f) "cl-ana.ntuple-table")))))
8624
8625 (define-public cl-ana.ntuple-table
8626   (sbcl-package->cl-source-package sbcl-cl-ana.ntuple-table))
8627
8628 (define-public sbcl-cl-ana.csv-table
8629   (package
8630     (inherit sbcl-cl-ana-boot0)
8631     (name "sbcl-cl-ana.csv-table")
8632     (inputs
8633      `(("alexandria" ,sbcl-alexandria)
8634        ("antik" ,sbcl-antik)
8635        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8636        ("cl-ana.table" ,sbcl-cl-ana.table)
8637        ("cl-csv" ,sbcl-cl-csv)
8638        ("iterate" ,sbcl-iterate)))
8639     (arguments
8640      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8641        ((#:asd-file _ "") "csv-table/cl-ana.csv-table.asd")
8642        ((#:asd-system-name _ #f) "cl-ana.csv-table")))))
8643
8644 (define-public cl-ana.csv-table
8645   (sbcl-package->cl-source-package sbcl-cl-ana.csv-table))
8646
8647 (define-public sbcl-cl-ana.reusable-table
8648   (package
8649     (inherit sbcl-cl-ana-boot0)
8650     (name "sbcl-cl-ana.reusable-table")
8651     (inputs
8652      `(("alexandria" ,sbcl-alexandria)
8653        ("cl-ana.table" ,sbcl-cl-ana.table)))
8654     (arguments
8655      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8656        ((#:asd-file _ "") "reusable-table/cl-ana.reusable-table.asd")
8657        ((#:asd-system-name _ #f) "cl-ana.reusable-table")))))
8658
8659 (define-public cl-ana.reusable-table
8660   (sbcl-package->cl-source-package sbcl-cl-ana.reusable-table))
8661
8662 (define-public ecl-cl-ana.reusable-table
8663   (sbcl-package->ecl-package sbcl-cl-ana.reusable-table))
8664
8665 (define-public sbcl-cl-ana.linear-algebra
8666   (package
8667     (inherit sbcl-cl-ana-boot0)
8668     (name "sbcl-cl-ana.linear-algebra")
8669     (inputs
8670      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8671        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8672        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
8673        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
8674        ("gsll" ,sbcl-gsll)))
8675     (arguments
8676      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8677        ((#:asd-file _ "") "linear-algebra/cl-ana.linear-algebra.asd")
8678        ((#:asd-system-name _ #f) "cl-ana.linear-algebra")))))
8679
8680 (define-public cl-ana.linear-algebra
8681   (sbcl-package->cl-source-package sbcl-cl-ana.linear-algebra))
8682
8683 (define-public sbcl-cl-ana.lorentz
8684   (package
8685     (inherit sbcl-cl-ana-boot0)
8686     (name "sbcl-cl-ana.lorentz")
8687     (inputs
8688      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8689        ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra)
8690        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
8691        ("iterate" ,sbcl-iterate)))
8692     (arguments
8693      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8694        ((#:asd-file _ "") "lorentz/cl-ana.lorentz.asd")
8695        ((#:asd-system-name _ #f) "cl-ana.lorentz")))))
8696
8697 (define-public cl-ana.lorentz
8698   (sbcl-package->cl-source-package sbcl-cl-ana.lorentz))
8699
8700 (define-public sbcl-cl-ana.clos-utils
8701   (package
8702     (inherit sbcl-cl-ana-boot0)
8703     (name "sbcl-cl-ana.clos-utils")
8704     (inputs
8705      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8706        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8707        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
8708        ("closer-mop" ,sbcl-closer-mop)))
8709     (arguments
8710      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8711        ((#:asd-file _ "") "clos-utils/cl-ana.clos-utils.asd")
8712        ((#:asd-system-name _ #f) "cl-ana.clos-utils")))))
8713
8714 (define-public cl-ana.clos-utils
8715   (sbcl-package->cl-source-package sbcl-cl-ana.clos-utils))
8716
8717 (define-public ecl-cl-ana.clos-utils
8718   (sbcl-package->ecl-package sbcl-cl-ana.clos-utils))
8719
8720 (define-public sbcl-cl-ana.hash-table-utils
8721   (package
8722     (inherit sbcl-cl-ana-boot0)
8723     (name "sbcl-cl-ana.hash-table-utils")
8724     (arguments
8725      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8726        ((#:asd-file _ "") "hash-table-utils/cl-ana.hash-table-utils.asd")
8727        ((#:asd-system-name _ #f) "cl-ana.hash-table-utils")))))
8728
8729 (define-public cl-ana.hash-table-utils
8730   (sbcl-package->cl-source-package sbcl-cl-ana.hash-table-utils))
8731
8732 (define-public ecl-cl-ana.hash-table-utils
8733   (sbcl-package->ecl-package sbcl-cl-ana.hash-table-utils))
8734
8735 (define-public sbcl-cl-ana.map
8736   (package
8737     (inherit sbcl-cl-ana-boot0)
8738     (name "sbcl-cl-ana.map")
8739     (inputs
8740      `(("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)))
8741     (arguments
8742      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8743        ((#:asd-file _ "") "map/cl-ana.map.asd")
8744        ((#:asd-system-name _ #f) "cl-ana.map")))))
8745
8746 (define-public cl-ana.map
8747   (sbcl-package->cl-source-package sbcl-cl-ana.map))
8748
8749 (define-public ecl-cl-ana.map
8750   (sbcl-package->ecl-package sbcl-cl-ana.map))
8751
8752 (define-public sbcl-cl-ana.fitting
8753   (package
8754     (inherit sbcl-cl-ana-boot0)
8755     (name "sbcl-cl-ana.fitting")
8756     (inputs
8757      `(("alexandria" ,sbcl-alexandria)
8758        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
8759        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8760        ("cl-ana.map" ,sbcl-cl-ana.map)
8761        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
8762        ("gsll" ,sbcl-gsll)))
8763     (arguments
8764      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8765        ((#:asd-file _ "") "fitting/cl-ana.fitting.asd")
8766        ((#:asd-system-name _ #f) "cl-ana.fitting")))))
8767
8768 (define-public cl-ana.fitting
8769   (sbcl-package->cl-source-package sbcl-cl-ana.fitting))
8770
8771 (define-public sbcl-cl-ana.histogram
8772   (package
8773     (inherit sbcl-cl-ana-boot0)
8774     (name "sbcl-cl-ana.histogram")
8775     (inputs
8776      `(("alexandria" ,sbcl-alexandria)
8777        ("iterate" ,sbcl-iterate)
8778        ("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree)
8779        ("cl-ana.clos-utils" ,sbcl-cl-ana.clos-utils)
8780        ("cl-ana.fitting" ,sbcl-cl-ana.fitting)
8781        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8782        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8783        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
8784        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8785        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8786        ("cl-ana.map" ,sbcl-cl-ana.map)
8787        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)))
8788     (arguments
8789      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8790        ((#:asd-file _ "") "histogram/cl-ana.histogram.asd")
8791        ((#:asd-system-name _ #f) "cl-ana.histogram")))))
8792
8793 (define-public cl-ana.histogram
8794   (sbcl-package->cl-source-package sbcl-cl-ana.histogram))
8795
8796 (define-public sbcl-cl-ana.file-utils
8797   (package
8798     (inherit sbcl-cl-ana-boot0)
8799     (name "sbcl-cl-ana.file-utils")
8800     (inputs
8801      `(("external-program" ,sbcl-external-program)
8802        ("split-sequence" ,sbcl-split-sequence)))
8803     (arguments
8804      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8805        ((#:asd-file _ "") "file-utils/cl-ana.file-utils.asd")
8806        ((#:asd-system-name _ #f) "cl-ana.file-utils")))))
8807
8808 (define-public cl-ana.file-utils
8809   (sbcl-package->cl-source-package sbcl-cl-ana.file-utils))
8810
8811 (define-public ecl-cl-ana.file-utils
8812   (sbcl-package->ecl-package sbcl-cl-ana.file-utils))
8813
8814 (define-public sbcl-cl-ana.statistics
8815   (package
8816     (inherit sbcl-cl-ana-boot0)
8817     (name "sbcl-cl-ana.statistics")
8818     (inputs
8819      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8820        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
8821        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8822        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8823        ("cl-ana.map" ,sbcl-cl-ana.map)))
8824     (arguments
8825      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8826        ((#:asd-file _ "") "statistics/cl-ana.statistics.asd")
8827        ((#:asd-system-name _ #f) "cl-ana.statistics")))))
8828
8829 (define-public cl-ana.statistics
8830   (sbcl-package->cl-source-package sbcl-cl-ana.statistics))
8831
8832 (define-public sbcl-cl-ana.gnuplot-interface
8833   (package
8834     (inherit sbcl-cl-ana-boot0)
8835     (name "sbcl-cl-ana.gnuplot-interface")
8836     (inputs
8837      `(("external-program" ,sbcl-external-program)))
8838     (arguments
8839      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8840        ((#:asd-file _ "") "gnuplot-interface/cl-ana.gnuplot-interface.asd")
8841        ((#:asd-system-name _ #f) "cl-ana.gnuplot-interface")))))
8842
8843 (define-public cl-ana.gnuplot-interface
8844   (sbcl-package->cl-source-package sbcl-cl-ana.gnuplot-interface))
8845
8846 (define-public ecl-cl-ana.gnuplot-interface
8847   (sbcl-package->ecl-package sbcl-cl-ana.gnuplot-interface))
8848
8849 (define-public sbcl-cl-ana.plotting
8850   (package
8851     (inherit sbcl-cl-ana-boot0)
8852     (name "sbcl-cl-ana.plotting")
8853     (inputs
8854      `(("alexandria" ,sbcl-alexandria)
8855        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
8856        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8857        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8858        ("cl-ana.gnuplot-interface" ,sbcl-cl-ana.gnuplot-interface)
8859        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
8860        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8861        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8862        ("cl-ana.map" ,sbcl-cl-ana.map)
8863        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
8864        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
8865        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8866        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
8867        ("external-program" ,sbcl-external-program)
8868        ("split-sequence" ,sbcl-split-sequence)))
8869     (arguments
8870      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8871        ((#:asd-file _ "") "plotting/cl-ana.plotting.asd")
8872        ((#:asd-system-name _ #f) "cl-ana.plotting")))))
8873
8874 (define-public cl-ana.plotting
8875   (sbcl-package->cl-source-package sbcl-cl-ana.plotting))
8876
8877 (define-public sbcl-cl-ana.table-viewing
8878   (package
8879     (inherit sbcl-cl-ana-boot0)
8880     (name "sbcl-cl-ana.table-viewing")
8881     (inputs
8882      `(("alexandria" ,sbcl-alexandria)
8883        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8884        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
8885        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8886        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
8887        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8888        ("cl-ana.table" ,sbcl-cl-ana.table)))
8889     (arguments
8890      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8891        ((#:asd-file _ "") "table-viewing/cl-ana.table-viewing.asd")
8892        ((#:asd-system-name _ #f) "cl-ana.table-viewing")))))
8893
8894 (define-public cl-ana.table-viewing
8895   (sbcl-package->cl-source-package sbcl-cl-ana.table-viewing))
8896
8897 (define-public sbcl-cl-ana.serialization
8898   (package
8899     (inherit sbcl-cl-ana-boot0)
8900     (name "sbcl-cl-ana.serialization")
8901     (inputs
8902      `(("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
8903        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
8904        ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table)
8905        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
8906        ("cl-ana.int-char" ,sbcl-cl-ana.int-char)
8907        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8908        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8909     (arguments
8910      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8911        ((#:asd-file _ "") "serialization/cl-ana.serialization.asd")
8912        ((#:asd-system-name _ #f) "cl-ana.serialization")))))
8913
8914 (define-public cl-ana.serialization
8915   (sbcl-package->cl-source-package sbcl-cl-ana.serialization))
8916
8917 (define-public sbcl-cl-ana.makeres
8918   (package
8919     (inherit sbcl-cl-ana-boot0)
8920     (name "sbcl-cl-ana.makeres")
8921     (inputs
8922      `(("alexandria" ,sbcl-alexandria)
8923        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
8924        ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils)
8925        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8926        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8927        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
8928        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
8929        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
8930        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8931        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8932        ("cl-ana.map" ,sbcl-cl-ana.map)
8933        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8934        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
8935        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
8936        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
8937        ("cl-ana.serialization" ,sbcl-cl-ana.serialization)
8938        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8939        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8940        ("cl-ana.table" ,sbcl-cl-ana.table)
8941        ("external-program" ,sbcl-external-program)))
8942     (native-inputs
8943      `(("cl-fad" ,sbcl-cl-fad)))
8944     (arguments
8945      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8946        ((#:asd-file _ "") "makeres/cl-ana.makeres.asd")
8947        ((#:asd-system-name _ #f) "cl-ana.makeres")))))
8948
8949 (define-public cl-ana.makeres
8950   (sbcl-package->cl-source-package sbcl-cl-ana.makeres))
8951
8952 (define-public sbcl-cl-ana.makeres-macro
8953   (package
8954     (inherit sbcl-cl-ana-boot0)
8955     (name "sbcl-cl-ana.makeres-macro")
8956     (inputs
8957      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8958        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
8959     (arguments
8960      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8961        ((#:asd-file _ "") "makeres-macro/cl-ana.makeres-macro.asd")
8962        ((#:asd-system-name _ #f) "cl-ana.makeres-macro")))))
8963
8964 (define-public cl-ana.makeres-macro
8965   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-macro))
8966
8967 (define-public sbcl-cl-ana.makeres-block
8968   (package
8969     (inherit sbcl-cl-ana-boot0)
8970     (name "sbcl-cl-ana.makeres-block")
8971     (inputs
8972      `(("alexandria" ,sbcl-alexandria)
8973        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8974        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8975        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
8976     (arguments
8977      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8978        ((#:asd-file _ "") "makeres-block/cl-ana.makeres-block.asd")
8979        ((#:asd-system-name _ #f) "cl-ana.makeres-block")))))
8980
8981 (define-public cl-ana.makeres-block
8982   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-block))
8983
8984 (define-public sbcl-cl-ana.makeres-progress
8985   (package
8986     (inherit sbcl-cl-ana-boot0)
8987     (name "sbcl-cl-ana.makeres-progress")
8988     (inputs
8989      `(("alexandria" ,sbcl-alexandria)
8990        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8991        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
8992     (arguments
8993      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8994        ((#:asd-file _ "") "makeres-progress/cl-ana.makeres-progress.asd")
8995        ((#:asd-system-name _ #f) "cl-ana.makeres-progress")))))
8996
8997 (define-public cl-ana.makeres-progress
8998   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-progress))
8999
9000 (define-public sbcl-cl-ana.makeres-table
9001   (package
9002     (inherit sbcl-cl-ana-boot0)
9003     (name "sbcl-cl-ana.makeres-table")
9004     (inputs
9005      `(("cl-ana.csv-table" ,sbcl-cl-ana.csv-table)
9006        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
9007        ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table)
9008        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
9009        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9010        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9011        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9012        ("cl-ana.makeres-macro" ,sbcl-cl-ana.makeres-macro)
9013        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
9014        ("cl-ana.ntuple-table" ,sbcl-cl-ana.ntuple-table)
9015        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
9016        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
9017        ("cl-ana.table" ,sbcl-cl-ana.table)))
9018     (native-inputs
9019      `(("cl-fad" ,sbcl-cl-fad)))
9020     (arguments
9021      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9022        ((#:asd-file _ "") "makeres-table/cl-ana.makeres-table.asd")
9023        ((#:asd-system-name _ #f) "cl-ana.makeres-table")))))
9024
9025 (define-public cl-ana.makeres-table
9026   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-table))
9027
9028 (define-public sbcl-cl-ana.makeres-graphviz
9029   (package
9030     (inherit sbcl-cl-ana-boot0)
9031     (name "sbcl-cl-ana.makeres-graphviz")
9032     (inputs
9033      `(("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9034        ("external-program" ,sbcl-external-program)))
9035     (arguments
9036      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9037        ((#:asd-file _ "") "makeres-graphviz/cl-ana.makeres-graphviz.asd")
9038        ((#:asd-system-name _ #f) "cl-ana.makeres-graphviz")))))
9039
9040 (define-public cl-ana.makeres-graphviz
9041   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-graphviz))
9042
9043 (define-public sbcl-cl-ana.makeres-branch
9044   (package
9045     (inherit sbcl-cl-ana-boot0)
9046     (name "sbcl-cl-ana.makeres-branch")
9047     (inputs
9048      `(("alexandria" ,sbcl-alexandria)
9049        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9050        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
9051        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9052        ("cl-ana.map" ,sbcl-cl-ana.map)
9053        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
9054     (arguments
9055      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9056        ((#:asd-file _ "") "makeres-branch/cl-ana.makeres-branch.asd")
9057        ((#:asd-system-name _ #f) "cl-ana.makeres-branch")))))
9058
9059 (define-public cl-ana.makeres-branch
9060   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-branch))
9061
9062 (define-public sbcl-cl-ana.makeres-utils
9063   (package
9064     (inherit sbcl-cl-ana-boot0)
9065     (name "sbcl-cl-ana.makeres-utils")
9066     (inputs
9067      `(("alexandria" ,sbcl-alexandria)
9068        ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils)
9069        ("cl-ana.fitting" ,sbcl-cl-ana.fitting)
9070        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
9071        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9072        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9073        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9074        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9075        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9076        ("cl-ana.map" ,sbcl-cl-ana.map)
9077        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
9078        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
9079        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
9080        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
9081        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
9082        ("cl-ana.table" ,sbcl-cl-ana.table)))
9083     (native-inputs
9084      `(("cl-fad" ,sbcl-cl-fad)))
9085     (arguments
9086      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9087        ((#:asd-file _ "") "makeres-utils/cl-ana.makeres-utils.asd")
9088        ((#:asd-system-name _ #f) "cl-ana.makeres-utils")))))
9089
9090 (define-public cl-ana.makeres-utils
9091   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-utils))
9092
9093 (define-public sbcl-cl-ana.statistical-learning
9094   (package
9095     (inherit sbcl-cl-ana-boot0)
9096     (name "sbcl-cl-ana.statistical-learning")
9097     (inputs
9098      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9099        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
9100        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9101        ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra)
9102        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9103        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9104        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
9105        ("cl-ana.map" ,sbcl-cl-ana.map)
9106        ("cl-ana.statistics" ,sbcl-cl-ana.statistics)))
9107     (native-inputs
9108      `(("cl-fad" ,sbcl-cl-fad)))
9109     (arguments
9110      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9111        ((#:asd-file _ "")
9112         "statistical-learning/cl-ana.statistical-learning.asd")
9113        ((#:asd-system-name _ #f) "cl-ana.statistical-learning")))))
9114
9115 (define-public cl-ana.statistical-learning
9116   (sbcl-package->cl-source-package sbcl-cl-ana.statistical-learning))
9117
9118 (define-public sbcl-cl-ana
9119   (package
9120     (inherit sbcl-cl-ana-boot0)
9121     (name "sbcl-cl-ana")
9122     (inputs
9123      `(("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree)
9124        ("cl-ana.calculus" ,sbcl-cl-ana.calculus)
9125        ("cl-ana.clos-utils" ,sbcl-cl-ana.clos-utils)
9126        ("cl-ana.csv-table" ,sbcl-cl-ana.csv-table)
9127        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
9128        ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils)
9129        ("cl-ana.fitting" ,sbcl-cl-ana.fitting)
9130        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9131        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
9132        ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table)
9133        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9134        ("cl-ana.int-char" ,sbcl-cl-ana.int-char)
9135        ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra)
9136        ("cl-ana.lorentz" ,sbcl-cl-ana.lorentz)
9137        ("cl-ana.map" ,sbcl-cl-ana.map)
9138        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9139        ("cl-ana.makeres-block" ,sbcl-cl-ana.makeres-block)
9140        ("cl-ana.makeres-branch" ,sbcl-cl-ana.makeres-branch)
9141        ("cl-ana.makeres-graphviz" ,sbcl-cl-ana.makeres-graphviz)
9142        ("cl-ana.makeres-macro" ,sbcl-cl-ana.makeres-macro)
9143        ("cl-ana.makeres-progress" ,sbcl-cl-ana.makeres-progress)
9144        ("cl-ana.makeres-table" ,sbcl-cl-ana.makeres-table)
9145        ("cl-ana.makeres-utils" ,sbcl-cl-ana.makeres-utils)
9146        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
9147        ("cl-ana.ntuple-table" ,sbcl-cl-ana.ntuple-table)
9148        ("cl-ana.package-utils" ,sbcl-cl-ana.package-utils)
9149        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
9150        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
9151        ("cl-ana.quantity" ,sbcl-cl-ana.quantity)
9152        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
9153        ("cl-ana.serialization" ,sbcl-cl-ana.serialization)
9154        ("cl-ana.statistics" ,sbcl-cl-ana.statistics)
9155        ("cl-ana.statistical-learning" ,sbcl-cl-ana.statistical-learning)
9156        ("cl-ana.table" ,sbcl-cl-ana.table)
9157        ("cl-ana.table-utils" ,sbcl-cl-ana.table-utils)
9158        ("cl-ana.table-viewing" ,sbcl-cl-ana.table-viewing)
9159        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
9160        ("libffi" ,libffi)))
9161     (native-inputs
9162      `(("cl-fad" ,sbcl-cl-fad)))
9163     (arguments
9164      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9165        ((#:asd-file _ "") "cl-ana.asd")
9166        ((#:asd-system-name _ #f) "cl-ana")))))
9167
9168 (define-public cl-ana
9169   (sbcl-package->cl-source-package sbcl-cl-ana))
9170
9171 (define-public sbcl-archive
9172   (let ((commit "631271c091ed02994bec3980cb288a2cf32c7cdc")
9173         (revision "1"))
9174     (package
9175       (name "sbcl-archive")
9176       (version (git-version "0.9" revision commit))
9177       (source (origin
9178                 (method git-fetch)
9179                 (uri (git-reference
9180                       (url "https://github.com/sharplispers/archive.git")
9181                       (commit commit)))
9182                 (file-name (git-file-name name version))
9183                 (sha256
9184                  (base32
9185                   "0pvsc9fmybx7rxd0kmzq4shi6hszdpwdc1sfy7jwyfxf8n3hnv4p"))))
9186       (build-system asdf-build-system/sbcl)
9187       (inputs
9188        `(("cl-fad" ,sbcl-cl-fad)
9189          ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
9190       (synopsis "Common Lisp library for tar and cpio archives")
9191       (description
9192        "This is a Common Lisp library to read and write disk-based file
9193 archives such as those generated by the tar and cpio programs on Unix.")
9194       (home-page "https://github.com/sharplispers/archive")
9195       (license license:bsd-3))))
9196
9197 (define-public cl-archive
9198   (sbcl-package->cl-source-package sbcl-archive))
9199
9200 (define-public ecl-archive
9201   (sbcl-package->ecl-package sbcl-archive))
9202
9203 (define-public sbcl-misc-extensions
9204   (let ((commit "101c05112bf2f1e1bbf527396822d2f50ca6327a")
9205         (revision "1"))
9206     (package
9207       (name "sbcl-misc-extensions")
9208       (version (git-version "3.3" revision commit))
9209       (source
9210        (origin
9211          (method git-fetch)
9212          (uri (git-reference
9213                (url "https://gitlab.common-lisp.net/misc-extensions/devel.git")
9214                (commit commit)))
9215          (file-name (git-file-name name version))
9216          (sha256
9217           (base32
9218            "0gz5f4p70qzilnxsnf5lih2n9m4wjcw8hlw4w8mpn9jyhyppyyv0"))))
9219       (build-system asdf-build-system/sbcl)
9220       (synopsis "Collection of small macros and extensions for Common Lisp")
9221       (description
9222        "This project is intended as a catchall for small, general-purpose
9223 extensions to Common Lisp.  It contains:
9224
9225 @itemize
9226 @item @code{new-let}, a macro that combines and generalizes @code{let},
9227 @code{let*} and @code{multiple-value-bind},
9228 @item @code{gmap}, an iteration macro that generalizes @code{map}.
9229 @end itemize\n")
9230       (home-page "https://common-lisp.net/project/misc-extensions/")
9231       (license license:public-domain))))
9232
9233 (define-public cl-misc-extensions
9234   (sbcl-package->cl-source-package sbcl-misc-extensions))
9235
9236 (define-public ecl-misc-extensions
9237   (sbcl-package->ecl-package sbcl-misc-extensions))
9238
9239 (define-public sbcl-mt19937
9240   (package
9241     (name "sbcl-mt19937")
9242     (version "1.1")
9243     (source
9244      (origin
9245        (method url-fetch)
9246        (uri (string-append "https://common-lisp.net/project/asdf-packaging/"
9247                            "mt19937-latest.tar.gz"))
9248        (sha256
9249         (base32
9250          "1iw636b0iw5ygkv02y8i41lh7xj0acglv0hg5agryn0zzi2nf1xv"))))
9251     (build-system asdf-build-system/sbcl)
9252     (synopsis "Mersenne Twister pseudo-random number generator")
9253     (description
9254      "MT19937 is a portable Mersenne Twister pseudo-random number generator
9255 for Common Lisp.")
9256     (home-page "https://www.cliki.net/mt19937")
9257     (license license:public-domain)))
9258
9259 (define-public cl-mt19937
9260   (sbcl-package->cl-source-package sbcl-mt19937))
9261
9262 (define-public ecl-mt19937
9263   (sbcl-package->ecl-package sbcl-mt19937))
9264
9265 (define-public sbcl-fset
9266   (let ((commit "6d2f9ded8934d2b42f2571a0ba5bda091037d852")
9267         (revision "1"))
9268     (package
9269       (name "sbcl-fset")
9270       (version (git-version "1.3.2" revision commit))
9271       (source
9272        (origin
9273          (method git-fetch)
9274          (uri (git-reference
9275                (url "https://github.com/slburson/fset")
9276                (commit commit)))
9277          (file-name (git-file-name name version))
9278          (sha256
9279           (base32
9280            "127acblwrbqicx47h6sgvknz1cqyfn8p4xkhkn1m7hxh8w5gk1zy"))
9281          (snippet '(begin
9282                      ;; Remove obsolete copy of system definition.
9283                      (delete-file "Code/fset.asd")
9284                      #t))))
9285       (build-system asdf-build-system/sbcl)
9286       (inputs
9287        `(("misc-extensions" ,sbcl-misc-extensions)
9288          ("mt19937" ,sbcl-mt19937)
9289          ("named-readtables" ,sbcl-named-readtables)))
9290       (synopsis "Functional set-theoretic collections library")
9291       (description
9292        "FSet is a functional set-theoretic collections library for Common Lisp.
9293 Functional means that all update operations return a new collection rather than
9294 modifying an existing one in place.  Set-theoretic means that collections may
9295 be nested arbitrarily with no additional programmer effort; for instance, sets
9296 may contain sets, maps may be keyed by sets, etc.")
9297       (home-page "https://common-lisp.net/project/fset/Site/index.html")
9298       (license license:llgpl))))
9299
9300 (define-public cl-fset
9301   (sbcl-package->cl-source-package sbcl-fset))
9302
9303 (define-public sbcl-cl-cont
9304   (let ((commit "fc1fa7e6eb64894fdca13e688e6015fad5290d2a")
9305         (revision "1"))
9306     (package
9307       (name "sbcl-cl-cont")
9308       (version (git-version "0.3.8" revision commit))
9309       (source
9310        (origin
9311          (method git-fetch)
9312          (uri (git-reference
9313                (url "https://gitlab.common-lisp.net/cl-cont/cl-cont.git")
9314                (commit commit)))
9315          (file-name (git-file-name name version))
9316          (sha256
9317           (base32
9318            "1zf8zvb0i6jm3hhfks4w74hibm6avgc6f9s1qwgjrn2bcik8lrvz"))))
9319       (build-system asdf-build-system/sbcl)
9320       (inputs
9321        `(("alexandria" ,sbcl-alexandria)
9322          ("closer-mop" ,sbcl-closer-mop)))
9323       (native-inputs
9324        `(("rt" ,sbcl-rt)))
9325       (synopsis "Delimited continuations for Common Lisp")
9326       (description
9327        "This is a library that implements delimited continuations by
9328 transforming Common Lisp code to continuation passing style.")
9329       (home-page "https://common-lisp.net/project/cl-cont/")
9330       (license license:llgpl))))
9331
9332 (define-public cl-cont
9333   (sbcl-package->cl-source-package sbcl-cl-cont))
9334
9335 (define-public ecl-cl-cont
9336   (sbcl-package->ecl-package sbcl-cl-cont))
9337
9338 (define-public sbcl-cl-coroutine
9339   (let ((commit "de098f8d5debd8b14ef6864b5bdcbbf5ddbcfd72")
9340         (revision "1"))
9341     (package
9342       (name "sbcl-cl-coroutine")
9343       (version (git-version "0.1" revision commit))
9344       (source
9345        (origin
9346          (method git-fetch)
9347          (uri (git-reference
9348                (url "https://github.com/takagi/cl-coroutine.git")
9349                (commit commit)))
9350          (file-name (git-file-name name version))
9351          (sha256
9352           (base32
9353            "1cqdhdjxffgfs116l1swjlsmcbly0xgcgrckvaajd566idj9yj4l"))))
9354       (build-system asdf-build-system/sbcl)
9355       (inputs
9356        `(("alexandria" ,sbcl-alexandria)
9357          ("cl-cont" ,sbcl-cl-cont)))
9358       (native-inputs
9359        `(("prove" ,sbcl-prove)))
9360       (arguments
9361        `(;; TODO: Fix the tests. They fail with:
9362          ;; "Component CL-COROUTINE-ASD::CL-COROUTINE-TEST not found"
9363          #:tests? #f
9364          #:phases
9365          (modify-phases %standard-phases
9366            (add-after 'unpack 'fix-tests
9367              (lambda _
9368                (substitute* "cl-coroutine-test.asd"
9369                  (("cl-test-more")
9370                   "prove"))
9371                #t)))))
9372       (synopsis "Coroutine library for Common Lisp")
9373       (description
9374        "This is a coroutine library for Common Lisp implemented using the
9375 continuations of the @code{cl-cont} library.")
9376       (home-page "https://github.com/takagi/cl-coroutine")
9377       (license license:llgpl))))
9378
9379 (define-public cl-coroutine
9380   (sbcl-package->cl-source-package sbcl-cl-coroutine))
9381
9382 (define-public ecl-cl-coroutine
9383   (sbcl-package->ecl-package sbcl-cl-coroutine))
9384
9385 (define-public sbcl-vom
9386   (let ((commit "1aeafeb5b74c53741b79497e0ef4acf85c92ff24")
9387         (revision "1"))
9388     (package
9389       (name "sbcl-vom")
9390       (version (git-version "0.1.4" revision commit))
9391       (source
9392        (origin
9393          (method git-fetch)
9394          (uri (git-reference
9395                (url "https://github.com/orthecreedence/vom.git")
9396                (commit commit)))
9397          (file-name (git-file-name name version))
9398          (sha256
9399           (base32
9400            "0536kppj76ax4lrxhv42npkfjsmx45km2g439vf9jmw3apinz9cy"))))
9401       (build-system asdf-build-system/sbcl)
9402       (synopsis "Tiny logging utility for Common Lisp")
9403       (description
9404        "Vom is a logging library for Common Lisp.  It's goal is to be useful
9405 and small.  It does not provide a lot of features as other loggers do, but
9406 has a small codebase that's easy to understand and use.")
9407       (home-page "https://github.com/orthecreedence/vom")
9408       (license license:expat))))
9409
9410 (define-public cl-vom
9411   (sbcl-package->cl-source-package sbcl-vom))
9412
9413 (define-public ecl-vom
9414   (sbcl-package->ecl-package sbcl-vom))
9415
9416 (define-public sbcl-cl-libuv
9417   (let ((commit "32100c023c518038d0670a103eaa4d50dd785d29")
9418         (revision "1"))
9419     (package
9420       (name "sbcl-cl-libuv")
9421       (version (git-version "0.1.6" revision commit))
9422       (source
9423        (origin
9424          (method git-fetch)
9425          (uri (git-reference
9426                (url "https://github.com/orthecreedence/cl-libuv.git")
9427                (commit commit)))
9428          (file-name (git-file-name name version))
9429          (sha256
9430           (base32
9431            "1kwix4si8a8hza34ab2k7whrh7z0yrmx39v2wc3qblv9m244jkh1"))))
9432       (build-system asdf-build-system/sbcl)
9433       (inputs
9434        `(("alexandria" ,sbcl-alexandria)
9435          ("cffi" ,sbcl-cffi)
9436          ("cffi-grovel" ,sbcl-cffi-grovel)
9437          ("libuv" ,libuv)))
9438       (arguments
9439        `(#:phases
9440          (modify-phases %standard-phases
9441            (add-after 'unpack 'fix-paths
9442              (lambda* (#:key inputs #:allow-other-keys)
9443                (substitute* "lib.lisp"
9444                  (("/usr/lib/libuv.so")
9445                   (string-append (assoc-ref inputs "libuv")
9446                                  "/lib/libuv.so")))
9447                #t))
9448            (add-after 'fix-paths 'fix-system-definition
9449              (lambda _
9450                (substitute* "cl-libuv.asd"
9451                  (("#:cffi #:alexandria")
9452                   "#:cffi #:cffi-grovel #:alexandria"))
9453                #t)))))
9454       (synopsis "Common Lisp bindings to libuv")
9455       (description
9456        "This library provides low-level libuv bindings for Common Lisp.")
9457       (home-page "https://github.com/orthecreedence/cl-libuv")
9458       (license license:expat))))
9459
9460 (define-public cl-libuv
9461   (sbcl-package->cl-source-package sbcl-cl-libuv))
9462
9463 (define-public ecl-cl-libuv
9464   (sbcl-package->ecl-package sbcl-cl-libuv))
9465
9466 (define-public sbcl-cl-async-base
9467   (let ((commit "f6423e44404a44434d803605e0d2e17199158e28")
9468         (revision "1"))
9469     (package
9470       (name "sbcl-cl-async-base")
9471       (version (git-version "0.6.1" revision commit))
9472       (source
9473        (origin
9474          (method git-fetch)
9475          (uri (git-reference
9476                (url "https://github.com/orthecreedence/cl-async.git")
9477                (commit commit)))
9478          (file-name (git-file-name name version))
9479          (sha256
9480           (base32
9481            "11xi9dxb8mjgwzrkj88i0xkgk26z9w9ddxzbv6xsvfc1d4x5cf4x"))))
9482       (build-system asdf-build-system/sbcl)
9483       (inputs
9484        `(("bordeaux-threads" ,sbcl-bordeaux-threads)
9485          ("cffi" ,sbcl-cffi)
9486          ("cl-libuv" ,sbcl-cl-libuv)))
9487       (arguments
9488        `(#:asd-file "cl-async.asd"))
9489       (synopsis "Base system for cl-async")
9490       (description
9491        "Cl-async is a library for general purpose, non-blocking programming in
9492 Common Lisp.  It uses the libuv library as backend.")
9493       (home-page "https://orthecreedence.github.io/cl-async/")
9494       (license license:expat))))
9495
9496 (define-public cl-async-base
9497   (sbcl-package->cl-source-package sbcl-cl-async-base))
9498
9499 (define-public ecl-cl-async-base
9500   (sbcl-package->ecl-package sbcl-cl-async-base))
9501
9502 (define-public sbcl-cl-async-util
9503   (package
9504     (inherit sbcl-cl-async-base)
9505     (name "sbcl-cl-async-util")
9506     (inputs
9507      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
9508        ("cffi" ,sbcl-cffi)
9509        ("cl-async-base" ,sbcl-cl-async-base)
9510        ("cl-libuv" ,sbcl-cl-libuv)
9511        ("cl-ppcre" ,sbcl-cl-ppcre)
9512        ("fast-io" ,sbcl-fast-io)
9513        ("vom" ,sbcl-vom)))
9514     (synopsis "Internal utilities for cl-async")))
9515
9516 (define-public cl-async-util
9517   (sbcl-package->cl-source-package sbcl-cl-async-util))
9518
9519 (define-public ecl-cl-async-util
9520   (sbcl-package->ecl-package sbcl-cl-async-util))
9521
9522 (define-public sbcl-cl-async
9523   (package
9524     (inherit sbcl-cl-async-base)
9525     (name "sbcl-cl-async")
9526     (inputs
9527      `(("babel" ,sbcl-babel)
9528        ("cffi" ,sbcl-cffi)
9529        ("cl-async-base" ,sbcl-cl-async-base)
9530        ("cl-async-util" ,sbcl-cl-async-util)
9531        ("cl-libuv" ,sbcl-cl-libuv)
9532        ("cl-ppcre" ,sbcl-cl-ppcre)
9533        ("static-vectors" ,sbcl-static-vectors)
9534        ("trivial-features" ,sbcl-trivial-features)
9535        ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
9536     (synopsis "Asynchronous operations for Common Lisp")))
9537
9538 (define-public cl-async
9539   (sbcl-package->cl-source-package sbcl-cl-async))
9540
9541 (define-public ecl-cl-async
9542   (sbcl-package->ecl-package sbcl-cl-async))
9543
9544 (define-public sbcl-cl-async-repl
9545   (package
9546     (inherit sbcl-cl-async-base)
9547     (name "sbcl-cl-async-repl")
9548     (inputs
9549      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
9550        ("cl-async" ,sbcl-cl-async)))
9551     (arguments
9552      (substitute-keyword-arguments (package-arguments sbcl-cl-async-base)
9553        ((#:asd-file _ "") "cl-async-repl.asd")))
9554     (synopsis "REPL integration for cl-async")))
9555
9556 (define-public cl-async-repl
9557   (sbcl-package->cl-source-package sbcl-cl-async-repl))
9558
9559 (define-public ecl-cl-async-repl
9560   (sbcl-package->ecl-package sbcl-cl-async-repl))
9561
9562 (define-public sbcl-cl-async-ssl
9563   (package
9564     (inherit sbcl-cl-async-base)
9565     (name "sbcl-cl-async-ssl")
9566     (inputs
9567      `(("cffi" ,sbcl-cffi)
9568        ("cl-async" ,sbcl-cl-async)
9569        ("openssl" ,openssl)
9570        ("vom" ,sbcl-vom)))
9571     (arguments
9572      (substitute-keyword-arguments (package-arguments sbcl-cl-async-base)
9573        ((#:asd-file _ "") "cl-async-ssl.asd")
9574        ((#:phases phases '%standard-phases)
9575         `(modify-phases ,phases
9576            (add-after 'unpack 'fix-paths
9577              (lambda* (#:key inputs #:allow-other-keys)
9578                (substitute* "src/ssl/package.lisp"
9579                  (("libcrypto\\.so")
9580                   (string-append (assoc-ref inputs "openssl")
9581                                  "/lib/libcrypto.so"))
9582                  (("libssl\\.so")
9583                   (string-append (assoc-ref inputs "openssl")
9584                                  "/lib/libssl.so")))
9585                #t))))))
9586     (synopsis "SSL wrapper around cl-async socket implementation")))
9587
9588 (define-public cl-async-ssl
9589   (sbcl-package->cl-source-package sbcl-cl-async-ssl))
9590
9591 (define-public ecl-cl-async-ssl
9592   (sbcl-package->ecl-package sbcl-cl-async-ssl))
9593
9594 (define-public sbcl-blackbird
9595   (let ((commit "d361f81c1411dec07f6c2dcb11c78f7aea9aaca8")
9596         (revision "1"))
9597     (package
9598       (name "sbcl-blackbird")
9599       (version (git-version "0.5.2" revision commit))
9600       (source
9601        (origin
9602          (method git-fetch)
9603          (uri (git-reference
9604                (url "https://github.com/orthecreedence/blackbird.git")
9605                (commit commit)))
9606          (file-name (git-file-name name version))
9607          (sha256
9608           (base32
9609            "0xfds5yaya64arzr7w1x38karyz11swzbhxx1afldpradj9dh19c"))))
9610       (build-system asdf-build-system/sbcl)
9611       (inputs
9612        `(("vom" ,sbcl-vom)))
9613       (native-inputs
9614        `(("cl-async" ,sbcl-cl-async)
9615          ("fiveam" ,sbcl-fiveam)))
9616       (synopsis "Promise implementation for Common Lisp")
9617       (description
9618        "This is a standalone promise implementation for Common Lisp.  It is
9619 the successor to the now-deprecated cl-async-future project.")
9620       (home-page "http://orthecreedence.github.io/blackbird/")
9621       (license license:expat))))
9622
9623 (define-public cl-blackbird
9624   (sbcl-package->cl-source-package sbcl-blackbird))
9625
9626 (define-public ecl-blackbird
9627   (sbcl-package->ecl-package sbcl-blackbird))
9628
9629 (define-public sbcl-cl-async-future
9630   (let ((commit "ee36c22a69a9516407458d2ed8b475f1fc473959")
9631         (revision "1"))
9632     (package
9633       (name "sbcl-cl-async-future")
9634       (version (git-version "0.4.4.1" revision commit))
9635       (source
9636        (origin
9637          (method git-fetch)
9638          (uri (git-reference
9639                (url "https://github.com/orthecreedence/cl-async-future.git")
9640                (commit commit)))
9641          (file-name (git-file-name name version))
9642          (sha256
9643           (base32
9644            "0z0sc7qlzzxk99f4l26zp6rai9kv0kj0f599sxai5s44p17zbbvh"))))
9645       (build-system asdf-build-system/sbcl)
9646       (inputs
9647        `(("blackbird" ,sbcl-blackbird)))
9648       (native-inputs
9649        `(("cl-async" ,sbcl-cl-async)
9650          ("eos" ,sbcl-eos)))
9651       (synopsis "Futures implementation for Common Lisp")
9652       (description
9653        "This is futures implementation for Common Lisp.  It plugs in nicely
9654 to cl-async.")
9655       (home-page "http://orthecreedence.github.io/cl-async/future")
9656       (license license:expat))))
9657
9658 (define-public cl-async-future
9659   (sbcl-package->cl-source-package sbcl-cl-async-future))
9660
9661 (define-public ecl-cl-async-future
9662   (sbcl-package->ecl-package sbcl-cl-async-future))
9663
9664 (define-public sbcl-green-threads
9665   (let ((commit "fff5ebecb441a37e5c511773716aafd84a3c5840")
9666         (revision "1"))
9667     (package
9668       (name "sbcl-green-threads")
9669       (version (git-version "0.3" revision commit))
9670       (source
9671        (origin
9672          (method git-fetch)
9673          (uri (git-reference
9674                (url "https://github.com/thezerobit/green-threads.git")
9675                (commit commit)))
9676          (file-name (git-file-name name version))
9677          (sha256
9678           (base32
9679            "1czw7nr0dwfps76h8hjvglk1wdh53yqbfbvv30whwbgqx33iippz"))))
9680       (build-system asdf-build-system/sbcl)
9681       (inputs
9682        `(("cl-async-future" ,sbcl-cl-async-future)
9683          ("cl-cont" ,sbcl-cl-cont)))
9684       (native-inputs
9685        `(("prove" ,sbcl-prove)))
9686       (arguments
9687        `(;; TODO: Fix the tests. They fail with:
9688          ;; "The function BLACKBIRD::PROMISE-VALUES is undefined"
9689          #:tests? #f
9690          #:phases
9691          (modify-phases %standard-phases
9692            (add-after 'unpack 'fix-tests
9693              (lambda _
9694                (substitute* "green-threads-test.asd"
9695                  (("cl-test-more")
9696                   "prove"))
9697                #t)))))
9698       (synopsis "Cooperative multitasking library for Common Lisp")
9699       (description
9700        "This library allows for cooperative multitasking with help of cl-cont
9701 for continuations.  It tries to mimic the API of bordeaux-threads as much as
9702 possible.")
9703       (home-page "https://github.com/thezerobit/green-threads")
9704       (license license:bsd-3))))
9705
9706 (define-public cl-green-threads
9707   (sbcl-package->cl-source-package sbcl-green-threads))
9708
9709 (define-public ecl-green-threads
9710   (sbcl-package->ecl-package sbcl-green-threads))
9711
9712 (define-public sbcl-cl-base32
9713   (let ((commit "8cdee06fab397f7b0a19583b57e7f0c98405be85")
9714         (revision "1"))
9715     (package
9716       (name "sbcl-cl-base32")
9717       (version (git-version "0.1" revision commit))
9718       (source
9719        (origin
9720          (method git-fetch)
9721          (uri (git-reference
9722                (url "https://github.com/hargettp/cl-base32.git")
9723                (commit commit)))
9724          (file-name (git-file-name name version))
9725          (sha256
9726           (base32 "17jrng8jb05d64ggyd11hp308c2fl5drvf9g175blgrkkl8l4mf8"))))
9727       (build-system asdf-build-system/sbcl)
9728       (native-inputs
9729        `(("lisp-unit" ,sbcl-lisp-unit)))
9730       (synopsis "Common Lisp library for base32 encoding and decoding")
9731       (description
9732        "This package provides functions for base32 encoding and decoding as
9733 defined in RFC4648.")
9734       (home-page "https://github.com/hargettp/cl-base32")
9735       (license license:expat))))
9736
9737 (define-public cl-base32
9738   (sbcl-package->cl-source-package sbcl-cl-base32))
9739
9740 (define-public ecl-cl-base32
9741   (sbcl-package->ecl-package sbcl-cl-base32))
9742
9743 (define-public sbcl-cl-z85
9744   (let ((commit "85b3951a9cfa2603acb6aee15567684f9a108098")
9745         (revision "1"))
9746     (package
9747       (name "sbcl-cl-z85")
9748       (version (git-version "1.0" revision commit))
9749       (source
9750        (origin
9751          (method git-fetch)
9752          (uri (git-reference
9753                (url "https://github.com/glv2/cl-z85.git")
9754                (commit commit)))
9755          (file-name (git-file-name name version))
9756          (sha256
9757           (base32 "0r27pidjaxbm7k1rr90nnajwl5xm2kp65g1fv0fva17lzy45z1mp"))))
9758       (build-system asdf-build-system/sbcl)
9759       (native-inputs
9760        `(("cl-octet-streams" ,sbcl-cl-octet-streams)
9761          ("fiveam" ,sbcl-fiveam)))
9762       (synopsis "Common Lisp library for Z85 encoding and decoding")
9763       (description
9764        "This package provides functions to encode or decode byte vectors or
9765 byte streams using the Z85 format, which is a base-85 encoding used by
9766 ZeroMQ.")
9767       (home-page "https://github.com/glv2/cl-z85")
9768       (license license:gpl3+))))
9769
9770 (define-public cl-z85
9771   (sbcl-package->cl-source-package sbcl-cl-z85))
9772
9773 (define-public ecl-cl-z85
9774   (sbcl-package->ecl-package sbcl-cl-z85))
9775
9776 (define-public sbcl-ltk
9777   (package
9778     (name "sbcl-ltk")
9779     (version "0.992")
9780     (source
9781      (origin
9782        (method git-fetch)
9783        (uri (git-reference
9784              (url "https://github.com/herth/ltk.git")
9785              (commit version)))
9786        (file-name (git-file-name name version))
9787        (sha256
9788         (base32 "13l2q4mskzilya9xh5wy2xvy30lwn104bd8wrq6ifds56r82iy3x"))))
9789     (build-system asdf-build-system/sbcl)
9790     (inputs
9791      `(("imagemagick" ,imagemagick)
9792        ("tk" ,tk)))
9793     (arguments
9794      `(#:asd-file "ltk/ltk.asd"
9795        #:tests? #f
9796        #:phases (modify-phases %standard-phases
9797                   (add-after 'unpack 'fix-paths
9798                     (lambda* (#:key inputs #:allow-other-keys)
9799                       (substitute* "ltk/ltk.lisp"
9800                         (("#-freebsd \"wish\"")
9801                          (string-append "#-freebsd \""
9802                                         (assoc-ref inputs "tk")
9803                                         "/bin/wish\""))
9804                         (("do-execute \"convert\"")
9805                          (string-append "do-execute \""
9806                                         (assoc-ref inputs "imagemagick")
9807                                         "/bin/convert\"")))
9808                       #t)))))
9809     (synopsis "Common Lisp bindings for the Tk GUI toolkit")
9810     (description
9811      "LTK is a Common Lisp binding for the Tk graphics toolkit.  It is written
9812 in pure Common Lisp and does not require any Tk knowledge for its usage.")
9813     (home-page "http://www.peter-herth.de/ltk/")
9814     (license license:llgpl)))
9815
9816 (define-public cl-ltk
9817   (sbcl-package->cl-source-package sbcl-ltk))
9818
9819 (define-public ecl-ltk
9820   (sbcl-package->ecl-package sbcl-ltk))
9821
9822 (define-public sbcl-ltk-mw
9823   (package
9824     (inherit sbcl-ltk)
9825     (name "sbcl-ltk-mw")
9826     (inputs
9827      `(("ltk" ,sbcl-ltk)))
9828     (arguments
9829      (substitute-keyword-arguments (package-arguments sbcl-ltk)
9830        ((#:asd-file _) "ltk/ltk-mw.asd")
9831        ((#:phases _) '%standard-phases)))
9832     (synopsis "Extra widgets for LTK")
9833     (description
9834      "This is a collection of higher-level widgets built on top of LTK.")))
9835
9836 (define-public cl-ltk-mw
9837   (sbcl-package->cl-source-package sbcl-ltk-mw))
9838
9839 (define-public ecl-ltk-mw
9840   (sbcl-package->ecl-package sbcl-ltk-mw))
9841
9842 (define-public sbcl-ltk-remote
9843   (package
9844     (inherit sbcl-ltk)
9845     (name "sbcl-ltk-remote")
9846     (inputs
9847      `(("ltk" ,sbcl-ltk)))
9848     (arguments
9849      (substitute-keyword-arguments (package-arguments sbcl-ltk)
9850        ((#:asd-file _) "ltk/ltk-remote.asd")
9851        ((#:phases _) '%standard-phases)))
9852     (synopsis "Remote GUI support for LTK")
9853     (description
9854      "This LTK extension allows the GUI to be displayed on a computer different
9855 from the one running the Lisp program by using a TCP connection.")))
9856
9857 (define-public cl-ltk-remote
9858   (sbcl-package->cl-source-package sbcl-ltk-remote))
9859
9860 (define-public sbcl-cl-lex
9861   (let ((commit "f2dbbe25ef553005fb402d9a6203180c3fa1093b")
9862         (revision "1"))
9863     (package
9864       (name "sbcl-cl-lex")
9865       (version (git-version "1.1.3" revision commit))
9866       (source
9867        (origin
9868          (method git-fetch)
9869          (uri (git-reference
9870                (url "https://github.com/djr7C4/cl-lex.git")
9871                (commit commit)))
9872          (file-name (git-file-name name version))
9873          (sha256
9874           (base32 "1kg50f76bfpfxcv4dfivq1n9a0xlsra2ajb0vd68lxwgbidgyc2y"))))
9875       (build-system asdf-build-system/sbcl)
9876       (inputs
9877        `(("cl-ppcre" ,sbcl-cl-ppcre)))
9878       (synopsis "Common Lisp macros for generating lexical analyzers")
9879       (description
9880        "This is a Common Lisp library providing a set of macros for generating
9881 lexical analyzers automatically.  The lexers generated using @code{cl-lex} can
9882 be used with @code{cl-yacc}.")
9883       (home-page "https://github.com/djr7C4/cl-lex")
9884       (license license:gpl3))))
9885
9886 (define-public cl-lex
9887   (sbcl-package->cl-source-package sbcl-cl-lex))
9888
9889 (define-public ecl-cl-lex
9890   (sbcl-package->ecl-package sbcl-cl-lex))
9891
9892 (define-public sbcl-clunit2
9893   (let ((commit "5e28343734eb9b7aee39306a614af92c1062d50b")
9894         (revision "1"))
9895     (package
9896       (name "sbcl-clunit2")
9897       (version (git-version "0.2.4" revision commit))
9898       (source
9899        (origin
9900          (method git-fetch)
9901          (uri (git-reference
9902                (url "https://notabug.org/cage/clunit2.git")
9903                (commit commit)))
9904          (file-name (git-file-name name version))
9905          (sha256
9906           (base32 "1ngiapfki6nm8a555mzhb5p7ch79i3w665za5bmb5j7q34fy80vw"))))
9907       (build-system asdf-build-system/sbcl)
9908       (synopsis "Unit testing framework for Common Lisp")
9909       (description
9910        "CLUnit is a Common Lisp unit testing framework.  It is designed to be
9911 easy to use so that you can quickly start testing.")
9912       (home-page "https://notabug.org/cage/clunit2")
9913       (license license:expat))))
9914
9915 (define-public cl-clunit2
9916   (sbcl-package->cl-source-package sbcl-clunit2))
9917
9918 (define-public ecl-clunit2
9919   (sbcl-package->ecl-package sbcl-clunit2))
9920
9921 (define-public sbcl-cl-colors2
9922   (let ((commit "795aedee593b095fecde574bd999b520dd03ed24")
9923         (revision "1"))
9924     (package
9925       (name "sbcl-cl-colors2")
9926       (version (git-version "0.2.1" revision commit))
9927       (source
9928        (origin
9929          (method git-fetch)
9930          (uri (git-reference
9931                (url "https://notabug.org/cage/cl-colors2.git")
9932                (commit commit)))
9933          (file-name (git-file-name name version))
9934          (sha256
9935           (base32 "0hlyf4h5chkjdp9armla5w4kw5acikk159sym7y8c4jbjp9x47ih"))))
9936       (build-system asdf-build-system/sbcl)
9937       (native-inputs
9938        `(("clunit2" ,sbcl-clunit2)))
9939       (inputs
9940        `(("alexandria" ,sbcl-alexandria)
9941          ("cl-ppcre" ,sbcl-cl-ppcre)))
9942       (synopsis "Color library for Common Lisp")
9943       (description
9944        "This is a very simple color library for Common Lisp, providing:
9945
9946 @itemize
9947 @item Types for representing colors in HSV and RGB spaces.
9948 @item Simple conversion functions between the above types (and also
9949 hexadecimal representation for RGB).
9950 @item Some predefined colors (currently X11 color names -- of course
9951 the library does not depend on X11).
9952 @end itemize\n")
9953       (home-page "https://notabug.org/cage/cl-colors2")
9954       (license license:boost1.0))))
9955
9956 (define-public cl-colors2
9957   (sbcl-package->cl-source-package sbcl-cl-colors2))
9958
9959 (define-public ecl-cl-colors2
9960   (sbcl-package->ecl-package sbcl-cl-colors2))
9961
9962 (define-public sbcl-cl-jpeg
9963   (let ((commit "ec557038128df6895fbfb743bfe8faf8ec2534af")
9964         (revision "1"))
9965     (package
9966       (name "sbcl-cl-jpeg")
9967       (version (git-version "2.8" revision commit))
9968       (source
9969        (origin
9970          (method git-fetch)
9971          (uri (git-reference
9972                (url "https://github.com/sharplispers/cl-jpeg.git")
9973                (commit commit)))
9974          (file-name (git-file-name name version))
9975          (sha256
9976           (base32 "1bkkiqz8fqldlj1wbmrccjsvxcwj98h6s4b6gslr3cg2wmdv5xmy"))))
9977       (build-system asdf-build-system/sbcl)
9978       (synopsis "JPEG image library for Common Lisp")
9979       (description
9980        "This is a baseline JPEG codec written in Common Lisp.  It can be used
9981 for reading and writing JPEG image files.")
9982       (home-page "https://github.com/sharplispers/cl-jpeg")
9983       (license license:bsd-3))))
9984
9985 (define-public cl-jpeg
9986   (sbcl-package->cl-source-package sbcl-cl-jpeg))
9987
9988 (define-public ecl-cl-jpeg
9989   (sbcl-package->ecl-package sbcl-cl-jpeg))
9990
9991 (define-public sbcl-nodgui
9992   (let ((commit "bc59ed9b787dfc9e68ae3bd7f7e8507c5c619212")
9993         (revision "1"))
9994     (package
9995       (name "sbcl-nodgui")
9996       (version (git-version "0.0.5" revision commit))
9997       (source
9998        (origin
9999          (method git-fetch)
10000          (uri (git-reference
10001                (url "https://notabug.org/cage/nodgui.git")
10002                (commit commit)))
10003          (file-name (git-file-name name version))
10004          (sha256
10005           (base32 "0xx0dk54d882i598ydnwmy7mnfk0b7vib3ddsgpqxhjck1rwq8l8"))))
10006       (build-system asdf-build-system/sbcl)
10007       (inputs
10008        `(("alexandria" ,sbcl-alexandria)
10009          ("bordeaux-threads" ,sbcl-bordeaux-threads)
10010          ("cl-colors2" ,sbcl-cl-colors2)
10011          ("cl-jpeg" ,sbcl-cl-jpeg)
10012          ("cl-lex" ,sbcl-cl-lex)
10013          ("cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
10014          ("cl-unicode" ,sbcl-cl-unicode)
10015          ("cl-yacc" ,sbcl-cl-yacc)
10016          ("clunit2" ,sbcl-clunit2)
10017          ("named-readtables" ,sbcl-named-readtables)
10018          ("parse-number" ,sbcl-parse-number)
10019          ("tk" ,tk)))
10020       (arguments
10021        `(#:phases (modify-phases %standard-phases
10022                     (add-after 'unpack 'fix-paths
10023                       (lambda* (#:key inputs #:allow-other-keys)
10024                         (substitute* "src/wish-communication.lisp"
10025                           (("#-freebsd \"wish\"")
10026                            (string-append "#-freebsd \""
10027                                           (assoc-ref inputs "tk")
10028                                           "/bin/wish\"")))
10029                         #t)))))
10030       (synopsis "Common Lisp bindings for the Tk GUI toolkit")
10031       (description
10032        "Nodgui (@emph{No Drama GUI}) is a Common Lisp binding for the Tk GUI
10033 toolkit.  It also provides a few additional widgets more than the standard Tk
10034 ones.")
10035       (home-page "https://www.autistici.org/interzona/nodgui.html")
10036       (license license:llgpl))))
10037
10038 (define-public cl-nodgui
10039   (sbcl-package->cl-source-package sbcl-nodgui))
10040
10041 (define-public ecl-nodgui
10042   (sbcl-package->ecl-package sbcl-nodgui))
10043
10044 (define-public sbcl-salza2
10045   (package
10046     (name "sbcl-salza2")
10047     (version "2.0.9")
10048     (source
10049      (origin
10050        (method git-fetch)
10051        (uri (git-reference
10052              (url "https://github.com/xach/salza2.git")
10053              (commit (string-append "release-" version))))
10054        (file-name (git-file-name name version))
10055        (sha256
10056         (base32 "0p38rj4gq7j5k807php7hrz7l2zyyfshv8i9yms7i8lkgg3433ki"))))
10057     (build-system asdf-build-system/sbcl)
10058     (synopsis "Common Lisp library for zlib, deflate and gzip compression")
10059     (description
10060      "Salza2 is a Common Lisp library for creating compressed data in the zlib,
10061 deflate, or gzip data formats, described in RFC 1950, RFC 1951, and RFC 1952,
10062 respectively.")
10063     (home-page "https://www.xach.com/lisp/salza2/")
10064     (license license:bsd-2)))
10065
10066 (define-public cl-salza2
10067   (sbcl-package->cl-source-package sbcl-salza2))
10068
10069 (define-public ecl-salza2
10070   (sbcl-package->ecl-package sbcl-salza2))
10071
10072 (define-public sbcl-png-read
10073   (let ((commit "ec29f38a689972b9f1373f13bbbcd6b05deada88")
10074         (revision "1"))
10075     (package
10076       (name "sbcl-png-read")
10077       (version (git-version "0.3.1" revision commit))
10078       (source
10079        (origin
10080          (method git-fetch)
10081          (uri (git-reference
10082                (url "https://github.com/Ramarren/png-read.git")
10083                (commit commit)))
10084          (file-name (git-file-name name version))
10085          (sha256
10086           (base32 "0vyczbcwskrygrf1hgrsnk0jil8skmvf1kiaalw5jps4fjrfdkw0"))))
10087       (build-system asdf-build-system/sbcl)
10088       (inputs
10089        `(("babel" ,sbcl-babel)
10090          ("chipz" ,sbcl-chipz)
10091          ("iterate" ,sbcl-iterate)))
10092       (synopsis "PNG decoder for Common Lisp")
10093       (description "This is a Common Lisp library for reading PNG images.")
10094       (home-page "https://github.com/Ramarren/png-read")
10095       (license license:bsd-3))))
10096
10097 (define-public cl-png-read
10098   (sbcl-package->cl-source-package sbcl-png-read))
10099
10100 (define-public ecl-png-read
10101   (sbcl-package->ecl-package sbcl-png-read))
10102
10103 (define-public sbcl-zpng
10104   (package
10105     (name "sbcl-zpng")
10106     (version "1.2.2")
10107     (source
10108      (origin
10109        (method git-fetch)
10110        (uri (git-reference
10111              (url "https://github.com/xach/zpng.git")
10112              (commit (string-append "release-" version))))
10113        (file-name (git-file-name name version))
10114        (sha256
10115         (base32 "0b3ag3jhl3z7kdls3ahdsdxsfhhw5qrizk769984f4wkxhb69rcm"))))
10116     (build-system asdf-build-system/sbcl)
10117     (inputs
10118      `(("salza2" ,sbcl-salza2)))
10119     (synopsis "PNG encoder for Common Lisp")
10120     (description "This is a Common Lisp library for creating PNG images.")
10121     (home-page "https://www.xach.com/lisp/zpng/")
10122     (license license:bsd-2)))
10123
10124 (define-public cl-zpng
10125   (sbcl-package->cl-source-package sbcl-zpng))
10126
10127 (define-public ecl-zpng
10128   (sbcl-package->ecl-package sbcl-zpng))
10129
10130 (define-public sbcl-cl-qrencode
10131   (package
10132     (name "sbcl-cl-qrencode")
10133     (version "0.1.2")
10134     (source
10135      (origin
10136        (method git-fetch)
10137        (uri (git-reference
10138              (url "https://github.com/jnjcc/cl-qrencode.git")
10139              (commit (string-append "v" version))))
10140        (file-name (git-file-name name version))
10141        (sha256
10142         (base32 "1l5k131dchbf6cj8a8xqa731790p01p3qa1kdy2wa9dawy3ymkxr"))))
10143     (build-system asdf-build-system/sbcl)
10144     (native-inputs
10145      `(("lisp-unit" ,sbcl-lisp-unit)))
10146     (inputs
10147      `(("zpng" ,sbcl-zpng)))
10148     (synopsis "QR code encoder for Common Lisp")
10149     (description
10150      "This Common Lisp library provides function to make QR codes and to save
10151 them as PNG files.")
10152     (home-page "https://github.com/jnjcc/cl-qrencode")
10153     (license license:gpl2+)))
10154
10155 (define-public cl-qrencode
10156   (sbcl-package->cl-source-package sbcl-cl-qrencode))
10157
10158 (define-public ecl-cl-qrencode
10159   (sbcl-package->ecl-package sbcl-cl-qrencode))