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 Nikita <nikita@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, 2020 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 ;;; Copyright © 2020 Konrad Hinsen <konrad.hinsen@fastmail.net>
  20 ;;; Copyright © 2020 Dimakis Dimakakos <me@bendersteed.tech>
  21 ;;; Copyright © 2020 Oleg Pykhalov <go.wigust@gmail.com>
  22 ;;;
  23 ;;; This file is part of GNU Guix.
  24 ;;;
  25 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  26 ;;; under the terms of the GNU General Public License as published by
  27 ;;; the Free Software Foundation; either version 3 of the License, or (at
  28 ;;; your option) any later version.
  29 ;;;
  30 ;;; GNU Guix is distributed in the hope that it will be useful, but
  31 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  32 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  33 ;;; GNU General Public License for more details.
  34 ;;;
  35 ;;; You should have received a copy of the GNU General Public License
  36 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  37
  38 ;;; This file only contains Common Lisp libraries.
  39 ;;; Common Lisp compilers and tooling go to lisp.scm.
  40 ;;; Common Lisp applications should go to the most appropriate file,
  41 ;;; e.g. StumpWM is in wm.scm.
  42
  43 (define-module (gnu packages lisp-xyz)
  44   #:use-module (gnu packages)
  45   #:use-module ((guix licenses) #:prefix license:)
  46   #:use-module (guix packages)
  47   #:use-module (guix download)
  48   #:use-module (guix git-download)
  49   #:use-module (guix hg-download)
  50   #:use-module (guix utils)
  51   #:use-module (guix build-system asdf)
  52   #:use-module (guix build-system trivial)
  53   #:use-module (gnu packages c)
  54   #:use-module (gnu packages compression)
  55   #:use-module (gnu packages databases)
  56   #:use-module (gnu packages enchant)
  57   #:use-module (gnu packages glib)
  58   #:use-module (gnu packages gtk)
  59   #:use-module (gnu packages imagemagick)
  60   #:use-module (gnu packages libevent)
  61   #:use-module (gnu packages libffi)
  62   #:use-module (gnu packages lisp)
  63   #:use-module (gnu packages maths)
  64   #:use-module (gnu packages networking)
  65   #:use-module (gnu packages pkg-config)
  66   #:use-module (gnu packages python)
  67   #:use-module (gnu packages python-xyz)
  68   #:use-module (gnu packages sqlite)
  69   #:use-module (gnu packages tcl)
  70   #:use-module (gnu packages tls)
  71   #:use-module (gnu packages webkit)
  72   #:use-module (gnu packages xdisorg)
  73   #:use-module (ice-9 match)
  74   #:use-module (srfi srfi-19))
  75
  76 (define-public sbcl-alexandria
  77   (let ((commit "5e5c7d83090cc0fbf32c4628362ac3ce2c50dc59"))
  78     (package
  79       (name "sbcl-alexandria")
  80       (version "1.0.1")
  81       (source
  82        (origin
  83          (method git-fetch)
  84          (uri (git-reference
  85                (url "https://gitlab.common-lisp.net/alexandria/alexandria.git")
  86                (commit commit)))
  87          (sha256
  88           (base32
  89            "010w8829dq28jf8ajfzas9nfvpxa5bal04mg299xq6y9spihc2iz"))
  90          (file-name (git-file-name name version))))
  91       (build-system asdf-build-system/sbcl)
  92       (native-inputs
  93        `(("rt" ,sbcl-rt)))
  94       (synopsis "Collection of portable utilities for Common Lisp")
  95       (description
  96        "Alexandria is a collection of portable utilities.  It does not contain
  97 conceptual extensions to Common Lisp.  It is conservative in scope, and
  98 portable between implementations.")
  99       (home-page "https://common-lisp.net/project/alexandria/")
 100       (license license:public-domain))))
 101
 102 (define-public cl-alexandria
 103   (sbcl-package->cl-source-package sbcl-alexandria))
 104
 105 (define-public ecl-alexandria
 106   (sbcl-package->ecl-package sbcl-alexandria))
 107
 108 (define-public sbcl-net.didierverna.asdf-flv
 109   (package
 110     (name "sbcl-net.didierverna.asdf-flv")
 111     (version "2.1")
 112     (source
 113      (origin
 114        (method git-fetch)
 115        (uri (git-reference
 116              (url "https://github.com/didierverna/asdf-flv")
 117              (commit (string-append "version-" version))))
 118        (file-name (git-file-name "asdf-flv" version))
 119        (sha256
 120         (base32 "1fi2y4baxan103jbg4idjddzihy03kwnj2mzbwrknw4d4x7xlgwj"))))
 121     (build-system asdf-build-system/sbcl)
 122     (synopsis "Common Lisp ASDF extension to provide support for file-local variables")
 123     (description "ASDF-FLV provides support for file-local variables through
 124 ASDF.  A file-local variable behaves like @code{*PACKAGE*} and
 125 @code{*READTABLE*} with respect to @code{LOAD} and @code{COMPILE-FILE}: a new
 126 dynamic binding is created before processing the file, so that any
 127 modification to the variable becomes essentially file-local.
 128
 129 In order to make one or several variables file-local, use the macros
 130 @code{SET-FILE-LOCAL-VARIABLE(S)}.")
 131     (home-page "https://www.lrde.epita.fr/~didier/software/lisp/misc.php#asdf-flv")
 132     (license (license:non-copyleft
 133               "https://www.gnu.org/prep/maintain/html_node/License-Notices-for-Other-Files.html"
 134               "GNU All-Permissive License"))))
 135
 136 (define-public cl-net.didierverna.asdf-flv
 137   (sbcl-package->cl-source-package sbcl-net.didierverna.asdf-flv))
 138
 139 (define-public ecl-net.didierverna.asdf-flv
 140   (sbcl-package->ecl-package sbcl-net.didierverna.asdf-flv))
 141
 142 (define-public sbcl-fiveam
 143   (package
 144     (name "sbcl-fiveam")
 145     (version "1.4.1")
 146     (source
 147      (origin
 148        (method git-fetch)
 149        (uri (git-reference
 150              (url "https://github.com/sionescu/fiveam.git")
 151              (commit (string-append "v" version))))
 152        (file-name (git-file-name "fiveam" version))
 153        (sha256
 154         (base32 "1q3d38pwafnwnw42clq0f8g5xw7pbzr287jl9jsqmb1vb0n1vrli"))))
 155     (inputs
 156      `(("alexandria" ,sbcl-alexandria)
 157        ("net.didierverna.asdf-flv" ,sbcl-net.didierverna.asdf-flv)
 158        ("trivial-backtrace" ,sbcl-trivial-backtrace)))
 159     (build-system asdf-build-system/sbcl)
 160     (synopsis "Common Lisp testing framework")
 161     (description "FiveAM is a simple (as far as writing and running tests
 162 goes) regression testing framework.  It has been designed with Common Lisp's
 163 interactive development model in mind.")
 164     (home-page "https://common-lisp.net/project/fiveam/")
 165     (license license:bsd-3)))
 166
 167 (define-public cl-fiveam
 168   (sbcl-package->cl-source-package sbcl-fiveam))
 169
 170 (define-public ecl-fiveam
 171   (sbcl-package->ecl-package sbcl-fiveam))
 172
 173 (define-public sbcl-bordeaux-threads
 174   (package
 175     (name "sbcl-bordeaux-threads")
 176     (version "0.8.7")
 177     (source (origin
 178               (method git-fetch)
 179               (uri (git-reference
 180                     (url "https://github.com/sionescu/bordeaux-threads.git")
 181                     (commit (string-append "v" version))))
 182               (sha256
 183                (base32 "1whpfmyxp2fsw6viqj45fqgsifgr534c575bfh5vaqw5m84b6alp"))
 184               (file-name
 185                (git-file-name "bordeaux-threads" version))))
 186     (inputs `(("alexandria" ,sbcl-alexandria)))
 187     (native-inputs `(("fiveam" ,sbcl-fiveam)))
 188     (build-system asdf-build-system/sbcl)
 189     (synopsis "Portable shared-state concurrency library for Common Lisp")
 190     (description "BORDEAUX-THREADS is a proposed standard for a minimal
 191 MP/Threading interface.  It is similar to the CLIM-SYS threading and lock
 192 support.")
 193     (home-page "https://common-lisp.net/project/bordeaux-threads/")
 194     (license license:x11)))
 195
 196 (define-public cl-bordeaux-threads
 197   (sbcl-package->cl-source-package sbcl-bordeaux-threads))
 198
 199 (define-public ecl-bordeaux-threads
 200   (sbcl-package->ecl-package sbcl-bordeaux-threads))
 201
 202 (define-public sbcl-trivial-gray-streams
 203   (let ((revision "1")
 204         (commit "ebd59b1afed03b9dc8544320f8f432fdf92ab010"))
 205     (package
 206       (name "sbcl-trivial-gray-streams")
 207       (version (string-append "0.0.0-" revision "." (string-take commit 7)))
 208       (source
 209        (origin
 210          (method git-fetch)
 211          (uri
 212           (git-reference
 213            (url "https://github.com/trivial-gray-streams/trivial-gray-streams.git")
 214            (commit commit)))
 215          (sha256
 216           (base32 "0b1pxlccmnagk9cbh4cy8s5k66g3x0gwib5shjwr24xvrji6lp94"))
 217          (file-name
 218           (string-append "trivial-gray-streams-" version "-checkout"))))
 219       (build-system asdf-build-system/sbcl)
 220       (synopsis "Compatibility layer for Gray streams implementations")
 221       (description "Gray streams is an interface proposed for inclusion with
 222 ANSI CL by David N. Gray.  The proposal did not make it into ANSI CL, but most
 223 popular CL implementations implement it.  This package provides an extremely
 224 thin compatibility layer for gray streams.")
 225       (home-page "https://www.cliki.net/trivial-gray-streams")
 226       (license license:x11))))
 227
 228 (define-public cl-trivial-gray-streams
 229   (sbcl-package->cl-source-package sbcl-trivial-gray-streams))
 230
 231 (define-public ecl-trivial-gray-streams
 232   (sbcl-package->ecl-package sbcl-trivial-gray-streams))
 233
 234 (define-public sbcl-fiasco
 235   (let ((commit "d62f7558b21addc89f87e306f65d7f760632655f")
 236         (revision "1"))
 237     (package
 238       (name "sbcl-fiasco")
 239       (version (git-version "0.0.1" revision commit))
 240       (source
 241        (origin
 242          (method git-fetch)
 243          (uri (git-reference
 244                (url "https://github.com/joaotavora/fiasco.git")
 245                (commit commit)))
 246          (file-name (git-file-name "fiasco" version))
 247          (sha256
 248           (base32
 249            "1zwxs3d6iswayavcmb49z2892xhym7n556d8dnmvalc32pm9bkjh"))))
 250       (build-system asdf-build-system/sbcl)
 251       (inputs
 252        `(("alexandria" ,sbcl-alexandria)
 253          ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
 254       (synopsis "Simple and powerful test framework for Common Lisp")
 255       (description "A Common Lisp test framework that treasures your failures,
 256 logical continuation of Stefil.  It focuses on interactive debugging.")
 257       (home-page "https://github.com/joaotavora/fiasco")
 258       ;; LICENCE specifies this is public-domain unless the legislation
 259       ;; doesn't allow or recognize it.  In that case it falls back to a
 260       ;; permissive licence.
 261       (license (list license:public-domain
 262                      (license:x11-style "file://LICENCE"))))))
 263
 264 (define-public cl-fiasco
 265   (sbcl-package->cl-source-package sbcl-fiasco))
 266
 267 (define-public ecl-fiasco
 268   (sbcl-package->ecl-package sbcl-fiasco))
 269
 270 (define-public sbcl-flexi-streams
 271   (package
 272     (name "sbcl-flexi-streams")
 273     (version "1.0.18")
 274     (source
 275      (origin
 276        (method git-fetch)
 277        (uri (git-reference
 278              (url "https://github.com/edicl/flexi-streams.git")
 279              (commit (string-append "v" version))))
 280        (file-name (git-file-name "flexi-streams" version))
 281        (sha256
 282         (base32 "0bjv7fd2acknidc5dyi3h85pn10krxv5jyxs1xg8jya2rlfv7f1j"))))
 283     (build-system asdf-build-system/sbcl)
 284     (arguments
 285      `(#:phases
 286        (modify-phases %standard-phases
 287          (add-after 'unpack 'make-git-checkout-writable
 288            (lambda _
 289              (for-each make-file-writable (find-files "."))
 290              #t)))))
 291     (inputs `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
 292     (synopsis "Implementation of virtual bivalent streams for Common Lisp")
 293     (description "Flexi-streams is an implementation of \"virtual\" bivalent
 294 streams that can be layered atop real binary or bivalent streams and that can
 295 be used to read and write character data in various single- or multi-octet
 296 encodings which can be changed on the fly.  It also supplies in-memory binary
 297 streams which are similar to string streams.")
 298     (home-page "http://weitz.de/flexi-streams/")
 299     (license license:bsd-3)))
 300
 301 (define-public cl-flexi-streams
 302   (sbcl-package->cl-source-package sbcl-flexi-streams))
 303
 304 (define-public ecl-flexi-streams
 305   (sbcl-package->ecl-package sbcl-flexi-streams))
 306
 307 (define-public sbcl-cl-ppcre
 308   (package
 309     (name "sbcl-cl-ppcre")
 310     (version "2.1.1")
 311     (source
 312      (origin
 313        (method git-fetch)
 314        (uri (git-reference
 315              (url "https://github.com/edicl/cl-ppcre.git")
 316              (commit (string-append "v" version))))
 317        (file-name (git-file-name "cl-ppcre" version))
 318        (sha256
 319         (base32 "0dwvr29diqzcg5n6jvbk2rnd90i05l7n828hhw99khmqd0kz7xsi"))))
 320     (build-system asdf-build-system/sbcl)
 321     (native-inputs `(("flexi-streams" ,sbcl-flexi-streams)))
 322     (synopsis "Portable regular expression library for Common Lisp")
 323     (description "CL-PPCRE is a portable regular expression library for Common
 324 Lisp, which is compatible with perl.  It is pretty fast, thread-safe, and
 325 compatible with ANSI-compliant Common Lisp implementations.")
 326     (home-page "http://weitz.de/cl-ppcre/")
 327     (license license:bsd-2)))
 328
 329 (define-public cl-ppcre
 330   (sbcl-package->cl-source-package sbcl-cl-ppcre))
 331
 332 (define-public ecl-cl-ppcre
 333   (sbcl-package->ecl-package sbcl-cl-ppcre))
 334
 335 (define sbcl-cl-unicode-base
 336   (package
 337     (name "sbcl-cl-unicode-base")
 338     (version "0.1.6")
 339     (source (origin
 340               (method git-fetch)
 341               (uri (git-reference
 342                     (url "https://github.com/edicl/cl-unicode.git")
 343                     (commit (string-append "v" version))))
 344               (file-name (git-file-name name version))
 345               (sha256
 346                (base32
 347                 "0ykx2s9lqfl74p1px0ik3l2izd1fc9jd1b4ra68s5x34rvjy0hza"))))
 348     (build-system asdf-build-system/sbcl)
 349     (arguments
 350      '(#:asd-file "cl-unicode.asd"
 351        #:asd-system-name "cl-unicode/base"))
 352     (inputs
 353      `(("cl-ppcre" ,sbcl-cl-ppcre)))
 354     (home-page "http://weitz.de/cl-unicode/")
 355     (synopsis "Portable Unicode library for Common Lisp")
 356     (description "CL-UNICODE is a portable Unicode library Common Lisp, which
 357 is compatible with perl.  It is pretty fast, thread-safe, and compatible with
 358 ANSI-compliant Common Lisp implementations.")
 359     (license license:bsd-2)))
 360
 361 (define-public sbcl-cl-unicode
 362   (package
 363     (inherit sbcl-cl-unicode-base)
 364     (name "sbcl-cl-unicode")
 365     (inputs
 366      `(("cl-unicode/base" ,sbcl-cl-unicode-base)
 367        ,@(package-inputs sbcl-cl-unicode-base)))
 368     (native-inputs
 369      `(("flexi-streams" ,sbcl-flexi-streams)))
 370     (arguments '())))
 371
 372 (define-public ecl-cl-unicode
 373   (sbcl-package->ecl-package sbcl-cl-unicode))
 374
 375 (define-public cl-unicode
 376   (sbcl-package->cl-source-package sbcl-cl-unicode))
 377
 378 (define-public sbcl-zpb-ttf
 379   (package
 380     (name "sbcl-zpb-ttf")
 381     (version "1.0.3")
 382     (source
 383      (origin
 384        (method git-fetch)
 385        (uri (git-reference
 386              (url "https://github.com/xach/zpb-ttf.git")
 387              (commit (string-append "release-" version))))
 388        (file-name (git-file-name name version))
 389        (sha256
 390         (base32
 391          "1wh66vjijzqlydnrihynpwp6796917xwrh0i9li93c17kyxa74ih"))))
 392     (build-system asdf-build-system/sbcl)
 393     (home-page "https://github.com/xach/zpb-ttf")
 394     (synopsis "TrueType font file access for Common Lisp")
 395     (description
 396      "ZPB-TTF is a TrueType font file parser that provides an interface for
 397 reading typographic metrics, glyph outlines, and other information from the
 398 file.")
 399     (license license:bsd-2)))
 400
 401 (define-public ecl-zpb-ttf
 402   (sbcl-package->ecl-package sbcl-zpb-ttf))
 403
 404 (define-public cl-zpb-ttf
 405   (sbcl-package->cl-source-package sbcl-zpb-ttf))
 406
 407 (define-public sbcl-cl-aa
 408   (package
 409     (name "sbcl-cl-aa")
 410     (version "0.1.5")
 411     (source
 412      (origin
 413        (method url-fetch)
 414        (uri (string-append "http://projects.tuxee.net/cl-vectors/"
 415                            "files/cl-vectors-" version ".tar.gz"))
 416        (sha256
 417         (base32
 418          "04lhwi0kq8pkwhgd885pk80m1cp9sfvjjn5zj70s1dnckibhdmqh"))))
 419     (build-system asdf-build-system/sbcl)
 420     (arguments '(#:asd-file "cl-aa.asd"))
 421     (home-page "http://projects.tuxee.net/cl-vectors/")
 422     (synopsis "Polygon rasterizer")
 423     (description
 424      "This is a Common Lisp library implementing the AA polygon rasterization
 425 algorithm from the @url{http://antigrain.com, Antigrain} project.")
 426     (license license:expat)))
 427
 428 (define-public ecl-cl-aa
 429   (sbcl-package->ecl-package sbcl-cl-aa))
 430
 431 (define-public cl-aa
 432   (sbcl-package->cl-source-package sbcl-cl-aa))
 433
 434 (define-public sbcl-cl-paths
 435   (package
 436     (inherit sbcl-cl-aa)
 437     (name "sbcl-cl-paths")
 438     (arguments '(#:asd-file "cl-paths.asd"))
 439     (synopsis "Facilities to create and manipulate vectorial paths")
 440     (description
 441      "This package provides facilities to create and manipulate vectorial
 442 paths.")))
 443
 444 (define-public ecl-cl-paths
 445   (sbcl-package->ecl-package sbcl-cl-paths))
 446
 447 (define-public cl-paths
 448   (sbcl-package->cl-source-package sbcl-cl-paths))
 449
 450 (define-public sbcl-cl-paths-ttf
 451   (package
 452     (inherit sbcl-cl-aa)
 453     (name "sbcl-cl-paths-ttf")
 454     (arguments '(#:asd-file "cl-paths-ttf.asd"))
 455     (inputs
 456      `(("cl-paths" ,sbcl-cl-paths)
 457        ("zpb-ttf" ,sbcl-zpb-ttf)))
 458     (synopsis "Facilities to create and manipulate vectorial paths")
 459     (description
 460      "This package provides facilities to create and manipulate vectorial
 461 paths.")))
 462
 463 (define-public ecl-cl-paths-ttf
 464   (sbcl-package->ecl-package sbcl-cl-paths-ttf))
 465
 466 (define-public cl-paths-ttf
 467   (sbcl-package->cl-source-package sbcl-cl-paths-ttf))
 468
 469 (define-public sbcl-cl-vectors
 470   (package
 471     (inherit sbcl-cl-aa)
 472     (name "sbcl-cl-vectors")
 473     (arguments '(#:asd-file "cl-vectors.asd"))
 474     (inputs
 475      `(("cl-aa" ,sbcl-cl-aa)
 476        ("cl-paths" ,sbcl-cl-paths)))
 477     (synopsis "Create, transform and render anti-aliased vectorial paths")
 478     (description
 479      "This is a pure Common Lisp library to create, transform and render
 480 anti-aliased vectorial paths.")))
 481
 482 (define-public ecl-cl-vectors
 483   (sbcl-package->ecl-package sbcl-cl-vectors))
 484
 485 (define-public cl-vectors
 486   (sbcl-package->cl-source-package sbcl-cl-vectors))
 487
 488 (define-public sbcl-spatial-trees
 489   ;; There have been no releases.
 490   (let ((commit "81fdad0a0bf109c80a53cc96eca2e093823400ba")
 491         (revision "1"))
 492     (package
 493       (name "sbcl-spatial-trees")
 494       (version (git-version "0" revision commit))
 495       (source
 496        (origin
 497          (method git-fetch)
 498          (uri (git-reference
 499                (url "https://github.com/rpav/spatial-trees.git")
 500                (commit commit)))
 501          (file-name (git-file-name name version))
 502          (sha256
 503           (base32
 504            "11rhc6h501dwcik2igkszz7b9n515cr99m5pjh4r2qfwgiri6ysa"))))
 505       (build-system asdf-build-system/sbcl)
 506       (arguments
 507        '(#:tests? #f           ; spatial-trees.test requires spatial-trees.nns
 508          #:asd-file "spatial-trees.asd"
 509          #:test-asd-file "spatial-trees.test.asd"))
 510       (native-inputs
 511        `(("fiveam" ,sbcl-fiveam)))
 512       (home-page "https://github.com/rpav/spatial-trees")
 513       (synopsis "Dynamic index data structures for spatially-extended data")
 514       (description
 515        "Spatial-trees is a set of dynamic index data structures for
 516 spatially-extended data.")
 517       (license license:bsd-3))))
 518
 519 (define-public ecl-spatial-trees
 520   (sbcl-package->ecl-package sbcl-spatial-trees))
 521
 522 (define-public cl-spatial-trees
 523   (sbcl-package->cl-source-package sbcl-spatial-trees))
 524
 525 (define-public sbcl-flexichain
 526   ;; There are no releases.
 527   (let ((commit "13d2a6c505ed0abfcd4c4ec7d7145059b06855d6")
 528         (revision "1"))
 529     (package
 530       (name "sbcl-flexichain")
 531       (version "1.5.1")
 532       (source
 533        (origin
 534          (method git-fetch)
 535          (uri (git-reference
 536                (url "https://github.com/robert-strandh/Flexichain.git")
 537                (commit commit)))
 538          (file-name (git-file-name name version))
 539          (sha256
 540           (base32
 541            "0pfyvhsfbjd2sjb30grfs52r51a428xglv7bwydvpg2lc117qimg"))))
 542       (build-system asdf-build-system/sbcl)
 543       (home-page "https://github.com/robert-strandh/Flexichain.git")
 544       (synopsis "Dynamically add elements to or remove them from sequences")
 545       (description
 546        "This package provides an implementation of the flexichain protocol,
 547 allowing client code to dynamically add elements to, and delete elements from
 548 a sequence (or chain) of such elements.")
 549       (license license:lgpl2.1+))))
 550
 551 (define-public ecl-flexichain
 552   (sbcl-package->ecl-package sbcl-flexichain))
 553
 554 (define-public cl-flexichain
 555   (sbcl-package->cl-source-package sbcl-flexichain))
 556
 557 (define-public sbcl-cl-pdf
 558   ;; There are no releases
 559   (let ((commit "752e337e6d6fc206f09d091a982e7f8e5c404e4e")
 560         (revision "1"))
 561     (package
 562       (name "sbcl-cl-pdf")
 563       (version (git-version "0" revision commit))
 564       (source
 565        (origin
 566          (method git-fetch)
 567          (uri (git-reference
 568                (url "https://github.com/mbattyani/cl-pdf.git")
 569                (commit commit)))
 570          (file-name (git-file-name name version))
 571          (sha256
 572           (base32
 573            "1cg3k3m3r11ipb8j008y8ipynj97l3xjlpi2knqc9ndmx4r3kb1r"))))
 574       (build-system asdf-build-system/sbcl)
 575       (inputs
 576        `(("iterate" ,sbcl-iterate)
 577          ("zpb-ttf" ,sbcl-zpb-ttf)))
 578       (home-page "https://github.com/mbattyani/cl-pdf")
 579       (synopsis "Common Lisp library for generating PDF files")
 580       (description
 581        "CL-PDF is a cross-platform Common Lisp library for generating PDF
 582 files.")
 583       (license license:bsd-2))))
 584
 585 (define-public ecl-cl-pdf
 586   (sbcl-package->ecl-package sbcl-cl-pdf))
 587
 588 (define-public cl-pdf
 589   (sbcl-package->cl-source-package sbcl-cl-pdf))
 590
 591 (define-public sbcl-clx
 592   (package
 593     (name "sbcl-clx")
 594     (version "0.7.5")
 595     (source
 596      (origin
 597        (method git-fetch)
 598        (uri
 599         (git-reference
 600          (url "https://github.com/sharplispers/clx.git")
 601          (commit version)))
 602        (sha256
 603         (base32
 604          "1vi67z9hpj5rr4xcmfbfwzmlcc0ah7hzhrmfid6lqdkva238v2wf"))
 605        (file-name (string-append "clx-" version))))
 606     (build-system asdf-build-system/sbcl)
 607     (native-inputs
 608      `(("fiasco" ,sbcl-fiasco)))
 609     (home-page "https://www.cliki.net/portable-clx")
 610     (synopsis "X11 client library for Common Lisp")
 611     (description "CLX is an X11 client library for Common Lisp.  The code was
 612 originally taken from a CMUCL distribution, was modified somewhat in order to
 613 make it compile and run under SBCL, then a selection of patches were added
 614 from other CLXes around the net.")
 615     (license license:x11)))
 616
 617 (define-public cl-clx
 618   (sbcl-package->cl-source-package sbcl-clx))
 619
 620 (define-public ecl-clx
 621   (sbcl-package->ecl-package sbcl-clx))
 622
 623 (define-public sbcl-clx-truetype
 624   (let ((commit "c6e10a918d46632324d5863a8ed067a83fc26de8")
 625         (revision "1"))
 626     (package
 627       (name "sbcl-clx-truetype")
 628       (version (git-version "0.0.1" revision commit))
 629       (source
 630        (origin
 631          (method git-fetch)
 632          (uri (git-reference
 633                (url "https://github.com/l04m33/clx-truetype")
 634                (commit commit)))
 635          (file-name (git-file-name name version))
 636          (sha256
 637           (base32
 638            "079hyp92cjkdfn6bhkxsrwnibiqbz4y4af6nl31lzw6nm91j5j37"))
 639          (modules '((guix build utils)))
 640          (snippet
 641           '(begin
 642              (substitute* "package.lisp"
 643                ((":export") ":export\n   :+font-cache-filename+"))
 644              #t))))
 645       (build-system asdf-build-system/sbcl)
 646       (inputs
 647        `(("clx" ,sbcl-clx)
 648          ("zpb-ttf" ,sbcl-zpb-ttf)
 649          ("cl-vectors" ,sbcl-cl-vectors)
 650          ("cl-paths-ttf" ,sbcl-cl-paths-ttf)
 651          ("cl-fad" ,sbcl-cl-fad)
 652          ("cl-store" ,sbcl-cl-store)
 653          ("trivial-features" ,sbcl-trivial-features)))
 654       (home-page "https://github.com/l04m33/clx-truetype")
 655       (synopsis "Antialiased TrueType font rendering using CLX and XRender")
 656       (description "CLX-TrueType is pure common lisp solution for
 657 antialiased TrueType font rendering using CLX and XRender extension.")
 658       (license license:expat))))
 659
 660 (define-public sbcl-cl-ppcre-unicode
 661   (package (inherit sbcl-cl-ppcre)
 662     (name "sbcl-cl-ppcre-unicode")
 663     (arguments
 664      `(#:tests? #f ; tests fail with "Component :CL-PPCRE-TEST not found"
 665        #:asd-file "cl-ppcre-unicode.asd"))
 666     (inputs
 667      `(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
 668        ("sbcl-cl-unicode" ,sbcl-cl-unicode)))))
 669
 670 (define-public ecl-cl-ppcre-unicode
 671   (sbcl-package->ecl-package sbcl-cl-ppcre-unicode))
 672
 673 ;; The slynk that users expect to install includes all of slynk's contrib
 674 ;; modules.  Therefore, we build the base module and all contribs first; then
 675 ;; we expose the union of these as `sbcl-slynk'.  The following variable
 676 ;; describes the base module.
 677 (define sbcl-slynk-boot0
 678   (let ((revision "2")
 679         (commit "cbf84c36c4eca8b032e3fd16177a7bc02df3ec4c"))
 680     (package
 681       (name "sbcl-slynk-boot0")
 682       (version (string-append "1.0.0-beta-" revision "." (string-take commit 7)))
 683       (source
 684        (origin
 685          (method git-fetch)
 686          (uri
 687           (git-reference
 688            (url "https://github.com/joaotavora/sly.git")
 689            (commit commit)))
 690          (sha256
 691           (base32 "13dyhsravn591p7g6is01mp2ynzjnnj7pwgi57r6xqmd4611y9vh"))
 692          (file-name (string-append "slynk-" version "-checkout"))
 693          (modules '((guix build utils)
 694                     (ice-9 ftw)))
 695          (snippet
 696           '(begin
 697              ;; Move the contribs into the main source directory for easier
 698              ;; access
 699              (substitute* "slynk/slynk.asd"
 700                (("\\.\\./contrib")
 701                 "contrib")
 702                (("\\(defsystem :slynk/util")
 703                 "(defsystem :slynk/util :depends-on (:slynk)")
 704                ((":depends-on \\(:slynk :slynk/util\\)")
 705                 ":depends-on (:slynk :slynk-util)"))
 706              (substitute* "contrib/slynk-trace-dialog.lisp"
 707                (("\\(slynk::reset-inspector\\)") ; Causes problems on load
 708                 "nil"))
 709              (substitute* "contrib/slynk-profiler.lisp"
 710                (("slynk:to-line")
 711                 "slynk-pprint-to-line"))
 712              (substitute* "contrib/slynk-fancy-inspector.lisp"
 713                (("slynk/util") "slynk-util")
 714                ((":compile-toplevel :load-toplevel") ""))
 715              (rename-file "contrib" "slynk/contrib")
 716              ;; Move slynk's contents into the base directory for easier
 717              ;; access
 718              (for-each (lambda (file)
 719                          (unless (string-prefix? "." file)
 720                            (rename-file (string-append "slynk/" file)
 721                                         (string-append "./" (basename file)))))
 722                        (scandir "slynk"))
 723              #t))))
 724       (build-system asdf-build-system/sbcl)
 725       (arguments
 726        `(#:tests? #f ; No test suite
 727          #:asd-system-name "slynk"))
 728       (synopsis "Common Lisp IDE for Emacs")
 729       (description "SLY is a fork of SLIME, an IDE backend for Common Lisp.
 730 It also features a completely redesigned REPL based on Emacs's own
 731 full-featured comint.el, live code annotations, and a consistent interactive
 732 button interface.  Everything can be copied to the REPL.  One can create
 733 multiple inspectors with independent history.")
 734       (home-page "https://github.com/joaotavora/sly")
 735       (license license:public-domain)
 736       (properties `((cl-source-variant . ,(delay cl-slynk)))))))
 737
 738 (define-public cl-slynk
 739   (package
 740     (inherit (sbcl-package->cl-source-package sbcl-slynk-boot0))
 741     (name "cl-slynk")))
 742
 743 (define ecl-slynk-boot0
 744   (sbcl-package->ecl-package sbcl-slynk-boot0))
 745
 746 (define sbcl-slynk-arglists
 747   (package
 748     (inherit sbcl-slynk-boot0)
 749     (name "sbcl-slynk-arglists")
 750     (inputs `(("slynk" ,sbcl-slynk-boot0)))
 751     (arguments
 752      (substitute-keyword-arguments (package-arguments sbcl-slynk-boot0)
 753        ((#:asd-file _ "") "slynk.asd")
 754        ((#:asd-system-name _ #f) "slynk/arglists")))))
 755
 756 (define ecl-slynk-arglists
 757   (sbcl-package->ecl-package sbcl-slynk-arglists))
 758
 759 (define sbcl-slynk-util
 760   (package
 761     (inherit sbcl-slynk-boot0)
 762     (name "sbcl-slynk-util")
 763     (inputs `(("slynk" ,sbcl-slynk-boot0)))
 764     (arguments
 765      (substitute-keyword-arguments (package-arguments sbcl-slynk-boot0)
 766        ((#:asd-file _ "") "slynk.asd")
 767        ((#:asd-system-name _ #f) "slynk/util")))))
 768
 769 (define ecl-slynk-util
 770   (sbcl-package->ecl-package sbcl-slynk-util))
 771
 772 (define sbcl-slynk-fancy-inspector
 773   (package
 774     (inherit sbcl-slynk-arglists)
 775     (name "sbcl-slynk-fancy-inspector")
 776     (inputs `(("slynk-util" ,sbcl-slynk-util)
 777               ,@(package-inputs sbcl-slynk-arglists)))
 778     (arguments
 779      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 780        ((#:asd-system-name _ #f) "slynk/fancy-inspector")))))
 781
 782 (define ecl-slynk-fancy-inspector
 783   (sbcl-package->ecl-package sbcl-slynk-fancy-inspector))
 784
 785 (define sbcl-slynk-package-fu
 786   (package
 787     (inherit sbcl-slynk-arglists)
 788     (name "sbcl-slynk-package-fu")
 789     (arguments
 790      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 791        ((#:asd-system-name _ #f) "slynk/package-fu")))))
 792
 793 (define ecl-slynk-package-fu
 794   (sbcl-package->ecl-package sbcl-slynk-package-fu))
 795
 796 (define sbcl-slynk-mrepl
 797   (package
 798     (inherit sbcl-slynk-fancy-inspector)
 799     (name "sbcl-slynk-mrepl")
 800     (arguments
 801      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 802        ((#:asd-system-name _ #f) "slynk/mrepl")))))
 803
 804 (define ecl-slynk-mrepl
 805   (sbcl-package->ecl-package sbcl-slynk-mrepl))
 806
 807 (define sbcl-slynk-trace-dialog
 808   (package
 809     (inherit sbcl-slynk-arglists)
 810     (name "sbcl-slynk-trace-dialog")
 811     (arguments
 812      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 813        ((#:asd-system-name _ #f) "slynk/trace-dialog")))))
 814
 815 (define ecl-slynk-trace-dialog
 816   (sbcl-package->ecl-package sbcl-slynk-trace-dialog))
 817
 818 (define sbcl-slynk-profiler
 819   (package
 820     (inherit sbcl-slynk-arglists)
 821     (name "sbcl-slynk-profiler")
 822     (arguments
 823      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 824        ((#:asd-system-name _ #f) "slynk/profiler")))))
 825
 826 (define ecl-slynk-profiler
 827   (sbcl-package->ecl-package sbcl-slynk-profiler))
 828
 829 (define sbcl-slynk-stickers
 830   (package
 831     (inherit sbcl-slynk-arglists)
 832     (name "sbcl-slynk-stickers")
 833     (arguments
 834      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 835        ((#:asd-system-name _ #f) "slynk/stickers")))))
 836
 837 (define ecl-slynk-stickers
 838   (sbcl-package->ecl-package sbcl-slynk-stickers))
 839
 840 (define sbcl-slynk-indentation
 841   (package
 842     (inherit sbcl-slynk-arglists)
 843     (name "sbcl-slynk-indentation")
 844     (arguments
 845      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 846        ((#:asd-system-name _ #f) "slynk/indentation")))))
 847
 848 (define ecl-slynk-indentation
 849   (sbcl-package->ecl-package sbcl-slynk-indentation))
 850
 851 (define sbcl-slynk-retro
 852   (package
 853     (inherit sbcl-slynk-arglists)
 854     (name "sbcl-slynk-retro")
 855     (arguments
 856      (substitute-keyword-arguments (package-arguments sbcl-slynk-arglists)
 857        ((#:asd-system-name _ #f) "slynk/retro")))))
 858
 859 (define ecl-slynk-retro
 860   (sbcl-package->ecl-package sbcl-slynk-retro))
 861
 862 (define slynk-systems
 863   '("slynk"
 864     "slynk-util"
 865     "slynk-arglists"
 866     "slynk-fancy-inspector"
 867     "slynk-package-fu"
 868     "slynk-mrepl"
 869     "slynk-profiler"
 870     "slynk-trace-dialog"
 871     "slynk-stickers"
 872     "slynk-indentation"
 873     "slynk-retro"))
 874
 875 (define-public sbcl-slynk
 876   (package
 877     (inherit sbcl-slynk-boot0)
 878     (name "sbcl-slynk")
 879     (inputs
 880      `(("slynk" ,sbcl-slynk-boot0)
 881        ("slynk-util" ,sbcl-slynk-util)
 882        ("slynk-arglists" ,sbcl-slynk-arglists)
 883        ("slynk-fancy-inspector" ,sbcl-slynk-fancy-inspector)
 884        ("slynk-package-fu" ,sbcl-slynk-package-fu)
 885        ("slynk-mrepl" ,sbcl-slynk-mrepl)
 886        ("slynk-profiler" ,sbcl-slynk-profiler)
 887        ("slynk-trace-dialog" ,sbcl-slynk-trace-dialog)
 888        ("slynk-stickers" ,sbcl-slynk-stickers)
 889        ("slynk-indentation" ,sbcl-slynk-indentation)
 890        ("slynk-retro" ,sbcl-slynk-retro)))
 891     (native-inputs `(("sbcl" ,sbcl)))
 892     (build-system trivial-build-system)
 893     (source #f)
 894     (outputs '("out" "image"))
 895     (arguments
 896      `(#:modules ((guix build union)
 897                   (guix build utils)
 898                   (guix build lisp-utils))
 899        #:builder
 900        (begin
 901          (use-modules (ice-9 match)
 902                       (srfi srfi-1)
 903                       (guix build union)
 904                       (guix build lisp-utils))
 905
 906          (union-build
 907           (assoc-ref %outputs "out")
 908           (filter-map
 909            (match-lambda
 910              ((name . path)
 911               (if (string-prefix? "slynk" name) path #f)))
 912            %build-inputs))
 913
 914          (prepend-to-source-registry
 915           (string-append (assoc-ref %outputs "out") "//"))
 916
 917          (parameterize ((%lisp-type "sbcl")
 918                         (%lisp (string-append (assoc-ref %build-inputs "sbcl")
 919                                               "/bin/sbcl")))
 920            (build-image (string-append
 921                          (assoc-ref %outputs "image")
 922                          "/bin/slynk")
 923                         %outputs
 924                         #:dependencies ',slynk-systems))
 925          #t)))))
 926
 927 (define-public ecl-slynk
 928   (package
 929     (inherit sbcl-slynk)
 930     (name "ecl-slynk")
 931     (inputs
 932      (map (match-lambda
 933             ((name pkg . _)
 934              (list name (sbcl-package->ecl-package pkg))))
 935           (package-inputs sbcl-slynk)))
 936     (native-inputs '())
 937     (outputs '("out"))
 938     (arguments
 939      '(#:modules ((guix build union))
 940        #:builder
 941        (begin
 942          (use-modules (ice-9 match)
 943                       (guix build union))
 944          (match %build-inputs
 945            (((names . paths) ...)
 946             (union-build (assoc-ref %outputs "out")
 947                          paths)
 948             #t)))))))
 949
 950 (define-public sbcl-parse-js
 951   (let ((commit "fbadc6029bec7039602abfc06c73bb52970998f6")
 952         (revision "1"))
 953     (package
 954       (name "sbcl-parse-js")
 955       (version (string-append "0.0.0-" revision "." (string-take commit 9)))
 956       (source
 957        (origin
 958          (method git-fetch)
 959          (uri (git-reference
 960                (url "http://marijn.haverbeke.nl/git/parse-js")
 961                (commit commit)))
 962          (file-name (string-append name "-" commit "-checkout"))
 963          (sha256
 964           (base32
 965            "1wddrnr5kiya5s3gp4cdq6crbfy9fqcz7fr44p81502sj3bvdv39"))))
 966       (build-system asdf-build-system/sbcl)
 967       (home-page "https://marijnhaverbeke.nl/parse-js/")
 968       (synopsis "Parse JavaScript")
 969       (description "Parse-js is a Common Lisp package for parsing
 970 JavaScript (ECMAScript 3).  It has basic support for ECMAScript 5.")
 971       (license license:zlib))))
 972
 973 (define-public cl-parse-js
 974   (sbcl-package->cl-source-package sbcl-parse-js))
 975
 976 (define-public sbcl-parse-number
 977   (package
 978     (name "sbcl-parse-number")
 979     (version "1.7")
 980     (source
 981      (origin
 982        (method git-fetch)
 983        (uri (git-reference
 984               (url "https://github.com/sharplispers/parse-number/")
 985               (commit (string-append "v" version))))
 986        (file-name (git-file-name name version))
 987        (sha256
 988         (base32
 989          "0sk06ib1bhqv9y39vwnnw44vmbc4b0kvqm37xxmkxd4dwchq82d7"))))
 990     (build-system asdf-build-system/sbcl)
 991     (home-page "https://www.cliki.net/PARSE-NUMBER")
 992     (synopsis "Parse numbers")
 993     (description "@code{parse-number} is a library of functions for parsing
 994 strings into one of the standard Common Lisp number types without using the
 995 reader.  @code{parse-number} accepts an arbitrary string and attempts to parse
 996 the string into one of the standard Common Lisp number types, if possible, or
 997 else @code{parse-number} signals an error of type @code{invalid-number}.")
 998     (license license:bsd-3)))
 999
1000 (define-public cl-parse-number
1001   (sbcl-package->cl-source-package sbcl-parse-number))
1002
1003 (define-public sbcl-iterate
1004   (package
1005     (name "sbcl-iterate")
1006     (version "1.5")
1007     (source
1008      (origin
1009        (method url-fetch)
1010        (uri (string-append "https://common-lisp.net/project/iterate/releases/"
1011                            "iterate-" version ".tar.gz"))
1012        (sha256
1013         (base32
1014          "1lqsbhrkfl0yif46aymvb7l3nb9wdcmj4jyw485blj32jb4famzn"))))
1015     (build-system asdf-build-system/sbcl)
1016     (native-inputs
1017      `(("rt" ,sbcl-rt)))
1018     (home-page "https://common-lisp.net/project/iterate/")
1019     (synopsis "Iteration construct for Common Lisp")
1020     (description "@code{iterate} is an iteration construct for Common Lisp.
1021 It is similar to the @code{CL:LOOP} macro, with these distinguishing marks:
1022
1023 @itemize
1024 @item it is extensible,
1025 @item it helps editors like Emacs indent iterate forms by having a more
1026   lisp-like syntax, and
1027 @item it isn't part of the ANSI standard for Common Lisp.
1028 @end itemize\n")
1029     (license license:expat)))
1030
1031 (define-public cl-iterate
1032   (sbcl-package->cl-source-package sbcl-iterate))
1033
1034 (define-public ecl-iterate
1035   (sbcl-package->ecl-package sbcl-iterate))
1036
1037 (define-public sbcl-cl-uglify-js
1038   ;; There have been many bug fixes since the 2010 release.
1039   (let ((commit "429c5e1d844e2f96b44db8fccc92d6e8e28afdd5")
1040         (revision "1"))
1041     (package
1042       (name "sbcl-cl-uglify-js")
1043       (version (string-append "0.1-" revision "." (string-take commit 9)))
1044       (source
1045        (origin
1046          (method git-fetch)
1047          (uri (git-reference
1048                (url "https://github.com/mishoo/cl-uglify-js.git")
1049                (commit commit)))
1050          (file-name (git-file-name name version))
1051          (sha256
1052           (base32
1053            "0k39y3c93jgxpr7gwz7w0d8yknn1fdnxrjhd03057lvk5w8js27a"))))
1054       (build-system asdf-build-system/sbcl)
1055       (inputs
1056        `(("sbcl-parse-js" ,sbcl-parse-js)
1057          ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
1058          ("sbcl-cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
1059          ("sbcl-parse-number" ,sbcl-parse-number)
1060          ("sbcl-iterate" ,sbcl-iterate)))
1061       (home-page "https://github.com/mishoo/cl-uglify-js")
1062       (synopsis "JavaScript compressor library for Common Lisp")
1063       (description "This is a Common Lisp version of UglifyJS, a JavaScript
1064 compressor.  It works on data produced by @code{parse-js} to generate a
1065 @dfn{minified} version of the code.  Currently it can:
1066
1067 @itemize
1068 @item reduce variable names (usually to single letters)
1069 @item join consecutive @code{var} statements
1070 @item resolve simple binary expressions
1071 @item group most consecutive statements using the @code{sequence} operator (comma)
1072 @item remove unnecessary blocks
1073 @item convert @code{IF} expressions in various ways that result in smaller code
1074 @item remove some unreachable code
1075 @end itemize\n")
1076       (license license:zlib))))
1077
1078 (define-public cl-uglify-js
1079   (sbcl-package->cl-source-package sbcl-cl-uglify-js))
1080
1081 (define-public uglify-js
1082   (package
1083     (inherit sbcl-cl-uglify-js)
1084     (name "uglify-js")
1085     (build-system trivial-build-system)
1086     (arguments
1087      `(#:modules ((guix build utils))
1088        #:builder
1089        (let* ((bin    (string-append (assoc-ref %outputs "out") "/bin/"))
1090               (script (string-append bin "uglify-js")))
1091          (use-modules (guix build utils))
1092          (mkdir-p bin)
1093          (with-output-to-file script
1094            (lambda _
1095              (format #t "#!~a/bin/sbcl --script
1096  (require :asdf)
1097  (push (truename \"~a/lib/sbcl\") asdf:*central-registry*)"
1098                      (assoc-ref %build-inputs "sbcl")
1099                      (assoc-ref %build-inputs "sbcl-cl-uglify-js"))
1100              ;; FIXME: cannot use progn here because otherwise it fails to
1101              ;; find cl-uglify-js.
1102              (for-each
1103               write
1104               '(;; Quiet, please!
1105                 (let ((*standard-output* (make-broadcast-stream))
1106                       (*error-output* (make-broadcast-stream)))
1107                   (asdf:load-system :cl-uglify-js))
1108                 (let ((file (cadr *posix-argv*)))
1109                   (if file
1110                       (format t "~a"
1111                               (cl-uglify-js:ast-gen-code
1112                                (cl-uglify-js:ast-mangle
1113                                 (cl-uglify-js:ast-squeeze
1114                                  (with-open-file (in file)
1115                                                  (parse-js:parse-js in))))
1116                                :beautify nil))
1117                       (progn
1118                        (format *error-output*
1119                                "Please provide a JavaScript file.~%")
1120                        (sb-ext:exit :code 1))))))))
1121          (chmod script #o755)
1122          #t)))
1123     (inputs
1124      `(("sbcl" ,sbcl)
1125        ("sbcl-cl-uglify-js" ,sbcl-cl-uglify-js)))
1126     (synopsis "JavaScript compressor")))
1127
1128 (define-public sbcl-cl-strings
1129   (let ((revision "1")
1130         (commit "c5c5cbafbf3e6181d03c354d66e41a4f063f00ae"))
1131     (package
1132       (name "sbcl-cl-strings")
1133       (version (git-version "0.0.0" revision commit))
1134       (source
1135        (origin
1136          (method git-fetch)
1137          (uri (git-reference
1138                (url "https://github.com/diogoalexandrefranco/cl-strings")
1139                (commit commit)))
1140          (sha256
1141           (base32
1142            "00754mfaqallj480lwd346nkfb6ra8pa8xcxcylf4baqn604zlmv"))
1143          (file-name (string-append "cl-strings-" version "-checkout"))))
1144       (build-system asdf-build-system/sbcl)
1145       (synopsis "Portable, dependency-free set of utilities to manipulate strings in Common Lisp")
1146       (description
1147        "@command{cl-strings} is a small, portable, dependency-free set of
1148 utilities that make it even easier to manipulate text in Common Lisp.  It has
1149 100% test coverage and works at least on sbcl, ecl, ccl, abcl and clisp.")
1150       (home-page "https://github.com/diogoalexandrefranco/cl-strings")
1151       (license license:expat))))
1152
1153 (define-public cl-strings
1154   (sbcl-package->cl-source-package sbcl-cl-strings))
1155
1156 (define-public ecl-cl-strings
1157   (sbcl-package->ecl-package sbcl-cl-strings))
1158
1159 (define-public sbcl-trivial-features
1160   ;; No release since 2014.
1161   (let ((commit "870d03de0ed44067963350936856e17ee725153e"))
1162     (package
1163       (name "sbcl-trivial-features")
1164       (version (git-version "0.8" "1" commit))
1165       (source
1166        (origin
1167          (method git-fetch)
1168          (uri (git-reference
1169                (url "https://github.com/trivial-features/trivial-features.git")
1170                (commit commit)))
1171          (file-name (git-file-name "trivial-features" version))
1172          (sha256
1173           (base32 "14pcahr8r2j3idhyy216zyw8jnj1dnrx0qbkkbdqkvwzign1ah4j"))))
1174       (build-system asdf-build-system/sbcl)
1175       (arguments '(#:tests? #f))
1176       (home-page "https://cliki.net/trivial-features")
1177       (synopsis "Ensures consistency of @code{*FEATURES*} in Common Lisp")
1178       (description "Trivial-features ensures that @code{*FEATURES*} is
1179 consistent across multiple Common Lisp implementations.")
1180       (license license:expat))))
1181
1182 (define-public cl-trivial-features
1183   (sbcl-package->cl-source-package sbcl-trivial-features))
1184
1185 (define-public ecl-trivial-features
1186   (sbcl-package->ecl-package sbcl-trivial-features))
1187
1188 (define-public sbcl-hu.dwim.asdf
1189   (package
1190     (name "sbcl-hu.dwim.asdf")
1191     (version "20190521")
1192     (source
1193      (origin
1194        (method url-fetch)
1195        (uri (string-append "http://beta.quicklisp.org/archive/hu.dwim.asdf/"
1196                            "2019-05-21/hu.dwim.asdf-" version "-darcs.tgz"))
1197        (sha256
1198         (base32
1199          "0rsbv71vyszy8w35yjwb5h6zcmknjq223hkzir79y72qdsc6sabn"))))
1200     (build-system asdf-build-system/sbcl)
1201     (home-page "https://hub.darcs.net/hu.dwim/hu.dwim.asdf")
1202     (synopsis "Extensions to ASDF")
1203     (description "Various ASDF extensions such as attached test and
1204 documentation system, explicit development support, etc.")
1205     (license license:public-domain)))
1206
1207 (define-public cl-hu.dwim.asdf
1208   (sbcl-package->cl-source-package sbcl-hu.dwim.asdf))
1209
1210 (define-public ecl-hu.dwim.asdf
1211   (sbcl-package->ecl-package sbcl-hu.dwim.asdf))
1212
1213 (define-public sbcl-hu.dwim.stefil
1214   (let ((commit "ab6d1aa8995878a1b66d745dfd0ba021090bbcf9"))
1215     (package
1216       (name "sbcl-hu.dwim.stefil")
1217       (version (git-version "0.0.0" "1" commit))
1218       (source
1219        (origin
1220          (method git-fetch)
1221          (uri
1222           (git-reference
1223            (url "https://gitlab.common-lisp.net/xcvb/hu.dwim.stefil.git")
1224            (commit commit)))
1225          (sha256
1226           (base32 "1d8yccw65zj3zh46cbi3x6nmn1dwdb76s9d0av035077mvyirqqp"))
1227          (file-name (git-file-name "hu.dwim.stefil" version))))
1228       (build-system asdf-build-system/sbcl)
1229       (native-inputs
1230        `(("asdf:cl-hu.dwim.asdf" ,sbcl-hu.dwim.asdf)))
1231       (inputs
1232        `(("sbcl-alexandria" ,sbcl-alexandria)))
1233       (home-page "https://hub.darcs.net/hu.dwim/hu.dwim.stefil")
1234       (synopsis "Simple test framework")
1235       (description "Stefil is a simple test framework for Common Lisp,
1236 with a focus on interactive development.")
1237       (license license:public-domain))))
1238
1239 (define-public cl-hu.dwim.stefil
1240   (sbcl-package->cl-source-package sbcl-hu.dwim.stefil))
1241
1242 (define-public ecl-hu.dwim.stefil
1243   (sbcl-package->ecl-package sbcl-hu.dwim.stefil))
1244
1245 (define-public sbcl-babel
1246   ;; No release since 2014.
1247   (let ((commit "aeed2d1b76358db48e6b70a64399c05678a6b9ea"))
1248     (package
1249       (name "sbcl-babel")
1250       (version (git-version "0.5.0" "1" commit))
1251       (source
1252        (origin
1253          (method git-fetch)
1254          (uri (git-reference
1255                (url "https://github.com/cl-babel/babel.git")
1256                (commit commit)))
1257          (file-name (git-file-name "babel" version))
1258          (sha256
1259           (base32 "0lkvv4xdpv4cv1y2bqillmabx8sdb2y4l6pbinq6mjh33w2brpvb"))))
1260       (build-system asdf-build-system/sbcl)
1261       (native-inputs
1262        `(("tests:cl-hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
1263       (inputs
1264        `(("sbcl-alexandria" ,sbcl-alexandria)
1265          ("sbcl-trivial-features" ,sbcl-trivial-features)))
1266       (home-page "https://common-lisp.net/project/babel/")
1267       (synopsis "Charset encoding and decoding library")
1268       (description "Babel is a charset encoding and decoding library, not unlike
1269 GNU libiconv, but completely written in Common Lisp.")
1270       (license license:expat))))
1271
1272 (define-public cl-babel
1273   (sbcl-package->cl-source-package sbcl-babel))
1274
1275 (define-public ecl-babel
1276   (sbcl-package->ecl-package sbcl-babel))
1277
1278 (define-public sbcl-cl-yacc
1279   (package
1280     (name "sbcl-cl-yacc")
1281     (version "0.3")
1282     (source
1283      (origin
1284        (method git-fetch)
1285        (uri (git-reference
1286              (url "https://github.com/jech/cl-yacc")
1287              (commit (string-append "cl-yacc-" version))))
1288        (sha256
1289         (base32
1290          "16946pzf8vvadnyfayvj8rbh4zjzw90h0azz2qk1mxrvhh5wklib"))
1291        (file-name (string-append "cl-yacc-" version "-checkout"))))
1292     (build-system asdf-build-system/sbcl)
1293     (arguments
1294      `(#:asd-file "yacc.asd"
1295        #:asd-system-name "yacc"))
1296     (synopsis "LALR(1) parser generator for Common Lisp, similar in spirit to Yacc")
1297     (description
1298      "CL-Yacc is a LALR(1) parser generator for Common Lisp, similar in spirit
1299 to AT&T Yacc, Berkeley Yacc, GNU Bison, Zebu, lalr.cl or lalr.scm.
1300
1301 CL-Yacc uses the algorithm due to Aho and Ullman, which is the one also used
1302 by AT&T Yacc, Berkeley Yacc and Zebu.  It does not use the faster algorithm due
1303 to DeRemer and Pennello, which is used by Bison and lalr.scm (not lalr.cl).")
1304     (home-page "https://www.irif.fr/~jch//software/cl-yacc/")
1305     (license license:expat)))
1306
1307 (define-public cl-yacc
1308   (sbcl-package->cl-source-package sbcl-cl-yacc))
1309
1310 (define-public ecl-cl-yacc
1311   (sbcl-package->ecl-package sbcl-cl-yacc))
1312
1313 (define-public sbcl-jpl-util
1314   (let ((commit "0311ed374e19a49d43318064d729fe3abd9a3b62"))
1315     (package
1316       (name "sbcl-jpl-util")
1317       (version "20151005")
1318       (source
1319        (origin
1320          (method git-fetch)
1321          (uri (git-reference
1322                ;; Quicklisp uses this fork.
1323                (url "https://github.com/hawkir/cl-jpl-util")
1324                (commit commit)))
1325          (file-name
1326           (git-file-name "jpl-util" version))
1327          (sha256
1328           (base32
1329            "0nc0rk9n8grkg3045xsw34whmcmddn2sfrxki4268g7kpgz0d2yz"))))
1330       (build-system asdf-build-system/sbcl)
1331       (synopsis "Collection of Common Lisp utility functions and macros")
1332       (description
1333        "@command{cl-jpl-util} is a collection of Common Lisp utility functions
1334 and macros, primarily for software projects written in CL by the author.")
1335       (home-page "https://www.thoughtcrime.us/software/cl-jpl-util/")
1336       (license license:isc))))
1337
1338 (define-public cl-jpl-util
1339   (sbcl-package->cl-source-package sbcl-jpl-util))
1340
1341 (define-public ecl-jpl-util
1342   (sbcl-package->ecl-package sbcl-jpl-util))
1343
1344 (define-public sbcl-jpl-queues
1345   (package
1346     (name "sbcl-jpl-queues")
1347     (version "0.1")
1348     (source
1349      (origin
1350        (method url-fetch)
1351        (uri (string-append
1352              "http://www.thoughtcrime.us/software/jpl-queues/jpl-queues-"
1353              version
1354              ".tar.gz"))
1355        (sha256
1356         (base32
1357          "1wvvv7j117h9a42qaj1g4fh4mji28xqs7s60rn6d11gk9jl76h96"))))
1358     (build-system asdf-build-system/sbcl)
1359     (inputs
1360      `(("jpl-util" ,sbcl-jpl-util)
1361        ("bordeaux-threads" ,sbcl-bordeaux-threads)))
1362     (arguments
1363      ;; Tests seem to be broken.
1364      `(#:tests? #f))
1365     (synopsis "Common Lisp library implementing a few different kinds of queues")
1366     (description
1367      "A Common Lisp library implementing a few different kinds of queues:
1368
1369 @itemize
1370 @item Bounded and unbounded FIFO queues.
1371 @item Lossy bounded FIFO queues that drop elements when full.
1372 @item Unbounded random-order queues that use less memory than unbounded FIFO queues.
1373 @end itemize
1374
1375 Additionally, a synchronization wrapper is provided to make any queue
1376 conforming to the @command{jpl-queues} API thread-safe for lightweight
1377 multithreading applications.  (See Calispel for a more sophisticated CL
1378 multithreaded message-passing library with timeouts and alternation among
1379 several blockable channels.)")
1380     (home-page "https://www.thoughtcrime.us/software/jpl-queues/")
1381     (license license:isc)))
1382
1383 (define-public cl-jpl-queues
1384   (sbcl-package->cl-source-package sbcl-jpl-queues))
1385
1386 (define-public ecl-jpl-queues
1387   (sbcl-package->ecl-package sbcl-jpl-queues))
1388
1389 (define-public sbcl-eos
1390   (let ((commit "b0faca83781ead9a588661e37bd47f90362ccd94"))
1391     (package
1392       (name "sbcl-eos")
1393       (version (git-version "0.0.0" "1" commit))
1394       (source
1395        (origin
1396          (method git-fetch)
1397          (uri (git-reference
1398                (url "https://github.com/adlai/Eos")
1399                (commit commit)))
1400          (sha256
1401           (base32
1402            "1bq8cfg087iyxmxi1mwgx5cfgy3b8ydrf81xljcis8qbgb2vszph"))
1403          (file-name (git-file-name "eos" version))))
1404       (build-system asdf-build-system/sbcl)
1405       (synopsis "Unit Testing for Common Lisp")
1406       (description
1407        "Eos was a unit testing library for Common Lisp.
1408 It began as a fork of FiveAM; however, FiveAM development has continued, while
1409 that of Eos has not.  Thus, Eos is now deprecated in favor of FiveAM.")
1410       (home-page "https://github.com/adlai/Eos")
1411       (license license:expat))))
1412
1413 (define-public cl-eos
1414   (sbcl-package->cl-source-package sbcl-eos))
1415
1416 (define-public ecl-eos
1417   (sbcl-package->ecl-package sbcl-eos))
1418
1419 (define-public sbcl-esrap
1420   (let ((commit "133be8b05c2aae48696fe5b739eea2fa573fa48d"))
1421     (package
1422       (name "sbcl-esrap")
1423       (version (git-version "0.0.0" "1" commit))
1424       (source
1425        (origin
1426          (method git-fetch)
1427          (uri (git-reference
1428                (url "https://github.com/nikodemus/esrap")
1429                (commit commit)))
1430          (sha256
1431           (base32
1432            "02d5clihsdryhf7pix8c5di2571fdsffh75d40fkzhws90r5mksl"))
1433          (file-name (git-file-name "esrap" version))))
1434       (build-system asdf-build-system/sbcl)
1435       (native-inputs
1436        `(("eos" ,sbcl-eos)))            ;For testing only.
1437       (inputs
1438        `(("alexandria" ,sbcl-alexandria)))
1439       (synopsis "Common Lisp packrat parser")
1440       (description
1441        "A packrat parser for Common Lisp.
1442 In addition to regular Packrat / Parsing Grammar / TDPL features ESRAP supports:
1443
1444 @itemize
1445 @item dynamic redefinition of nonterminals
1446 @item inline grammars
1447 @item semantic predicates
1448 @item introspective facilities (describing grammars, tracing, setting breaks)
1449 @end itemize\n")
1450       (home-page "https://nikodemus.github.io/esrap/")
1451       (license license:expat))))
1452
1453 (define-public cl-esrap
1454   (sbcl-package->cl-source-package sbcl-esrap))
1455
1456 (define-public ecl-esrap
1457   (sbcl-package->ecl-package sbcl-esrap))
1458
1459 (define-public sbcl-split-sequence
1460   (package
1461     (name "sbcl-split-sequence")
1462     (version "2.0.0")
1463     (source
1464      (origin
1465        (method git-fetch)
1466        (uri (git-reference
1467              (url "https://github.com/sharplispers/split-sequence")
1468              (commit (string-append "v" version))))
1469        (sha256
1470         (base32
1471          "0jcpnx21hkfwqj5fvp7kc6pn1qcz9hk7g2s5x8h0349x1j2irln0"))
1472        (file-name (git-file-name "split-sequence" version))))
1473     (build-system asdf-build-system/sbcl)
1474     (native-inputs
1475      `(("fiveam" ,sbcl-fiveam)))
1476     (synopsis "Member of the Common Lisp Utilities family of programs")
1477     (description
1478      "Splits sequence into a list of subsequences delimited by objects
1479 satisfying the test.")
1480     (home-page "https://cliki.net/split-sequence")
1481     (license license:expat)))
1482
1483 (define-public cl-split-sequence
1484   (sbcl-package->cl-source-package sbcl-split-sequence))
1485
1486 (define-public ecl-split-sequence
1487   (sbcl-package->ecl-package sbcl-split-sequence))
1488
1489 (define-public sbcl-html-encode
1490   (package
1491     (name "sbcl-html-encode")
1492     (version "1.2")
1493     (source
1494      (origin
1495        (method url-fetch)
1496        (uri (string-append
1497              "http://beta.quicklisp.org/archive/html-encode/2010-10-06/html-encode-"
1498              version ".tgz"))
1499        (sha256
1500         (base32
1501          "06mf8wn95yf5swhmzk4vp0xr4ylfl33dgfknkabbkd8n6jns8gcf"))
1502        (file-name (string-append "colorize" version "-checkout"))))
1503     (build-system asdf-build-system/sbcl)
1504     (synopsis "Common Lisp library for encoding text in various web-savvy encodings")
1505     (description
1506      "A library for encoding text in various web-savvy encodings.")
1507     (home-page "http://quickdocs.org/html-encode/")
1508     (license license:expat)))
1509
1510 (define-public cl-html-encode
1511   (sbcl-package->cl-source-package sbcl-html-encode))
1512
1513 (define-public ecl-html-encode
1514   (sbcl-package->ecl-package sbcl-html-encode))
1515
1516 (define-public sbcl-colorize
1517   (let ((commit "ea676b584e0899cec82f21a9e6871172fe3c0eb5"))
1518     (package
1519       (name "sbcl-colorize")
1520       (version (git-version "0.0.0" "1" commit))
1521       (source
1522        (origin
1523          (method git-fetch)
1524          (uri (git-reference
1525                (url "https://github.com/kingcons/colorize")
1526                (commit commit)))
1527          (sha256
1528           (base32
1529            "1pdg4kiaczmr3ivffhirp7m3lbr1q27rn7dhaay0vwghmi31zcw9"))
1530          (file-name (git-file-name "colorize" version))))
1531       (build-system asdf-build-system/sbcl)
1532       (inputs
1533        `(("alexandria" ,sbcl-alexandria)
1534          ("split-sequence" ,sbcl-split-sequence)
1535          ("html-encode" ,sbcl-html-encode)))
1536       (synopsis "Common Lisp for syntax highlighting")
1537       (description
1538        "@command{colorize} is a Lisp library for syntax highlighting
1539 supporting the following languages: Common Lisp, Emacs Lisp, Scheme, Clojure,
1540 C, C++, Java, Python, Erlang, Haskell, Objective-C, Diff, Webkit.")
1541       (home-page "https://github.com/kingcons/colorize")
1542       ;; TODO: Missing license?
1543       (license license:expat))))
1544
1545 (define-public cl-colorize
1546   (sbcl-package->cl-source-package sbcl-colorize))
1547
1548 (define-public ecl-colorize
1549   (sbcl-package->ecl-package sbcl-colorize))
1550
1551 (define-public sbcl-3bmd
1552   (let ((commit "192ea13435b605a96ef607df51317056914cabbd"))
1553     (package
1554       (name "sbcl-3bmd")
1555       (version (git-version "0.0.0" "1" commit))
1556       (source
1557        (origin
1558          (method git-fetch)
1559          (uri (git-reference
1560                (url "https://github.com/3b/3bmd")
1561                (commit commit)))
1562          (sha256
1563           (base32
1564            "1rgv3gi7wf963ikmmpk132wgn0icddf226gq3bmcnk1fr3v9gf2f"))
1565          (file-name (git-file-name "3bmd" version))))
1566       (build-system asdf-build-system/sbcl)
1567       (arguments
1568        ;; FIXME: We need to specify the name because the build-system thinks
1569        ;; "3" is a version marker.
1570        `(#:asd-system-name "3bmd"))
1571       (inputs
1572        `(("esrap" ,sbcl-esrap)
1573          ("split-sequence" ,sbcl-split-sequence)))
1574       (synopsis "Markdown processor in Command Lisp using esrap parser")
1575       (description
1576        "Common Lisp Markdown -> HTML converter, using @command{esrap} for
1577 parsing, and grammar based on @command{peg-markdown}.")
1578       (home-page "https://github.com/3b/3bmd")
1579       (license license:expat))))
1580
1581 (define-public cl-3bmd
1582   (sbcl-package->cl-source-package sbcl-3bmd))
1583
1584 (define-public ecl-3bmd
1585   (sbcl-package->ecl-package sbcl-3bmd))
1586
1587 (define-public sbcl-3bmd-ext-code-blocks
1588   (let ((commit "192ea13435b605a96ef607df51317056914cabbd"))
1589     (package
1590       (inherit sbcl-3bmd)
1591       (name "sbcl-3bmd-ext-code-blocks")
1592       (arguments
1593        `(#:asd-system-name "3bmd-ext-code-blocks"
1594          #:asd-file "3bmd-ext-code-blocks.asd"))
1595       (inputs
1596        `(("3bmd" ,sbcl-3bmd)
1597          ("colorize" ,sbcl-colorize)))
1598       (synopsis "3bmd extension which adds support for GitHub-style fenced
1599 code blocks")
1600       (description
1601        "3bmd extension which adds support for GitHub-style fenced code blocks,
1602 with @command{colorize} support."))))
1603
1604 (define-public cl-3bmd-ext-code-blocks
1605   (sbcl-package->cl-source-package sbcl-3bmd-ext-code-blocks))
1606
1607 (define-public ecl-3bmd-ext-code-blocks
1608   (sbcl-package->ecl-package sbcl-3bmd-ext-code-blocks))
1609
1610 (define-public sbcl-cl-fad
1611   (package
1612     (name "sbcl-cl-fad")
1613     (version "0.7.6")
1614     (source
1615      (origin
1616        (method git-fetch)
1617        (uri (git-reference
1618              (url "https://github.com/edicl/cl-fad/")
1619              (commit (string-append "v" version))))
1620        (sha256
1621         (base32
1622          "1gc8i82v6gks7g0lnm54r4prk2mklidv2flm5fvbr0a7rsys0vpa"))
1623        (file-name (string-append "cl-fad" version "-checkout"))))
1624     (build-system asdf-build-system/sbcl)
1625     (inputs
1626      `(("bordeaux-threads" ,sbcl-bordeaux-threads)))
1627     (synopsis "Portable pathname library for Common Lisp")
1628     (description
1629      "CL-FAD (for \"Files and Directories\") is a thin layer atop Common
1630 Lisp's standard pathname functions.  It is intended to provide some
1631 unification between current CL implementations on Windows, OS X, Linux, and
1632 Unix.  Most of the code was written by Peter Seibel for his book Practical
1633 Common Lisp.")
1634     (home-page "https://edicl.github.io/cl-fad/")
1635     (license license:bsd-2)))
1636
1637 (define-public cl-fad
1638   (sbcl-package->cl-source-package sbcl-cl-fad))
1639
1640 (define-public ecl-cl-fad
1641   (sbcl-package->ecl-package sbcl-cl-fad))
1642
1643 (define-public sbcl-rt
1644   (let ((commit "a6a7503a0b47953bc7579c90f02a6dba1f6e4c5a")
1645         (revision "1"))
1646     (package
1647       (name "sbcl-rt")
1648       (version (git-version "1990.12.19" revision commit))
1649       (source
1650        (origin
1651          (method git-fetch)
1652          (uri (git-reference
1653                (url "http://git.kpe.io/rt.git")
1654                (commit commit)))
1655          (file-name (git-file-name name version))
1656          (sha256
1657           (base32 "13si2rrxaagbr0bkvg6sqicxxpyshabx6ad6byc9n2ik5ysna69b"))))
1658       (build-system asdf-build-system/sbcl)
1659       (synopsis "MIT Regression Tester")
1660       (description
1661        "RT provides a framework for writing regression test suites.")
1662       (home-page "https://www.cliki.net/rt")
1663       (license license:expat))))
1664
1665 (define-public cl-rt
1666   (sbcl-package->cl-source-package sbcl-rt))
1667
1668 (define-public ecl-rt
1669   (sbcl-package->ecl-package sbcl-rt))
1670
1671 (define-public sbcl-nibbles
1672   (package
1673     (name "sbcl-nibbles")
1674     (version "0.14")
1675     (source
1676      (origin
1677        (method git-fetch)
1678        (uri (git-reference
1679              (url "https://github.com/sharplispers/nibbles/")
1680              (commit (string-append "v" version))))
1681        (sha256
1682         (base32
1683          "1v7qfgpvdr6nz7v63dj69d26dis0kff3rd8xamr1llfdvza2pm8f"))
1684        (file-name (git-file-name "nibbles" version))))
1685     (build-system asdf-build-system/sbcl)
1686     (native-inputs
1687      ;; Tests only.
1688      `(("rt" ,sbcl-rt)))
1689     (synopsis "Common Lisp library for accessing octet-addressed blocks of data")
1690     (description
1691      "When dealing with network protocols and file formats, it's common to
1692 have to read or write 16-, 32-, or 64-bit datatypes in signed or unsigned
1693 flavors.  Common Lisp sort of supports this by specifying :element-type for
1694 streams, but that facility is underspecified and there's nothing similar for
1695 read/write from octet vectors.  What most people wind up doing is rolling their
1696 own small facility for their particular needs and calling it a day.
1697
1698 This library attempts to be comprehensive and centralize such
1699 facilities.  Functions to read 16-, 32-, and 64-bit quantities from octet
1700 vectors in signed or unsigned flavors are provided; these functions are also
1701 SETFable.  Since it's sometimes desirable to read/write directly from streams,
1702 functions for doing so are also provided.  On some implementations,
1703 reading/writing IEEE singles/doubles (i.e. single-float and double-float) will
1704 also be supported.")
1705     (home-page "https://github.com/sharplispers/nibbles")
1706     (license license:bsd-3)))
1707
1708 (define-public cl-nibbles
1709   (sbcl-package->cl-source-package sbcl-nibbles))
1710
1711 (define-public ecl-nibbles
1712   (sbcl-package->ecl-package sbcl-nibbles))
1713
1714 (define-public sbcl-ironclad
1715   (package
1716     (name "sbcl-ironclad")
1717     (version "0.49")
1718     (source
1719      (origin
1720        (method git-fetch)
1721        (uri (git-reference
1722              (url "https://github.com/sharplispers/ironclad/")
1723              (commit (string-append "v" version))))
1724        (sha256
1725         (base32 "0kbzqg2aasrhjwy3nrzy2ddy809n1j045w4qkyc3r2syqd203d4q"))
1726        (file-name (git-file-name name version))))
1727     (build-system asdf-build-system/sbcl)
1728     (native-inputs
1729      ;; Tests only.
1730      `(("rt" ,sbcl-rt)))
1731     (inputs
1732      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
1733        ("flexi-streams" ,sbcl-flexi-streams)
1734        ("trivial-garbage" ,sbcl-trivial-garbage)))
1735     (synopsis "Cryptographic toolkit written in Common Lisp")
1736     (description
1737      "Ironclad is a cryptography library written entirely in Common Lisp.
1738 It includes support for several popular ciphers, digests, MACs and public key
1739 cryptography algorithms.  For several implementations that support Gray
1740 streams, support is included for convenient stream wrappers.")
1741     (home-page "https://github.com/sharplispers/ironclad")
1742     (license license:bsd-3)))
1743
1744 (define-public cl-ironclad
1745   (sbcl-package->cl-source-package sbcl-ironclad))
1746
1747 (define-public ecl-ironclad
1748   (sbcl-package->ecl-package sbcl-ironclad))
1749
1750 (define-public sbcl-named-readtables
1751   (let ((commit "64bd53f37a1694cfde48fc38b8f03901f6f0c05b")
1752         (revision "2"))
1753     (package
1754       (name "sbcl-named-readtables")
1755       (version (git-version "0.9" revision commit))
1756       (source
1757        (origin
1758          (method git-fetch)
1759          (uri (git-reference
1760                (url "https://github.com/melisgl/named-readtables.git")
1761                (commit commit)))
1762          (sha256
1763           (base32 "01l4831m7k84qvhzyx0qgdl50isr4zmp40qf6dfq2iqcaj8y4h3n"))
1764          (file-name (git-file-name "named-readtables" version))))
1765       (build-system asdf-build-system/sbcl)
1766       (arguments
1767        ;; Tests seem to be broken.
1768        `(#:tests? #f))
1769       (home-page "https://github.com/melisgl/named-readtables/")
1770       (synopsis "Library that creates a namespace for named readtables")
1771       (description "Named readtables is a library that creates a namespace for
1772 named readtables, which is akin to package namespacing in Common Lisp.")
1773       (license license:bsd-3))))
1774
1775 (define-public cl-named-readtables
1776   (sbcl-package->cl-source-package sbcl-named-readtables))
1777
1778 (define-public ecl-named-readtables
1779   (sbcl-package->ecl-package sbcl-named-readtables))
1780
1781 (define-public sbcl-pythonic-string-reader
1782   (let ((commit "47a70ba1e32362e03dad6ef8e6f36180b560f86a"))
1783     (package
1784       (name "sbcl-pythonic-string-reader")
1785       (version (git-version "0.0.0" "1" commit))
1786       (source
1787        (origin
1788          (method git-fetch)
1789          (uri (git-reference
1790                (url "https://github.com/smithzvk/pythonic-string-reader/")
1791                (commit commit)))
1792          (sha256
1793           (base32 "1b5iryqw8xsh36swckmz8rrngmc39k92si33fgy5pml3n9l5rq3j"))
1794          (file-name (git-file-name "pythonic-string-reader" version))))
1795       (build-system asdf-build-system/sbcl)
1796       (inputs
1797        `(("named-readtables" ,sbcl-named-readtables)))
1798       (home-page "https://github.com/smithzvk/pythonic-string-reader")
1799       (synopsis "Read table modification inspired by Python's three quote strings")
1800       (description "This piece of code sets up some reader macros that make it
1801 simpler to input string literals which contain backslashes and double quotes
1802 This is very useful for writing complicated docstrings and, as it turns out,
1803 writing code that contains string literals that contain code themselves.")
1804       (license license:bsd-3))))
1805
1806 (define-public cl-pythonic-string-reader
1807   (sbcl-package->cl-source-package sbcl-pythonic-string-reader))
1808
1809 (define-public ecl-pythonic-string-reader
1810   (sbcl-package->ecl-package sbcl-pythonic-string-reader))
1811
1812 ;; SLIME does not have a ASDF system definition to build all of Swank.  As a
1813 ;; result, the asdf-build-system/sbcl will produce an almost empty package.
1814 ;; Some work was done to fix this at
1815 ;; https://github.com/sionescu/slime/tree/swank-asdf but it was never merged
1816 ;; and is now lagging behind.  Building SBCL fasls might not be worth the
1817 ;; hassle, so let's just ship the source then.
1818 (define-public cl-slime-swank
1819   (package
1820     (name "cl-slime-swank")
1821     (version "2.24")
1822     (source
1823      (origin
1824        (file-name (string-append name "-" version ".tar.gz"))
1825        (method git-fetch)
1826        (uri (git-reference
1827              (url "https://github.com/slime/slime/")
1828              (commit (string-append "v" version))))
1829        (sha256
1830         (base32
1831          "0js24x42m7b5iymb4rxz501dff19vav5pywnzv50b673rbkaaqvh"))))
1832     (build-system asdf-build-system/source)
1833     (home-page "https://github.com/slime/slime")
1834     (synopsis "Common Lisp Swank server")
1835     (description
1836      "This is only useful if you want to start a Swank server in a Lisp
1837 processes that doesn't run under Emacs.  Lisp processes created by
1838 @command{M-x slime} automatically start the server.")
1839     (license (list license:gpl2+ license:public-domain))))
1840
1841 (define-public sbcl-slime-swank
1842   (deprecated-package "sbcl-slime-swank" cl-slime-swank))
1843
1844 (define-public sbcl-mgl-pax
1845   (let ((commit "818448418d6b9de74620f606f5b23033c6082769"))
1846     (package
1847       (name "sbcl-mgl-pax")
1848       (version (git-version "0.0.0" "1" commit))
1849       (source
1850        (origin
1851          (method git-fetch)
1852          (uri (git-reference
1853                (url "https://github.com/melisgl/mgl-pax")
1854                (commit commit)))
1855          (sha256
1856           (base32
1857            "1p97zfkh130bdxqqxwaw2j9psv58751wakx7czbfpq410lg7dd7i"))
1858          (file-name (git-file-name "mgl-pax" version))))
1859       (build-system asdf-build-system/sbcl)
1860       (inputs
1861        `(("3bmd" ,sbcl-3bmd)
1862          ("3bmd-ext-code-blocks" ,sbcl-3bmd-ext-code-blocks)
1863          ("babel" ,sbcl-babel)
1864          ("cl-fad" ,sbcl-cl-fad)
1865          ("ironclad" ,sbcl-ironclad)
1866          ("named-readtables" ,sbcl-named-readtables)
1867          ("pythonic-string-reader" ,sbcl-pythonic-string-reader)))
1868       (propagated-inputs
1869        ;; Packages having mgl-pax as input complain that it can't find
1870        ;; swank if we put it in inputs, so let's put it in propageted-inputs.
1871        `(("swank" ,cl-slime-swank)))
1872       (synopsis "Exploratory programming environment and documentation generator")
1873       (description
1874        "PAX provides an extremely poor man's Explorable Programming
1875 environment.  Narrative primarily lives in so called sections that mix markdown
1876 docstrings with references to functions, variables, etc, all of which should
1877 probably have their own docstrings.
1878
1879 The primary focus is on making code easily explorable by using SLIME's
1880 @command{M-.} (@command{slime-edit-definition}).  See how to enable some
1881 fanciness in Emacs Integration.  Generating documentation from sections and all
1882 the referenced items in Markdown or HTML format is also implemented.
1883
1884 With the simplistic tools provided, one may accomplish similar effects as with
1885 Literate Programming, but documentation is generated from code, not vice versa
1886 and there is no support for chunking yet.  Code is first, code must look
1887 pretty, documentation is code.")
1888       (home-page "http://quotenil.com/")
1889       (license license:expat))))
1890
1891 (define-public cl-mgl-pax
1892   (sbcl-package->cl-source-package sbcl-mgl-pax))
1893
1894 (define-public ecl-mgl-pax
1895   (sbcl-package->ecl-package sbcl-mgl-pax))
1896
1897 (define-public sbcl-lisp-unit
1898   (let ((commit "89653a232626b67400bf9a941f9b367da38d3815"))
1899     (package
1900       (name "sbcl-lisp-unit")
1901       (version (git-version "0.0.0" "1" commit))
1902       (source
1903        (origin
1904          (method git-fetch)
1905          (uri (git-reference
1906                (url "https://github.com/OdonataResearchLLC/lisp-unit")
1907                (commit commit)))
1908          (sha256
1909           (base32
1910            "0p6gdmgr7p383nvd66c9y9fp2bjk4jx1lpa5p09g43hr9y9pp9ry"))
1911          (file-name (git-file-name "lisp-unit" version))))
1912       (build-system asdf-build-system/sbcl)
1913       (synopsis "Common Lisp Test framework inspired by JUnit to be simple of use")
1914       (description
1915        "@command{lisp-unit} is a Common Lisp library that supports unit
1916 testing.  It is an extension of the library written by Chris Riesbeck.")
1917       (home-page "https://github.com/OdonataResearchLLC/lisp-unit")
1918       (license license:expat))))
1919
1920 (define-public cl-lisp-unit
1921   (sbcl-package->cl-source-package sbcl-lisp-unit))
1922
1923 (define-public ecl-lisp-unit
1924   (sbcl-package->ecl-package sbcl-lisp-unit))
1925
1926 (define-public sbcl-anaphora
1927   (package
1928     (name "sbcl-anaphora")
1929     (version "0.9.6")
1930     (source
1931      (origin
1932        (method git-fetch)
1933        (uri (git-reference
1934              (url "https://github.com/tokenrove/anaphora")
1935              (commit version)))
1936        (sha256
1937         (base32
1938          "19wfrk3asimznkli0x2rfy637hwpdgqyvwj3vhq9x7vjvyf5vv6x"))
1939        (file-name (git-file-name "anaphora" version))))
1940     (build-system asdf-build-system/sbcl)
1941     (native-inputs
1942      `(("rt" ,sbcl-rt)))
1943     (synopsis "The anaphoric macro collection from Hell")
1944     (description
1945      "Anaphora is the anaphoric macro collection from Hell: it includes many
1946 new fiends in addition to old friends like @command{aif} and
1947 @command{awhen}.")
1948     (home-page "https://github.com/tokenrove/anaphora")
1949     (license license:public-domain)))
1950
1951 (define-public cl-anaphora
1952   (sbcl-package->cl-source-package sbcl-anaphora))
1953
1954 (define-public ecl-anaphora
1955   (sbcl-package->ecl-package sbcl-anaphora))
1956
1957 (define-public sbcl-lift
1958   (let ((commit "7d49a66c62759535624037826891152223d4206c"))
1959     (package
1960       (name "sbcl-lift")
1961       (version (git-version "1.7.1" "1" commit))
1962       (source
1963        (origin
1964          (method git-fetch)
1965          (uri (git-reference
1966                (url "https://github.com/gwkkwg/lift")
1967                (commit commit)))
1968          (sha256
1969           (base32
1970            "127v5avpz1i4m0lkaxqrq8hrl69rdazqaxf6s8awf0nd7wj2g4dp"))
1971          (file-name (git-file-name "lift" version))
1972          (modules '((guix build utils)))
1973          (snippet
1974           ;; Don't keep the bundled website
1975           `(begin
1976              (delete-file-recursively "website")
1977              #t))))
1978       (build-system asdf-build-system/sbcl)
1979       (arguments
1980        ;; The tests require a debugger, but we run with the debugger disabled.
1981        '(#:tests? #f))
1982       (synopsis "LIsp Framework for Testing")
1983       (description
1984        "The LIsp Framework for Testing (LIFT) is a unit and system test tool for LISP.
1985 Though inspired by SUnit and JUnit, it's built with Lisp in mind.  In LIFT,
1986 testcases are organized into hierarchical testsuites each of which can have
1987 its own fixture.  When run, a testcase can succeed, fail, or error.  LIFT
1988 supports randomized testing, benchmarking, profiling, and reporting.")
1989       (home-page "https://github.com/gwkkwg/lift")
1990       (license license:expat))))
1991
1992 (define-public cl-lift
1993   (sbcl-package->cl-source-package sbcl-lift))
1994
1995 (define-public ecl-lift
1996   (sbcl-package->ecl-package sbcl-lift))
1997
1998 (define-public sbcl-let-plus
1999   (let ((commit "5f14af61d501ecead02ec6b5a5c810efc0c9fdbb"))
2000     (package
2001       (name "sbcl-let-plus")
2002       (version (git-version "0.0.0" "1" commit))
2003       (source
2004        (origin
2005          (method git-fetch)
2006          (uri (git-reference
2007                (url "https://github.com/sharplispers/let-plus")
2008                (commit commit)))
2009          (sha256
2010           (base32
2011            "0i050ca2iys9f5mb7dgqgqdxfnc3b0rnjdwv95sqd490vkiwrsaj"))
2012          (file-name (git-file-name "let-plus" version))))
2013       (build-system asdf-build-system/sbcl)
2014       (inputs
2015        `(("alexandria" ,sbcl-alexandria)
2016          ("anaphora" ,sbcl-anaphora)))
2017       (native-inputs
2018        `(("lift" ,sbcl-lift)))
2019       (synopsis "Destructuring extension of let*")
2020       (description
2021        "This library implements the let+ macro, which is a dectructuring
2022 extension of let*.  It features:
2023
2024 @itemize
2025 @item Clean, consistent syntax and small implementation (less than 300 LOC,
2026 not counting tests)
2027 @item Placeholder macros allow editor hints and syntax highlighting
2028 @item @command{&ign} for ignored values (in forms where that makes sense)
2029 @item Very easy to extend
2030 @end itemize\n")
2031       (home-page "https://github.com/sharplispers/let-plus")
2032       (license license:boost1.0))))
2033
2034 (define-public cl-let-plus
2035   (sbcl-package->cl-source-package sbcl-let-plus))
2036
2037 (define-public ecl-let-plus
2038   (sbcl-package->ecl-package sbcl-let-plus))
2039
2040 (define-public sbcl-cl-colors
2041   (let ((commit "827410584553f5c717eec6182343b7605f707f75"))
2042     (package
2043       (name "sbcl-cl-colors")
2044       (version (git-version "0.0.0" "1" commit))
2045       (source
2046        (origin
2047          (method git-fetch)
2048          (uri (git-reference
2049                (url "https://github.com/tpapp/cl-colors")
2050                (commit commit)))
2051          (sha256
2052           (base32
2053            "0l446lday4hybsm9bq3jli97fvv8jb1d33abg79vbylpwjmf3y9a"))
2054          (file-name (git-file-name "cl-colors" version))))
2055       (build-system asdf-build-system/sbcl)
2056       (inputs
2057        `(("alexandria" ,sbcl-alexandria)
2058          ("let-plus" ,sbcl-let-plus)))
2059       (synopsis "Simple color library for Common Lisp")
2060       (description
2061        "This is a very simple color library for Common Lisp, providing
2062
2063 @itemize
2064 @item Types for representing colors in HSV and RGB spaces.
2065 @item Simple conversion functions between the above types (and also
2066 hexadecimal representation for RGB).
2067 @item Some predefined colors (currently X11 color names – of course the
2068 library does not depend on X11).Because color in your terminal is nice.
2069 @end itemize
2070
2071 This library is no longer supported by its author.")
2072       (home-page "https://github.com/tpapp/cl-colors")
2073       (license license:boost1.0))))
2074
2075 (define-public cl-colors
2076   (sbcl-package->cl-source-package sbcl-cl-colors))
2077
2078 (define-public ecl-cl-colors
2079   (sbcl-package->ecl-package sbcl-cl-colors))
2080
2081 (define-public sbcl-cl-ansi-text
2082   (let ((commit "53badf7878f27f22f2d4a2a43e6df458e43acbe9"))
2083     (package
2084       (name "sbcl-cl-ansi-text")
2085       (version (git-version "1.0.0" "1" commit))
2086       (source
2087        (origin
2088          (method git-fetch)
2089          (uri (git-reference
2090                (url "https://github.com/pnathan/cl-ansi-text")
2091                (commit commit)))
2092          (sha256
2093           (base32
2094            "11i27n0dbz5lmygiw65zzr8lx0rac6b6yysqranphn31wls6ja3v"))
2095          (file-name (git-file-name "cl-ansi-text" version))))
2096       (build-system asdf-build-system/sbcl)
2097       (inputs
2098        `(("alexandria" ,sbcl-alexandria)
2099          ("cl-colors" ,sbcl-cl-colors)))
2100       (native-inputs
2101        `(("fiveam" ,sbcl-fiveam)))
2102       (synopsis "ANSI terminal color implementation for Common Lisp")
2103       (description
2104        "@command{cl-ansi-text} provides utilities which enable printing to an
2105 ANSI terminal with colored text.  It provides the macro @command{with-color}
2106 which causes everything printed in the body to be displayed with the provided
2107 color.  It further provides functions which will print the argument with the
2108 named color.")
2109       (home-page "https://github.com/pnathan/cl-ansi-text")
2110       (license license:llgpl))))
2111
2112 (define-public cl-ansi-text
2113   (sbcl-package->cl-source-package sbcl-cl-ansi-text))
2114
2115 (define-public ecl-cl-ansi-text
2116   (sbcl-package->ecl-package sbcl-cl-ansi-text))
2117
2118 (define-public sbcl-prove-asdf
2119   (let ((commit "4f9122bd393e63c5c70c1fba23070622317cfaa0"))
2120     (package
2121       (name "sbcl-prove-asdf")
2122       (version (git-version "1.0.0" "1" commit))
2123       (source
2124        (origin
2125          (method git-fetch)
2126          (uri (git-reference
2127                (url "https://github.com/fukamachi/prove")
2128                (commit commit)))
2129          (sha256
2130           (base32
2131            "07sbfw459z8bbjvx1qlmfa8qk2mvbjnnzi2mi0x72blaj8bkl4vc"))
2132          (file-name (git-file-name "prove" version))))
2133       (build-system asdf-build-system/sbcl)
2134       (arguments
2135        `(#:asd-file "prove-asdf.asd"))
2136       (synopsis "Test requirement for the Common Lisp 'prove' library")
2137       (description
2138        "Test requirement for the Common Lisp @command{prove} library.")
2139       (home-page "https://github.com/fukamachi/prove")
2140       (license license:expat))))
2141
2142 (define-public cl-prove-asdf
2143   (sbcl-package->cl-source-package sbcl-prove-asdf))
2144
2145 (define-public ecl-prove-asdf
2146   (sbcl-package->ecl-package sbcl-prove-asdf))
2147
2148 (define-public sbcl-prove
2149   (package
2150     (inherit sbcl-prove-asdf)
2151     (name "sbcl-prove")
2152     (inputs
2153      `(("alexandria" ,sbcl-alexandria)
2154        ("cl-ppcre" ,sbcl-cl-ppcre)
2155        ("cl-ansi-text" ,sbcl-cl-ansi-text)))
2156     (native-inputs
2157      `(("prove-asdf" ,sbcl-prove-asdf)))
2158     (arguments
2159      `(#:asd-file "prove.asd"))
2160     (synopsis "Yet another unit testing framework for Common Lisp")
2161     (description
2162      "This project was originally called @command{cl-test-more}.
2163 @command{prove} is yet another unit testing framework for Common Lisp.  The
2164 advantages of @command{prove} are:
2165
2166 @itemize
2167 @item Various simple functions for testing and informative error messages
2168 @item ASDF integration
2169 @item Extensible test reporters
2170 @item Colorizes the report if it's available (note for SLIME)
2171 @item Reports test durations
2172 @end itemize\n")))
2173
2174 (define-public cl-prove
2175   (sbcl-package->cl-source-package sbcl-prove))
2176
2177 (define-public ecl-prove
2178   (sbcl-package->ecl-package sbcl-prove))
2179
2180 (define-public sbcl-proc-parse
2181   (let ((commit "ac3636834d561bdc2686c956dbd82494537285fd"))
2182     (package
2183       (name "sbcl-proc-parse")
2184       (version (git-version "0.0.0" "1" commit))
2185       (source
2186        (origin
2187          (method git-fetch)
2188          (uri (git-reference
2189                (url "https://github.com/fukamachi/proc-parse")
2190                (commit commit)))
2191          (sha256
2192           (base32
2193            "06rnl0h4cx6xv2wj3jczmmcxqn2703inmmvg1s4npbghmijsybfh"))
2194          (file-name (git-file-name "proc-parse" version))))
2195       (build-system asdf-build-system/sbcl)
2196       (inputs
2197        `(("alexandria" ,sbcl-alexandria)
2198          ("babel" ,sbcl-babel)))
2199       (native-inputs
2200        `(("prove" ,sbcl-prove)
2201          ("prove-asdf" ,sbcl-prove-asdf)))
2202       (arguments
2203        ;; TODO: Tests don't find "proc-parse-test", why?
2204        `(#:tests? #f))
2205       (synopsis "Procedural vector parser")
2206       (description
2207        "This is a string/octets parser library for Common Lisp with speed and
2208 readability in mind.  Unlike other libraries, the code is not a
2209 pattern-matching-like, but a char-by-char procedural parser.")
2210       (home-page "https://github.com/fukamachi/proc-parse")
2211       (license license:bsd-2))))
2212
2213 (define-public cl-proc-parse
2214   (sbcl-package->cl-source-package sbcl-proc-parse))
2215
2216 (define-public ecl-proc-parse
2217   (sbcl-package->ecl-package sbcl-proc-parse))
2218
2219 (define-public sbcl-parse-float
2220   (let ((commit "2aae569f2a4b2eb3bfb5401a959425dcf151b09c"))
2221     (package
2222       (name "sbcl-parse-float")
2223       (version (git-version "0.0.0" "1" commit))
2224       (source
2225        (origin
2226          (method git-fetch)
2227          (uri (git-reference
2228                (url "https://github.com/soemraws/parse-float")
2229                (commit commit)))
2230          (sha256
2231           (base32
2232            "08xw8cchhmqcc0byng69m3f5a2izc9y2290jzz2k0qrbibp1fdk7"))
2233          (file-name (git-file-name "proc-parse" version))))
2234       (build-system asdf-build-system/sbcl)
2235       (inputs
2236        `(("alexandria" ,sbcl-alexandria)
2237          ("babel" ,sbcl-babel)))
2238       (native-inputs
2239        `(("prove" ,sbcl-prove)
2240          ("prove-asdf" ,sbcl-prove-asdf)))
2241       (arguments
2242        ;; TODO: Tests don't find "proc-parse-test", why?
2243        `(#:tests? #f))
2244       (synopsis "Parse a floating point value from a string in Common Lisp")
2245       (description
2246        "This package exports the following function to parse floating-point
2247 values from a string in Common Lisp.")
2248       (home-page "https://github.com/soemraws/parse-float")
2249       (license license:public-domain))))
2250
2251 (define-public cl-parse-float
2252   (sbcl-package->cl-source-package sbcl-parse-float))
2253
2254 (define-public ecl-parse-float
2255   (sbcl-package->ecl-package sbcl-parse-float))
2256
2257 (define-public sbcl-ascii-strings
2258   (let ((revision "1")
2259         (changeset "5048480a61243e6f1b02884012c8f25cdbee6d97"))
2260     (package
2261       (name "sbcl-ascii-strings")
2262       (version (string-append "0-" revision "." (string-take changeset 7)))
2263       (source
2264        (origin
2265          (method hg-fetch)
2266          (uri (hg-reference
2267                (url "https://bitbucket.org/vityok/cl-string-match/")
2268                (changeset changeset)))
2269          (sha256
2270           (base32
2271            "01wn5qx562w43ssy92xlfgv79w7p0nv0wbl76mpmba131n9ziq2y"))
2272          (file-name (git-file-name "cl-string-match" version))))
2273       (build-system asdf-build-system/sbcl)
2274       (inputs
2275        `(("alexandria" ,sbcl-alexandria)
2276          ("babel" ,sbcl-babel)))
2277       (arguments
2278        `(#:asd-file "ascii-strings.asd"))
2279       (synopsis "Operations on ASCII strings")
2280       (description
2281        "Operations on ASCII strings.  Essentially this can be any kind of
2282 single-byte encoded strings.")
2283       (home-page "https://bitbucket.org/vityok/cl-string-match/")
2284       (license license:bsd-3))))
2285
2286 (define-public cl-ascii-strings
2287   (sbcl-package->cl-source-package sbcl-ascii-strings))
2288
2289 (define-public ecl-ascii-strings
2290   (sbcl-package->ecl-package sbcl-ascii-strings))
2291
2292 (define-public sbcl-simple-scanf
2293   (package
2294     (inherit sbcl-ascii-strings)
2295     (name "sbcl-simple-scanf")
2296     (inputs
2297      `(("alexandria" ,sbcl-alexandria)
2298        ("iterate" ,sbcl-iterate)
2299        ("proc-parse" ,sbcl-proc-parse)
2300        ("parse-float" ,sbcl-parse-float)))
2301     (arguments
2302      `(#:asd-file "simple-scanf.asd"))
2303     (synopsis "Simple scanf-like functionality implementation")
2304     (description
2305      "A simple scanf-like functionality implementation.")))
2306
2307 (define-public cl-simple-scanf
2308   (sbcl-package->cl-source-package sbcl-simple-scanf))
2309
2310 (define-public ecl-simple-scanf
2311   (sbcl-package->ecl-package sbcl-simple-scanf))
2312
2313 (define-public sbcl-cl-string-match
2314   (package
2315     (inherit sbcl-ascii-strings)
2316     (name "sbcl-cl-string-match")
2317     (inputs
2318      `(("alexandria" ,sbcl-alexandria)
2319        ("ascii-strings" ,sbcl-ascii-strings)
2320        ("yacc" ,sbcl-cl-yacc)
2321        ("jpl-util" ,sbcl-jpl-util)
2322        ("jpl-queues" ,sbcl-jpl-queues)
2323        ("mgl-pax" ,sbcl-mgl-pax)
2324        ("iterate" ,sbcl-iterate)))
2325     ;; TODO: Tests are not evaluated properly.
2326     (native-inputs
2327      ;; For testing:
2328      `(("lisp-unit" ,sbcl-lisp-unit)
2329        ("simple-scanf" ,sbcl-simple-scanf)))
2330     (arguments
2331      `(#:tests? #f
2332        #:asd-file "cl-string-match.asd"))
2333     (synopsis "Portable, dependency-free set of utilities to manipulate strings in Common Lisp")
2334     (description
2335      "@command{cl-strings} is a small, portable, dependency-free set of
2336 utilities that make it even easier to manipulate text in Common Lisp.  It has
2337 100% test coverage and works at least on sbcl, ecl, ccl, abcl and clisp.")))
2338
2339 (define-public cl-string-match
2340   (sbcl-package->cl-source-package sbcl-cl-string-match))
2341
2342 (define-public ecl-cl-string-match
2343   (sbcl-package->ecl-package sbcl-cl-string-match))
2344
2345 (define-public sbcl-ptester
2346   (let ((commit "fe69fde54f4bce00ce577feb918796c293fc7253")
2347         (revision "1"))
2348     (package
2349       (name "sbcl-ptester")
2350       (version (git-version "2.1.3" revision commit))
2351       (source
2352        (origin
2353          (method git-fetch)
2354          (uri (git-reference
2355                (url "http://git.kpe.io/ptester.git")
2356                (commit commit)))
2357          (file-name (git-file-name name version))
2358          (sha256
2359           (base32 "1l0lfl7cdnr2qf4zh38hi4llxg22c49zkm639bdkmvlkzwj3ndwf"))))
2360       (build-system asdf-build-system/sbcl)
2361       (home-page "http://quickdocs.org/ptester/")
2362       (synopsis "Portable test harness package")
2363       (description
2364        "@command{ptester} is a portable testing framework based on Franz's
2365 tester module.")
2366       (license license:llgpl))))
2367
2368 (define-public cl-ptester
2369   (sbcl-package->cl-source-package sbcl-ptester))
2370
2371 (define-public ecl-ptester
2372   (sbcl-package->ecl-package sbcl-ptester))
2373
2374 (define-public sbcl-puri
2375   (let ((commit "ef5afb9e5286c8e952d4344f019c1a636a717b97")
2376         (revision "1"))
2377     (package
2378       (name "sbcl-puri")
2379       (version (git-version "1.5.7" revision commit))
2380       (source
2381        (origin
2382          (method git-fetch)
2383          (uri (git-reference
2384                (url "http://git.kpe.io/puri.git")
2385                (commit commit)))
2386          (file-name (git-file-name name version))
2387          (sha256
2388           (base32 "1vm25pdl92laj72p5vyd538kf3cjy2655z6bdc99h20ana2p231s"))))
2389       (build-system asdf-build-system/sbcl)
2390       (native-inputs
2391        `(("ptester" ,sbcl-ptester)))
2392       (home-page "http://quickdocs.org/puri/")
2393       (synopsis "Portable URI Library")
2394       (description
2395        "This is a portable Universal Resource Identifier library for Common
2396 Lisp programs.  It parses URI according to the RFC 2396 specification.")
2397       (license license:llgpl))))
2398
2399 (define-public cl-puri
2400   (sbcl-package->cl-source-package sbcl-puri))
2401
2402 (define-public ecl-puri
2403   (sbcl-package->ecl-package sbcl-puri))
2404
2405 (define-public sbcl-queues
2406   (let ((commit "47d4da65e9ea20953b74aeeab7e89a831b66bc94"))
2407     (package
2408       (name "sbcl-queues")
2409       (version (git-version "0.0.0" "1" commit))
2410       (source
2411        (origin
2412          (method git-fetch)
2413          (uri (git-reference
2414                (url "https://github.com/oconnore/queues")
2415                (commit commit)))
2416          (file-name (git-file-name "queues" version))
2417          (sha256
2418           (base32
2419            "0wdhfnzi4v6d97pggzj2aw55si94w4327br94jrmyvwf351wqjvv"))))
2420       (build-system asdf-build-system/sbcl)
2421       (home-page "https://github.com/oconnore/queues")
2422       (synopsis "Common Lisp queue library")
2423       (description
2424        "This is a simple queue library for Common Lisp with features such as
2425 non-consing thread safe queues and fibonacci priority queues.")
2426       (license license:expat))))
2427
2428 (define-public cl-queues
2429   (sbcl-package->cl-source-package sbcl-queues))
2430
2431 (define-public ecl-queues
2432   (sbcl-package->ecl-package sbcl-queues))
2433
2434 (define-public sbcl-queues.simple-queue
2435   (package
2436     (inherit sbcl-queues)
2437     (name "sbcl-queues.simple-queue")
2438     (inputs
2439      `(("sbcl-queues" ,sbcl-queues)))
2440     (arguments
2441      `(#:asd-file "queues.simple-queue.asd"))
2442     (synopsis "Simple queue implementation")
2443     (description
2444      "This is a simple queue library for Common Lisp with features such as
2445 non-consing thread safe queues and fibonacci priority queues.")
2446     (license license:expat)))
2447
2448 (define-public cl-queues.simple-queue
2449   (sbcl-package->cl-source-package sbcl-queues.simple-queue))
2450
2451 (define-public ecl-queues.simple-queue
2452   (sbcl-package->ecl-package sbcl-queues.simple-queue))
2453
2454 (define-public sbcl-queues.simple-cqueue
2455   (package
2456     (inherit sbcl-queues)
2457     (name "sbcl-queues.simple-cqueue")
2458     (inputs
2459      `(("sbcl-queues" ,sbcl-queues)
2460        ("sbcl-queues.simple-queue" ,sbcl-queues.simple-queue)
2461        ("bordeaux-threads" ,sbcl-bordeaux-threads)))
2462     (arguments
2463      `(#:asd-file "queues.simple-cqueue.asd"))
2464     (synopsis "Thread safe queue implementation")
2465     (description
2466      "This is a simple queue library for Common Lisp with features such as
2467 non-consing thread safe queues and fibonacci priority queues.")
2468     (license license:expat)))
2469
2470 (define-public cl-queues.simple-cqueue
2471   (sbcl-package->cl-source-package sbcl-queues.simple-cqueue))
2472
2473 (define-public ecl-queues.simple-cqueue
2474   (sbcl-package->ecl-package sbcl-queues.simple-cqueue))
2475
2476 (define-public sbcl-queues.priority-queue
2477   (package
2478     (inherit sbcl-queues)
2479     (name "sbcl-queues.priority-queue")
2480     (inputs
2481      `(("sbcl-queues" ,sbcl-queues)))
2482     (arguments
2483      `(#:asd-file "queues.priority-queue.asd"))
2484     (synopsis "Priority queue (Fibonacci) implementation")
2485     (description
2486      "This is a simple queue library for Common Lisp with features such as
2487 non-consing thread safe queues and fibonacci priority queues.")
2488     (license license:expat)))
2489
2490 (define-public cl-queues.priority-queue
2491   (sbcl-package->cl-source-package sbcl-queues.priority-queue))
2492
2493 (define-public ecl-queues.priority-queue
2494   (sbcl-package->ecl-package sbcl-queues.priority-queue))
2495
2496 (define-public sbcl-queues.priority-cqueue
2497   (package
2498     (inherit sbcl-queues)
2499     (name "sbcl-queues.priority-cqueue")
2500     (inputs
2501      `(("sbcl-queues" ,sbcl-queues)
2502        ("sbcl-queues.priority-queue" ,sbcl-queues.priority-queue)
2503        ("bordeaux-threads" ,sbcl-bordeaux-threads)))
2504     (arguments
2505      `(#:asd-file "queues.priority-cqueue.asd"))
2506     (synopsis "Thread safe fibonacci priority queue implementation")
2507     (description
2508      "This is a simple queue library for Common Lisp with features such as
2509 non-consing thread safe queues and fibonacci priority queues.")
2510     (license license:expat)))
2511
2512 (define-public cl-queues.priority-cqueue
2513   (sbcl-package->cl-source-package sbcl-queues.priority-cqueue))
2514
2515 (define-public ecl-queues.priority-cqueue
2516   (sbcl-package->ecl-package sbcl-queues.priority-cqueue))
2517
2518 (define sbcl-cffi-bootstrap
2519   (package
2520     (name "sbcl-cffi-bootstrap")
2521     (version "0.21.0")
2522     (source
2523      (origin
2524        (method git-fetch)
2525        (uri (git-reference
2526              (url "https://github.com/cffi/cffi.git")
2527              (commit (string-append "v" version))))
2528        (file-name (git-file-name "cffi-bootstrap" version))
2529        (sha256
2530         (base32 "1qalargz9bhp850qv60ffwpdqi4xirzar4l3g6qcg8yc6xqf2cjk"))))
2531     (build-system asdf-build-system/sbcl)
2532     (inputs
2533      `(("libffi" ,libffi)
2534        ("alexandria" ,sbcl-alexandria)
2535        ("babel" ,sbcl-babel)
2536        ("trivial-features" ,sbcl-trivial-features)))
2537     (native-inputs
2538      `(("pkg-config" ,pkg-config)))
2539     (arguments
2540      '(#:phases
2541        (modify-phases %standard-phases
2542          (add-after 'unpack 'fix-paths
2543            (lambda* (#:key inputs #:allow-other-keys)
2544              (substitute* "libffi/libffi.lisp"
2545                (("libffi.so.7" all) (string-append
2546                                      (assoc-ref inputs "libffi")
2547                                      "/lib/" all)))
2548              (substitute* "toolchain/c-toolchain.lisp"
2549                (("\"cc\"") (format #f "~S" (which "gcc")))))))
2550        #:asd-system-name "cffi"
2551        #:tests? #f))
2552     (home-page "https://common-lisp.net/project/cffi/")
2553     (synopsis "Common Foreign Function Interface for Common Lisp")
2554     (description "The Common Foreign Function Interface (CFFI)
2555 purports to be a portable foreign function interface for Common Lisp.
2556 The CFFI library is composed of a Lisp-implementation-specific backend
2557 in the CFFI-SYS package, and a portable frontend in the CFFI
2558 package.")
2559     (license license:expat)))
2560
2561 (define-public sbcl-cffi-toolchain
2562   (package
2563     (inherit sbcl-cffi-bootstrap)
2564     (name "sbcl-cffi-toolchain")
2565     (inputs
2566      `(("libffi" ,libffi)
2567        ("sbcl-cffi" ,sbcl-cffi-bootstrap)))
2568     (arguments
2569      (substitute-keyword-arguments (package-arguments sbcl-cffi-bootstrap)
2570        ((#:asd-system-name _) #f)
2571        ((#:tests? _) #t)))))
2572
2573 (define-public sbcl-cffi-libffi
2574   (package
2575     (inherit sbcl-cffi-toolchain)
2576     (name "sbcl-cffi-libffi")
2577     (inputs
2578      `(("cffi" ,sbcl-cffi-bootstrap)
2579        ("cffi-grovel" ,sbcl-cffi-grovel)
2580        ("trivial-features" ,sbcl-trivial-features)
2581        ("libffi" ,libffi)))))
2582
2583 (define-public sbcl-cffi-grovel
2584   (package
2585     (inherit sbcl-cffi-toolchain)
2586     (name "sbcl-cffi-grovel")
2587     (inputs
2588      `(("libffi" ,libffi)
2589        ("cffi" ,sbcl-cffi-bootstrap)
2590        ("cffi-toolchain" ,sbcl-cffi-toolchain)
2591        ("alexandria" ,sbcl-alexandria)))
2592     (arguments
2593      (substitute-keyword-arguments (package-arguments sbcl-cffi-toolchain)
2594        ((#:phases phases)
2595         `(modify-phases ,phases
2596            (add-after 'build 'install-headers
2597              (lambda* (#:key outputs #:allow-other-keys)
2598                (install-file "grovel/common.h"
2599                              (string-append
2600                               (assoc-ref outputs "out")
2601                               "/include/grovel"))))))))))
2602
2603 (define-public sbcl-cffi
2604   (package
2605     (inherit sbcl-cffi-toolchain)
2606     (name "sbcl-cffi")
2607     (inputs (package-inputs sbcl-cffi-bootstrap))
2608     (native-inputs
2609      `(("cffi-grovel" ,sbcl-cffi-grovel)
2610        ("cffi-libffi" ,sbcl-cffi-libffi)
2611        ("rt" ,sbcl-rt)
2612        ("bordeaux-threads" ,sbcl-bordeaux-threads)
2613        ,@(package-native-inputs sbcl-cffi-bootstrap)))))
2614
2615 (define-public cl-cffi
2616   (sbcl-package->cl-source-package sbcl-cffi))
2617
2618 (define-public sbcl-cffi-uffi-compat
2619   (package
2620     (inherit sbcl-cffi-toolchain)
2621     (name "sbcl-cffi-uffi-compat")
2622     (native-inputs
2623      `(,@(package-inputs sbcl-cffi-bootstrap))) ; For fix-paths phase
2624     (inputs
2625      `(("cffi" ,sbcl-cffi)))
2626     (synopsis "UFFI Compatibility Layer for CFFI")))
2627
2628 (define-public cl-cffi-uffi-compat
2629   (sbcl-package->cl-source-package sbcl-cffi-uffi-compat))
2630
2631 (define-public sbcl-cl-sqlite
2632   (let ((commit "c738e66d4266ef63a1debc4ef4a1b871a068c112"))
2633     (package
2634       (name "sbcl-cl-sqlite")
2635       (version (git-version "0.2" "1" commit))
2636       (source
2637        (origin
2638          (method git-fetch)
2639          (uri (git-reference
2640                (url "https://github.com/dmitryvk/cl-sqlite")
2641                (commit commit)))
2642          (file-name (git-file-name "cl-sqlite" version))
2643          (sha256
2644           (base32
2645            "1ng45k1hdb84sqjryrfx93g66bsbybmpy301wd0fdybnc5jzr36q"))))
2646       (build-system asdf-build-system/sbcl)
2647       (inputs
2648        `(("iterate" ,sbcl-iterate)
2649          ("cffi" ,sbcl-cffi)
2650          ("sqlite" ,sqlite)))
2651       (native-inputs
2652        `(("fiveam" ,sbcl-fiveam)
2653          ("bordeaux-threads" ,sbcl-bordeaux-threads)))
2654       (arguments
2655        `(#:tests? #f                    ; Upstream seems to have issues with tests: https://github.com/dmitryvk/cl-sqlite/issues/7
2656          #:asd-file "sqlite.asd"
2657          #:asd-system-name "sqlite"
2658          #:phases
2659          (modify-phases %standard-phases
2660            (add-after 'unpack 'fix-paths
2661              (lambda* (#:key inputs #:allow-other-keys)
2662                (substitute* "sqlite-ffi.lisp"
2663                  (("libsqlite3" all) (string-append
2664                                       (assoc-ref inputs "sqlite")"/lib/" all))))))))
2665       (home-page "https://common-lisp.net/project/cl-sqlite/")
2666       (synopsis "Common Lisp binding for SQLite")
2667       (description
2668        "The @command{cl-sqlite} package is an interface to the SQLite embedded
2669 relational database engine.")
2670       (license license:public-domain))))
2671
2672 (define-public cl-sqlite
2673   (sbcl-package->cl-source-package sbcl-cl-sqlite))
2674
2675 (define-public sbcl-parenscript
2676   ;; Source archives are overwritten on every release, we use the Git repo instead.
2677   (let ((commit "7a1ac46353cecd144fc91915ba9f122aafcf4766"))
2678     (package
2679       (name "sbcl-parenscript")
2680       (version (git-version "2.7.1" "1" commit))
2681       (source
2682        (origin
2683          (method git-fetch)
2684          (uri (git-reference
2685                (url "https://gitlab.common-lisp.net/parenscript/parenscript")
2686                (commit commit)))
2687          (file-name (git-file-name "parenscript" version))
2688          (sha256
2689           (base32
2690            "0c22lqarrpbq82dg1sb3y6mp6w2faczp34ymzhnmff88yfq1xzsf"))))
2691       (build-system asdf-build-system/sbcl)
2692       (inputs
2693        `(("cl-ppcre" ,sbcl-cl-ppcre)
2694          ("anaphora" ,sbcl-anaphora)
2695          ("named-readtables" ,sbcl-named-readtables)))
2696       (home-page "https://common-lisp.net/project/parenscript/")
2697       (synopsis "Translator from a subset of Common Lisp to JavaScript")
2698       (description
2699        "Parenscript is a translator from an extended subset of Common Lisp to
2700 JavaScript.  Parenscript code can run almost identically on both the
2701 browser (as JavaScript) and server (as Common Lisp).
2702
2703 Parenscript code is treated the same way as Common Lisp code, making the full
2704 power of Lisp macros available for JavaScript.  This provides a web
2705 development environment that is unmatched in its ability to reduce code
2706 duplication and provide advanced meta-programming facilities to web
2707 developers.
2708
2709 At the same time, Parenscript is different from almost all other \"language
2710 X\" to JavaScript translators in that it imposes almost no overhead:
2711
2712 @itemize
2713 @item No run-time dependencies: Any piece of Parenscript code is runnable
2714 as-is.  There are no JavaScript files to include.
2715 @item Native types: Parenscript works entirely with native JavaScript data
2716 types.  There are no new types introduced, and object prototypes are not
2717 touched.
2718 @item Native calling convention: Any JavaScript code can be called without the
2719 need for bindings.  Likewise, Parenscript can be used to make efficient,
2720 self-contained JavaScript libraries.
2721 @item Readable code: Parenscript generates concise, formatted, idiomatic
2722 JavaScript code.  Identifier names are preserved.  This enables seamless
2723 debugging in tools like Firebug.
2724 @item Efficiency: Parenscript introduces minimal overhead for advanced Common
2725 Lisp features.  The generated code is almost as fast as hand-written
2726 JavaScript.
2727 @end itemize\n")
2728       (license license:bsd-3))))
2729
2730 (define-public cl-parenscript
2731   (sbcl-package->cl-source-package sbcl-parenscript))
2732
2733 (define-public ecl-parenscript
2734   (sbcl-package->ecl-package sbcl-parenscript))
2735
2736 (define-public sbcl-cl-json
2737   (let ((commit "6dfebb9540bfc3cc33582d0c03c9ec27cb913e79"))
2738     (package
2739       (name "sbcl-cl-json")
2740       (version (git-version "0.5" "1" commit))
2741       (source
2742        (origin
2743          (method git-fetch)
2744          (uri (git-reference
2745                (url "https://github.com/hankhero/cl-json")
2746                (commit commit)))
2747          (file-name (git-file-name "cl-json" version))
2748          (sha256
2749           (base32
2750            "0fx3m3x3s5ji950yzpazz4s0img3l6b3d6l3jrfjv0lr702496lh"))))
2751       (build-system asdf-build-system/sbcl)
2752       (native-inputs
2753        `(("fiveam" ,sbcl-fiveam)))
2754       (home-page "https://github.com/hankhero/cl-json")
2755       (synopsis "JSON encoder and decoder for Common-Lisp")
2756       (description
2757        "@command{cl-json} provides an encoder of Lisp objects to JSON format
2758 and a corresponding decoder of JSON data to Lisp objects.  Both the encoder
2759 and the decoder are highly customizable; at the same time, the default
2760 settings ensure a very simple mode of operation, similar to that provided by
2761 @command{yason} or @command{st-json}.")
2762       (license license:expat))))
2763
2764 (define-public cl-json
2765   (sbcl-package->cl-source-package sbcl-cl-json))
2766
2767 (define-public ecl-cl-json
2768   (sbcl-package->ecl-package sbcl-cl-json))
2769
2770 (define-public sbcl-unix-opts
2771   (package
2772     (name "sbcl-unix-opts")
2773     (version "0.1.7")
2774     (source
2775      (origin
2776        (method git-fetch)
2777        (uri (git-reference
2778              (url "https://github.com/libre-man/unix-opts")
2779              (commit version)))
2780        (file-name (git-file-name "unix-opts" version))
2781        (sha256
2782         (base32
2783          "08djdi1ard09fijb7w9bdmhmwd98b1hzmcnjw9fqjiqa0g3b44rr"))))
2784     (build-system asdf-build-system/sbcl)
2785     (home-page "https://github.com/hankhero/cl-json")
2786     (synopsis "Unix-style command line options parser")
2787     (description
2788      "This is a minimalistic parser of command line options.  The main
2789 advantage of the library is the ability to concisely define command line
2790 options once and then use this definition for parsing and extraction of
2791 command line arguments, as well as printing description of command line
2792 options (you get --help for free).  This way you don't need to repeat
2793 yourself.  Also, @command{unix-opts} doesn't depend on anything and
2794 precisely controls the behavior of the parser via Common Lisp restarts.")
2795     (license license:expat)))
2796
2797 (define-public cl-unix-opts
2798   (sbcl-package->cl-source-package sbcl-unix-opts))
2799
2800 (define-public ecl-unix-opts
2801   (sbcl-package->ecl-package sbcl-unix-opts))
2802
2803 (define-public sbcl-trivial-garbage
2804   (package
2805     (name "sbcl-trivial-garbage")
2806     (version "0.21")
2807     (source
2808      (origin
2809        (method git-fetch)
2810        (uri (git-reference
2811              (url "https://github.com/trivial-garbage/trivial-garbage.git")
2812              (commit (string-append "v" version))))
2813        (file-name (git-file-name "trivial-garbage" version))
2814        (sha256
2815         (base32 "0122jicfg7pca1wxw8zak1n92h5friqy60988ns0ysksj3fphw9n"))))
2816     (build-system asdf-build-system/sbcl)
2817     (native-inputs
2818      `(("rt" ,sbcl-rt)))
2819     (home-page "https://common-lisp.net/project/trivial-garbage/")
2820     (synopsis "Portable GC-related APIs for Common Lisp")
2821     (description "@command{trivial-garbage} provides a portable API to
2822 finalizers, weak hash-tables and weak pointers on all major implementations of
2823 the Common Lisp programming language.")
2824     (license license:public-domain)))
2825
2826 (define-public cl-trivial-garbage
2827   (sbcl-package->cl-source-package sbcl-trivial-garbage))
2828
2829 (define-public ecl-trivial-garbage
2830   (sbcl-package->ecl-package sbcl-trivial-garbage))
2831
2832 (define-public sbcl-closer-mop
2833   (let ((commit "19c9d33f576e10715fd79cc1d4f688dab0f241d6"))
2834     (package
2835       (name "sbcl-closer-mop")
2836       (version (git-version  "1.0.0" "2" commit))
2837       (source
2838        (origin
2839          (method git-fetch)
2840          (uri (git-reference
2841                (url "https://github.com/pcostanza/closer-mop")
2842                (commit commit)))
2843          (sha256
2844           (base32 "1w3x087wvlwkd6swfdgbvjfs6kazf0la8ax4pjfzikwjch4snn2c"))
2845          (file-name (git-file-name "closer-mop" version ))))
2846       (build-system asdf-build-system/sbcl)
2847       (home-page "https://github.com/pcostanza/closer-mop")
2848       (synopsis "Rectifies absent or incorrect CLOS MOP features")
2849       (description "Closer to MOP is a compatibility layer that rectifies many
2850 of the absent or incorrect CLOS MOP features across a broad range of Common
2851 Lisp implementations.")
2852       (license license:expat))))
2853
2854 (define-public cl-closer-mop
2855   (sbcl-package->cl-source-package sbcl-closer-mop))
2856
2857 (define-public ecl-closer-mop
2858   (sbcl-package->ecl-package sbcl-closer-mop))
2859
2860 (define sbcl-cl-cffi-gtk-boot0
2861   (let ((commit "412d17214e092220c65a5660f5cbbd9cb69b8fe4"))
2862     (package
2863       (name "sbcl-cl-cffi-gtk-boot0")
2864       (version (git-version "0.11.2" "1" commit))
2865       (source
2866        (origin
2867          (method git-fetch)
2868          (uri (git-reference
2869                (url "https://github.com/Ferada/cl-cffi-gtk/")
2870                (commit commit)))
2871          (file-name (git-file-name "cl-cffi-gtk" version))
2872          (sha256
2873           (base32
2874            "0n997yhcnzk048nalx8ys62ja2ac8iv4mbn3mb55iapl0321hghn"))))
2875       (build-system asdf-build-system/sbcl)
2876       (inputs
2877        `(("iterate" ,sbcl-iterate)
2878          ("cffi" ,sbcl-cffi)
2879          ("trivial-features" ,sbcl-trivial-features)
2880          ("glib" ,glib)
2881          ("cairo" ,cairo)
2882          ("pango" ,pango)
2883          ("gdk-pixbuf" ,gdk-pixbuf)
2884          ("gtk" ,gtk+)))
2885       (arguments
2886        `(#:phases
2887          (modify-phases %standard-phases
2888            (add-after 'unpack 'fix-paths
2889              (lambda* (#:key inputs #:allow-other-keys)
2890                (substitute* "glib/glib.init.lisp"
2891                  (("libglib|libgthread" all)
2892                   (string-append (assoc-ref inputs "glib") "/lib/" all)))
2893                (substitute* "gobject/gobject.init.lisp"
2894                  (("libgobject" all)
2895                   (string-append (assoc-ref inputs "glib") "/lib/" all)))
2896                (substitute* "gio/gio.init.lisp"
2897                  (("libgio" all)
2898                   (string-append (assoc-ref inputs "glib") "/lib/" all)))
2899                (substitute* "cairo/cairo.init.lisp"
2900                  (("libcairo" all)
2901                   (string-append (assoc-ref inputs "cairo") "/lib/" all)))
2902                (substitute* "pango/pango.init.lisp"
2903                  (("libpango" all)
2904                   (string-append (assoc-ref inputs "pango") "/lib/" all)))
2905                (substitute* "gdk-pixbuf/gdk-pixbuf.init.lisp"
2906                  (("libgdk_pixbuf" all)
2907                   (string-append (assoc-ref inputs "gdk-pixbuf") "/lib/" all)))
2908                (substitute* "gdk/gdk.init.lisp"
2909                  (("libgdk" all)
2910                   (string-append (assoc-ref inputs "gtk") "/lib/" all)))
2911                (substitute* "gdk/gdk.package.lisp"
2912                  (("libgtk" all)
2913                   (string-append (assoc-ref inputs "gtk") "/lib/" all))))))))
2914       (home-page "https://github.com/Ferada/cl-cffi-gtk/")
2915       (synopsis "Common Lisp binding for GTK+3")
2916       (description
2917        "@command{cl-cffi-gtk} is a Lisp binding to GTK+ 3 (GIMP Toolkit) which
2918 is a library for creating graphical user interfaces.")
2919       (license license:lgpl3))))
2920
2921 (define-public sbcl-cl-cffi-gtk-glib
2922   (package
2923     (inherit sbcl-cl-cffi-gtk-boot0)
2924     (name "sbcl-cl-cffi-gtk-glib")
2925     (inputs
2926      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
2927        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2928     (arguments
2929      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
2930        ((#:asd-file _ "") "glib/cl-cffi-gtk-glib.asd")))))
2931
2932 (define-public sbcl-cl-cffi-gtk-gobject
2933   (package
2934     (inherit sbcl-cl-cffi-gtk-boot0)
2935     (name "sbcl-cl-cffi-gtk-gobject")
2936     (inputs
2937      `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2938        ("trivial-garbage" ,sbcl-trivial-garbage)
2939        ("bordeaux-threads" ,sbcl-bordeaux-threads)
2940        ("closer-mop" ,sbcl-closer-mop)
2941        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2942     (arguments
2943      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
2944        ((#:asd-file _ "") "gobject/cl-cffi-gtk-gobject.asd")
2945        ((#:phases phases)
2946         `(modify-phases ,phases
2947            (add-after 'install 'link-source
2948              ;; Since source is particularly heavy (16MiB+), let's reuse it
2949              ;; across the different components of cl-ffi-gtk.
2950              (lambda* (#:key inputs outputs #:allow-other-keys)
2951                (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
2952                                                  "/share/common-lisp/sbcl-source/"
2953                                                  "cl-cffi-gtk-glib"))
2954                      (out-source (string-append (assoc-ref outputs "out")
2955                                                 "/share/common-lisp/sbcl-source/"
2956                                                 "cl-cffi-gtk-gobject")))
2957                  (delete-file-recursively out-source)
2958                  (symlink glib-source out-source)
2959                  #t)))))))))
2960
2961 (define-public sbcl-cl-cffi-gtk-gio
2962   (package
2963     (inherit sbcl-cl-cffi-gtk-boot0)
2964     (name "sbcl-cl-cffi-gtk-gio")
2965     (inputs
2966      `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2967        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
2968        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2969     (arguments
2970      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
2971        ((#:asd-file _ "") "gio/cl-cffi-gtk-gio.asd")
2972        ((#:phases phases)
2973         `(modify-phases ,phases
2974            (add-after 'install 'link-source
2975              ;; Since source is particularly heavy (16MiB+), let's reuse it
2976              ;; across the different components of cl-ffi-gtk.
2977              (lambda* (#:key inputs outputs #:allow-other-keys)
2978                (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
2979                                                  "/share/common-lisp/sbcl-source/"
2980                                                  "cl-cffi-gtk-glib"))
2981                      (out-source (string-append (assoc-ref outputs "out")
2982                                                 "/share/common-lisp/sbcl-source/"
2983                                                 "cl-cffi-gtk-gio")))
2984                  (delete-file-recursively out-source)
2985                  (symlink glib-source out-source)
2986                  #t)))))))))
2987
2988 (define-public sbcl-cl-cffi-gtk-cairo
2989   (package
2990     (inherit sbcl-cl-cffi-gtk-boot0)
2991     (name "sbcl-cl-cffi-gtk-cairo")
2992     (inputs
2993      `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
2994        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
2995     (arguments
2996      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
2997        ((#:asd-file _ "") "cairo/cl-cffi-gtk-cairo.asd")
2998        ((#:phases phases)
2999         `(modify-phases ,phases
3000            (add-after 'install 'link-source
3001              ;; Since source is particularly heavy (16MiB+), let's reuse it
3002              ;; across the different components of cl-ffi-gtk.
3003              (lambda* (#:key inputs outputs #:allow-other-keys)
3004                (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
3005                                                  "/share/common-lisp/sbcl-source/"
3006                                                  "cl-cffi-gtk-glib"))
3007                      (out-source (string-append (assoc-ref outputs "out")
3008                                                 "/share/common-lisp/sbcl-source/"
3009                                                 "cl-cffi-gtk-cairo")))
3010                  (delete-file-recursively out-source)
3011                  (symlink glib-source out-source)
3012                  #t)))))))))
3013
3014 (define-public sbcl-cl-cffi-gtk-pango
3015   (package
3016     (inherit sbcl-cl-cffi-gtk-boot0)
3017     (name "sbcl-cl-cffi-gtk-pango")
3018     (inputs
3019      `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
3020        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
3021        ("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
3022        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
3023     (arguments
3024      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
3025        ((#:asd-file _ "") "pango/cl-cffi-gtk-pango.asd")
3026        ((#:phases phases)
3027         `(modify-phases ,phases
3028            (add-after 'install 'link-source
3029              ;; Since source is particularly heavy (16MiB+), let's reuse it
3030              ;; across the different components of cl-ffi-gtk.
3031              (lambda* (#:key inputs outputs #:allow-other-keys)
3032                (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
3033                                                  "/share/common-lisp/sbcl-source/"
3034                                                  "cl-cffi-gtk-glib"))
3035                      (out-source (string-append (assoc-ref outputs "out")
3036                                                 "/share/common-lisp/sbcl-source/"
3037                                                 "cl-cffi-gtk-pango")))
3038                  (delete-file-recursively out-source)
3039                  (symlink glib-source out-source)
3040                  #t)))))))))
3041
3042 (define-public sbcl-cl-cffi-gtk-gdk-pixbuf
3043   (package
3044     (inherit sbcl-cl-cffi-gtk-boot0)
3045     (name "sbcl-cl-cffi-gtk-gdk-pixbuf")
3046     (inputs
3047      `(("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
3048        ("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
3049        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
3050     (arguments
3051      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
3052        ((#:asd-file _ "") "gdk-pixbuf/cl-cffi-gtk-gdk-pixbuf.asd")
3053        ((#:phases phases)
3054         `(modify-phases ,phases
3055            (add-after 'install 'link-source
3056              ;; Since source is particularly heavy (16MiB+), let's reuse it
3057              ;; across the different components of cl-ffi-gtk.
3058              (lambda* (#:key inputs outputs #:allow-other-keys)
3059                (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
3060                                                  "/share/common-lisp/sbcl-source/"
3061                                                  "cl-cffi-gtk-glib"))
3062                      (out-source (string-append (assoc-ref outputs "out")
3063                                                 "/share/common-lisp/sbcl-source/"
3064                                                 "cl-cffi-gtk-gdk-pixbuf")))
3065                  (delete-file-recursively out-source)
3066                  (symlink glib-source out-source)
3067                  #t)))))))))
3068
3069 (define-public sbcl-cl-cffi-gtk-gdk
3070   (package
3071     (inherit sbcl-cl-cffi-gtk-boot0)
3072     (name "sbcl-cl-cffi-gtk-gdk")
3073     (inputs
3074      `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
3075        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
3076        ("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
3077        ("cl-cffi-gtk-gdk-pixbuf" ,sbcl-cl-cffi-gtk-gdk-pixbuf)
3078        ("cl-cffi-gtk-cairo" ,sbcl-cl-cffi-gtk-cairo)
3079        ("cl-cffi-gtk-pango" ,sbcl-cl-cffi-gtk-pango)
3080        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
3081     (arguments
3082      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
3083        ((#:asd-file _ "") "gdk/cl-cffi-gtk-gdk.asd")
3084        ((#:phases phases)
3085         `(modify-phases ,phases
3086            (add-after 'install 'link-source
3087              ;; Since source is particularly heavy (16MiB+), let's reuse it
3088              ;; across the different components of cl-ffi-gtk.
3089              (lambda* (#:key inputs outputs #:allow-other-keys)
3090                (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
3091                                                  "/share/common-lisp/sbcl-source/"
3092                                                  "cl-cffi-gtk-glib"))
3093                      (out-source (string-append (assoc-ref outputs "out")
3094                                                 "/share/common-lisp/sbcl-source/"
3095                                                 "cl-cffi-gtk-gdk")))
3096                  (delete-file-recursively out-source)
3097                  (symlink glib-source out-source)
3098                  #t)))))))))
3099
3100 (define-public sbcl-cl-cffi-gtk
3101   (package
3102     (inherit sbcl-cl-cffi-gtk-boot0)
3103     (name "sbcl-cl-cffi-gtk")
3104     (inputs
3105      `(("cl-cffi-gtk-glib" ,sbcl-cl-cffi-gtk-glib)
3106        ("cl-cffi-gtk-gobject" ,sbcl-cl-cffi-gtk-gobject)
3107        ("cl-cffi-gtk-gio" ,sbcl-cl-cffi-gtk-gio)
3108        ("cl-cffi-gtk-gdk" ,sbcl-cl-cffi-gtk-gdk)
3109        ,@(package-inputs sbcl-cl-cffi-gtk-boot0)))
3110     (native-inputs
3111      `(("fiveam" ,sbcl-fiveam)))
3112     (arguments
3113      (substitute-keyword-arguments (package-arguments sbcl-cl-cffi-gtk-boot0)
3114        ((#:asd-file _ "") "gtk/cl-cffi-gtk.asd")
3115        ((#:test-asd-file _ "") "test/cl-cffi-gtk-test.asd")
3116        ;; TODO: Tests fail with memory fault.
3117        ;; See https://github.com/Ferada/cl-cffi-gtk/issues/24.
3118        ((#:tests? _ #f) #f)
3119        ((#:phases phases)
3120         `(modify-phases ,phases
3121            (add-after 'install 'link-source
3122              ;; Since source is particularly heavy (16MiB+), let's reuse it
3123              ;; across the different components of cl-ffi-gtk.
3124              (lambda* (#:key inputs outputs #:allow-other-keys)
3125                (let ((glib-source (string-append (assoc-ref inputs "cl-cffi-gtk-glib")
3126                                                  "/share/common-lisp/sbcl-source/"
3127                                                  "cl-cffi-gtk-glib"))
3128                      (out-source (string-append (assoc-ref outputs "out")
3129                                                 "/share/common-lisp/sbcl-source/"
3130                                                 "cl-cffi-gtk")))
3131                  (delete-file-recursively out-source)
3132                  (symlink glib-source out-source)
3133                  #t)))))))))
3134
3135 (define-public cl-cffi-gtk
3136   (sbcl-package->cl-source-package sbcl-cl-cffi-gtk))
3137
3138 (define-public sbcl-cl-webkit
3139   (let ((commit "f93cb9697e8813068795fe4dc39ac950d814102d"))
3140     (package
3141       (name "sbcl-cl-webkit")
3142       (version (git-version "2.4" "3" commit))
3143       (source
3144        (origin
3145          (method git-fetch)
3146          (uri (git-reference
3147                (url "https://github.com/joachifm/cl-webkit")
3148                (commit commit)))
3149          (file-name (git-file-name "cl-webkit" version))
3150          (sha256
3151           (base32
3152            "1sjcw08kjpd5h83sms7zcq2nymddjygk9hm2rpgzrl524an9ziwc"))))
3153       (build-system asdf-build-system/sbcl)
3154       (inputs
3155        `(("cffi" ,sbcl-cffi)
3156          ("cl-cffi-gtk" ,sbcl-cl-cffi-gtk)
3157          ("webkitgtk" ,webkitgtk)))
3158       (arguments
3159        `(#:asd-file "webkit2/cl-webkit2.asd"
3160          #:asd-system-name "cl-webkit2"
3161          #:phases
3162          (modify-phases %standard-phases
3163            (add-after 'unpack 'fix-paths
3164              (lambda* (#:key inputs #:allow-other-keys)
3165                (substitute* "webkit2/webkit2.init.lisp"
3166                  (("libwebkit2gtk" all)
3167                   (string-append
3168                    (assoc-ref inputs "webkitgtk") "/lib/" all))))))))
3169       (home-page "https://github.com/joachifm/cl-webkit")
3170       (synopsis "Binding to WebKitGTK+ for Common Lisp")
3171       (description
3172        "@command{cl-webkit} is a binding to WebKitGTK+ for Common Lisp,
3173 currently targeting WebKit version 2.  The WebKitGTK+ library adds web
3174 browsing capabilities to an application, leveraging the full power of the
3175 WebKit browsing engine.")
3176       (license license:expat))))
3177
3178 (define-public cl-webkit
3179   (sbcl-package->cl-source-package sbcl-cl-webkit))
3180
3181 (define-public sbcl-lparallel
3182   (package
3183     (name "sbcl-lparallel")
3184     (version "2.8.4")
3185     (source
3186      (origin
3187        (method git-fetch)
3188        (uri (git-reference
3189              (url "https://github.com/lmj/lparallel/")
3190              (commit (string-append "lparallel-" version))))
3191        (file-name (git-file-name "lparallel" version))
3192        (sha256
3193         (base32
3194          "0g0aylrbbrqsz0ahmwhvnk4cmc2931fllbpcfgzsprwnqqd7vwq9"))))
3195     (build-system asdf-build-system/sbcl)
3196     (inputs
3197      `(("alexandria" ,sbcl-alexandria)
3198        ("bordeaux-threads" ,sbcl-bordeaux-threads)
3199        ("trivial-garbage" ,sbcl-trivial-garbage)))
3200     (arguments
3201      `(#:phases
3202        (modify-phases %standard-phases
3203          (add-after 'unpack 'fix-dependency
3204            ;; lparallel loads a SBCL specific system in its asd file. This is
3205            ;; not carried over into the fasl which is generated. In order for
3206            ;; it to be carried over, it needs to be listed as a dependency.
3207            (lambda _
3208              (substitute* "lparallel.asd"
3209                ((":depends-on \\(:alexandria" all)
3210                 (string-append all " #+sbcl :sb-cltl2"))))))))
3211     (home-page "https://lparallel.org/")
3212     (synopsis "Parallelism for Common Lisp")
3213     (description
3214      "@command{lparallel} is a library for parallel programming in Common
3215 Lisp, featuring:
3216
3217 @itemize
3218 @item a simple model of task submission with receiving queue,
3219 @item constructs for expressing fine-grained parallelism,
3220 @item asynchronous condition handling across thread boundaries,
3221 @item parallel versions of map, reduce, sort, remove, and many others,
3222 @item promises, futures, and delayed evaluation constructs,
3223 @item computation trees for parallelizing interconnected tasks,
3224 @item bounded and unbounded FIFO queues,
3225 @item high and low priority tasks,
3226 @item task killing by category,
3227 @item integrated timeouts.
3228 @end itemize\n")
3229     (license license:expat)))
3230
3231 (define-public cl-lparallel
3232   (sbcl-package->cl-source-package sbcl-lparallel))
3233
3234 (define-public ecl-lparallel
3235   (sbcl-package->ecl-package sbcl-lparallel))
3236
3237 (define-public sbcl-cl-markup
3238   (let ((commit "e0eb7debf4bdff98d1f49d0f811321a6a637b390"))
3239     (package
3240       (name "sbcl-cl-markup")
3241       (version (git-version "0.1" "1" commit))
3242       (source
3243        (origin
3244          (method git-fetch)
3245          (uri (git-reference
3246                (url "https://github.com/arielnetworks/cl-markup/")
3247                (commit commit)))
3248          (file-name (git-file-name "cl-markup" version))
3249          (sha256
3250           (base32
3251            "10l6k45971dl13fkdmva7zc6i453lmq9j4xax2ci6pjzlc6xjhp7"))))
3252       (build-system asdf-build-system/sbcl)
3253       (home-page "https://github.com/arielnetworks/cl-markup/")
3254       (synopsis "Markup generation library for Common Lisp")
3255       (description
3256        "A modern markup generation library for Common Lisp that features:
3257
3258 @itemize
3259 @item Fast (even faster through compiling the code)
3260 @item Safety
3261 @item Support for multiple document types (markup, xml, html, html5, xhtml)
3262 @item Output with doctype
3263 @item Direct output to stream
3264 @end itemize\n")
3265       (license license:lgpl3+))))
3266
3267 (define-public cl-markup
3268   (sbcl-package->cl-source-package sbcl-cl-markup))
3269
3270 (define-public ecl-cl-markup
3271   (sbcl-package->ecl-package sbcl-cl-markup))
3272
3273 (define-public sbcl-cl-css
3274   (let ((commit "8fe654c8f0cf95b300718101cce4feb517f78e2f"))
3275     (package
3276       (name "sbcl-cl-css")
3277       (version (git-version "0.1" "1" commit))
3278       (source
3279        (origin
3280          (method git-fetch)
3281          (uri (git-reference
3282                (url "https://github.com/inaimathi/cl-css/")
3283                (commit commit)))
3284          (file-name (git-file-name "cl-css" version))
3285          (sha256
3286           (base32
3287            "1lc42zi2sw11fl2589sc19nr5sd2p0wy7wgvgwaggxa5f3ajhsmd"))))
3288       (build-system asdf-build-system/sbcl)
3289       (home-page "https://github.com/inaimathi/cl-css/")
3290       (synopsis "Non-validating, inline CSS generator for Common Lisp")
3291       (description
3292        "This is a dead-simple, non validating, inline CSS generator for Common
3293 Lisp.  Its goals are axiomatic syntax, simple implementation to support
3294 portability, and boilerplate reduction in CSS.")
3295       (license license:expat))))
3296
3297 (define-public cl-css
3298   (sbcl-package->cl-source-package sbcl-cl-css))
3299
3300 (define-public ecl-cl-css
3301   (sbcl-package->ecl-package sbcl-cl-css))
3302
3303 (define-public sbcl-portable-threads
3304   (let ((commit "c0e61a1faeb0583c80fd3f20b16cc4c555226920"))
3305     (package
3306       (name "sbcl-portable-threads")
3307       (version (git-version "2.3" "1" commit))
3308       (source
3309        (origin
3310          (method git-fetch)
3311          (uri (git-reference
3312                (url "https://github.com/binghe/portable-threads/")
3313                (commit commit)))
3314          (file-name (git-file-name "portable-threads" version))
3315          (sha256
3316           (base32
3317            "03fmxyarc0xf4kavwkfa0a2spkyfrz6hbgbi9y4q7ny5aykdyfaq"))))
3318       (build-system asdf-build-system/sbcl)
3319       (arguments
3320        `(;; Tests seem broken.
3321          #:tests? #f))
3322       (home-page "https://github.com/binghe/portable-threads")
3323       (synopsis "Portable threads (and scheduled and periodic functions) API for Common Lisp")
3324       (description
3325        "Portable Threads (and Scheduled and Periodic Functions) API for Common
3326 Lisp (from GBBopen project).")
3327       (license license:asl2.0))))
3328
3329 (define-public cl-portable-threads
3330   (sbcl-package->cl-source-package sbcl-portable-threads))
3331
3332 (define-public ecl-portable-threada
3333   (sbcl-package->ecl-package sbcl-portable-threads))
3334
3335 (define sbcl-usocket-boot0
3336   ;; usocket's test rely on usocket-server which depends on usocket itself.
3337   ;; We break this cyclic dependency with -boot0 that packages usocket.
3338   (package
3339     (name "sbcl-usocket-boot0")
3340     (version "0.8.3")
3341     (source
3342      (origin
3343        (method git-fetch)
3344        (uri (git-reference
3345              (url "https://github.com/usocket/usocket/")
3346              (commit (string-append "v" version))))
3347        (file-name (git-file-name "usocket" version))
3348        (sha256
3349         (base32
3350          "0x746wr2324l6bn7skqzgkzcbj5kd0zp2ck0c8rldrw0rzabg826"))))
3351     (build-system asdf-build-system/sbcl)
3352     (inputs
3353      `(("split-sequence" ,sbcl-split-sequence)))
3354     (arguments
3355      `(#:tests? #f
3356        #:asd-system-name "usocket"))
3357     (home-page "https://common-lisp.net/project/usocket/")
3358     (synopsis "Universal socket library for Common Lisp (server side)")
3359     (description
3360      "This library strives to provide a portable TCP/IP and UDP/IP socket
3361 interface for as many Common Lisp implementations as possible, while keeping
3362 the abstraction and portability layer as thin as possible.")
3363     (license license:expat)))
3364
3365 (define-public sbcl-usocket-server
3366   (package
3367     (inherit sbcl-usocket-boot0)
3368     (name "sbcl-usocket-server")
3369     (inputs
3370      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
3371        ("usocket" ,sbcl-usocket-boot0)))
3372     (arguments
3373      '(#:asd-system-name "usocket-server"))
3374     (synopsis "Universal socket library for Common Lisp (server side)")))
3375
3376 (define-public cl-usocket-server
3377   (sbcl-package->cl-source-package sbcl-usocket-server))
3378
3379 (define-public ecl-socket-server
3380   (sbcl-package->ecl-package sbcl-usocket-server))
3381
3382 (define-public sbcl-usocket
3383   (package
3384     (inherit sbcl-usocket-boot0)
3385     (name "sbcl-usocket")
3386     (arguments
3387      ;; FIXME: Tests need network access?
3388      `(#:tests? #f))
3389     (native-inputs
3390      ;; Testing only.
3391      `(("usocket-server" ,sbcl-usocket-server)
3392        ("rt" ,sbcl-rt)))))
3393
3394 (define-public cl-usocket
3395   (sbcl-package->cl-source-package sbcl-usocket))
3396
3397 (define-public ecl-usocket
3398   (sbcl-package->ecl-package sbcl-usocket))
3399
3400 (define-public sbcl-s-xml
3401   (package
3402     (name "sbcl-s-xml")
3403     (version "3")
3404     (source
3405      (origin
3406        (method url-fetch)
3407        (uri "https://common-lisp.net/project/s-xml/s-xml.tgz")
3408        (sha256
3409         (base32
3410          "061qcr0dzshsa38s5ma4ay924cwak2nq9gy59dw6v9p0qb58nzjf"))))
3411     (build-system asdf-build-system/sbcl)
3412     (home-page "https://common-lisp.net/project/s-xml/")
3413     (synopsis "Simple XML parser implemented in Common Lisp")
3414     (description
3415      "S-XML is a simple XML parser implemented in Common Lisp.  This XML
3416 parser implementation has the following features:
3417
3418 @itemize
3419 @item It works (handling many common XML usages).
3420 @item It is very small (the core is about 700 lines of code, including
3421 comments and whitespace).
3422 @item It has a core API that is simple, efficient and pure functional, much
3423 like that from SSAX (see also http://ssax.sourceforge.net).
3424 @item It supports different DOM models: an XSML-based one, an LXML-based one
3425 and a classic xml-element struct based one.
3426 @item It is reasonably time and space efficient (internally avoiding garbage
3427 generatation as much as possible).
3428 @item It does support CDATA.
3429 @item It should support the same character sets as your Common Lisp
3430 implementation.
3431 @item It does support XML name spaces.
3432 @end itemize
3433
3434 This XML parser implementation has the following limitations:
3435
3436 @itemize
3437 @item It does not support any special tags (like processing instructions).
3438 @item It is not validating, even skips DTD's all together.
3439 @end itemize\n")
3440     (license license:lgpl3+)))
3441
3442 (define-public cl-s-xml
3443   (sbcl-package->cl-source-package sbcl-s-xml))
3444
3445 (define-public ecl-s-xml
3446   (sbcl-package->ecl-package sbcl-s-xml))
3447
3448 (define-public sbcl-s-xml-rpc
3449   (package
3450     (name "sbcl-s-xml-rpc")
3451     (version "7")
3452     (source
3453      (origin
3454        (method url-fetch)
3455        (uri "https://common-lisp.net/project/s-xml-rpc/s-xml-rpc.tgz")
3456        (sha256
3457         (base32
3458          "02z7k163d51v0pzk8mn1xb6h5s6x64gjqkslhwm3a5x26k2gfs11"))))
3459     (build-system asdf-build-system/sbcl)
3460     (inputs
3461      `(("s-xml" ,sbcl-s-xml)))
3462     (home-page "https://common-lisp.net/project/s-xml-rpc/")
3463     (synopsis "Implementation of XML-RPC in Common Lisp for both client and server")
3464     (description
3465      "S-XML-RPC is an implementation of XML-RPC in Common Lisp for both
3466 client and server.")
3467     (license license:lgpl3+)))
3468
3469 (define-public cl-s-xml-rpc
3470   (sbcl-package->cl-source-package sbcl-s-xml-rpc))
3471
3472 (define-public ecl-s-xml-rpc
3473   (sbcl-package->ecl-package sbcl-s-xml-rpc))
3474
3475 (define-public sbcl-trivial-clipboard
3476   (let ((commit "5af3415d1484e6d69a1b5c178f24680d9fd01796"))
3477     (package
3478       (name "sbcl-trivial-clipboard")
3479       (version (git-version "0.0.0.0" "2" commit))
3480       (source
3481        (origin
3482          (method git-fetch)
3483          (uri (git-reference
3484                (url "https://github.com/snmsts/trivial-clipboard")
3485                (commit commit)))
3486          (file-name (git-file-name "trivial-clipboard" version))
3487          (sha256
3488           (base32
3489            "1gb515z5yq6h5548pb1fwhmb0hhq1ssyb78pvxh4alq799xipxs9"))))
3490       (build-system asdf-build-system/sbcl)
3491       (inputs
3492        `(("xclip" ,xclip)))
3493       (native-inputs
3494        `(("fiveam" ,sbcl-fiveam)))
3495       (arguments
3496        `(#:phases
3497          (modify-phases %standard-phases
3498            (add-after 'unpack 'fix-paths
3499              (lambda* (#:key inputs #:allow-other-keys)
3500                (substitute* "src/text.lisp"
3501                  (("\\(executable-find \"xclip\"\\)")
3502                   (string-append "(executable-find \""
3503                                  (assoc-ref inputs "xclip")
3504                                  "/bin/xclip\")"))))))))
3505       (home-page "https://github.com/snmsts/trivial-clipboard")
3506       (synopsis "Access system clipboard in Common Lisp")
3507       (description
3508        "@command{trivial-clipboard} gives access to the system clipboard.")
3509       (license license:expat))))
3510
3511 (define-public cl-trivial-clipboard
3512   (sbcl-package->cl-source-package sbcl-trivial-clipboard))
3513
3514 (define-public ecl-trivial-clipboard
3515   (sbcl-package->ecl-package sbcl-trivial-clipboard))
3516
3517 (define-public sbcl-trivial-backtrace
3518   (let ((commit "ca81c011b86424a381a7563cea3b924f24e6fbeb")
3519         (revision "1"))
3520     (package
3521      (name "sbcl-trivial-backtrace")
3522      (version (git-version "0.0.0" revision commit))
3523      (source
3524       (origin
3525        (method git-fetch)
3526        (uri (git-reference
3527              (url "https://github.com/gwkkwg/trivial-backtrace.git")
3528              (commit commit)))
3529        (file-name (git-file-name "trivial-backtrace" version))
3530        (sha256
3531         (base32 "10p41p43skj6cimdg8skjy7372s8v2xpkg8djjy0l8rm45i654k1"))))
3532      (build-system asdf-build-system/sbcl)
3533      (inputs
3534       `(("sbcl-lift" ,sbcl-lift)))
3535      (arguments
3536       `(#:phases
3537         (modify-phases %standard-phases
3538           (add-after 'check 'delete-test-results
3539             (lambda* (#:key outputs #:allow-other-keys)
3540               (let ((test-results (string-append (assoc-ref outputs "out")
3541                                                  "/share/common-lisp/"
3542                                                  (%lisp-type) "-source"
3543                                                  "/trivial-backtrace"
3544                                                  "/test-results")))
3545                 (when (file-exists? test-results)
3546                   (delete-file-recursively test-results)))
3547               #t)))))
3548      (home-page "https://common-lisp.net/project/trivial-backtrace/")
3549      (synopsis "Portable simple API to work with backtraces in Common Lisp")
3550      (description
3551       "One of the many things that didn't quite get into the Common Lisp
3552 standard was how to get a Lisp to output its call stack when something has
3553 gone wrong.  As such, each Lisp has developed its own notion of what to
3554 display, how to display it, and what sort of arguments can be used to
3555 customize it.  @code{trivial-backtrace} is a simple solution to generating a
3556 backtrace portably.")
3557      (license license:expat))))
3558
3559 (define-public cl-trivial-backtrace
3560   (sbcl-package->cl-source-package sbcl-trivial-backtrace))
3561
3562 (define-public sbcl-rfc2388
3563   (let ((commit "591bcf7e77f2c222c43953a80f8c297751dc0c4e")
3564         (revision "1"))
3565     (package
3566      (name "sbcl-rfc2388")
3567      (version (git-version "0.0.0" revision commit))
3568      (source
3569       (origin
3570        (method git-fetch)
3571        (uri (git-reference
3572              (url "https://github.com/jdz/rfc2388.git")
3573              (commit commit)))
3574        (file-name (git-file-name "rfc2388" version))
3575        (sha256
3576         (base32 "0phh5n3clhl9ji8jaxrajidn22d3f0aq87mlbfkkxlnx2pnw694k"))))
3577      (build-system asdf-build-system/sbcl)
3578      (home-page "https://github.com/jdz/rfc2388/")
3579      (synopsis "An implementation of RFC 2388 in Common Lisp")
3580      (description
3581       "This package contains an implementation of RFC 2388, which is used to
3582 process form data posted with HTTP POST method using enctype
3583 \"multipart/form-data\".")
3584      (license license:bsd-2))))
3585
3586 (define-public cl-rfc2388
3587   (sbcl-package->cl-source-package sbcl-rfc2388))
3588
3589 (define-public sbcl-md5
3590   (package
3591     (name "sbcl-md5")
3592     (version "2.0.4")
3593     (source
3594      (origin
3595        (method url-fetch)
3596        (uri (string-append
3597              "https://github.com/pmai/md5/archive/release-" version ".tar.gz"))
3598        (sha256
3599         (base32 "19yl9n0pjdz5gw4qi711lka97xcd9f81ylg434hk7jwn9f2s6w11"))))
3600     (build-system asdf-build-system/sbcl)
3601     (home-page "https://github.com/pmai/md5")
3602     (synopsis
3603      "Common Lisp implementation of the MD5 Message-Digest Algorithm (RFC 1321)")
3604     (description
3605      "This package implements The MD5 Message-Digest Algorithm, as defined in
3606 RFC 1321 by R. Rivest, published April 1992.")
3607     (license license:public-domain)))
3608
3609 (define-public cl-md5
3610   (sbcl-package->cl-source-package sbcl-md5))
3611
3612 (define-public sbcl-cl+ssl
3613   (let ((commit "701e645081e6533a3f0f0b3ac86389d6f506c4b5")
3614         (revision "1"))
3615     (package
3616       (name "sbcl-cl+ssl")
3617       (version (git-version "0.0.0" revision commit))
3618       (source
3619        (origin
3620          (method git-fetch)
3621          (uri (git-reference
3622                (url "https://github.com/cl-plus-ssl/cl-plus-ssl.git")
3623                (commit commit)))
3624          (file-name (git-file-name "cl+ssl" version))
3625          (sha256
3626           (base32 "0nfl275nwhff3m25872y388cydz14kqb6zbwywa6nj85r9k8bgs0"))))
3627       (build-system asdf-build-system/sbcl)
3628       (arguments
3629        '(#:phases
3630          (modify-phases %standard-phases
3631            (add-after 'unpack 'fix-paths
3632              (lambda* (#:key inputs #:allow-other-keys)
3633                (substitute* "src/reload.lisp"
3634                  (("libssl.so" all)
3635                   (string-append
3636                    (assoc-ref inputs "openssl") "/lib/" all))))))))
3637       (inputs
3638        `(("openssl" ,openssl)
3639          ("sbcl-cffi" ,sbcl-cffi)
3640          ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)
3641          ("sbcl-flexi-streams" ,sbcl-flexi-streams)
3642          ("sbcl-bordeaux-threads" ,sbcl-bordeaux-threads)
3643          ("sbcl-trivial-garbage" ,sbcl-trivial-garbage)
3644          ("sbcl-alexandria" ,sbcl-alexandria)
3645          ("sbcl-trivial-features" ,sbcl-trivial-features)))
3646       (home-page "https://common-lisp.net/project/cl-plus-ssl/")
3647       (synopsis "Common Lisp bindings to OpenSSL")
3648       (description
3649        "This library is a fork of SSL-CMUCL.  The original SSL-CMUCL source
3650 code was written by Eric Marsden and includes contributions by Jochen Schmidt.
3651 Development into CL+SSL was done by David Lichteblau.")
3652       (license license:expat))))
3653
3654 (define-public cl-cl+ssl
3655   (sbcl-package->cl-source-package sbcl-cl+ssl))
3656
3657 (define-public sbcl-kmrcl
3658   (let ((version "1.109.0")
3659         (commit "5260068b2eb735af6796740c2db4955afac21636")
3660         (revision "1"))
3661     (package
3662       (name "sbcl-kmrcl")
3663       (version (git-version version revision commit))
3664       (source
3665        (origin
3666          (method git-fetch)
3667          (uri (git-reference
3668                (url "http://git.kpe.io/kmrcl.git/")
3669                (commit commit)))
3670          (file-name (git-file-name name version))
3671          (sha256
3672           (base32 "1va7xjgzfv674bpsli674i7zj3f7wg5kxic41kz18r6hh4n52dfv"))))
3673       (build-system asdf-build-system/sbcl)
3674       (arguments
3675        ;; Tests fail with: :FORCE and :FORCE-NOT arguments not allowed in a
3676        ;; nested call to ASDF/OPERATE:OPERATE unless identically to toplevel
3677        '(#:tests? #f))
3678       (inputs
3679        `(("sbcl-rt" ,sbcl-rt)))
3680       (home-page "http://files.kpe.io/kmrcl/")
3681       (synopsis "General utilities for Common Lisp programs")
3682       (description
3683        "KMRCL is a collection of utilities used by a number of Kevin
3684 Rosenberg's CL packages.")
3685       (license license:llgpl))))
3686
3687 (define-public cl-kmrcl
3688   (sbcl-package->cl-source-package sbcl-kmrcl))
3689
3690 (define-public sbcl-cl-base64
3691   (package
3692     (name "sbcl-cl-base64")
3693     (version "3.3.4")
3694     (source
3695      (origin
3696        (method url-fetch)
3697        (uri (string-append "http://files.kpe.io/cl-base64/cl-base64-"
3698                            version ".tar.gz"))
3699        (sha256
3700         (base32 "0pl4zwn5bf18dm8fh1kn1yshaa6kpmfrjyb33z9mq4raqmj3xpv2"))))
3701     (build-system asdf-build-system/sbcl)
3702     (arguments
3703      ;; Tests fail with: :FORCE and :FORCE-NOT arguments not allowed
3704      ;; in a nested call to ASDF/OPERATE:OPERATE unless identically
3705      ;; to toplevel
3706      '(#:tests? #f))
3707     (inputs
3708      `(("sbcl-ptester" ,sbcl-ptester)
3709        ("sbcl-kmrcl" ,sbcl-kmrcl)))
3710     (home-page "http://files.kpe.io/cl-base64/")
3711     (synopsis
3712      "Common Lisp package to encode and decode base64 with URI support")
3713     (description
3714      "This package provides highly optimized base64 encoding and decoding.
3715 Besides conversion to and from strings, integer conversions are supported.
3716 Encoding with Uniform Resource Identifiers is supported by using a modified
3717 encoding table that uses only URI-compatible characters.")
3718     (license license:bsd-3)))
3719
3720 (define-public cl-base64
3721   (sbcl-package->cl-source-package sbcl-cl-base64))
3722
3723 (define-public sbcl-chunga
3724   (package
3725     (name "sbcl-chunga")
3726     (version "1.1.7")
3727     (source
3728      (origin
3729        (method git-fetch)
3730        (uri (git-reference
3731               (url "https://github.com/edicl/chunga.git")
3732               (commit (string-append "v" version))))
3733        (file-name (git-file-name name version))
3734        (sha256
3735         (base32 "0jzn3nyb3f22gm983rfk99smqs3mhb9ivjmasvhq9qla5cl9pyhd"))))
3736     (build-system asdf-build-system/sbcl)
3737     (inputs
3738      `(("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)))
3739     (home-page "https://edicl.github.io/chunga/")
3740     (synopsis "Portable chunked streams for Common Lisp")
3741     (description
3742      "Chunga implements streams capable of chunked encoding on demand as
3743 defined in RFC 2616.")
3744     (license license:bsd-2)))
3745
3746 (define-public cl-chunga
3747   (sbcl-package->cl-source-package sbcl-chunga))
3748
3749 (define-public sbcl-cl-who
3750   (let ((version "1.1.4")
3751         (commit "2c08caa4bafba720409af9171feeba3f32e86d32")
3752         (revision "1"))
3753     (package
3754       (name "sbcl-cl-who")
3755       (version (git-version version revision commit))
3756       (source
3757        (origin
3758          (method git-fetch)
3759          (uri (git-reference
3760                (url "https://github.com/edicl/cl-who.git")
3761                (commit commit)))
3762          (file-name (git-file-name name version))
3763          (sha256
3764           (base32
3765            "0yjb6sr3yazm288m318kqvj9xk8rm9n1lpimgf65ymqv0i5agxsb"))))
3766       (build-system asdf-build-system/sbcl)
3767       (native-inputs
3768        `(("sbcl-flexi-streams" ,sbcl-flexi-streams)))
3769       (home-page "https://edicl.github.io/cl-who/")
3770       (synopsis "Yet another Lisp markup language")
3771       (description
3772        "There are plenty of Lisp Markup Languages out there - every Lisp
3773 programmer seems to write at least one during his career - and CL-WHO (where
3774 WHO means \"with-html-output\" for want of a better acronym) is probably just
3775 as good or bad as the next one.")
3776       (license license:bsd-2))))
3777
3778 (define-public cl-cl-who
3779   (sbcl-package->cl-source-package sbcl-cl-who))
3780
3781 (define-public sbcl-chipz
3782   (let ((version "0.8")
3783         (commit "75dfbc660a5a28161c57f115adf74c8a926bfc4d")
3784         (revision "1"))
3785     (package
3786       (name "sbcl-chipz")
3787       (version (git-version version revision commit))
3788       (source
3789        (origin
3790          (method git-fetch)
3791          (uri (git-reference
3792                (url "https://github.com/froydnj/chipz.git")
3793                (commit commit)))
3794          (file-name (git-file-name name version))
3795          (sha256
3796           (base32
3797            "0plx4rs39zbs4gjk77h4a2q11zpy75fh9v8hnxrvsf8fnakajhwg"))))
3798       (build-system asdf-build-system/sbcl)
3799       (native-inputs
3800        `(("sbcl-flexi-streams" ,sbcl-flexi-streams)))
3801       (home-page "http://method-combination.net/lisp/chipz/")
3802       (synopsis
3803        "Common Lisp library for decompressing deflate, zlib, gzip, and bzip2
3804 data")
3805       (description
3806        "DEFLATE data, defined in RFC1951, forms the core of popular
3807 compression formats such as zlib (RFC 1950) and gzip (RFC 1952).  As such,
3808 Chipz also provides for decompressing data in those formats as well.  BZIP2 is
3809 the format used by the popular compression tool bzip2.")
3810       ;; The author describes it as "MIT-like"
3811       (license license:expat))))
3812
3813 (define-public cl-chipz
3814   (sbcl-package->cl-source-package sbcl-chipz))
3815
3816 (define-public sbcl-drakma
3817   (package
3818     (name "sbcl-drakma")
3819     (version "2.0.7")
3820     (source
3821      (origin
3822        (method git-fetch)
3823        (uri (git-reference
3824              (url "https://github.com/edicl/drakma.git")
3825              (commit (string-append "v" version))))
3826        (file-name (git-file-name name version))
3827        (sha256
3828         (base32
3829          "1441idnyif9xzx3ln1p3fg36k2v9h4wasjqrzc8y52j61420qpci"))))
3830     (build-system asdf-build-system/sbcl)
3831     (inputs
3832      `(("sbcl-puri" ,sbcl-puri)
3833        ("sbcl-cl-base64" ,sbcl-cl-base64)
3834        ("sbcl-chunga" ,sbcl-chunga)
3835        ("sbcl-flexi-streams" ,sbcl-flexi-streams)
3836        ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
3837        ("sbcl-chipz" ,sbcl-chipz)
3838        ("sbcl-usocket" ,sbcl-usocket)
3839        ("sbcl-cl+ssl" ,sbcl-cl+ssl)))
3840     (native-inputs
3841      `(("sbcl-fiveam" ,sbcl-fiveam)))
3842     (home-page "https://edicl.github.io/drakma/")
3843     (synopsis "HTTP client written in Common Lisp")
3844     (description
3845      "Drakma is a full-featured HTTP client implemented in Common Lisp.  It
3846 knows how to handle HTTP/1.1 chunking, persistent connections, re-usable
3847 sockets, SSL, continuable uploads, file uploads, cookies, and more.")
3848     (license license:bsd-2)))
3849
3850 (define-public cl-drakma
3851   (sbcl-package->cl-source-package sbcl-drakma))
3852
3853 (define-public ecl-drakma
3854   (sbcl-package->ecl-package sbcl-drakma))
3855
3856 (define-public sbcl-hunchentoot
3857   (package
3858     (name "sbcl-hunchentoot")
3859     (version "1.2.38")
3860     (source
3861      (origin
3862        (method git-fetch)
3863        (uri (git-reference
3864              (url "https://github.com/edicl/hunchentoot.git")
3865              (commit (string-append "v" version))))
3866        (file-name (git-file-name "hunchentoot" version))
3867        (sha256
3868         (base32 "1anpcad7w045m4rsjs1f3xdhjwx5cppq1h0vlb3q7dz81fi3i6yq"))))
3869     (build-system asdf-build-system/sbcl)
3870     (native-inputs
3871      `(("sbcl-cl-who" ,sbcl-cl-who)
3872        ("sbcl-drakma" ,sbcl-drakma)))
3873     (inputs
3874      `(("sbcl-chunga" ,sbcl-chunga)
3875        ("sbcl-cl-base64" ,sbcl-cl-base64)
3876        ("sbcl-cl-fad" ,sbcl-cl-fad)
3877        ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
3878        ("sbcl-flexi-streams" ,sbcl-flexi-streams)
3879        ("sbcl-cl+ssl" ,sbcl-cl+ssl)
3880        ("sbcl-md5" ,sbcl-md5)
3881        ("sbcl-rfc2388" ,sbcl-rfc2388)
3882        ("sbcl-trivial-backtrace" ,sbcl-trivial-backtrace)
3883        ("sbcl-usocket" ,sbcl-usocket)))
3884     (home-page "https://edicl.github.io/hunchentoot/")
3885     (synopsis "Web server written in Common Lisp")
3886     (description
3887      "Hunchentoot is a web server written in Common Lisp and at the same
3888 time a toolkit for building dynamic websites.  As a stand-alone web server,
3889 Hunchentoot is capable of HTTP/1.1 chunking (both directions), persistent
3890 connections (keep-alive), and SSL.")
3891     (license license:bsd-2)))
3892
3893 (define-public cl-hunchentoot
3894   (sbcl-package->cl-source-package sbcl-hunchentoot))
3895
3896 (define-public sbcl-trivial-types
3897   (package
3898     (name "sbcl-trivial-types")
3899     (version "0.0.1")
3900     (source
3901      (origin
3902        (method git-fetch)
3903        (uri (git-reference
3904              (url "https://github.com/m2ym/trivial-types.git")
3905              (commit "ee869f2b7504d8aa9a74403641a5b42b16f47d88")))
3906        (file-name (git-file-name name version))
3907        (sha256
3908         (base32 "1s4cp9bdlbn8447q7w7f1wkgwrbvfzp20mgs307l5pxvdslin341"))))
3909     (build-system asdf-build-system/sbcl)
3910     (home-page "https://github.com/m2ym/trivial-types")
3911     (synopsis "Trivial type definitions for Common Lisp")
3912     (description
3913      "TRIVIAL-TYPES provides missing but important type definitions such as
3914 PROPER-LIST, ASSOCIATION-LIST, PROPERTY-LIST and TUPLE.")
3915     (license license:llgpl)))
3916
3917 (define-public cl-trivial-types
3918   (sbcl-package->cl-source-package sbcl-trivial-types))
3919
3920 (define-public sbcl-cl-syntax
3921   (package
3922     (name "sbcl-cl-syntax")
3923     (version "0.0.3")
3924     (source
3925      (origin
3926        (method git-fetch)
3927        (uri (git-reference
3928              (url "https://github.com/m2ym/cl-syntax.git")
3929              (commit "03f0c329bbd55b8622c37161e6278366525e2ccc")))
3930        (file-name (git-file-name "cl-syntax" version))
3931        (sha256
3932         (base32 "17ran8xp77asagl31xv8w819wafh6whwfc9p6dgx22ca537gyl4y"))))
3933     (build-system asdf-build-system/sbcl)
3934     (arguments
3935      '(#:asd-file "cl-syntax.asd"
3936        #:asd-system-name "cl-syntax"))
3937     (inputs `(("sbcl-trivial-types" ,sbcl-trivial-types)
3938               ("sbcl-named-readtables" ,sbcl-named-readtables)))
3939     (home-page "https://github.com/m2ym/cl-syntax")
3940     (synopsis "Reader Syntax Coventions for Common Lisp and SLIME")
3941     (description
3942      "CL-SYNTAX provides Reader Syntax Coventions for Common Lisp and SLIME.")
3943     (license license:llgpl)))
3944
3945 (define-public cl-syntax
3946   (sbcl-package->cl-source-package sbcl-cl-syntax))
3947
3948 (define-public sbcl-cl-annot
3949   (let ((commit "c99e69c15d935eabc671b483349a406e0da9518d")
3950         (revision "1"))
3951     (package
3952       (name "sbcl-cl-annot")
3953       (version (git-version "0.0.0" revision commit))
3954       (source
3955        (origin
3956          (method git-fetch)
3957          (uri (git-reference
3958                (url "https://github.com/m2ym/cl-annot.git")
3959                (commit commit)))
3960          (file-name (git-file-name name version))
3961          (sha256
3962           (base32 "1wq1gs9jjd5m6iwrv06c2d7i5dvqsfjcljgbspfbc93cg5xahk4n"))))
3963       (build-system asdf-build-system/sbcl)
3964     (arguments
3965      '(#:asd-file "cl-annot.asd"
3966        #:asd-system-name "cl-annot"))
3967       (inputs
3968        `(("sbcl-alexandria" ,sbcl-alexandria)))
3969       (home-page "https://github.com/m2ym/cl-annot")
3970       (synopsis "Python-like Annotation Syntax for Common Lisp.")
3971       (description
3972        "@code{cl-annot} is an general annotation library for Common Lisp.")
3973       (license license:llgpl))))
3974
3975 (define-public cl-annot
3976   (sbcl-package->cl-source-package sbcl-cl-annot))
3977
3978 (define-public sbcl-cl-syntax-annot
3979   (package
3980     (inherit sbcl-cl-syntax)
3981     (name "sbcl-cl-syntax-annot")
3982     (arguments
3983      '(#:asd-file "cl-syntax-annot.asd"
3984        #:asd-system-name "cl-syntax-annot"))
3985     (inputs
3986      `(("sbcl-cl-syntax" ,sbcl-cl-syntax)
3987        ("sbcl-cl-annot" ,sbcl-cl-annot)))
3988     (synopsis "Common Lisp reader Syntax for cl-annot")
3989     (description
3990      "CL-SYNTAX provides reader syntax coventions for Common Lisp and
3991 @code{cl-annot}.")))
3992
3993 (define-public cl-syntax-annot
3994   (sbcl-package->cl-source-package sbcl-cl-syntax-annot))
3995
3996 (define-public sbcl-cl-syntax-interpol
3997   (package
3998     (inherit sbcl-cl-syntax)
3999     (name "sbcl-cl-syntax-interpol")
4000     (arguments
4001      '(#:asd-file "cl-syntax-interpol.asd"
4002        #:asd-system-name "cl-syntax-interpol"))
4003     (inputs
4004      `(("sbcl-cl-syntax" ,sbcl-cl-syntax)
4005        ("sbcl-cl-interpol" ,sbcl-cl-interpol)))
4006     (synopsis "Common Lisp reader Syntax for cl-interpol")
4007     (description
4008      "CL-SYNTAX provides reader syntax coventions for Common Lisp and
4009 @code{cl-interpol}.")))
4010
4011 (define-public cl-syntax-interpol
4012   (sbcl-package->cl-source-package sbcl-cl-syntax-interpol))
4013
4014 (define-public sbcl-cl-utilities
4015   (let ((commit "dce2d2f6387091ea90357a130fa6d13a6776884b")
4016         (revision "1"))
4017     (package
4018       (name "sbcl-cl-utilities")
4019       (version (git-version "0.0.0" revision commit))
4020       (source
4021        (origin
4022          (method url-fetch)
4023          (uri
4024           (string-append
4025            "https://gitlab.common-lisp.net/cl-utilities/cl-utilities/-/"
4026            "archive/" commit "/cl-utilities-" commit ".tar.gz"))
4027          (sha256
4028           (base32 "1r46v730yf96nk2vb24qmagv9x96xvd08abqwhf02ghgydv1a7z2"))))
4029       (build-system asdf-build-system/sbcl)
4030       (arguments
4031        '(#:asd-file "cl-utilities.asd"
4032          #:asd-system-name "cl-utilities"
4033          #:phases
4034          (modify-phases %standard-phases
4035            (add-after 'unpack 'fix-paths
4036              (lambda* (#:key inputs #:allow-other-keys)
4037                (substitute* "rotate-byte.lisp"
4038                  (("in-package :cl-utilities)" all)
4039                   "in-package :cl-utilities)\n\n#+sbcl\n(require :sb-rotate-byte)")))))))
4040       (home-page "http://common-lisp.net/project/cl-utilities")
4041       (synopsis "A collection of semi-standard utilities")
4042       (description
4043        "On Cliki.net <http://www.cliki.net/Common%20Lisp%20Utilities>, there
4044 is a collection of Common Lisp Utilities, things that everybody writes since
4045 they're not part of the official standard.  There are some very useful things
4046 there; the only problems are that they aren't implemented as well as you'd
4047 like (some aren't implemented at all) and they aren't conveniently packaged
4048 and maintained.  It takes quite a bit of work to carefully implement utilities
4049 for common use, commented and documented, with error checking placed
4050 everywhere some dumb user might make a mistake.")
4051       (license license:public-domain))))
4052
4053 (define-public cl-utilities
4054   (sbcl-package->cl-source-package sbcl-cl-utilities))
4055
4056 (define-public sbcl-map-set
4057   (let ((commit "7b4b545b68b8")
4058         (revision "1"))
4059     (package
4060       (name "sbcl-map-set")
4061       (version (git-version "0.0.0" revision commit))
4062       (source
4063        (origin
4064          (method url-fetch)
4065          (uri (string-append
4066                "https://bitbucket.org/tarballs_are_good/map-set/get/"
4067                commit ".tar.gz"))
4068          (sha256
4069           (base32 "1sx5j5qdsy5fklspfammwb16kjrhkggdavm922a9q86jm5l0b239"))))
4070       (build-system asdf-build-system/sbcl)
4071       (home-page "https://bitbucket.org/tarballs_are_good/map-set")
4072       (synopsis "Set-like data structure")
4073       (description
4074        "Implementation of a set-like data structure with constant time
4075 addition, removal, and random selection.")
4076       (license license:bsd-3))))
4077
4078 (define-public cl-map-set
4079   (sbcl-package->cl-source-package sbcl-map-set))
4080
4081 (define-public sbcl-quri
4082   (let ((commit "b53231c5f19446dd7c24b15a249fefa45ae94f9a")
4083         (revision "2"))
4084     (package
4085       (name "sbcl-quri")
4086       (version (git-version "0.1.0" revision commit))
4087       (source
4088        (origin
4089          (method git-fetch)
4090          (uri (git-reference
4091                (url "https://github.com/fukamachi/quri.git")
4092                (commit commit)))
4093          (file-name (git-file-name name version))
4094          (sha256
4095           (base32 "0cansr63m690ymvhway419178mq2sqnmxm4rdxclbsrnjwwbi36m"))))
4096       (build-system asdf-build-system/sbcl)
4097       (arguments
4098        ;; Tests fail with: Component QURI-ASD::QURI-TEST not found,
4099        ;; required by #<SYSTEM "quri">. Why?
4100        '(#:tests? #f))
4101       (native-inputs `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4102                        ("sbcl-prove" ,sbcl-prove)))
4103       (inputs `(("sbcl-babel" ,sbcl-babel)
4104                 ("sbcl-split-sequence" ,sbcl-split-sequence)
4105                 ("sbcl-cl-utilities" ,sbcl-cl-utilities)
4106                 ("sbcl-alexandria" ,sbcl-alexandria)))
4107       (home-page "https://github.com/fukamachi/quri")
4108       (synopsis "Yet another URI library for Common Lisp")
4109       (description
4110        "QURI (pronounced \"Q-ree\") is yet another URI library for Common
4111 Lisp. It is intended to be a replacement of PURI.")
4112       (license license:bsd-3))))
4113
4114 (define-public cl-quri
4115   (sbcl-package->cl-source-package sbcl-quri))
4116
4117 (define-public sbcl-myway
4118   (let ((commit "286230082a11f879c18b93f17ca571c5f676bfb7")
4119         (revision "1"))
4120     (package
4121      (name "sbcl-myway")
4122      (version (git-version "0.1.0" revision commit))
4123      (source
4124       (origin
4125        (method git-fetch)
4126        (uri (git-reference
4127              (url "https://github.com/fukamachi/myway.git")
4128              (commit commit)))
4129        (file-name (git-file-name "myway" version))
4130        (sha256
4131         (base32 "0briia9bk3lbr0frnx39d1qg6i38dm4j6z9w3yga3d40k6df4a90"))))
4132      (build-system asdf-build-system/sbcl)
4133      (arguments
4134       ;; Tests fail with: Component MYWAY-ASD::MYWAY-TEST not found, required
4135       ;; by #<SYSTEM "myway">. Why?
4136       '(#:tests? #f))
4137      (native-inputs
4138       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4139         ("sbcl-prove" ,sbcl-prove)))
4140      (inputs
4141       `(("sbcl-cl-ppcre" ,sbcl-cl-ppcre)
4142         ("sbcl-quri" ,sbcl-quri)
4143         ("sbcl-map-set" ,sbcl-map-set)))
4144      (home-page "https://github.com/fukamachi/myway")
4145      (synopsis "Sinatra-compatible URL routing library for Common Lisp")
4146      (description "My Way is a Sinatra-compatible URL routing library.")
4147      (license license:llgpl))))
4148
4149 (define-public cl-myway
4150   (sbcl-package->cl-source-package sbcl-myway))
4151
4152 (define-public sbcl-xsubseq
4153   (let ((commit "5ce430b3da5cda3a73b9cf5cee4df2843034422b")
4154         (revision "1"))
4155     (package
4156      (name "sbcl-xsubseq")
4157      (version (git-version "0.0.1" revision commit))
4158      (source
4159       (origin
4160        (method git-fetch)
4161        (uri (git-reference
4162              (url "https://github.com/fukamachi/xsubseq")
4163              (commit commit)))
4164        (file-name (git-file-name name version))
4165        (sha256
4166         (base32 "1xz79q0p2mclf3sqjiwf6izdpb6xrsr350bv4mlmdlm6rg5r99px"))))
4167      (build-system asdf-build-system/sbcl)
4168      (arguments
4169       ;; Tests fail with: Component XSUBSEQ-ASD::XSUBSEQ-TEST not found,
4170       ;; required by #<SYSTEM "xsubseq">. Why?
4171       '(#:tests? #f))
4172      (native-inputs
4173       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4174         ("sbcl-prove" ,sbcl-prove)))
4175      (home-page "https://github.com/fukamachi/xsubseq")
4176      (synopsis "Efficient way to use \"subseq\"s in Common Lisp")
4177      (description
4178       "XSubseq provides functions to be able to handle \"subseq\"s more
4179 effieiently.")
4180      (license license:bsd-2))))
4181
4182 (define-public cl-xsubseq
4183   (sbcl-package->cl-source-package sbcl-xsubseq))
4184
4185 (define-public sbcl-smart-buffer
4186   (let ((commit "09b9a9a0b3abaa37abe9a730f5aac2643dca4e62")
4187         (revision "1"))
4188     (package
4189       (name "sbcl-smart-buffer")
4190       (version (git-version "0.0.1" revision commit))
4191       (source
4192        (origin
4193          (method git-fetch)
4194          (uri (git-reference
4195                (url "https://github.com/fukamachi/smart-buffer")
4196                (commit commit)))
4197          (file-name (git-file-name name version))
4198          (sha256
4199           (base32 "0qz1zzxx0wm5ff7gpgsq550a59p0qj594zfmm2rglj97dahj54l7"))))
4200       (build-system asdf-build-system/sbcl)
4201       (arguments
4202        ;; Tests fail with: Component SMART-BUFFER-ASD::SMART-BUFFER-TEST not
4203        ;; found, required by #<SYSTEM "smart-buffer">. Why?
4204        `(#:tests? #f))
4205       (native-inputs
4206        `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4207          ("sbcl-prove" ,sbcl-prove)))
4208       (inputs
4209        `(("sbcl-xsubseq" ,sbcl-xsubseq)
4210          ("sbcl-flexi-streams" ,sbcl-flexi-streams)))
4211       (home-page "https://github.com/fukamachi/smart-buffer")
4212       (synopsis "Smart octets buffer")
4213       (description
4214        "Smart-buffer provides an output buffer which changes the destination
4215 depending on content size.")
4216       (license license:bsd-3))))
4217
4218 (define-public cl-smart-buffer
4219   (sbcl-package->cl-source-package sbcl-smart-buffer))
4220
4221 (define-public sbcl-fast-http
4222   (let ((commit "502a37715dcb8544cc8528b78143a942de662c5a")
4223         (revision "2"))
4224     (package
4225       (name "sbcl-fast-http")
4226       (version (git-version "0.2.0" revision commit))
4227       (source
4228        (origin
4229          (method git-fetch)
4230          (uri (git-reference
4231                (url "https://github.com/fukamachi/fast-http")
4232                (commit commit)))
4233          (file-name (git-file-name name version))
4234          (sha256
4235           (base32 "0al2g7g219jjljsf7b23pbilpgacxy5as5gs2nqf76b5qni396mi"))))
4236       (build-system asdf-build-system/sbcl)
4237       (arguments
4238        ;; Tests fail with: Component FAST-HTTP-ASD::FAST-HTTP-TEST not found,
4239        ;; required by #<SYSTEM "fast-http">. Why?
4240        `(#:tests? #f))
4241       (native-inputs
4242        `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4243          ("sbcl-prove" ,sbcl-prove)
4244          ("cl-syntax-interpol" ,sbcl-cl-syntax-interpol)))
4245       (inputs
4246        `(("sbcl-alexandria" ,sbcl-alexandria)
4247          ("sbcl-proc-parse" ,sbcl-proc-parse)
4248          ("sbcl-xsubseq" ,sbcl-xsubseq)
4249          ("sbcl-smart-buffer" ,sbcl-smart-buffer)
4250          ("sbcl-cl-utilities" ,sbcl-cl-utilities)))
4251       (home-page "https://github.com/fukamachi/fast-http")
4252       (synopsis "HTTP request/response parser for Common Lisp")
4253       (description
4254        "@code{fast-http} is a HTTP request/response protocol parser for Common
4255 Lisp.")
4256       ;; Author specified the MIT license
4257       (license license:expat))))
4258
4259 (define-public cl-fast-http
4260   (sbcl-package->cl-source-package sbcl-fast-http))
4261
4262 (define-public sbcl-static-vectors
4263   (package
4264     (name "sbcl-static-vectors")
4265     (version "1.8.4")
4266     (source
4267      (origin
4268        (method git-fetch)
4269        (uri (git-reference
4270              (url "https://github.com/sionescu/static-vectors.git")
4271              (commit (string-append "v" version))))
4272        (file-name (git-file-name name version))
4273        (sha256
4274         (base32 "0qvf9z6bhwhm8n45fjwkm7j8dcb58szfvndky65cyn4lpdval7m1"))))
4275     (native-inputs
4276      `(("sbcl-fiveam" ,sbcl-fiveam)))
4277     (inputs
4278      `(("sbcl-cffi-grovel" ,sbcl-cffi-grovel)
4279        ("sbcl-cffi" ,sbcl-cffi)))
4280     (build-system asdf-build-system/sbcl)
4281     (home-page "https://github.com/sionescu/static-vectors")
4282     (synopsis "Allocate SIMPLE-ARRAYs in static memory")
4283     (description
4284      "With @code{static-vectors}, you can create vectors allocated in static
4285 memory.")
4286     (license license:expat)))
4287
4288 (define-public cl-static-vectors
4289   (sbcl-package->cl-source-package sbcl-static-vectors))
4290
4291 (define-public ecl-static-vectors
4292   (sbcl-package->ecl-package sbcl-static-vectors))
4293
4294 (define-public sbcl-marshal
4295   (let ((commit "eff1b15f2b0af2f26f71ad6a4dd5c4beab9299ec")
4296         (revision "1"))
4297     (package
4298      (name "sbcl-marshal")
4299      (version (git-version "1.3.0" revision commit))
4300      (source
4301       (origin
4302        (method git-fetch)
4303        (uri (git-reference
4304              (url "https://github.com/wlbr/cl-marshal.git")
4305              (commit commit)))
4306        (file-name (git-file-name name version))
4307        (sha256
4308         (base32 "08qs6fhk38xpkkjkpcj92mxx0lgy4ygrbbzrmnivdx281syr0gwh"))))
4309      (build-system asdf-build-system/sbcl)
4310      (home-page "https://github.com/wlbr/cl-marshal")
4311      (synopsis "Simple (de)serialization of Lisp datastructures")
4312      (description
4313       "Simple and fast marshalling of Lisp datastructures.  Convert any object
4314 into a string representation, put it on a stream an revive it from there.
4315 Only minimal changes required to make your CLOS objects serializable.")
4316      (license license:expat))))
4317
4318 (define-public cl-marshal
4319   (sbcl-package->cl-source-package sbcl-marshal))
4320
4321 (define-public sbcl-checkl
4322   (let ((commit "80328800d047fef9b6e32dfe6bdc98396aee3cc9")
4323         (revision "1"))
4324     (package
4325       (name "sbcl-checkl")
4326       (version (git-version "0.0.0" revision commit))
4327       (source
4328        (origin
4329          (method git-fetch)
4330          (uri (git-reference
4331                (url "https://github.com/rpav/CheckL.git")
4332                (commit commit)))
4333          (file-name (git-file-name name version))
4334          (sha256
4335           (base32 "0bpisihx1gay44xmyr1dmhlwh00j0zzi04rp9fy35i95l2r4xdlx"))))
4336       (build-system asdf-build-system/sbcl)
4337       (arguments
4338        ;; Error while trying to load definition for system checkl-test from
4339        ;; pathname [...]/checkl-test.asd: The function CHECKL:DEFINE-TEST-OP
4340        ;; is undefined.
4341        '(#:tests? #f))
4342       (native-inputs
4343        `(("sbcl-fiveam" ,sbcl-fiveam)))
4344       (inputs
4345        `(("sbcl-marshal" ,sbcl-marshal)))
4346       (home-page "https://github.com/rpav/CheckL/")
4347       (synopsis "Dynamic testing for Common Lisp")
4348       (description
4349        "CheckL lets you write tests dynamically, it checks resulting values
4350 against the last run.")
4351       ;; The author specifies both LLGPL and "BSD", but the "BSD" license
4352       ;; isn't specified anywhere, so I don't know which kind.  LLGPL is the
4353       ;; stronger of the two and so I think only listing this should suffice.
4354       (license license:llgpl))))
4355
4356 (define-public cl-checkl
4357   (sbcl-package->cl-source-package sbcl-checkl))
4358
4359 (define-public sbcl-fast-io
4360   (let ((commit "603f4903dd74fb221859da7058ae6ca3853fe64b")
4361         (revision "2"))
4362     (package
4363      (name "sbcl-fast-io")
4364      (version (git-version "1.0.0" revision commit))
4365      (source
4366       (origin
4367        (method git-fetch)
4368        (uri (git-reference
4369              (url "https://github.com/rpav/fast-io.git")
4370              (commit commit)))
4371        (file-name (git-file-name name version))
4372        (sha256
4373         (base32 "00agvc0xx4w715i6ach05p995zpcpghn04xc06zyci06q677vw3n"))))
4374      (build-system asdf-build-system/sbcl)
4375      (arguments
4376       ;; Error while trying to load definition for system fast-io-test from
4377       ;; pathname [...]/fast-io-test.asd: The function CHECKL:DEFINE-TEST-OP
4378       ;; is undefined.
4379       '(#:tests? #f))
4380      (native-inputs
4381       `(("sbcl-fiveam" ,sbcl-fiveam)
4382         ("sbcl-checkl" ,sbcl-checkl)))
4383      (inputs
4384       `(("sbcl-alexandria" ,sbcl-alexandria)
4385         ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)
4386         ("sbcl-static-vectors" ,sbcl-static-vectors)))
4387      (home-page "https://github.com/rpav/fast-io")
4388      (synopsis "Fast octet-vector/stream I/O for Common Lisp")
4389      (description
4390       "Fast-io is about improving performance to octet-vectors and octet
4391 streams (though primarily the former, while wrapping the latter).")
4392      ;; Author specifies this as NewBSD which is an alias
4393      (license license:bsd-3))))
4394
4395 (define-public cl-fast-io
4396   (sbcl-package->cl-source-package sbcl-fast-io))
4397
4398 (define-public sbcl-jonathan
4399   (let ((commit "1f448b4f7ac8265e56e1c02b32ce383e65316300")
4400         (revision "1"))
4401     (package
4402      (name "sbcl-jonathan")
4403      (version (git-version "0.1.0" revision commit))
4404      (source
4405       (origin
4406        (method git-fetch)
4407        (uri (git-reference
4408              (url "https://github.com/Rudolph-Miller/jonathan.git")
4409              (commit commit)))
4410        (file-name (git-file-name name version))
4411        (sha256
4412         (base32 "14x4iwz3mbag5jzzzr4sb6ai0m9r4q4kyypbq32jmsk2dx1hi807"))))
4413      (build-system asdf-build-system/sbcl)
4414      (arguments
4415       ;; Tests fail with: Component JONATHAN-ASD::JONATHAN-TEST not found,
4416       ;; required by #<SYSTEM "jonathan">. Why?
4417       `(#:tests? #f))
4418      (native-inputs
4419       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4420         ("sbcl-prove" ,sbcl-prove)))
4421      (inputs
4422       `(("sbcl-cl-syntax" ,sbcl-cl-syntax)
4423         ("sbcl-cl-syntax-annot" ,sbcl-cl-syntax-annot)
4424         ("sbcl-fast-io" ,sbcl-fast-io)
4425         ("sbcl-proc-parse" ,sbcl-proc-parse)
4426         ("sbcl-cl-ppcre" ,sbcl-cl-ppcre)))
4427      (home-page "https://rudolph-miller.github.io/jonathan/overview.html")
4428      (synopsis "JSON encoder and decoder")
4429      (description
4430       "High performance JSON encoder and decoder.  Currently support: SBCL,
4431 CCL.")
4432      ;; Author specifies the MIT license
4433      (license license:expat))))
4434
4435 (define-public cl-jonathan
4436   (sbcl-package->cl-source-package sbcl-jonathan))
4437
4438 (define-public sbcl-http-body
4439   (let ((commit "dd01dc4f5842e3d29728552e5163acce8386eb73")
4440         (revision "1"))
4441     (package
4442      (name "sbcl-http-body")
4443      (version (git-version "0.1.0" revision commit))
4444      (source
4445       (origin
4446        (method git-fetch)
4447        (uri (git-reference
4448              (url "https://github.com/fukamachi/http-body")
4449              (commit commit)))
4450        (file-name (git-file-name name version))
4451        (sha256
4452         (base32 "1jd06snjvxcprhapgfq8sx0y5lrldkvhf206ix6d5a23dd6zcmr0"))))
4453      (build-system asdf-build-system/sbcl)
4454      (arguments
4455       ;; Tests fail with: Component HTTP-BODY-ASD::HTTP-BODY-TEST not
4456       ;; found, required by #<SYSTEM "http-body">. Why?
4457       `(#:tests? #f))
4458      (native-inputs
4459       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4460         ("sbcl-prove" ,sbcl-prove)))
4461      (inputs
4462       `(("sbcl-fast-http" ,sbcl-fast-http)
4463         ("sbcl-jonathan" ,sbcl-jonathan)
4464         ("sbcl-quri" ,sbcl-quri)))
4465      (home-page "https://github.com/fukamachi/http-body")
4466      (synopsis "HTTP POST data parser")
4467      (description
4468       "HTTP-Body parses HTTP POST data and returns POST parameters.  It
4469 supports application/x-www-form-urlencoded, application/json, and
4470 multipart/form-data.")
4471      (license license:bsd-2))))
4472
4473 (define-public cl-http-body
4474   (sbcl-package->cl-source-package sbcl-http-body))
4475
4476 (define-public sbcl-circular-streams
4477   (let ((commit "e770bade1919c5e8533dd2078c93c3d3bbeb38df")
4478         (revision "1"))
4479     (package
4480      (name "sbcl-circular-streams")
4481      (version (git-version "0.1.0" revision commit))
4482      (source
4483       (origin
4484        (method git-fetch)
4485        (uri (git-reference
4486              (url "https://github.com/fukamachi/circular-streams")
4487              (commit commit)))
4488        (file-name (git-file-name name version))
4489        (sha256
4490         (base32 "1wpw6d5cciyqcf92f7mvihak52pd5s47kk4qq6f0r2z2as68p5rs"))))
4491      (build-system asdf-build-system/sbcl)
4492      (arguments
4493       ;; The tests depend on cl-test-more which is now prove. Prove
4494       ;; tests aren't working for some reason.
4495       `(#:tests? #f))
4496      (inputs
4497       `(("sbcl-fast-io" ,sbcl-fast-io)
4498         ("sbcl-trivial-gray-streams" ,sbcl-trivial-gray-streams)))
4499      (home-page "https://github.com/fukamachi/circular-streams")
4500      (synopsis "Circularly readable streams for Common Lisp")
4501      (description
4502       "Circular-Streams allows you to read streams circularly by wrapping real
4503 streams. Once you reach end-of-file of a stream, it's file position will be
4504 reset to 0 and you're able to read it again.")
4505      (license license:llgpl))))
4506
4507 (define-public cl-circular-streams
4508   (sbcl-package->cl-source-package sbcl-circular-streams))
4509
4510 (define-public sbcl-lack-request
4511   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4512         (revision "1"))
4513     (package
4514      (name "sbcl-lack-request")
4515      (version (git-version "0.1.0" revision commit))
4516      (source
4517       (origin
4518        (method git-fetch)
4519        (uri (git-reference
4520              (url "https://github.com/fukamachi/lack.git")
4521              (commit commit)))
4522        (file-name (git-file-name "lack-request" version))
4523        (sha256
4524         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4525      (build-system asdf-build-system/sbcl)
4526      (arguments
4527       '(#:asd-file "lack-request.asd"
4528         #:asd-system-name "lack-request"
4529         #:test-asd-file "t-lack-request.asd"
4530         ;; XXX: Component :CLACK-TEST not found
4531         #:tests? #f))
4532      (native-inputs
4533       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4534         ("sbcl-prove" ,sbcl-prove)))
4535      (inputs
4536       `(("sbcl-quri" ,sbcl-quri)
4537         ("sbcl-http-body" ,sbcl-http-body)
4538         ("sbcl-circular-streams" ,sbcl-circular-streams)))
4539      (home-page "https://github.com/fukamachi/lack")
4540      (synopsis "Lack, the core of Clack")
4541      (description
4542       "Lack is a Common Lisp library which allows web applications to be
4543 constructed of modular components.  It was originally a part of Clack, however
4544 it's going to be rewritten as an individual project since Clack v2 with
4545 performance and simplicity in mind.")
4546      (license license:llgpl))))
4547
4548 (define-public cl-lack-request
4549   (sbcl-package->cl-source-package sbcl-lack-request))
4550
4551 (define-public sbcl-local-time
4552   (let ((commit "62792705245168d3fc2e04164b9a143477284142")
4553         (revision "1"))
4554     (package
4555      (name "sbcl-local-time")
4556      (version (git-version "1.0.6" revision commit))
4557      (source
4558       (origin
4559        (method git-fetch)
4560        (uri (git-reference
4561              (url "https://github.com/dlowe-net/local-time.git")
4562              (commit commit)))
4563        (file-name (git-file-name name version))
4564        (sha256
4565         (base32 "1r5zq4l1lrgprdr2pw7wwry194yknnllyjf6lx7snypb3k4r3yir"))))
4566      (build-system asdf-build-system/sbcl)
4567      (arguments
4568       ;; TODO: Component :STEFIL not found, required by #<SYSTEM
4569       ;; "local-time/test">
4570       '(#:tests? #f))
4571      (native-inputs
4572       `(("stefil" ,sbcl-hu.dwim.stefil)))
4573      (inputs
4574       `(("sbcl-cl-fad" ,sbcl-cl-fad)))
4575      (home-page "https://common-lisp.net/project/local-time/")
4576      (synopsis "Time manipulation library for Common Lisp")
4577      (description
4578       "The LOCAL-TIME library is a Common Lisp library for the manipulation of
4579 dates and times.  It is based almost entirely upon Erik Naggum's paper \"The
4580 Long Painful History of Time\".")
4581      (license license:expat))))
4582
4583 (define-public cl-local-time
4584   (sbcl-package->cl-source-package sbcl-local-time))
4585
4586 (define-public sbcl-lack-response
4587   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4588         (revision "1"))
4589     (package
4590      (name "sbcl-lack-response")
4591      (version (git-version "0.1.0" revision commit))
4592      (source
4593       (origin
4594        (method git-fetch)
4595        (uri (git-reference
4596              (url "https://github.com/fukamachi/lack.git")
4597              (commit commit)))
4598        (file-name (git-file-name name version))
4599        (sha256
4600         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4601      (build-system asdf-build-system/sbcl)
4602      (arguments
4603       '(#:asd-file "lack-response.asd"
4604         #:asd-system-name "lack-response"
4605         ;; XXX: no tests for lack-response.
4606         #:tests? #f))
4607      (native-inputs
4608       `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4609         ("sbcl-prove" ,sbcl-prove)))
4610      (inputs
4611       `(("sbcl-quri" ,sbcl-quri)
4612         ("sbcl-http-body" ,sbcl-http-body)
4613         ("sbcl-circular-streams" ,sbcl-circular-streams)
4614         ("sbcl-local-time" ,sbcl-local-time)))
4615      (home-page "https://github.com/fukamachi/lack")
4616      (synopsis "Lack, the core of Clack")
4617      (description
4618       "Lack is a Common Lisp library which allows web applications to be
4619 constructed of modular components.  It was originally a part of Clack, however
4620 it's going to be rewritten as an individual project since Clack v2 with
4621 performance and simplicity in mind.")
4622      (license license:llgpl))))
4623
4624 (define-public cl-lack-response
4625   (sbcl-package->cl-source-package sbcl-lack-response))
4626
4627 (define-public sbcl-lack-component
4628   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4629         (revision "1"))
4630     (package
4631      (name "sbcl-lack-component")
4632      (version (git-version "0.0.0" revision commit))
4633      (source
4634       (origin
4635        (method git-fetch)
4636        (uri (git-reference
4637              (url "https://github.com/fukamachi/lack.git")
4638              (commit commit)))
4639        (file-name (git-file-name "lack-component" version))
4640        (sha256
4641         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4642      (build-system asdf-build-system/sbcl)
4643      (arguments
4644       '(#:asd-file "lack-component.asd"
4645         #:asd-system-name "lack-component"
4646         #:test-asd-file "t-lack-component.asd"
4647         ;; XXX: Component :LACK-TEST not found
4648         #:tests? #f))
4649      (native-inputs
4650       `(("prove-asdf" ,sbcl-prove-asdf)))
4651      (home-page "https://github.com/fukamachi/lack")
4652      (synopsis "Lack, the core of Clack")
4653      (description
4654       "Lack is a Common Lisp library which allows web applications to be
4655 constructed of modular components.  It was originally a part of Clack, however
4656 it's going to be rewritten as an individual project since Clack v2 with
4657 performance and simplicity in mind.")
4658      (license license:llgpl))))
4659
4660 (define-public cl-lack-component
4661   (sbcl-package->cl-source-package sbcl-lack-component))
4662
4663 (define-public sbcl-lack-util
4664   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4665         (revision "1"))
4666     (package
4667      (name "sbcl-lack-util")
4668      (version (git-version "0.1.0" revision commit))
4669      (source
4670       (origin
4671        (method git-fetch)
4672        (uri (git-reference
4673              (url "https://github.com/fukamachi/lack.git")
4674              (commit commit)))
4675        (file-name (git-file-name "lack-util" version))
4676        (sha256
4677         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4678      (build-system asdf-build-system/sbcl)
4679      (arguments
4680       '(#:asd-file "lack-util.asd"
4681         #:asd-system-name "lack-util"
4682         #:test-asd-file "t-lack-util.asd"
4683         ;; XXX: Component :LACK-TEST not found
4684         #:tests? #f))
4685      (native-inputs
4686       `(("prove-asdf" ,sbcl-prove-asdf)))
4687      (inputs
4688       `(("sbcl-ironclad" ,sbcl-ironclad)))
4689      (home-page "https://github.com/fukamachi/lack")
4690      (synopsis "Lack, the core of Clack")
4691      (description
4692       "Lack is a Common Lisp library which allows web applications to be
4693 constructed of modular components.  It was originally a part of Clack, however
4694 it's going to be rewritten as an individual project since Clack v2 with
4695 performance and simplicity in mind.")
4696      (license license:llgpl))))
4697
4698 (define-public cl-lack-util
4699   (sbcl-package->cl-source-package sbcl-lack-util))
4700
4701 (define-public sbcl-lack-middleware-backtrace
4702   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4703         (revision "1"))
4704     (package
4705      (name "sbcl-lack-middleware-backtrace")
4706      (version (git-version "0.1.0" revision commit))
4707      (source
4708       (origin
4709        (method git-fetch)
4710        (uri (git-reference
4711              (url "https://github.com/fukamachi/lack.git")
4712              (commit commit)))
4713        (file-name (git-file-name "lack-middleware-backtrace" version))
4714        (sha256
4715         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4716      (build-system asdf-build-system/sbcl)
4717      (arguments
4718       '(#:asd-file "lack-middleware-backtrace.asd"
4719         #:asd-system-name "lack-middleware-backtrace"
4720         #:test-asd-file "t-lack-middleware-backtrace.asd"
4721         ;; XXX: Component :LACK not found
4722         #:tests? #f))
4723      (native-inputs
4724       `(("prove-asdf" ,sbcl-prove-asdf)))
4725      (home-page "https://github.com/fukamachi/lack")
4726      (synopsis "Lack, the core of Clack")
4727      (description
4728       "Lack is a Common Lisp library which allows web applications to be
4729 constructed of modular components.  It was originally a part of Clack, however
4730 it's going to be rewritten as an individual project since Clack v2 with
4731 performance and simplicity in mind.")
4732      (license license:llgpl))))
4733
4734 (define-public cl-lack-middleware-backtrace
4735   (sbcl-package->cl-source-package sbcl-lack-middleware-backtrace))
4736
4737 (define-public sbcl-trivial-mimes
4738   (let ((commit "303f8ac0aa6ca0bc139aa3c34822e623c3723fab")
4739         (revision "1"))
4740     (package
4741       (name "sbcl-trivial-mimes")
4742       (version (git-version "1.1.0" revision commit))
4743       (source
4744        (origin
4745          (method git-fetch)
4746          (uri (git-reference
4747                (url "https://github.com/Shinmera/trivial-mimes.git")
4748                (commit commit)))
4749          (file-name (git-file-name name version))
4750          (sha256
4751           (base32 "17jxgl47r695bvsb7wi3n2ws5rp1zzgvw0zii8cy5ggw4b4ayv6m"))))
4752       (build-system asdf-build-system/sbcl)
4753       (arguments
4754        '(#:phases
4755          (modify-phases %standard-phases
4756            (add-after
4757                'unpack 'fix-paths
4758              (lambda* (#:key inputs #:allow-other-keys)
4759                (let ((anchor "#p\"/etc/mime.types\""))
4760                  (substitute* "mime-types.lisp"
4761                    ((anchor all)
4762                     (string-append
4763                      anchor "\n"
4764                      "(asdf:system-relative-pathname :trivial-mimes "
4765                      "\"../../share/common-lisp/" (%lisp-type)
4766                      "-source/trivial-mimes/mime.types\")")))))))))
4767       (native-inputs
4768        `(("stefil" ,sbcl-hu.dwim.stefil)))
4769       (inputs
4770        `(("sbcl-cl-fad" ,sbcl-cl-fad)))
4771       (home-page "https://shinmera.github.io/trivial-mimes/")
4772       (synopsis "Tiny Common Lisp library to detect mime types in files")
4773       (description
4774        "This is a teensy library that provides some functions to determine the
4775 mime-type of a file.")
4776       (license license:artistic2.0))))
4777
4778 (define-public cl-trivial-mimes
4779   (sbcl-package->cl-source-package sbcl-trivial-mimes))
4780
4781 (define-public ecl-trivial-mimes
4782   (sbcl-package->ecl-package sbcl-trivial-mimes))
4783
4784 (define-public sbcl-lack-middleware-static
4785   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4786         (revision "1"))
4787     (package
4788      (name "sbcl-lack-middleware-static")
4789      (version (git-version "0.1.0" revision commit))
4790      (source
4791       (origin
4792        (method git-fetch)
4793        (uri (git-reference
4794              (url "https://github.com/fukamachi/lack.git")
4795              (commit commit)))
4796        (file-name (git-file-name "lack-middleware-static" version))
4797        (sha256
4798         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4799      (build-system asdf-build-system/sbcl)
4800      (arguments
4801       '(#:asd-file "lack-middleware-static.asd"
4802         #:asd-system-name "lack-middleware-static"
4803         #:test-asd-file "t-lack-middleware-static.asd"
4804         ;; XXX: Component :LACK not found
4805         #:tests? #f))
4806      (native-inputs
4807       `(("prove-asdf" ,sbcl-prove-asdf)))
4808      (inputs
4809       `(("sbcl-ironclad" ,sbcl-ironclad)
4810         ("sbcl-trivial-mimes" ,sbcl-trivial-mimes)
4811         ("sbcl-local-time" ,sbcl-local-time)))
4812      (home-page "https://github.com/fukamachi/lack")
4813      (synopsis "Lack, the core of Clack")
4814      (description
4815       "Lack is a Common Lisp library which allows web applications to be
4816 constructed of modular components.  It was originally a part of Clack, however
4817 it's going to be rewritten as an individual project since Clack v2 with
4818 performance and simplicity in mind.")
4819      (license license:llgpl))))
4820
4821 (define-public cl-lack-middleware-static
4822   (sbcl-package->cl-source-package sbcl-lack-middleware-static))
4823
4824 (define-public sbcl-lack
4825   (let ((commit "abff8efeb0c3a848e6bb0022f2b8b7fa3a1bc88b")
4826         (revision "1"))
4827     (package
4828      (name "sbcl-lack")
4829      (version (git-version "0.1.0" revision commit))
4830      (source
4831       (origin
4832        (method git-fetch)
4833        (uri (git-reference
4834              (url "https://github.com/fukamachi/lack.git")
4835              (commit commit)))
4836        (file-name (git-file-name "lack" version))
4837        (sha256
4838         (base32 "1avh4ygcj9xcx4m17nj0wnxxaisk26w4ljs2bibzxaln24x7pi85"))))
4839      (build-system asdf-build-system/sbcl)
4840      (arguments
4841       '(#:test-asd-file "t-lack.asd"
4842         ;; XXX: Component :CLACK not found
4843         #:tests? #f))
4844      (native-inputs
4845       `(("prove-asdf" ,sbcl-prove-asdf)))
4846      (inputs
4847       `(("sbcl-lack-component" ,sbcl-lack-component)
4848         ("sbcl-lack-util" ,sbcl-lack-util)))
4849      (home-page "https://github.com/fukamachi/lack")
4850      (synopsis "Lack, the core of Clack")
4851      (description
4852       "Lack is a Common Lisp library which allows web applications to be
4853 constructed of modular components.  It was originally a part of Clack, however
4854 it's going to be rewritten as an individual project since Clack v2 with
4855 performance and simplicity in mind.")
4856      (license license:llgpl))))
4857
4858 (define-public cl-lack
4859   (sbcl-package->cl-source-package sbcl-lack))
4860
4861 (define-public sbcl-ningle
4862   (let ((commit "50bd4f09b5a03a7249bd4d78265d6451563b25ad")
4863         (revision "1"))
4864     (package
4865       (name "sbcl-ningle")
4866       (version (git-version "0.3.0" revision commit))
4867       (source
4868        (origin
4869          (method git-fetch)
4870          (uri (git-reference
4871                (url "https://github.com/fukamachi/ningle.git")
4872                (commit commit)))
4873          (file-name (git-file-name name version))
4874          (sha256
4875           (base32 "1bsl8cnxhacb8p92z9n89vhk1ikmij5zavk0m2zvmj7iqm79jzgw"))))
4876       (build-system asdf-build-system/sbcl)
4877       (arguments
4878        ;; TODO: pull in clack-test
4879        '(#:tests? #f
4880          #:phases
4881          (modify-phases %standard-phases
4882            (delete 'cleanup-files)
4883            (delete 'cleanup)
4884            (add-before 'cleanup 'combine-fasls
4885              (lambda* (#:key outputs #:allow-other-keys)
4886                (let* ((out (assoc-ref outputs "out"))
4887                       (lib (string-append out "/lib/sbcl"))
4888                       (ningle-path (string-append lib "/ningle"))
4889                       (fasl-files (find-files out "\\.fasl$")))
4890                  (mkdir-p ningle-path)
4891                  (let ((fasl-path (lambda (name)
4892                                     (string-append ningle-path
4893                                                    "/"
4894                                                    (basename name)
4895                                                    "--system.fasl"))))
4896                    (for-each (lambda (file)
4897                                (rename-file file
4898                                             (fasl-path
4899                                              (basename file ".fasl"))))
4900                              fasl-files))
4901                  fasl-files)
4902                #t)))))
4903       (native-inputs
4904        `(("sbcl-prove-asdf" ,sbcl-prove-asdf)
4905          ("sbcl-prove" ,sbcl-prove)))
4906       (inputs
4907        `(("sbcl-cl-syntax" ,sbcl-cl-syntax)
4908          ("sbcl-cl-syntax-annot" ,sbcl-cl-syntax-annot)
4909          ("sbcl-myway" ,sbcl-myway)
4910          ("sbcl-lack-request" ,sbcl-lack-request)
4911          ("sbcl-lack-response" ,sbcl-lack-response)
4912          ("sbcl-lack-component" ,sbcl-lack-component)
4913          ("sbcl-alexandria" ,sbcl-alexandria)
4914          ("sbcl-babel" ,sbcl-babel)))
4915       (home-page "https://8arrow.org/ningle/")
4916       (synopsis "Super micro framework for Common Lisp")
4917       (description
4918        "Ningle is a lightweight web application framework for Common Lisp.")
4919       (license license:llgpl))))
4920
4921 (define-public cl-ningle
4922   (sbcl-package->cl-source-package sbcl-ningle))
4923
4924 (define-public sbcl-clack
4925   (let ((commit "e3e032843bb1220ab96263c411aa7f2feb4746e0")
4926         (revision "1"))
4927     (package
4928      (name "sbcl-clack")
4929      (version (git-version "2.0.0" revision commit))
4930      (source
4931       (origin
4932        (method git-fetch)
4933        (uri (git-reference
4934              (url "https://github.com/fukamachi/clack.git")
4935              (commit commit)))
4936        (file-name (git-file-name name version))
4937        (sha256
4938         (base32 "1ymzs6qyrwhlj6cgqsnpyn6g5cbp7a3s1vgxwna20y2q7y4iacy0"))))
4939      (build-system asdf-build-system/sbcl)
4940      (inputs
4941       `(("sbcl-lack" ,sbcl-lack)
4942         ("sbcl-lack-middleware-backtrace" ,sbcl-lack-middleware-backtrace)
4943         ("sbcl-bordeaux-threads" ,sbcl-bordeaux-threads)))
4944      (home-page "https://github.com/fukamachi/clack")
4945      (synopsis "Web Application Environment for Common Lisp")
4946      (description
4947       "Clack is a web application environment for Common Lisp inspired by
4948 Python's WSGI and Ruby's Rack.")
4949      (license license:llgpl))))
4950
4951 (define-public cl-clack
4952   (sbcl-package->cl-source-package sbcl-clack))
4953
4954 (define-public sbcl-log4cl
4955   (let ((commit "611e094458504b938d49de904eab141285328c7c")
4956         (revision "1"))
4957     (package
4958       (name "sbcl-log4cl")
4959       (build-system asdf-build-system/sbcl)
4960       (version "1.1.2")
4961       (source
4962        (origin
4963          (method git-fetch)
4964          (uri (git-reference
4965                (url "https://github.com/sharplispers/log4cl")
4966                (commit commit)))
4967          (file-name (git-file-name name version))
4968          (sha256
4969           (base32
4970            "08jly0s0g26b56hhpfizxsb4j0yvbh946sd205gr42dkzv8l7dsc"))))
4971       ;; FIXME: tests require stefil, sbcl-hu.dwim.stefil wont work
4972       (arguments
4973        `(#:tests? #f))
4974       (inputs `(("bordeaux-threads" ,sbcl-bordeaux-threads)))
4975       (synopsis "Common Lisp logging framework, modeled after Log4J")
4976       (home-page "https://github.com/7max/log4cl")
4977       (description "This is a Common Lisp logging framework that can log at
4978 various levels and mix text with expressions.")
4979       (license license:asl2.0))))
4980
4981 (define-public cl-log4cl
4982   (sbcl-package->cl-source-package sbcl-log4cl))
4983
4984 (define-public ecl-log4cl
4985   (sbcl-package->ecl-package sbcl-log4cl))
4986
4987 (define-public sbcl-find-port
4988   (let ((commit "00c96a25af93a0f8681d34ec548861f2d7485478")
4989         (revision "1"))
4990     (package
4991       (name "sbcl-find-port")
4992       (build-system asdf-build-system/sbcl)
4993       (version "0.1")
4994       (home-page "https://github.com/eudoxia0/find-port")
4995       (source
4996        (origin
4997          (method git-fetch)
4998          (uri (git-reference
4999                (url home-page)
5000                (commit commit)))
5001          (file-name (git-file-name name version))
5002          (sha256
5003           (base32
5004            "0d6dzbb45jh0rx90wgs6v020k2xa87mvzas3mvfzvivjvqqlpryq"))))
5005       (native-inputs
5006        `(("fiveam" ,sbcl-fiveam)))
5007       (inputs
5008        `(("sbcl-usocket" ,sbcl-usocket)))
5009       (synopsis "Find open ports programmatically in Common Lisp")
5010       (description "This is a small Common Lisp library that finds an open
5011 port within a range.")
5012       (license license:expat))))
5013
5014 (define-public cl-find-port
5015   (sbcl-package->cl-source-package sbcl-find-port))
5016
5017 (define-public ecl-find-port
5018   (sbcl-package->ecl-package sbcl-find-port))
5019
5020 (define-public sbcl-clunit
5021   (let ((commit "6f6d72873f0e1207f037470105969384f8380628")
5022         (revision "1"))
5023     (package
5024       (name "sbcl-clunit")
5025       (version (git-version "0.2.3" revision commit))
5026       (source
5027        (origin
5028          (method git-fetch)
5029          (uri (git-reference
5030                (url "https://github.com/tgutu/clunit.git")
5031                (commit commit)))
5032          (file-name (git-file-name name version))
5033          (sha256
5034           (base32
5035            "1idf2xnqzlhi8rbrqmzpmb3i1l6pbdzhhajkmhwbp6qjkmxa4h85"))))
5036       (build-system asdf-build-system/sbcl)
5037       (synopsis "CLUnit is a Common Lisp unit testing framework")
5038       (description
5039        "CLUnit is a Common Lisp unit testing framework.  It is designed
5040 to be easy to use so that you can quickly start testing.  CLUnit
5041 provides a rich set of features aimed at improving your unit testing
5042 experience.")
5043       (home-page "https://tgutu.github.io/clunit/")
5044       ;; MIT License
5045       (license license:expat))))
5046
5047 (define-public cl-clunit
5048   (sbcl-package->cl-source-package sbcl-clunit))
5049
5050 (define-public ecl-clunit
5051   (sbcl-package->ecl-package sbcl-clunit))
5052
5053 (define-public sbcl-py4cl
5054   (let ((commit "4c8a2b0814fd311f978964f825ce012290f60136")
5055         (revision "1"))
5056     (package
5057       (name "sbcl-py4cl")
5058       (version (git-version "0.0.0" revision commit))
5059       (source
5060        (origin
5061          (method git-fetch)
5062          (uri (git-reference
5063                (url "https://github.com/bendudson/py4cl.git")
5064                (commit commit)))
5065          (file-name (git-file-name name version))
5066          (sha256
5067           (base32
5068            "15mk7qdqjkj56gdnbyrdyz6r7m1h26ldvn6ch96pmvg5vmr1m45r"))
5069          (modules '((guix build utils)))))
5070       (build-system asdf-build-system/sbcl)
5071       (native-inputs
5072        `(("sbcl-clunit" ,sbcl-clunit)))
5073       (inputs
5074        `(("sbcl-trivial-garbage" ,sbcl-trivial-garbage)))
5075       (propagated-inputs
5076        ;; This package doesn't do anything without python available
5077        `(("python" ,python)
5078          ;; For multi-dimensional array support
5079          ("python-numpy" ,python-numpy)))
5080       (arguments
5081        '(#:phases
5082          (modify-phases %standard-phases
5083            (add-after 'unpack 'replace-*base-directory*-var
5084              (lambda* (#:key outputs #:allow-other-keys)
5085                ;; In the ASD, the author makes an attempt to
5086                ;; programatically determine the location of the
5087                ;; source-code so lisp can call into "py4cl.py". We can
5088                ;; hard-code this since we know where this file will
5089                ;; reside.
5090                (substitute* "src/callpython.lisp"
5091                  (("py4cl/config:\\*base-directory\\*")
5092                   (string-append
5093                    "\""
5094                    (assoc-ref outputs "out")
5095                    "/share/common-lisp/sbcl-source/py4cl/"
5096                    "\""))))))))
5097       (synopsis "Call python from Common Lisp")
5098       (description
5099        "Py4CL is a bridge between Common Lisp and Python, which enables Common
5100 Lisp to interact with Python code.  It uses streams to communicate with a
5101 separate python process, the approach taken by cl4py.  This is different to
5102 the CFFI approach used by burgled-batteries, but has the same goal.")
5103       (home-page "https://github.com/bendudson/py4cl")
5104       ;; MIT License
5105       (license license:expat))))
5106
5107 (define-public cl-py4cl
5108   (sbcl-package->cl-source-package sbcl-py4cl))
5109
5110 (define-public ecl-py4cl
5111   (sbcl-package->ecl-package sbcl-py4cl))
5112
5113 (define-public sbcl-parse-declarations
5114   (let ((commit "549aebbfb9403a7fe948654126b9c814f443f4f2")
5115         (revision "1"))
5116     (package
5117       (name "sbcl-parse-declarations")
5118       (version (git-version "1.0.0" revision commit))
5119       (source
5120        (origin
5121          (method git-fetch)
5122          (uri (git-reference
5123                (url (string-append
5124                      "https://gitlab.common-lisp.net/parse-declarations/"
5125                      "parse-declarations.git"))
5126                (commit commit)))
5127          (file-name (git-file-name name version))
5128          (sha256
5129           (base32 "03g5qks4c59nmxa48pbslxkfh77h8hn8566jddp6m9pl15dzzpxd"))))
5130       (build-system asdf-build-system/sbcl)
5131       (arguments
5132        `(#:asd-file "parse-declarations-1.0.asd"
5133          #:asd-system-name "parse-declarations-1.0"))
5134       (home-page "https://common-lisp.net/project/parse-declarations/")
5135       (synopsis "Parse, filter, and build declarations")
5136       (description
5137        "Parse-Declarations is a Common Lisp library to help writing
5138 macros which establish bindings.  To be semantically correct, such
5139 macros must take user declarations into account, as these may affect
5140 the bindings they establish.  Yet the ANSI standard of Common Lisp does
5141 not provide any operators to work with declarations in a convenient,
5142 high-level way.  This library provides such operators.")
5143       ;; MIT License
5144       (license license:expat))))
5145
5146 (define-public cl-parse-declarations
5147   (sbcl-package->cl-source-package sbcl-parse-declarations))
5148
5149 (define-public ecl-parse-declarations
5150   (sbcl-package->ecl-package sbcl-parse-declarations))
5151
5152 (define-public sbcl-cl-quickcheck
5153   (let ((commit "807b2792a30c883a2fbecea8e7db355b50ba662f")
5154         (revision "1"))
5155     (package
5156       (name "sbcl-cl-quickcheck")
5157       (version (git-version "0.0.4" revision commit))
5158       (source
5159        (origin
5160          (method git-fetch)
5161          (uri (git-reference
5162                (url "https://github.com/mcandre/cl-quickcheck.git")
5163                (commit commit)))
5164          (file-name (git-file-name name version))
5165          (sha256
5166           (base32
5167            "165lhypq5xkcys6hvzb3jq7ywnmqvzaflda29qk2cbs3ggas4767"))))
5168       (build-system asdf-build-system/sbcl)
5169       (synopsis
5170        "Common Lisp port of the QuickCheck unit test framework")
5171       (description
5172        "Common Lisp port of the QuickCheck unit test framework")
5173       (home-page "https://github.com/mcandre/cl-quickcheck")
5174       ;; MIT
5175       (license license:expat))))
5176
5177 (define-public cl-cl-quickcheck
5178   (sbcl-package->cl-source-package sbcl-cl-quickcheck))
5179
5180 (define-public ecl-cl-quickcheck
5181   (sbcl-package->ecl-package sbcl-cl-quickcheck))
5182
5183 (define-public sbcl-burgled-batteries3
5184   (let ((commit "f65f454d13bb6c40e17e9ec62e41eb5069e09760")
5185         (revision "2"))
5186     (package
5187       (name "sbcl-burgled-batteries3")
5188       (version (git-version "0.0.0" revision commit))
5189       (source
5190        (origin
5191          (method git-fetch)
5192          (uri (git-reference
5193                (url "https://github.com/snmsts/burgled-batteries3.git")
5194                (commit commit)))
5195          (file-name (git-file-name name version))
5196          (sha256
5197           (base32
5198            "1nzn7jawrfajyzwfnzrg2cmn9xxadcqh4szbpg0jggkhdkdzz4wa"))))
5199       (build-system asdf-build-system/sbcl)
5200       (arguments
5201        `(#:tests? #f
5202          #:modules (((guix build python-build-system) #:select (python-version))
5203                     ,@%asdf-build-system-modules)
5204          #:imported-modules ((guix build python-build-system)
5205                              ,@%asdf-build-system-modules)
5206          #:phases
5207          (modify-phases (@ (guix build asdf-build-system) %standard-phases)
5208            (add-after 'unpack 'set-*cpython-include-dir*-var
5209              (lambda* (#:key inputs #:allow-other-keys)
5210                (let ((python (assoc-ref inputs "python")))
5211                  (setenv "BB_PYTHON3_INCLUDE_DIR"
5212                          (string-append python "/include/python"
5213                                         (python-version python)))
5214                  (setenv "BB_PYTHON3_DYLIB"
5215                          (string-append python "/lib/libpython3.so"))
5216                  #t)))
5217            (add-after 'unpack 'adjust-for-python-3.8
5218              (lambda _
5219                ;; This method is no longer part of the public API.
5220                (substitute* "ffi-interface.lisp"
5221                  ((".*PyEval_ReInitThreads.*")
5222                   ""))
5223                #t)))))
5224       (native-inputs
5225        `(("sbcl-cl-fad" ,sbcl-cl-fad)
5226          ("sbcl-lift" ,sbcl-lift)
5227          ("sbcl-cl-quickcheck" ,sbcl-cl-quickcheck)))
5228       (inputs
5229        `(("python" ,python)
5230          ("sbcl-cffi" ,sbcl-cffi)
5231          ("sbcl-cffi-grovel" ,sbcl-cffi-grovel)
5232          ("sbcl-alexandria" , sbcl-alexandria)
5233          ("sbcl-parse-declarations-1.0" ,sbcl-parse-declarations)
5234          ("sbcl-trivial-garbage" ,sbcl-trivial-garbage)))
5235       (synopsis "Bridge between Python and Lisp (FFI bindings, etc.)")
5236       (description
5237        "This package provides a shim between Python3 (specifically, the
5238 CPython implementation of Python) and Common Lisp.")
5239       (home-page "https://github.com/snmsts/burgled-batteries3")
5240       (license license:expat))))
5241
5242 (define-public cl-burgled-batteries3
5243   (sbcl-package->cl-source-package sbcl-burgled-batteries3))
5244
5245 (define-public ecl-burgled-batteries3
5246   (sbcl-package->ecl-package sbcl-burgled-batteries3))
5247
5248 (define-public sbcl-metabang-bind
5249   (let ((commit "c93b7f7e1c18c954c2283efd6a7fdab36746ab5e")
5250         (revision "1"))
5251     (package
5252       (name "sbcl-metabang-bind")
5253       (version (git-version "0.8.0" revision commit))
5254       (source
5255        (origin
5256          (method git-fetch)
5257          (uri (git-reference
5258                (url "https://github.com/gwkkwg/metabang-bind.git")
5259                (commit commit)))
5260          (file-name (git-file-name name version))
5261          (sha256
5262           (base32
5263            "0hd0kr91795v77akpbcyqiss9p0p7ypa9dznrllincnmgvsxlmf0"))))
5264       (build-system asdf-build-system/sbcl)
5265       (native-inputs
5266        `(("sbcl-lift" ,sbcl-lift)))
5267       (synopsis "Macro that generalizes @code{multiple-value-bind} etc.")
5268       (description
5269        "Bind extends the idea of of let and destructing to provide a uniform
5270 syntax for all your accessor needs.  It combines @code{let},
5271 @code{destructuring-bind}, @code{with-slots}, @code{with-accessors}, structure
5272 editing, property or association-lists, and @code{multiple-value-bind} and a
5273 whole lot more into a single form.")
5274       (home-page "https://common-lisp.net/project/metabang-bind/")
5275       ;; MIT License
5276       (license license:expat))))
5277
5278 (define-public cl-metabang-bind
5279   (sbcl-package->cl-source-package sbcl-metabang-bind))
5280
5281 (define-public ecl-metabang-bind
5282   (sbcl-package->ecl-package sbcl-metabang-bind))
5283
5284 (define-public sbcl-fare-utils
5285   (let ((commit "66e9c6f1499140bc00ccc22febf2aa528cbb5724")
5286         (revision "1"))
5287     (package
5288       (name "sbcl-fare-utils")
5289       (version (git-version "1.0.0.5" revision commit))
5290       (source
5291        (origin
5292          (method git-fetch)
5293          (uri
5294           (git-reference
5295            (url
5296             "https://gitlab.common-lisp.net/frideau/fare-utils.git")
5297            (commit commit)))
5298          (file-name (git-file-name name version))
5299          (sha256
5300           (base32
5301            "01wsr1aap3jdzhn4hrqjbhsjx6qci9dbd3gh4gayv1p49rbg8aqr"))))
5302       (build-system asdf-build-system/sbcl)
5303       (arguments
5304        `(#:test-asd-file "test/fare-utils-test.asd"))
5305       (native-inputs
5306        `(("sbcl-hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
5307       (synopsis "Collection of utilities and data structures")
5308       (description
5309        "fare-utils is a small collection of utilities.  It contains a lot of
5310 basic everyday functions and macros.")
5311       (home-page "https://gitlab.common-lisp.net/frideau/fare-utils")
5312       ;; MIT License
5313       (license license:expat))))
5314
5315 (define-public cl-fare-utils
5316   (sbcl-package->cl-source-package sbcl-fare-utils))
5317
5318 (define-public ecl-fare-utils
5319   (sbcl-package->ecl-package sbcl-fare-utils))
5320
5321 (define-public sbcl-trivial-utf-8
5322   (let ((commit "4d427cfbb1c452436a0efb71c3205c9da67f718f")
5323         (revision "1"))
5324     (package
5325       (name "sbcl-trivial-utf-8")
5326       (version (git-version "0.0.0" revision commit))
5327       (source
5328        (origin
5329          (method git-fetch)
5330          (uri
5331           (git-reference
5332            (url (string-append "https://gitlab.common-lisp.net/"
5333                                "trivial-utf-8/trivial-utf-8.git"))
5334            (commit commit)))
5335          (file-name (git-file-name name version))
5336          (sha256
5337           (base32
5338            "1jz27gz8gvqdmvp3k9bxschs6d5b3qgk94qp2bj6nv1d0jc3m1l1"))))
5339       (arguments
5340        ;; Guix incorrectly assumes the "8" is part of the version
5341        ;; number and lobs it off.
5342        `(#:asd-file "trivial-utf-8.asd"
5343          #:asd-system-name "trivial-utf-8"))
5344       (build-system asdf-build-system/sbcl)
5345       (synopsis "UTF-8 input/output library")
5346       (description
5347        "The Babel library solves a similar problem while understanding more
5348 encodings.  Trivial UTF-8 was written before Babel existed, but for new
5349 projects you might be better off going with Babel.  The one plus that Trivial
5350 UTF-8 has is that it doesn't depend on any other libraries.")
5351       (home-page "https://common-lisp.net/project/trivial-utf-8/")
5352       (license license:bsd-3))))
5353
5354 (define-public cl-trivial-utf-8
5355   (sbcl-package->cl-source-package sbcl-trivial-utf-8))
5356
5357 (define-public ecl-trivial-utf-8
5358   (sbcl-package->ecl-package sbcl-trivial-utf-8))
5359
5360 (define-public sbcl-idna
5361   (package
5362     (name "sbcl-idna")
5363     (build-system asdf-build-system/sbcl)
5364     (version "0.2.2")
5365     (home-page "https://github.com/antifuchs/idna")
5366     (source
5367      (origin
5368        (method git-fetch)
5369        (uri (git-reference
5370              (url home-page)
5371              (commit version)))
5372        (file-name (git-file-name name version))
5373        (sha256
5374         (base32
5375          "00nbr3mffxhlq14gg9d16pa6691s4qh35inyw76v906s77khm5a2"))))
5376     (inputs
5377      `(("split-sequence" ,sbcl-split-sequence)))
5378     (synopsis "IDNA string encoding and decoding routines for Common Lisp")
5379     (description "This Common Lisp library provides string encoding and
5380 decoding routines for IDNA, the International Domain Names in Applications.")
5381     (license license:expat)))
5382
5383 (define-public cl-idna
5384   (sbcl-package->cl-source-package sbcl-idna))
5385
5386 (define-public ecl-idna
5387   (sbcl-package->ecl-package sbcl-idna))
5388
5389 (define-public sbcl-swap-bytes
5390   (package
5391     (name "sbcl-swap-bytes")
5392     (build-system asdf-build-system/sbcl)
5393     (version "1.2")
5394     (home-page "https://github.com/sionescu/swap-bytes")
5395     (source
5396      (origin
5397        (method git-fetch)
5398        (uri (git-reference
5399              (url home-page)
5400              (commit (string-append "v" version))))
5401        (file-name (git-file-name name version))
5402        (sha256
5403         (base32
5404          "1hw1v1lw26rifyznpnj1csphha9jgzwpiic16ni3pvs6hcsni9rz"))))
5405     (inputs
5406      `(("trivial-features" ,sbcl-trivial-features)))
5407     (native-inputs
5408      `(("fiveam" ,sbcl-fiveam)))
5409     (synopsis "Efficient endianness conversion for Common Lisp")
5410     (description "This Common Lisp library provides optimized byte-swapping
5411 primitives.  The library can change endianness of unsigned integers of length
5412 1/2/4/8.  Very useful in implementing various network protocols and file
5413 formats.")
5414     (license license:expat)))
5415
5416 (define-public cl-swap-bytes
5417   (sbcl-package->cl-source-package sbcl-swap-bytes))
5418
5419 (define-public ecl-swap-bytes
5420   (sbcl-package->ecl-package sbcl-swap-bytes))
5421
5422 (define-public sbcl-iolib.asdf
5423   ;; Latest release is from June 2017.
5424   (let ((commit "7f5ea3a8457a29d224b24653c2b3657fb1898021")
5425         (revision "2"))
5426     (package
5427       (name "sbcl-iolib.asdf")
5428       (build-system asdf-build-system/sbcl)
5429       (version (git-version "0.8.3" revision commit))
5430       (home-page "https://github.com/sionescu/iolib")
5431       (source
5432        (origin
5433          (method git-fetch)
5434          (uri (git-reference
5435                (url home-page)
5436                (commit commit)))
5437          (file-name (git-file-name name version))
5438          (sha256
5439           (base32
5440            "1bg5w7lm61hqk4b0svmri8a590q36z76jfa0sdgzb39r98c04w12"))))
5441       (inputs
5442        `(("alexandria" ,sbcl-alexandria)))
5443       (arguments
5444        '(#:asd-file "iolib.asdf.asd"))
5445       (synopsis "ASDF component classes for IOLib, a Common Lisp I/O library")
5446       (description "IOlib is to be a better and more modern I/O library than
5447 the standard Common Lisp library.  It contains a socket library, a DNS
5448 resolver, an I/O multiplexer(which supports @code{select(2)}, @code{epoll(4)}
5449 and @code{kqueue(2)}), a pathname library and file-system utilities.")
5450       (license license:expat))))
5451
5452 (define-public sbcl-iolib.conf
5453   (package
5454     (inherit sbcl-iolib.asdf)
5455     (name "sbcl-iolib.conf")
5456     (inputs
5457      `(("iolib.asdf" ,sbcl-iolib.asdf)))
5458     (arguments
5459      '(#:asd-file "iolib.conf.asd"))
5460     (synopsis "Compile-time configuration for IOLib, a Common Lisp I/O library")))
5461
5462 (define-public sbcl-iolib.common-lisp
5463   (package
5464     (inherit sbcl-iolib.asdf)
5465     (name "sbcl-iolib.common-lisp")
5466     (inputs
5467      `(("iolib.asdf" ,sbcl-iolib.asdf)
5468        ("iolib.conf" ,sbcl-iolib.conf)))
5469     (arguments
5470      '(#:asd-file "iolib.common-lisp.asd"))
5471     (synopsis "Slightly modified Common Lisp for IOLib, a Common Lisp I/O library")))
5472
5473 (define-public sbcl-iolib.base
5474   (package
5475     (inherit sbcl-iolib.asdf)
5476     (name "sbcl-iolib.base")
5477     (inputs
5478      `(("iolib.asdf" ,sbcl-iolib.asdf)
5479        ("iolib.conf" ,sbcl-iolib.conf)
5480        ("iolib.common-lisp" ,sbcl-iolib.common-lisp)
5481        ("split-sequence" ,sbcl-split-sequence)))
5482     (arguments
5483      '(#:asd-file "iolib.base.asd"))
5484     (synopsis "Base package for IOLib, a Common Lisp I/O library")))
5485
5486 (define-public sbcl-iolib.grovel
5487   (deprecated-package "sbcl-iolib.grovel" sbcl-cffi-grovel))
5488
5489 (define sbcl-iolib+syscalls
5490   (package
5491     (inherit sbcl-iolib.asdf)
5492     (name "sbcl-iolib+syscalls")
5493     (inputs
5494      `(("iolib.asdf" ,sbcl-iolib.asdf)
5495        ("iolib.conf" ,sbcl-iolib.conf)
5496        ("cffi-grovel" ,sbcl-cffi-grovel)
5497        ("iolib.base" ,sbcl-iolib.base)
5498        ("bordeaux-threads" ,sbcl-bordeaux-threads)
5499        ("idna" ,sbcl-idna)
5500        ("swap-bytes" ,sbcl-swap-bytes)
5501        ("libfixposix" ,libfixposix)
5502        ("cffi" ,sbcl-cffi)))
5503     (native-inputs
5504      `(("fiveam" ,sbcl-fiveam)))
5505     (arguments
5506      '(#:asd-file "iolib.asd"
5507        #:asd-system-name "iolib/syscalls"
5508        #:phases
5509        (modify-phases %standard-phases
5510          (add-after 'unpack 'fix-paths
5511            (lambda* (#:key inputs #:allow-other-keys)
5512              (substitute* "src/syscalls/ffi-functions-unix.lisp"
5513                (("\\(:default \"libfixposix\"\\)")
5514                 (string-append
5515                  "(:default \""
5516                  (assoc-ref inputs "libfixposix") "/lib/libfixposix\")")))
5517              ;; Socket tests need Internet access, disable them.
5518              (substitute* "iolib.asd"
5519                (("\\(:file \"sockets\" :depends-on \\(\"pkgdcl\" \"defsuites\"\\)\\)")
5520                 "")))))))
5521     (synopsis "Common Lisp I/O library")))
5522
5523 (define sbcl-iolib+multiplex
5524   (package
5525     (inherit sbcl-iolib+syscalls)
5526     (name "sbcl-iolib+multiplex")
5527     (inputs
5528      `(("iolib+syscalls" ,sbcl-iolib+syscalls)
5529        ,@(package-inputs sbcl-iolib+syscalls)))
5530     (arguments
5531      (substitute-keyword-arguments (package-arguments sbcl-iolib+syscalls)
5532        ((#:asd-system-name _) "iolib/multiplex")))))
5533
5534 (define sbcl-iolib+streams
5535   (package
5536     (inherit sbcl-iolib+syscalls)
5537     (name "sbcl-iolib+streams")
5538     (inputs
5539      `(("iolib+multiplex" ,sbcl-iolib+multiplex)
5540        ,@(package-inputs sbcl-iolib+syscalls)))
5541     (arguments
5542      (substitute-keyword-arguments (package-arguments sbcl-iolib+syscalls)
5543        ((#:asd-system-name _) "iolib/streams")))))
5544
5545 (define sbcl-iolib+sockets
5546   (package
5547     (inherit sbcl-iolib+syscalls)
5548     (name "sbcl-iolib+sockets")
5549     (inputs
5550      `(("iolib+syscalls" ,sbcl-iolib+syscalls)
5551        ("iolib+streams" ,sbcl-iolib+streams)
5552        ,@(package-inputs sbcl-iolib+syscalls)))
5553     (arguments
5554      (substitute-keyword-arguments (package-arguments sbcl-iolib+syscalls)
5555        ((#:asd-system-name _) "iolib/sockets")))))
5556
5557 (define-public sbcl-iolib
5558   (package
5559     (inherit sbcl-iolib+syscalls)
5560     (name "sbcl-iolib")
5561     (inputs
5562      `(("iolib+multiplex" ,sbcl-iolib+multiplex)
5563        ("iolib+streams" ,sbcl-iolib+streams)
5564        ("iolib+sockets" ,sbcl-iolib+sockets)
5565        ,@(package-inputs sbcl-iolib+syscalls)))
5566     (arguments
5567      (substitute-keyword-arguments (package-arguments sbcl-iolib+syscalls)
5568        ((#:asd-system-name _) "iolib")))))
5569
5570 (define-public cl-iolib
5571   (let ((parent (sbcl-package->cl-source-package sbcl-iolib)))
5572     (package
5573       (inherit parent)
5574       (propagated-inputs
5575        ;; Need header to compile.
5576        `(("libfixposix" ,libfixposix)
5577          ,@(package-propagated-inputs parent))))))
5578
5579 (define-public sbcl-ieee-floats
5580   (let ((commit "566b51a005e81ff618554b9b2f0b795d3b29398d")
5581         (revision "1"))
5582     (package
5583       (name "sbcl-ieee-floats")
5584       (build-system asdf-build-system/sbcl)
5585       (version (git-version "20170924" revision commit))
5586       (home-page "https://github.com/marijnh/ieee-floats/")
5587       (source
5588        (origin
5589          (method git-fetch)
5590          (uri (git-reference
5591                (url home-page)
5592                (commit commit)))
5593          (file-name (git-file-name name version))
5594          (sha256
5595           (base32
5596            "1xyj49j9x3lc84cv3dhbf9ja34ywjk1c46dklx425fxw9mkwm83m"))))
5597       (native-inputs
5598        `(("fiveam" ,sbcl-fiveam)))
5599       (synopsis "IEEE 754 binary representation for floats in Common Lisp")
5600       (description "This is a Common Lisp library that converts
5601 floating point values to IEEE 754 binary representation.")
5602       (license license:bsd-3))))
5603
5604 (define-public cl-ieee-floats
5605   (sbcl-package->cl-source-package sbcl-ieee-floats))
5606
5607 (define sbcl-closure-common
5608   (let ((commit "e3c5f5f454b72b01b89115e581c3c52a7e201e5c")
5609         (revision "1"))
5610     (package
5611       (name "sbcl-closure-common")
5612       (build-system asdf-build-system/sbcl)
5613       (version (git-version "20101006" revision commit))
5614       (home-page "https://common-lisp.net/project/cxml/")
5615       (source
5616        (origin
5617          (method git-fetch)
5618          (uri (git-reference
5619                (url "https://github.com/sharplispers/closure-common")
5620                (commit commit)))
5621          (file-name (git-file-name name version))
5622          (sha256
5623           (base32
5624            "0k5r2qxn122pxi301ijir3nayi9sg4d7yiy276l36qmzwhp4mg5n"))))
5625       (inputs
5626        `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)
5627          ("babel" ,sbcl-babel)))
5628       (synopsis "Support Common Lisp library for CXML")
5629       (description "Closure-common is an internal helper library.  The name
5630 Closure is a reference to the web browser it was originally written for.")
5631       ;; TODO: License?
5632       (license #f))))
5633
5634 (define-public sbcl-cxml+xml
5635   (let ((commit "00b22bf4c4cf11c993d5866fae284f95ab18e6bf")
5636         (revision "1"))
5637     (package
5638       (name "sbcl-cxml+xml")
5639       (build-system asdf-build-system/sbcl)
5640       (version (git-version "0.0.0" revision commit))
5641       (home-page "https://common-lisp.net/project/cxml/")
5642       (source
5643        (origin
5644          (method git-fetch)
5645          (uri (git-reference
5646                (url "https://github.com/sharplispers/cxml")
5647                (commit commit)))
5648          (file-name (git-file-name name version))
5649          (sha256
5650           (base32
5651            "13kif7rf3gqdycsk9zq0d7y0g9y81krkl0z87k0p2fkbjfgrph37"))))
5652       (inputs
5653        `(("closure-common" ,sbcl-closure-common)
5654          ("puri" ,sbcl-puri)
5655          ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
5656       (arguments
5657        `(#:asd-file "cxml.asd"
5658          #:asd-system-name "cxml/xml"))
5659       (synopsis "Common Lisp XML parser")
5660       (description "CXML implements a namespace-aware, validating XML 1.0
5661 parser as well as the DOM Level 2 Core interfaces.  Two parser interfaces are
5662 offered, one SAX-like, the other similar to StAX.")
5663       (license license:llgpl))))
5664
5665 (define sbcl-cxml+dom
5666   (package
5667     (inherit sbcl-cxml+xml)
5668     (name "sbcl-cxml+dom")
5669     (inputs
5670      `(("closure-common" ,sbcl-closure-common)
5671        ("puri" ,sbcl-puri)
5672        ("cxml+xml" ,sbcl-cxml+xml)))
5673     (arguments
5674      `(#:asd-file "cxml.asd"
5675        #:asd-system-name "cxml/dom"))))
5676
5677 (define sbcl-cxml+klacks
5678   (package
5679     (inherit sbcl-cxml+xml)
5680     (name "sbcl-cxml+klacks")
5681     (inputs
5682      `(("closure-common" ,sbcl-closure-common)
5683        ("puri" ,sbcl-puri)
5684        ("cxml+xml" ,sbcl-cxml+xml)))
5685     (arguments
5686      `(#:asd-file "cxml.asd"
5687        #:asd-system-name "cxml/klacks"))))
5688
5689 (define sbcl-cxml+test
5690   (package
5691     (inherit sbcl-cxml+xml)
5692     (name "sbcl-cxml+test")
5693     (inputs
5694      `(("closure-common" ,sbcl-closure-common)
5695        ("puri" ,sbcl-puri)
5696        ("cxml+xml" ,sbcl-cxml+xml)))
5697     (arguments
5698      `(#:asd-file "cxml.asd"
5699        #:asd-system-name "cxml/test"))))
5700
5701 (define-public sbcl-cxml
5702   (package
5703     (inherit sbcl-cxml+xml)
5704     (name "sbcl-cxml")
5705     (inputs
5706      `(("closure-common" ,sbcl-closure-common)
5707        ("puri" ,sbcl-puri)
5708        ("trivial-gray-streams" ,sbcl-trivial-gray-streams)
5709        ("cxml+dom" ,sbcl-cxml+dom)
5710        ("cxml+klacks" ,sbcl-cxml+klacks)
5711        ("cxml+test" ,sbcl-cxml+test)))
5712     (arguments
5713      `(#:asd-file "cxml.asd"
5714        #:asd-system-name "cxml"
5715        #:phases
5716        (modify-phases %standard-phases
5717          (add-after 'build 'install-dtd
5718            (lambda* (#:key outputs #:allow-other-keys)
5719              (install-file "catalog.dtd"
5720                            (string-append
5721                             (assoc-ref outputs "out")
5722                             "/lib/" (%lisp-type)))))
5723          (add-after 'create-asd 'remove-component
5724            ;; XXX: The original .asd has no components, but our build system
5725            ;; creates an entry nonetheless.  We need to remove it for the
5726            ;; generated .asd to load properly.  See trivia.trivial for a
5727            ;; similar problem.
5728            (lambda* (#:key outputs #:allow-other-keys)
5729              (let* ((out (assoc-ref outputs "out"))
5730                     (asd (string-append out "/lib/sbcl/cxml.asd")))
5731                (substitute* asd
5732                  (("  :components
5733 ")
5734                   ""))
5735                (substitute* asd
5736                  ((" *\\(\\(:compiled-file \"cxml--system\"\\)\\)")
5737                   ""))))))))))
5738
5739 (define-public cl-cxml
5740   (sbcl-package->cl-source-package sbcl-cxml))
5741
5742 (define-public sbcl-cl-reexport
5743   (let ((commit "312f3661bbe187b5f28536cd7ec2956e91366c3b")
5744         (revision "1"))
5745     (package
5746       (name "sbcl-cl-reexport")
5747       (build-system asdf-build-system/sbcl)
5748       (version (git-version "0.1" revision commit))
5749       (home-page "https://github.com/takagi/cl-reexport")
5750       (source
5751        (origin
5752          (method git-fetch)
5753          (uri (git-reference
5754                (url home-page)
5755                (commit commit)))
5756          (file-name (git-file-name name version))
5757          (sha256
5758           (base32
5759            "1cwpn1m3wrl0fl9plznn7p464db646gnfc8zkyk97dyxski2aq0x"))))
5760       (inputs
5761        `(("alexandria" ,sbcl-alexandria)))
5762       (arguments
5763        ;; TODO: Tests fail because cl-test-more is missing, but I can't find it online.
5764        `(#:tests? #f))
5765       (synopsis "HTTP cookie manager for Common Lisp")
5766       (description "cl-cookie is a Common Lisp library featuring parsing of
5767 cookie headers, cookie creation, cookie jar creation and more.")
5768       (license license:llgpl))))
5769
5770 (define-public cl-reexport
5771   (sbcl-package->cl-source-package sbcl-cl-reexport))
5772
5773 (define-public sbcl-cl-cookie
5774   (let ((commit "cea55aed8b9ad25fafd13defbcb9fe8f41b29546")
5775         (revision "1"))
5776     (package
5777       (name "sbcl-cl-cookie")
5778       (build-system asdf-build-system/sbcl)
5779       (version (git-version "0.9.10" revision commit))
5780       (home-page "https://github.com/fukamachi/cl-cookie")
5781       (source
5782        (origin
5783          (method git-fetch)
5784          (uri (git-reference
5785                (url home-page)
5786                (commit commit)))
5787          (file-name (git-file-name name version))
5788          (sha256
5789           (base32
5790            "090g7z75h98zvc1ldx0vh4jn4086dhjm2w30jcwkq553qmyxwl8h"))))
5791       (inputs
5792        `(("proc-parse" ,sbcl-proc-parse)
5793          ("alexandria" ,sbcl-alexandria)
5794          ("quri" ,sbcl-quri)
5795          ("cl-ppcre" ,sbcl-cl-ppcre)
5796          ("local-time" ,sbcl-local-time)))
5797       (native-inputs
5798        `(("prove-asdf" ,sbcl-prove-asdf)
5799          ("prove" ,sbcl-prove)))
5800       (arguments
5801        ;; TODO: Tests fail because cl-cookie depends on cl-cookie-test.
5802        `(#:tests? #f))
5803       (synopsis "HTTP cookie manager for Common Lisp")
5804       (description "cl-cookie is a Common Lisp library featuring parsing of
5805 cookie headers, cookie creation, cookie jar creation and more.")
5806       (license license:bsd-2))))
5807
5808 (define-public cl-cookie
5809   (sbcl-package->cl-source-package sbcl-cl-cookie))
5810
5811 (define-public sbcl-dexador
5812   (let ((commit "953090f04c4d1a9ee6632b90133cdc297b68badc")
5813         (revision "1"))
5814     (package
5815       (name "sbcl-dexador")
5816       (build-system asdf-build-system/sbcl)
5817       (version "0.9.14" )
5818       (home-page "https://github.com/fukamachi/dexador")
5819       (source
5820        (origin
5821          (method git-fetch)
5822          (uri (git-reference
5823                (url home-page)
5824                (commit commit)))
5825          (file-name (git-file-name name version))
5826          (sha256
5827           (base32
5828            "0w18fz3301rpmwc3kwb810czcd24mbf7r1z8vdyc0v5crjfpw3mn"))))
5829       (inputs
5830        `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)
5831          ("babel" ,sbcl-babel)
5832          ("usocket" ,sbcl-usocket)
5833          ("fast-http" ,sbcl-fast-http)
5834          ("quri" ,sbcl-quri)
5835          ("fast-io" ,sbcl-fast-io)
5836          ("chunga" ,sbcl-chunga)
5837          ("cl-ppcre" ,sbcl-cl-ppcre)
5838          ("cl-cookie" ,sbcl-cl-cookie)
5839          ("trivial-mimes" ,sbcl-trivial-mimes)
5840          ("chipz" ,sbcl-chipz)
5841          ("cl-base64" ,sbcl-cl-base64)
5842          ("cl-reexport" ,sbcl-cl-reexport)
5843          ("cl+ssl" ,sbcl-cl+ssl)
5844          ("bordeaux-threads" ,sbcl-bordeaux-threads)
5845          ("alexandria" ,sbcl-alexandria)))
5846       (native-inputs
5847        `(("prove" ,sbcl-prove)
5848          ("prove-asdf" ,sbcl-prove-asdf)
5849          ("lack-request" ,sbcl-lack-request)
5850          ("clack" ,sbcl-clack)
5851          ("babel" ,sbcl-babel)
5852          ("alexandria" ,sbcl-alexandria)
5853          ("cl-ppcre" ,sbcl-cl-ppcre)
5854          ("local-time" ,sbcl-local-time)
5855          ("trivial-features" ,sbcl-trivial-features)))
5856       (arguments
5857        ;; TODO: Circular dependency: tests depend on clack-test which depends on dexador.
5858        `(#:tests? #f
5859          #:phases
5860          (modify-phases %standard-phases
5861            (add-after 'unpack 'fix-permissions
5862              (lambda _ (make-file-writable "t/data/test.gz") #t)))))
5863       (synopsis "Yet another HTTP client for Common Lisp")
5864       (description "Dexador is yet another HTTP client for Common Lisp with
5865 neat APIs and connection-pooling.  It is meant to supersede Drakma.")
5866       (license license:expat))))
5867
5868 (define-public cl-dexador
5869   (package
5870     (inherit (sbcl-package->cl-source-package sbcl-dexador))
5871     (arguments
5872      `(#:phases
5873        ;; asdf-build-system/source has its own phases and does not inherit
5874        ;; from asdf-build-system/sbcl phases.
5875        (modify-phases %standard-phases/source
5876          ;; Already done in SBCL package.
5877          (delete 'reset-gzip-timestamps))))))
5878
5879 (define-public ecl-dexador
5880   (sbcl-package->ecl-package sbcl-dexador))
5881
5882 (define-public sbcl-lisp-namespace
5883   (let ((commit "28107cafe34e4c1c67490fde60c7f92dc610b2e0")
5884         (revision "1"))
5885     (package
5886       (name "sbcl-lisp-namespace")
5887       (build-system asdf-build-system/sbcl)
5888       (version (git-version "0.1" revision commit))
5889       (home-page "https://github.com/guicho271828/lisp-namespace")
5890       (source
5891        (origin
5892          (method git-fetch)
5893          (uri (git-reference
5894                (url home-page)
5895                (commit commit)))
5896          (file-name (git-file-name name version))
5897          (sha256
5898           (base32
5899            "1jw2wykp06z2afb9nm1lgfzll5cjlj36pnknjx614057zkkxq4iy"))))
5900       (inputs
5901        `(("alexandria" ,sbcl-alexandria)))
5902       (native-inputs
5903        `(("fiveam" ,sbcl-fiveam)))
5904       (arguments
5905        `(#:test-asd-file "lisp-namespace.test.asd"
5906         ;; XXX: Component LISP-NAMESPACE-ASD::LISP-NAMESPACE.TEST not found
5907          #:tests? #f))
5908       (synopsis "LISP-N, or extensible namespaces in Common Lisp")
5909       (description "Common Lisp already has major 2 namespaces, function
5910 namespace and value namespace (or variable namespace), but there are actually
5911 more — e.g., class namespace.
5912 This library offers macros to deal with symbols from any namespace.")
5913       (license license:llgpl))))
5914
5915 (define-public cl-lisp-namespace
5916   (sbcl-package->cl-source-package sbcl-lisp-namespace))
5917
5918 (define-public sbcl-trivial-cltl2
5919   (let ((commit "8a3bda30dc25d2f65fcf514d0eb6e6db75252c61")
5920         (revision "2"))
5921     (package
5922       (name "sbcl-trivial-cltl2")
5923       (build-system asdf-build-system/sbcl)
5924       (version (git-version "0.1.1" revision commit))
5925       (home-page "https://github.com/Zulu-Inuoe/trivial-cltl2")
5926       (source
5927        (origin
5928          (method git-fetch)
5929          (uri (git-reference
5930                (url home-page)
5931                (commit commit)))
5932          (file-name (git-file-name name version))
5933          (sha256
5934           (base32
5935            "08cnzb9rnczn4pn2zpf0587ny4wjy1mjndy885fz9pw7xrlx37ip"))))
5936       (synopsis "Simple CLtL2 compatibility layer for Common Lisp")
5937       (description "This library is a portable compatibility layer around
5938 \"Common Lisp the Language, 2nd
5939 Edition\" (@url{https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node102.html})
5940 and it exports symbols from implementation-specific packages.")
5941       (license license:llgpl))))
5942
5943 (define-public cl-trivial-cltl2
5944   (sbcl-package->cl-source-package sbcl-trivial-cltl2))
5945
5946 (define-public sbcl-introspect-environment
5947   (let ((commit "fff42f8f8fd0d99db5ad6c5812e53de7d660020b")
5948         (revision "1"))
5949     (package
5950       (name "sbcl-introspect-environment")
5951       (build-system asdf-build-system/sbcl)
5952       (version (git-version "0.1" revision commit))
5953       (home-page "https://github.com/Bike/introspect-environment")
5954       (source
5955        (origin
5956          (method git-fetch)
5957          (uri (git-reference
5958                (url home-page)
5959                (commit commit)))
5960          (file-name (git-file-name name version))
5961          (sha256
5962           (base32
5963            "1i305n0wfmpac63ni4i3vixnnkl8daw5ncxy0k3dv92krgx6qzhp"))))
5964       (native-inputs
5965        `(("fiveam" ,sbcl-fiveam)))
5966       (synopsis "Common Lisp environment introspection portability layer")
5967       (description "This library is a small interface to portable but
5968 nonstandard introspection of Common Lisp environments.  It is intended to
5969 allow a bit more compile-time introspection of environments in Common Lisp.
5970
5971 Quite a bit of information is available at the time a macro or compiler-macro
5972 runs; inlining info, type declarations, that sort of thing.  This information
5973 is all standard - any Common Lisp program can @code{(declare (integer x))} and
5974 such.
5975
5976 This info ought to be accessible through the standard @code{&environment}
5977 parameters, but it is not.  Several implementations keep the information for
5978 their own purposes but do not make it available to user programs, because
5979 there is no standard mechanism to do so.
5980
5981 This library uses implementation-specific hooks to make information available
5982 to users.  This is currently supported on SBCL, CCL, and CMUCL.  Other
5983 implementations have implementations of the functions that do as much as they
5984 can and/or provide reasonable defaults.")
5985       (license license:wtfpl2))))
5986
5987 (define-public cl-introspect-environment
5988   (sbcl-package->cl-source-package sbcl-introspect-environment))
5989
5990 (define-public sbcl-type-i
5991   (let ((commit "d34440ab4ebf5a46a58deccb35950b15670e3667")
5992         (revision "2"))
5993     (package
5994       (name "sbcl-type-i")
5995       (build-system asdf-build-system/sbcl)
5996       (version (git-version "0.1" revision commit))
5997       (home-page "https://github.com/guicho271828/type-i")
5998       (source
5999        (origin
6000          (method git-fetch)
6001          (uri (git-reference
6002                (url home-page)
6003                (commit commit)))
6004          (file-name (git-file-name name version))
6005          (sha256
6006           (base32
6007            "12wsga0pwjkkr176lnjwkmmlm3ccp0n310sjj9h20lk53iyd0z69"))))
6008       (inputs
6009        `(("alexandria" ,sbcl-alexandria)
6010          ("introspect-environment" ,sbcl-introspect-environment)
6011          ("trivia.trivial" ,sbcl-trivia.trivial)))
6012       (native-inputs
6013        `(("fiveam" ,sbcl-fiveam)))
6014       (arguments
6015        `(#:test-asd-file "type-i.test.asd"))
6016       (synopsis "Type inference utility on unary predicates for Common Lisp")
6017       (description "This library tries to provide a way to detect what kind of
6018 type the given predicate is trying to check.  This is different from inferring
6019 the return type of a function.")
6020       (license license:llgpl))))
6021
6022 (define-public cl-type-i
6023   (sbcl-package->cl-source-package sbcl-type-i))
6024
6025 (define-public sbcl-optima
6026   (let ((commit "373b245b928c1a5cce91a6cb5bfe5dd77eb36195")
6027         (revision "1"))
6028     (package
6029       (name "sbcl-optima")
6030       (build-system asdf-build-system/sbcl)
6031       (version (git-version "1.0" revision commit))
6032       (home-page "https://github.com/m2ym/optima")
6033       (source
6034        (origin
6035          (method git-fetch)
6036          (uri (git-reference
6037                (url home-page)
6038                (commit commit)))
6039          (file-name (git-file-name name version))
6040          (sha256
6041           (base32
6042            "1yw4ymq7ms89342kkvb3aqxgv0w38m9kd8ikdqxxzyybnkjhndal"))))
6043       (inputs
6044        `(("alexandria" ,sbcl-alexandria)
6045          ("closer-mop" ,sbcl-closer-mop)))
6046       (native-inputs
6047        `(("eos" ,sbcl-eos)))
6048       (arguments
6049        ;; XXX: Circular dependencies: tests depend on optima.ppcre which depends on optima.
6050        `(#:tests? #f
6051          #:test-asd-file "optima.test.asd"))
6052       (synopsis "Optimized pattern matching library for Common Lisp")
6053       (description "Optima is a fast pattern matching library which uses
6054 optimizing techniques widely used in the functional programming world.")
6055       (license license:expat))))
6056
6057 (define-public cl-optima
6058   (sbcl-package->cl-source-package sbcl-optima))
6059
6060 (define-public sbcl-fare-quasiquote
6061   (let ((commit "640d39a0451094071b3e093c97667b3947f43639")
6062         (revision "1"))
6063     (package
6064       (name "sbcl-fare-quasiquote")
6065       (build-system asdf-build-system/sbcl)
6066       (version (git-version "1.0.1" revision commit))
6067       (home-page "https://gitlab.common-lisp.net/frideau/fare-quasiquote")
6068       (source
6069        (origin
6070          (method git-fetch)
6071          (uri (git-reference
6072                (url (string-append "https://gitlab.common-lisp.net/frideau/"
6073                                    "fare-quasiquote.git"))
6074                (commit commit)))
6075          (file-name (git-file-name name version))
6076          (sha256
6077           (base32 "1g6q11l50kgija9f55lzqpcwvaq0ljiw8v1j265hnyg6nahjwjvg"))))
6078       (inputs
6079        `(("fare-utils" ,sbcl-fare-utils)))
6080       (arguments
6081        ;; XXX: Circular dependencies: Tests depend on subsystems,
6082        ;; which depend on the main systems.
6083        `(#:tests? #f
6084          #:phases
6085          (modify-phases %standard-phases
6086            ;; XXX: Require 1.0.0 version of fare-utils, and we package some
6087            ;; commits after 1.0.0.5, but ASDF fails to read the
6088            ;; "-REVISION-COMMIT" part generated by Guix.
6089            (add-after 'unpack 'patch-requirement
6090              (lambda _
6091                (substitute* "fare-quasiquote.asd"
6092                  (("\\(:version \"fare-utils\" \"1.0.0\"\\)")
6093                   "\"fare-utils\"")))))))
6094       (synopsis "Pattern-matching friendly implementation of quasiquote")
6095       (description "The main purpose of this n+2nd reimplementation of
6096 quasiquote is enable matching of quasiquoted patterns, using Optima or
6097 Trivia.")
6098       (license license:expat))))
6099
6100 (define-public cl-fare-quasiquote
6101   (sbcl-package->cl-source-package sbcl-fare-quasiquote))
6102
6103 (define-public sbcl-fare-quasiquote-optima
6104   (package
6105     (inherit sbcl-fare-quasiquote)
6106     (name "sbcl-fare-quasiquote-optima")
6107     (inputs
6108      `(("optima" ,sbcl-optima)
6109        ("fare-quasiquote" ,sbcl-fare-quasiquote)))
6110     (arguments
6111      '(#:phases
6112        (modify-phases %standard-phases
6113          (add-after 'unpack 'patch-requirement
6114            (lambda _
6115              (substitute* "fare-quasiquote-optima.asd"
6116                (("\\(:version \"optima\" \"1\\.0\"\\)")
6117                 "\"optima\""))
6118              #t)))))))
6119
6120 (define-public cl-fare-quasiquote-optima
6121   (sbcl-package->cl-source-package sbcl-fare-quasiquote-optima))
6122
6123 (define-public sbcl-fare-quasiquote-readtable
6124   (package
6125     (inherit sbcl-fare-quasiquote)
6126     (name "sbcl-fare-quasiquote-readtable")
6127     (inputs
6128      `(("fare-quasiquote" ,sbcl-fare-quasiquote)
6129        ("named-readtables" ,sbcl-named-readtables)))
6130     (description "The main purpose of this n+2nd reimplementation of
6131 quasiquote is enable matching of quasiquoted patterns, using Optima or
6132 Trivia.
6133
6134 This package uses fare-quasiquote with named-readtable.")))
6135
6136 (define-public cl-fare-quasiquote-readtable
6137   (sbcl-package->cl-source-package sbcl-fare-quasiquote-readtable))
6138
6139 ;; TODO: Add support for component-less system in asdf-build-system/sbcl.
6140 (define-public sbcl-fare-quasiquote-extras
6141   (package
6142     (inherit sbcl-fare-quasiquote)
6143     (name "sbcl-fare-quasiquote-extras")
6144     (build-system asdf-build-system/sbcl)
6145     (inputs
6146      `(("fare-quasiquote-optima" ,sbcl-fare-quasiquote-optima)
6147        ("fare-quasiquote-readtable" ,sbcl-fare-quasiquote-readtable)))
6148     (arguments
6149      `(#:phases
6150        (modify-phases %standard-phases
6151          (replace 'build
6152            (lambda* (#:key outputs #:allow-other-keys)
6153              (let* ((out (assoc-ref outputs "out"))
6154                     (lib (string-append out "/lib/" (%lisp-type))))
6155                (mkdir-p lib)
6156                (install-file "fare-quasiquote-extras.asd" lib)
6157                (make-file-writable
6158                 (string-append lib "/fare-quasiquote-extras.asd"))
6159                #t)))
6160          (add-after 'create-asd-file 'fix-asd-file
6161            (lambda* (#:key outputs #:allow-other-keys)
6162              (let* ((out (assoc-ref outputs "out"))
6163                     (lib (string-append out "/lib/" (%lisp-type)))
6164                     (asd (string-append lib "/fare-quasiquote-extras.asd")))
6165                (substitute* asd
6166                  ((":class")
6167                   "")
6168                  (("asdf/bundle:prebuilt-system")
6169                   "")
6170                  ((":components")
6171                   "")
6172                  (("\\(\\(:compiled-file \"fare-quasiquote-extras--system\"\\)\\)")
6173                   "")))
6174              #t)))))
6175     (description "This library combines @code{fare-quasiquote-readtable} and
6176 @code{fare-quasiquote-optima}.")))
6177
6178 (define-public cl-fare-quasiquote-extras
6179   (package
6180     (inherit cl-fare-quasiquote)
6181     (name "cl-fare-quasiquote-extras")
6182     (build-system asdf-build-system/source)
6183     (propagated-inputs
6184      `(("fare-quasiquote" ,cl-fare-quasiquote)
6185        ("fare-quasiquote-optima" ,cl-fare-quasiquote-optima)
6186        ("fare-quasiquote-readtable" ,cl-fare-quasiquote-readtable)))
6187     (description "This library combines @code{fare-quasiquote-readtable} and
6188 @code{fare-quasiquote-optima}.")))
6189
6190 (define-public sbcl-trivia.level0
6191   (let ((commit "37698b47a14c2007630468de7a993694ef7bd475")
6192         (revision "2"))
6193     (package
6194       (name "sbcl-trivia.level0")
6195       (build-system asdf-build-system/sbcl)
6196       (version (git-version "0.0.0" revision commit))
6197       (home-page "https://github.com/guicho271828/trivia")
6198       (source
6199        (origin
6200          (method git-fetch)
6201          (uri (git-reference
6202                (url home-page)
6203                (commit commit)))
6204          (file-name (git-file-name name version))
6205          (sha256
6206           (base32
6207            "0rsbwbw3ipxxgr6zzhci12nilq8zky475kmhz1rcxy4q8a85vn72"))))
6208       (inputs
6209        `(("alexandria" ,sbcl-alexandria)))
6210       (synopsis "Pattern matching in Common Lisp")
6211       (description "Trivia is a pattern matching compiler that is compatible
6212 with Optima, another pattern matching library for Common Lisp.  It is meant to
6213 be faster and more extensible than Optima.")
6214       (license license:llgpl))))
6215
6216 (define-public sbcl-trivia.level1
6217   (package
6218     (inherit sbcl-trivia.level0)
6219     (name "sbcl-trivia.level1")
6220     (inputs
6221      `(("trivia.level0" ,sbcl-trivia.level0)))
6222     (description "Trivia is a pattern matching compiler that is compatible
6223 with Optima, another pattern matching library for Common Lisp.  It is meant to
6224 be faster and more extensible than Optima.
6225
6226 This system contains the core patterns of Trivia.")))
6227
6228 (define-public sbcl-trivia.level2
6229   (package
6230     (inherit sbcl-trivia.level0)
6231     (name "sbcl-trivia.level2")
6232     (inputs
6233      `(("trivia.level1" ,sbcl-trivia.level1)
6234        ("lisp-namespace" ,sbcl-lisp-namespace)
6235        ("trivial-cltl2" ,sbcl-trivial-cltl2)
6236        ("closer-mop" ,sbcl-closer-mop)))
6237     (description "Trivia is a pattern matching compiler that is compatible
6238 with Optima, another pattern matching library for Common Lisp.  It is meant to
6239 be faster and more extensible than Optima.
6240
6241 This system contains a non-optimized pattern matcher compatible with Optima,
6242 with extensible optimizer interface.")))
6243
6244 (define-public sbcl-trivia.trivial
6245   (package
6246     (inherit sbcl-trivia.level0)
6247     (name "sbcl-trivia.trivial")
6248     (inputs
6249      `(("trivia.level2" ,sbcl-trivia.level2)))
6250     (arguments
6251      `(#:phases
6252        (modify-phases %standard-phases
6253          (replace 'create-asd-file
6254            (lambda* (#:key outputs inputs #:allow-other-keys)
6255              (let* ((out (assoc-ref outputs "out"))
6256                     (lib (string-append out "/lib/" (%lisp-type)))
6257                     (level2 (assoc-ref inputs "trivia.level2")))
6258                (mkdir-p lib)
6259                (install-file "trivia.trivial.asd" lib)
6260                ;; XXX: This .asd does not have any component and the build
6261                ;; system fails to work in this case.  We should update the
6262                ;; build system to handle component-less .asd.
6263                ;; TODO: How do we append to file in Guile?  It seems that
6264                ;; (open-file ... "a") gets a "Permission denied".
6265                (substitute* (string-append lib "/trivia.trivial.asd")
6266                  (("\"\\)")
6267                   (string-append "\")
6268
6269 (progn (asdf/source-registry:ensure-source-registry)
6270        (setf (gethash
6271                \"trivia.level2\"
6272                asdf/source-registry:*source-registry*)
6273              #p\""
6274                                  level2
6275                                  "/share/common-lisp/sbcl-bundle-systems/trivia.level2.asd\"))")))))))))
6276     (description "Trivia is a pattern matching compiler that is compatible
6277 with Optima, another pattern matching library for Common Lisp.  It is meant to
6278 be faster and more extensible than Optima.
6279
6280 This system contains the base level system of Trivia with a trivial optimizer.")))
6281
6282 (define-public sbcl-trivia.balland2006
6283   (package
6284     (inherit sbcl-trivia.level0)
6285     (name "sbcl-trivia.balland2006")
6286     (inputs
6287      `(("trivia.trivial" ,sbcl-trivia.trivial)
6288        ("iterate" ,sbcl-iterate)
6289        ("type-i" ,sbcl-type-i)
6290        ("alexandria" ,sbcl-alexandria)))
6291     (arguments
6292      ;; Tests are done in trivia itself.
6293      `(#:tests? #f))
6294     (description "Trivia is a pattern matching compiler that is compatible
6295 with Optima, another pattern matching library for Common Lisp.  It is meant to
6296 be faster and more extensible than Optima.
6297
6298 This system contains the base level system of Trivia with a trivial optimizer.")))
6299
6300 (define-public sbcl-trivia.ppcre
6301   (package
6302     (inherit sbcl-trivia.level0)
6303     (name "sbcl-trivia.ppcre")
6304     (inputs
6305      `(("trivia.trivial" ,sbcl-trivia.trivial)
6306        ("cl-ppcre" ,sbcl-cl-ppcre)))
6307     (description "Trivia is a pattern matching compiler that is compatible
6308 with Optima, another pattern matching library for Common Lisp.  It is meant to
6309 be faster and more extensible than Optima.
6310
6311 This system contains the PPCRE extension.")))
6312
6313 (define-public sbcl-trivia.quasiquote
6314   (package
6315     (inherit sbcl-trivia.level0)
6316     (name "sbcl-trivia.quasiquote")
6317     (inputs
6318      `(("trivia.trivial" ,sbcl-trivia.trivial)
6319        ("fare-quasiquote" ,sbcl-fare-quasiquote)
6320        ("fare-quasiquote-readtable" ,sbcl-fare-quasiquote-readtable)))
6321     (description "Trivia is a pattern matching compiler that is compatible
6322 with Optima, another pattern matching library for Common Lisp.  It is meant to
6323 be faster and more extensible than Optima.
6324
6325 This system contains the fare-quasiquote extension.")))
6326
6327 (define-public sbcl-trivia.cffi
6328   (package
6329     (inherit sbcl-trivia.level0)
6330     (name "sbcl-trivia.cffi")
6331     (inputs
6332      `(("cffi" ,sbcl-cffi)
6333        ("trivia.trivial" ,sbcl-trivia.trivial)))
6334     (description "Trivia is a pattern matching compiler that is compatible
6335 with Optima, another pattern matching library for Common Lisp.  It is meant to
6336 be faster and more extensible than Optima.
6337
6338 This system contains the CFFI foreign slot access extension.")))
6339
6340 (define-public sbcl-trivia
6341   (package
6342     (inherit sbcl-trivia.level0)
6343     (name "sbcl-trivia")
6344     (inputs
6345      `(("trivia.balland2006" ,sbcl-trivia.balland2006)))
6346     (native-inputs
6347      `(("fiveam" ,sbcl-fiveam)
6348        ("trivia.ppcre" ,sbcl-trivia.ppcre)
6349        ("trivia.quasiquote" ,sbcl-trivia.quasiquote)
6350        ("trivia.cffi" ,sbcl-trivia.cffi)
6351        ("optima" ,sbcl-optima)))
6352     (arguments
6353      `(#:test-asd-file "trivia.test.asd"
6354        #:phases
6355        (modify-phases %standard-phases
6356          (add-after 'create-asd 'remove-component
6357            ;; XXX: The original .asd has no components, but our build system
6358            ;; creates an entry nonetheless.  We need to remove it for the
6359            ;; generated .asd to load properly.  See trivia.trivial for a
6360            ;; similar problem.
6361            (lambda* (#:key outputs #:allow-other-keys)
6362              (let* ((out (assoc-ref outputs "out"))
6363                     (asd (string-append out "/lib/" (%lisp-type) "/trivia.asd")))
6364                (substitute* asd
6365                  (("  :components
6366 ")
6367                   ""))
6368                (substitute* asd
6369                  ((" *\\(\\(:compiled-file \"trivia--system\"\\)\\)")
6370                   ""))))))))
6371     (description "Trivia is a pattern matching compiler that is compatible
6372 with Optima, another pattern matching library for Common Lisp.  It is meant to
6373 be faster and more extensible than Optima.")))
6374
6375 (define-public cl-trivia
6376   (sbcl-package->cl-source-package sbcl-trivia))
6377
6378 (define-public sbcl-mk-string-metrics
6379   (package
6380     (name "sbcl-mk-string-metrics")
6381     (version "0.1.2")
6382     (home-page "https://github.com/cbaggers/mk-string-metrics/")
6383     (source (origin
6384               (method git-fetch)
6385               (uri (git-reference
6386                     (url home-page)
6387                     (commit version)))
6388               (sha256
6389                (base32 "0bg0bv2mfd4k0g3x72x563hvmrx18xavaffr6xk5rh4if5j7kcf6"))
6390               (file-name (git-file-name name version))))
6391     (build-system asdf-build-system/sbcl)
6392     (synopsis "Calculate various string metrics efficiently in Common Lisp")
6393     (description "This library implements efficient algorithms that calculate
6394 various string metrics in Common Lisp:
6395
6396 @itemize
6397 @item Damerau-Levenshtein distance
6398 @item Hamming distance
6399 @item Jaccard similarity coefficient
6400 @item Jaro distance
6401 @item Jaro-Winkler distance
6402 @item Levenshtein distance
6403 @item Normalized Damerau-Levenshtein distance
6404 @item Normalized Levenshtein distance
6405 @item Overlap coefficient
6406 @end itemize\n")
6407     (license license:x11)))
6408
6409 (define-public cl-mk-string-metrics
6410   (sbcl-package->cl-source-package sbcl-mk-string-metrics))
6411
6412 (define-public sbcl-cl-str
6413   (let ((commit "eb480f283e28802d67b35bf916506701152f9a2a"))
6414     (package
6415       (name "sbcl-cl-str")
6416       (version (git-version "0.17" "1" commit))
6417       (home-page "https://github.com/vindarel/cl-str")
6418       (source (origin
6419                 (method git-fetch)
6420                 (uri (git-reference
6421                       (url home-page)
6422                       (commit commit)))
6423                 (sha256
6424                  (base32 "1hpq5m8zjjnzns370zy27z2vcm1p8n2ka5ij2x67gyc9amz9vla0"))
6425                 (file-name (git-file-name name version))))
6426       (build-system asdf-build-system/sbcl)
6427       (inputs
6428        `(("cl-ppcre" ,sbcl-cl-ppcre)
6429          ("cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
6430          ("cl-change-case" ,sbcl-cl-change-case)))
6431       (native-inputs
6432        `(("prove" ,sbcl-prove)
6433          ("prove-asdf" ,sbcl-prove-asdf)))
6434       (arguments
6435        `(#:asd-file "str.asd"
6436          #:asd-system-name "str"
6437          #:test-asd-file "str.test.asd"))
6438       (synopsis "Modern, consistent and terse Common Lisp string manipulation library")
6439       (description "A modern and consistent Common Lisp string manipulation
6440 library that focuses on modernity, simplicity and discoverability:
6441 @code{(str:trim s)} instead of @code{(string-trim '(#\\Space ...) s)}), or
6442 @code{str:concat strings} instead of an unusual format construct; one
6443 discoverable library instead of many; consistency and composability, where
6444 @code{s} is always the last argument, which makes it easier to feed pipes and
6445 arrows.")
6446       (license license:expat))))
6447
6448 (define-public cl-str
6449   (sbcl-package->cl-source-package sbcl-cl-str))
6450
6451 (define-public sbcl-cl-xmlspam
6452   (let ((commit "ea06abcca2a73a9779bcfb09081e56665f94e22a"))
6453     (package
6454       (name "sbcl-cl-xmlspam")
6455       (build-system asdf-build-system/sbcl)
6456       (version (git-version "0.0.0" "1" commit))
6457       (home-page "https://github.com/rogpeppe/cl-xmlspam")
6458       (source
6459        (origin
6460          (method git-fetch)
6461          (uri (git-reference
6462                (url home-page)
6463                (commit commit)))
6464          (file-name (string-append name "-" version))
6465          (sha256
6466           (base32
6467            "0w4rqvrgdgk3fwfq3kx4r7wwdr2bv3b6n3bdqwsiriw9psqzpz2s"))))
6468       (inputs
6469        `(("cxml" ,sbcl-cxml)
6470          ("cl-ppcre" ,sbcl-cl-ppcre)))
6471       (synopsis "Concise, regexp-like pattern matching on streaming XML for Common Lisp")
6472       (description "CXML does an excellent job at parsing XML elements, but what
6473 do you do when you have a XML file that's larger than you want to fit in
6474 memory, and you want to extract some information from it?  Writing code to deal
6475 with SAX events, or even using Klacks, quickly becomes tedious.
6476 @code{cl-xmlspam} (for XML Stream PAttern Matcher) is designed to make it easy
6477 to write code that mirrors the structure of the XML that it's parsing.  It
6478 also makes it easy to shift paradigms when necessary - the usual Lisp control
6479 constructs can be used interchangeably with pattern matching, and the full
6480 power of CXML is available when necessary.")
6481       (license license:bsd-3))))
6482
6483 ;; TODO: dbus uses ASDF's package-inferred-system which is not supported by
6484 ;; asdf-build-system/sbcl as of 2019-08-02.  We should fix
6485 ;; asdf-build-system/sbcl.
6486 (define-public cl-dbus
6487   (let ((commit "24b452df3a45ca5dc95015500f34baad175c981a")
6488         (revision "1"))
6489     (package
6490       (name "cl-dbus")
6491       (build-system asdf-build-system/source)
6492       (version (git-version "20190408" revision commit))
6493       (home-page "https://github.com/death/dbus")
6494       (source
6495        (origin
6496          (method git-fetch)
6497          (uri (git-reference
6498                (url home-page)
6499                (commit commit)))
6500          (file-name (git-file-name name version))
6501          (sha256
6502           (base32
6503            "0fw2q866yddbf23nk9pxphm9gsasx35vjyss82xzvndnjmzlqfl5"))))
6504       ;; Inputs must be propagated or else packages depending on this won't
6505       ;; have the necessary packages.
6506       (propagated-inputs
6507        `(("alexandria" ,sbcl-alexandria)
6508          ("trivial-garbage" ,sbcl-trivial-garbage)
6509          ("babel" ,sbcl-babel)
6510          ("iolib" ,sbcl-iolib)
6511          ("ieee-floats" ,sbcl-ieee-floats)
6512          ("flexi-streams" ,sbcl-flexi-streams)
6513          ("cl-xmlspam" ,sbcl-cl-xmlspam)
6514          ("ironclad" ,sbcl-ironclad)))
6515       (synopsis "D-Bus client library for Common Lisp")
6516       (description "This is a Common Lisp library that publishes D-Bus
6517 objects as well as send and notify other objects connected to a bus.")
6518       (license license:bsd-2))))
6519
6520 (define-public sbcl-cl-hooks
6521   (let ((commit "5b638083f3b4f1221a52631d9c8a0a265565cac7")
6522         (revision "1"))
6523     (package
6524       (name "sbcl-cl-hooks")
6525       (build-system asdf-build-system/sbcl)
6526       (version (git-version "0.2.1" revision commit))
6527       (home-page "https://github.com/scymtym/architecture.hooks")
6528       (source
6529        (origin
6530          (method git-fetch)
6531          (uri (git-reference
6532                (url home-page)
6533                (commit commit)))
6534          (file-name (git-file-name name version))
6535          (sha256
6536           (base32
6537            "0bg3l0a28lw5gqqjp6p6b5nhwqk46sgkb7184w5qbfngw1hk8x9y"))))
6538       (inputs
6539        `(("alexandria" ,sbcl-alexandria)
6540          ("let-plus" ,sbcl-let-plus)
6541          ("trivial-garbage" ,sbcl-trivial-garbage)
6542          ("closer-mop" ,sbcl-closer-mop)))
6543       (native-inputs
6544        `(("fiveam" ,sbcl-fiveam)))
6545       (synopsis "Hooks extension point mechanism (as in Emacs) for Common Lisp")
6546       (description "A hook, in the present context, is a certain kind of
6547 extension point in a program that allows interleaving the execution of
6548 arbitrary code with the execution of a the program without introducing any
6549 coupling between the two.  Hooks are used extensively in the extensible editor
6550 Emacs.
6551
6552 In the Common LISP Object System (CLOS), a similar kind of extensibility is
6553 possible using the flexible multi-method dispatch mechanism.  It may even seem
6554 that the concept of hooks does not provide any benefits over the possibilities
6555 of CLOS.  However, there are some differences:
6556
6557 @itemize
6558
6559 @item There can be only one method for each combination of specializers and
6560 qualifiers.  As a result this kind of extension point cannot be used by
6561 multiple extensions independently.
6562 @item Removing code previously attached via a @code{:before}, @code{:after} or
6563 @code{:around} method can be cumbersome.
6564 @item There could be other or even multiple extension points besides @code{:before}
6565 and @code{:after} in a single method.
6566 @item Attaching codes to individual objects using eql specializers can be
6567 cumbersome.
6568 @item Introspection of code attached a particular extension point is
6569 cumbersome since this requires enumerating and inspecting the methods of a
6570 generic function.
6571 @end itemize
6572
6573 This library tries to complement some of these weaknesses of method-based
6574 extension-points via the concept of hooks.")
6575       (license license:llgpl))))
6576
6577 (define-public cl-hooks
6578   (sbcl-package->cl-source-package sbcl-cl-hooks))
6579
6580 (define-public ecl-cl-hooks
6581   (sbcl-package->ecl-package sbcl-cl-hooks))
6582
6583 (define-public sbcl-s-sysdeps
6584   ;; No release since 2013.
6585   (let ((commit "9aa23bbdceb24bcdbe0e7c39fa1901858f823106")
6586         (revision "2"))
6587     (package
6588       (name "sbcl-s-sysdeps")
6589       (build-system asdf-build-system/sbcl)
6590       (version (git-version "1" revision commit))
6591       (home-page "https://github.com/svenvc/s-sysdeps")
6592       (source
6593        (origin
6594          (method git-fetch)
6595          (uri (git-reference
6596                (url home-page)
6597                (commit commit)))
6598          (file-name (git-file-name name version))
6599          (sha256
6600           (base32
6601            "1fh8r7kf8s3hvqdg6b71b8p7w3v2kkga9bw8j3qqdxhzr6anpm0b"))))
6602       (inputs
6603        `(("bordeaux-threads" ,sbcl-bordeaux-threads)
6604          ("usocket" ,sbcl-usocket)
6605          ("usocket-server" ,sbcl-usocket-server)))
6606       (synopsis "Common Lisp abstraction layer over platform dependent functionality")
6607       (description "@code{s-sysdeps} is an abstraction layer over platform
6608 dependent functionality.  This simple package is used as a building block in a
6609 number of other open source projects.
6610
6611 @code{s-sysdeps} abstracts:
6612
6613 @itemize
6614 @item managing processes,
6615 @item implementing a standard TCP/IP server,
6616 @item opening a client TCP/IP socket stream,
6617 @item working with process locks.
6618 @end itemize\n")
6619       (license license:llgpl))))
6620
6621 (define-public cl-s-sysdeps
6622   (sbcl-package->cl-source-package sbcl-s-sysdeps))
6623
6624 (define-public ecl-s-sysdeps
6625   (sbcl-package->ecl-package sbcl-s-sysdeps))
6626
6627 (define-public sbcl-cl-prevalence
6628   (let ((commit "da3ed6c4594b1c2fca90c178c1993973c4bf16c9")
6629         (revision "2"))
6630     (package
6631       (name "sbcl-cl-prevalence")
6632       (build-system asdf-build-system/sbcl)
6633       (version (git-version "5" revision commit))
6634       (home-page "https://github.com/40ants/cl-prevalence")
6635       (source
6636        (origin
6637          (method git-fetch)
6638          (uri (git-reference
6639                (url home-page)
6640                (commit commit)))
6641          (file-name (git-file-name name version))
6642          (sha256
6643           (base32
6644            "0bq905hv1626dl6b7s0zn4lbdh608g1pxaljl1fda6pwp9hmj95a"))))
6645       (inputs
6646        `(("s-sysdeps" ,sbcl-s-sysdeps)
6647          ("s-xml" ,sbcl-s-xml)))
6648       (synopsis "Implementation of object prevalence for Common Lisp")
6649       (description "This Common Lisp library implements object prevalence (see
6650 @url{https://en.wikipedia.org/wiki/System_prevalence}).  It allows
6651 for (de)serializing to and from s-exps as well as XML.  Serialization of arbitrary
6652 classes and cyclic data structures are supported.")
6653       (license license:llgpl))))
6654
6655 (define-public cl-prevalence
6656   (sbcl-package->cl-source-package sbcl-cl-prevalence))
6657
6658 (define-public ecl-cl-prevalence
6659   (sbcl-package->ecl-package sbcl-cl-prevalence))
6660
6661 (define-public sbcl-series
6662   (let ((commit "da9061b336119d1e5214aff9117171d494d5a58a")
6663         (revision "1"))
6664     (package
6665       (name "sbcl-series")
6666       (version (git-version "2.2.11" revision commit))
6667       (source
6668        (origin
6669          (method git-fetch)
6670          (uri (git-reference
6671                (url "git://git.code.sf.net/p/series/series")
6672                (commit commit)))
6673          (file-name (git-file-name name version))
6674          (sha256
6675           (base32
6676            "07hk2lhfx42zk018pxqvn4gs77vd4n4g8m4xxbqaxgca76mifwfw"))))
6677       (build-system asdf-build-system/sbcl)
6678       (arguments
6679        ;; Disable the tests, they are apparently buggy and I didn't find
6680        ;; a simple way to make them run and pass.
6681        '(#:tests? #f))
6682       (synopsis "Series data structure for Common Lisp")
6683       (description
6684        "This Common Lisp library provides a series data structure much like
6685 a sequence, with similar kinds of operations.  The difference is that in many
6686 situations, operations on series may be composed functionally and yet execute
6687 iteratively, without the need to construct intermediate series values
6688 explicitly.  In this manner, series provide both the clarity of a functional
6689 programming style and the efficiency of an iterative programming style.")
6690       (home-page "http://series.sourceforge.net/")
6691       (license license:expat))))
6692
6693 (define-public cl-series
6694   (sbcl-package->cl-source-package sbcl-series))
6695
6696 (define-public ecl-series
6697   (sbcl-package->ecl-package sbcl-series))
6698
6699 (define-public sbcl-periods
6700   (let ((commit "983d4a57325db3c8def942f163133cec5391ec28")
6701         (revision "1"))
6702     (package
6703       (name "sbcl-periods")
6704       (version (git-version "0.0.2" revision commit))
6705       (source
6706        (origin
6707          (method git-fetch)
6708          (uri (git-reference
6709                (url "https://github.com/jwiegley/periods.git")
6710                (commit commit)))
6711          (file-name (git-file-name name version))
6712          (sha256
6713           (base32
6714            "0z30jr3lxz3cmi019fsl4lgcgwf0yqpn95v9zkkkwgymdrkd4lga"))))
6715       (build-system asdf-build-system/sbcl)
6716       (inputs
6717        `(("local-time" ,sbcl-local-time)))
6718       (synopsis "Common Lisp library for manipulating date/time objects")
6719       (description
6720        "Periods is a Common Lisp library providing a set of utilities for
6721 manipulating times, distances between times, and both contiguous and
6722 discontiguous ranges of time.")
6723       (home-page "https://github.com/jwiegley/periods")
6724       (license license:bsd-3))))
6725
6726 (define-public cl-periods
6727   (sbcl-package->cl-source-package sbcl-periods))
6728
6729 (define-public ecl-periods
6730   (sbcl-package->ecl-package sbcl-periods))
6731
6732 (define-public sbcl-periods-series
6733   (package
6734     (inherit sbcl-periods)
6735     (name "sbcl-periods-series")
6736     (inputs
6737      `(("periods" ,sbcl-periods)
6738        ("series" ,sbcl-series)))
6739     (arguments
6740      '(#:asd-file "periods-series.asd"
6741        #:asd-system-name "periods-series"))
6742     (description
6743      "Periods-series is an extension of the periods Common Lisp library
6744 providing functions compatible with the series Common Lisp library.")))
6745
6746 (define-public cl-periods-series
6747   (sbcl-package->cl-source-package sbcl-periods-series))
6748
6749 (define-public ecl-periods-series
6750   (sbcl-package->ecl-package sbcl-periods-series))
6751
6752 (define-public sbcl-metatilities-base
6753   (let ((commit "6eaa9e3ff0939a93a92109dd0fcd218de85417d5")
6754         (revision "1"))
6755     (package
6756       (name "sbcl-metatilities-base")
6757       (version (git-version "0.6.6" revision commit))
6758       (source
6759        (origin
6760          (method git-fetch)
6761          (uri (git-reference
6762                (url "https://github.com/gwkkwg/metatilities-base.git")
6763                (commit commit)))
6764          (file-name (git-file-name name version))
6765          (sha256
6766           (base32
6767            "0xpa86pdzlnf4v5g64j3ifaplx71sx2ha8b7vvakswi652679ma0"))))
6768       (build-system asdf-build-system/sbcl)
6769       (native-inputs
6770        `(("lift" ,sbcl-lift)))
6771       (synopsis "Core of the metatilities Common Lisp library")
6772       (description
6773        "Metatilities-base is the core of the metatilities Common Lisp library
6774 which implements a set of utilities.")
6775       (home-page "https://common-lisp.net/project/metatilities-base/")
6776       (license license:expat))))
6777
6778 (define-public cl-metatilities-base
6779   (sbcl-package->cl-source-package sbcl-metatilities-base))
6780
6781 (define-public ecl-metatilities-base
6782   (sbcl-package->ecl-package sbcl-metatilities-base))
6783
6784 (define-public sbcl-cl-containers
6785   (let ((commit "3d1df53c22403121bffb5d553cf7acb1503850e7")
6786         (revision "3"))
6787     (package
6788       (name "sbcl-cl-containers")
6789       (version (git-version "0.12.1" revision commit))
6790       (source
6791        (origin
6792          (method git-fetch)
6793          (uri (git-reference
6794                (url "https://github.com/gwkkwg/cl-containers.git")
6795                (commit commit)))
6796          (file-name (git-file-name name version))
6797          (sha256
6798           (base32
6799            "18s6jfq11n8nv9k4biz32pm1s7y9zl054ry1gmdbcf39nisy377y"))))
6800       (build-system asdf-build-system/sbcl)
6801       (native-inputs
6802        `(("lift" ,sbcl-lift)))
6803       (inputs
6804        `(("metatilities-base" ,sbcl-metatilities-base)))
6805       (arguments
6806        '(#:phases
6807          (modify-phases %standard-phases
6808            (add-after 'unpack 'relax-version-checks
6809              (lambda _
6810                (substitute* "cl-containers.asd"
6811                  (("\\(:version \"metatilities-base\" \"0\\.6\\.6\"\\)")
6812                   "\"metatilities-base\""))
6813                (substitute* "cl-containers-test.asd"
6814                  (("\\(:version \"lift\" \"1\\.7\\.0\"\\)")
6815                   "\"lift\""))
6816                #t)))))
6817       (synopsis "Container library for Common Lisp")
6818       (description
6819        "Common Lisp ships with a set of powerful built in data structures
6820 including the venerable list, full featured arrays, and hash-tables.
6821 CL-containers enhances and builds on these structures by adding containers
6822 that are not available in native Lisp (for example: binary search trees,
6823 red-black trees, sparse arrays and so on), and by providing a standard
6824 interface so that they are simpler to use and so that changing design
6825 decisions becomes significantly easier.")
6826       (home-page "https://common-lisp.net/project/cl-containers/")
6827       (license license:expat))))
6828
6829 (define-public cl-containers
6830   (sbcl-package->cl-source-package sbcl-cl-containers))
6831
6832 (define-public ecl-cl-containers
6833   (sbcl-package->ecl-package sbcl-cl-containers))
6834
6835 (define-public sbcl-xlunit
6836   (let ((commit "3805d34b1d8dc77f7e0ee527a2490194292dd0fc")
6837         (revision "1"))
6838     (package
6839       (name "sbcl-xlunit")
6840       (version (git-version "0.6.3" revision commit))
6841       (source
6842        (origin
6843          (method git-fetch)
6844          (uri (git-reference
6845                (url "http://git.kpe.io/xlunit.git")
6846                (commit commit)))
6847          (file-name (git-file-name name version))
6848          (sha256
6849           (base32
6850            "0argfmp9nghs4sihyj3f8ch9qfib2b7ll07v5m9ziajgzsfl5xw3"))))
6851       (build-system asdf-build-system/sbcl)
6852       (arguments
6853        '(#:phases
6854          (modify-phases %standard-phases
6855            (add-after 'unpack 'fix-tests
6856              (lambda _
6857                (substitute* "xlunit.asd"
6858                  ((" :force t") ""))
6859                #t)))))
6860       (synopsis "Unit testing package for Common Lisp")
6861       (description
6862        "The XLUnit package is a toolkit for building test suites.  It is based
6863 on the XPTest package by Craig Brozensky and the JUnit package by Kent Beck.")
6864       (home-page "http://quickdocs.org/xlunit/")
6865       (license license:bsd-3))))
6866
6867 (define-public cl-xlunit
6868   (sbcl-package->cl-source-package sbcl-xlunit))
6869
6870 (define-public ecl-xlunit
6871   (sbcl-package->ecl-package sbcl-xlunit))
6872
6873 (define-public sbcl-fprog
6874   (let ((commit "7016d1a98215f82605d1c158e7a16504ca1f4636")
6875         (revision "1"))
6876     (package
6877       (name "sbcl-fprog")
6878       (version (git-version "1.0.0" revision commit))
6879       (source
6880        (origin
6881          (method git-fetch)
6882          (uri (git-reference
6883                (url "https://github.com/jwiegley/cambl.git")
6884                (commit commit)))
6885          (file-name (git-file-name name version))
6886          (sha256
6887           (base32
6888            "103mry04j2k9vznsxm7wcvccgxkil92cdrv52miwcmxl8daa4jiz"))))
6889       (build-system asdf-build-system/sbcl)
6890       (synopsis "Functional programming utilities for Common Lisp")
6891       (description
6892        "@code{fprog} is a Common Lisp library allowing iteration over
6893 immutable lists sharing identical sublists.")
6894       (home-page "https://github.com/jwiegley/cambl")
6895       (license license:bsd-3))))
6896
6897 (define-public cl-fprog
6898   (sbcl-package->cl-source-package sbcl-fprog))
6899
6900 (define-public ecl-fprog
6901   (sbcl-package->ecl-package sbcl-fprog))
6902
6903 (define-public sbcl-cambl
6904   (let ((commit "7016d1a98215f82605d1c158e7a16504ca1f4636")
6905         (revision "1"))
6906     (package
6907       (inherit sbcl-fprog)
6908       (name "sbcl-cambl")
6909       (version (git-version "4.0.0" revision commit))
6910       (native-inputs
6911        `(("xlunit" ,sbcl-xlunit)))
6912       (inputs
6913        `(("alexandria" ,sbcl-alexandria)
6914          ("cl-containers" ,sbcl-cl-containers)
6915          ("local-time" ,sbcl-local-time)
6916          ("periods" ,sbcl-periods)
6917          ("fprog" ,sbcl-fprog)))
6918       (synopsis "Commoditized amounts and balances for Common Lisp")
6919       (description
6920        "CAMBL is a Common Lisp library providing a convenient facility for
6921 working with commoditized values.  It does not allow compound units (and so is
6922 not suited for scientific operations) but does work rather nicely for the
6923 purpose of financial calculations."))))
6924
6925 (define-public cl-cambl
6926   (sbcl-package->cl-source-package sbcl-cambl))
6927
6928 (define-public ecl-cambl
6929   (sbcl-package->ecl-package sbcl-cambl))
6930
6931 (define-public sbcl-cl-ledger
6932   (let ((commit "08e0be41795e804cd36142e51756ad0b1caa377b")
6933         (revision "1"))
6934     (package
6935       (name "sbcl-cl-ledger")
6936       (version (git-version "4.0.0" revision commit))
6937       (source
6938        (origin
6939          (method git-fetch)
6940          (uri (git-reference
6941                (url "https://github.com/ledger/cl-ledger.git")
6942                (commit commit)))
6943          (file-name (git-file-name name version))
6944          (sha256
6945           (base32
6946            "1via0qf6wjcyxnfbmfxjvms0ik9j8rqbifgpmnhrzvkhrq9pv8h1"))))
6947       (build-system asdf-build-system/sbcl)
6948       (inputs
6949        `(("cambl" ,sbcl-cambl)
6950          ("cl-ppcre" ,sbcl-cl-ppcre)
6951          ("local-time" ,sbcl-local-time)
6952          ("periods-series" ,sbcl-periods-series)))
6953       (arguments
6954        '(#:phases
6955          (modify-phases %standard-phases
6956            (add-after 'unpack 'fix-system-definition
6957              (lambda _
6958                (substitute* "cl-ledger.asd"
6959                  (("  :build-operation program-op") "")
6960                  (("  :build-pathname \"cl-ledger\"") "")
6961                  (("  :entry-point \"ledger::main\"") ""))
6962                #t)))))
6963       (synopsis "Common Lisp port of the Ledger accounting system")
6964       (description
6965        "CL-Ledger is a Common Lisp port of the Ledger double-entry accounting
6966 system.")
6967       (home-page "https://github.com/ledger/cl-ledger")
6968       (license license:bsd-3))))
6969
6970 (define-public cl-ledger
6971   (sbcl-package->cl-source-package sbcl-cl-ledger))
6972
6973 (define-public ecl-cl-ledger
6974   (sbcl-package->ecl-package sbcl-cl-ledger))
6975
6976 (define-public sbcl-bst
6977   (let ((commit "34f9c7e8e0a9f2c952fe310ab36cb630d5d9c15a")
6978         (revision "1"))
6979     (package
6980       (name "sbcl-bst")
6981       (version (git-version "1.1" revision commit))
6982       (source
6983        (origin
6984          (method git-fetch)
6985          (uri (git-reference
6986                (url "https://github.com/glv2/bst.git")
6987                (commit commit)))
6988          (file-name (git-file-name name version))
6989          (sha256
6990           (base32
6991            "1amxns7hvvh4arwbh8ciwfzplg127vh37dnbamv1m1kmmnmihfc8"))))
6992       (build-system asdf-build-system/sbcl)
6993       (native-inputs
6994        `(("alexandria" ,sbcl-alexandria)
6995          ("fiveam" ,sbcl-fiveam)))
6996       (synopsis "Binary search tree for Common Lisp")
6997       (description
6998        "BST is a Common Lisp library for working with binary search trees that
6999 can contain any kind of values.")
7000       (home-page "https://github.com/glv2/bst")
7001       (license license:gpl3))))
7002
7003 (define-public cl-bst
7004   (sbcl-package->cl-source-package sbcl-bst))
7005
7006 (define-public ecl-bst
7007   (sbcl-package->ecl-package sbcl-bst))
7008
7009 (define-public sbcl-cl-octet-streams
7010   (package
7011     (name "sbcl-cl-octet-streams")
7012     (version "1.0")
7013     (source
7014      (origin
7015        (method git-fetch)
7016        (uri (git-reference
7017              (url "https://github.com/glv2/cl-octet-streams.git")
7018              (commit (string-append "v" version))))
7019        (file-name (git-file-name name version))
7020        (sha256
7021         (base32
7022          "1d7mn6ydv0j2x4r7clpc9ijjwrnfpxmvhifv8n5j7jh7s744sf8d"))))
7023     (build-system asdf-build-system/sbcl)
7024     (native-inputs
7025      `(("fiveam" ,sbcl-fiveam)))
7026     (inputs
7027      `(("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
7028     (synopsis "In-memory octet streams for Common Lisp")
7029     (description
7030      "CL-octet-streams is a library implementing in-memory octet
7031 streams for Common Lisp.  It was inspired by the trivial-octet-streams and
7032 cl-plumbing libraries.")
7033     (home-page "https://github.com/glv2/cl-octet-streams")
7034     (license license:gpl3+)))
7035
7036 (define-public cl-octet-streams
7037   (sbcl-package->cl-source-package sbcl-cl-octet-streams))
7038
7039 (define-public ecl-cl-octet-streams
7040   (sbcl-package->ecl-package sbcl-cl-octet-streams))
7041
7042 (define-public sbcl-lzlib
7043   (let ((commit "0de1db7129fef9a58a059d35a2fa2ecfc5b47b47")
7044         (revision "1"))
7045     (package
7046       (name "sbcl-lzlib")
7047       (version (git-version "1.0" revision commit))
7048       (source
7049        (origin
7050          (method git-fetch)
7051          (uri (git-reference
7052                (url "https://github.com/glv2/cl-lzlib.git")
7053                (commit commit)))
7054          (file-name (git-file-name name version))
7055          (sha256
7056           (base32
7057            "12ny7vj52fgnd8hb8fc8mry92vq4c1x72x2350191m4476j95clz"))))
7058       (build-system asdf-build-system/sbcl)
7059       (native-inputs
7060        `(("fiveam" ,sbcl-fiveam)))
7061       (inputs
7062        `(("cffi" ,sbcl-cffi)
7063          ("cl-octet-streams" ,sbcl-cl-octet-streams)
7064          ("lzlib" ,lzlib)))
7065       (arguments
7066        '(#:phases
7067          (modify-phases %standard-phases
7068            (add-after 'unpack 'fix-paths
7069              (lambda* (#:key inputs #:allow-other-keys)
7070                (substitute* "src/lzlib.lisp"
7071                  (("liblz\\.so")
7072                   (string-append (assoc-ref inputs "lzlib") "/lib/liblz.so")))
7073                #t)))))
7074       (synopsis "Common Lisp library for lzip (de)compression")
7075       (description
7076        "This Common Lisp library provides functions for lzip (LZMA)
7077 compression/decompression using bindings to the lzlib C library.")
7078       (home-page "https://github.com/glv2/cl-lzlib")
7079       (license license:gpl3+))))
7080
7081 (define-public cl-lzlib
7082   (sbcl-package->cl-source-package sbcl-lzlib))
7083
7084 (define-public ecl-lzlib
7085   (sbcl-package->ecl-package sbcl-lzlib))
7086
7087 (define-public sbcl-chanl
7088   (let ((commit "56e90a126c78b39bb621a01585e8d3b985238e8c")
7089         (revision "1"))
7090     (package
7091       (name "sbcl-chanl")
7092       (version (git-version "0.4.1" revision commit))
7093       (source
7094        (origin
7095          (method git-fetch)
7096          (uri (git-reference
7097                (url "https://github.com/zkat/chanl.git")
7098                (commit commit)))
7099          (file-name (git-file-name name version))
7100          (sha256
7101           (base32
7102            "0b1cf6c12qx5cy1fw2z42jgh566rp3l8nv5qf0qqc569s7bgmrh4"))))
7103       (build-system asdf-build-system/sbcl)
7104       (native-inputs
7105        `(("fiveam" ,sbcl-fiveam)))
7106       (inputs
7107        `(("bordeaux-threads" ,sbcl-bordeaux-threads)))
7108       (synopsis "Portable channel-based concurrency for Common Lisp")
7109       (description "Common Lisp library for channel-based concurrency.  In
7110 a nutshell, you create various threads sequentially executing tasks you need
7111 done, and use channel objects to communicate and synchronize the state of these
7112 threads.")
7113       (home-page "https://github.com/zkat/chanl")
7114       (license (list license:expat license:bsd-3)))))
7115
7116 (define-public cl-chanl
7117   (sbcl-package->cl-source-package sbcl-chanl))
7118
7119 (define-public ecl-chanl
7120   (sbcl-package->ecl-package sbcl-chanl))
7121
7122 (define-public sbcl-cl-store
7123   (let ((commit "c787337a16ea8cf8a06227f35933a4ec774746b3")
7124         (revision "1"))
7125     (package
7126       (name "sbcl-cl-store")
7127       (version (git-version "0.8.11" revision commit))
7128       (source
7129        (origin
7130          (method git-fetch)
7131          (uri (git-reference
7132                (url "https://github.com/skypher/cl-store.git")
7133                (commit commit)))
7134          (file-name (git-file-name name version))
7135          (sha256
7136           (base32
7137            "194srkg8nrym19c6i7zbnkzshc1qhqa82m53qnkirz9fw928bqxr"))))
7138       (build-system asdf-build-system/sbcl)
7139       (native-inputs
7140        `(("rt" ,sbcl-rt)))
7141       (synopsis "Common Lisp library to serialize data")
7142       (description
7143        "CL-STORE is a portable serialization package which should give you the
7144 ability to store all Common Lisp data types into streams.")
7145       (home-page "https://www.common-lisp.net/project/cl-store/")
7146       (license license:expat))))
7147
7148 (define-public cl-store
7149   (sbcl-package->cl-source-package sbcl-cl-store))
7150
7151 (define-public ecl-cl-store
7152   (sbcl-package->ecl-package sbcl-cl-store))
7153
7154 (define-public sbcl-cl-gobject-introspection
7155   (let ((commit "7b703e2384945ea0ac39d9b766de434a08d81560")
7156         (revision "0"))
7157     (package
7158       (name "sbcl-cl-gobject-introspection")
7159       (version (git-version "0.3" revision commit))
7160       (home-page "https://github.com/andy128k/cl-gobject-introspection")
7161       (source
7162        (origin
7163          (method git-fetch)
7164          (uri (git-reference
7165                (url home-page)
7166                (commit commit)))
7167          (file-name (git-file-name name version))
7168          (sha256
7169           (base32
7170            "1zcqd2qj14f6b38vys8gr89s6cijsp9r8j43xa8lynilwva7bwyh"))))
7171       (build-system asdf-build-system/sbcl)
7172       (inputs
7173        `(("alexandria" ,sbcl-alexandria)
7174          ("cffi" ,sbcl-cffi)
7175          ("iterate" ,sbcl-iterate)
7176          ("trivial-garbage" ,sbcl-trivial-garbage)
7177          ("glib" ,glib)
7178          ("gobject-introspection" ,gobject-introspection)))
7179       (native-inputs
7180        `(("fiveam" ,sbcl-fiveam)))
7181       (arguments
7182        ;; TODO: Tests fail, see
7183        ;; https://github.com/andy128k/cl-gobject-introspection/issues/70.
7184        '(#:tests? #f
7185          #:phases
7186          (modify-phases %standard-phases
7187            (add-after (quote unpack) (quote fix-paths)
7188              (lambda* (#:key inputs #:allow-other-keys)
7189                (substitute* "src/init.lisp"
7190                  (("libgobject-2\\.0\\.so")
7191                   (string-append (assoc-ref inputs "glib") "/lib/libgobject-2.0.so"))
7192                  (("libgirepository-1\\.0\\.so")
7193                   (string-append (assoc-ref inputs "gobject-introspection")
7194                                  "/lib/libgirepository-1.0.so")))
7195                #t)))))
7196       (synopsis "Common Lisp bindings to GObject Introspection")
7197       (description
7198        "This library is a bridge between Common Lisp and GObject
7199 Introspection, which enables Common Lisp programs to access the full interface
7200 of C+GObject libraries without the need of writing dedicated bindings.")
7201       (license (list license:bsd-3
7202                      ;; Tests are under a different license.
7203                      license:llgpl)))))
7204
7205 (define-public cl-gobject-introspection
7206   (sbcl-package->cl-source-package sbcl-cl-gobject-introspection))
7207
7208 (define-public sbcl-string-case
7209   (let ((commit "718c761e33749e297cd2809c7ba3ade1985c49f7")
7210         (revision "0"))
7211     (package
7212       (name "sbcl-string-case")
7213       (version (git-version "0.0.2" revision commit))
7214       (home-page "https://github.com/pkhuong/string-case")
7215       (source
7216        (origin
7217          (method git-fetch)
7218          (uri (git-reference
7219                (url home-page)
7220                (commit commit)))
7221          (file-name (git-file-name name version))
7222          (sha256
7223           (base32
7224            "1n5i3yh0h5s636rcnwn7jwqy3rjflikra04lymimhpcshhjsk0md"))))
7225       (build-system asdf-build-system/sbcl)
7226       (synopsis "Efficient string= case in Common Lisp")
7227       (description
7228        "@code{string-case} is a Common Lisp macro that generates specialised decision
7229 trees to dispatch on string equality.")
7230       (license license:bsd-3))))
7231
7232 (define-public cl-string-case
7233   (sbcl-package->cl-source-package sbcl-string-case))
7234
7235 (define-public ecl-string-case
7236   (sbcl-package->ecl-package sbcl-string-case))
7237
7238 (define-public sbcl-global-vars
7239   (let ((commit "c749f32c9b606a1457daa47d59630708ac0c266e")
7240         (revision "0"))
7241     (package
7242       (name "sbcl-global-vars")
7243       (version (git-version "1.0.0" revision commit))
7244       (home-page "https://github.com/lmj/global-vars")
7245       (source
7246        (origin
7247          (method git-fetch)
7248          (uri (git-reference
7249                (url home-page)
7250                (commit commit)))
7251          (file-name (git-file-name name version))
7252          (sha256
7253           (base32
7254            "06m3xc8l3pgsapl8fvsi9wf6y46zs75cp9zn7zh6dc65v4s5wz3d"))))
7255       (build-system asdf-build-system/sbcl)
7256       (synopsis "Efficient global variables in Common Lisp")
7257       (description
7258        "In Common Lisp, a special variable that is never dynamically bound
7259 typically serves as a stand-in for a global variable.  The @code{global-vars}
7260 library provides true global variables that are implemented by some compilers.
7261 An attempt to rebind a global variable properly results in a compiler error.
7262 That is, a global variable cannot be dynamically bound.
7263
7264 Global variables therefore allow us to communicate an intended usage that
7265 differs from special variables.  Global variables are also more efficient than
7266 special variables, especially in the presence of threads.")
7267       (license license:expat))))
7268
7269 (define-public cl-global-vars
7270   (sbcl-package->cl-source-package sbcl-global-vars))
7271
7272 (define-public ecl-global-vars
7273   (sbcl-package->ecl-package sbcl-global-vars))
7274
7275 (define-public sbcl-trivial-file-size
7276   (let ((commit "1c1d672a01a446ba0391dbb4ffc40be3b0476f23")
7277         (revision "0"))
7278     (package
7279       (name "sbcl-trivial-file-size")
7280       (version (git-version "0.0.0" revision commit))
7281       (home-page "https://github.com/ruricolist/trivial-file-size")
7282       (source
7283        (origin
7284          (method git-fetch)
7285          (uri (git-reference
7286                (url home-page)
7287                (commit commit)))
7288          (file-name (git-file-name name version))
7289          (sha256
7290           (base32
7291            "17pp86c9zs4y7i1sh7q9gbfw9iqv6655k7fz8qbj9ly1ypgxp4qs"))))
7292       (build-system asdf-build-system/sbcl)
7293       (native-inputs
7294        `(("fiveam" ,sbcl-fiveam)))
7295       (synopsis "Size of a file in bytes in Common Lisp")
7296       (description
7297        "The canonical way to determine the size of a file in bytes, using Common Lisp,
7298 is to open the file with an element type of (unsigned-byte 8) and then
7299 calculate the length of the stream.  This is less than ideal.  In most cases
7300 it is better to get the size of the file from its metadata, using a system
7301 call.
7302
7303 This library exports a single function, file-size-in-octets.  It returns the
7304 size of a file in bytes, using system calls when possible.")
7305       (license license:expat))))
7306
7307 (define-public cl-trivial-file-size
7308   (sbcl-package->cl-source-package sbcl-trivial-file-size))
7309
7310 (define-public ecl-trivial-file-size
7311   (sbcl-package->ecl-package sbcl-trivial-file-size))
7312
7313 (define-public sbcl-trivial-macroexpand-all
7314   (let ((commit "933270ac7107477de1bc92c1fd641fe646a7a8a9")
7315         (revision "0"))
7316     (package
7317       (name "sbcl-trivial-macroexpand-all")
7318       (version (git-version "0.0.0" revision commit))
7319       (home-page "https://github.com/cbaggers/trivial-macroexpand-all")
7320       (source
7321        (origin
7322          (method git-fetch)
7323          (uri (git-reference
7324                (url home-page)
7325                (commit commit)))
7326          (file-name (git-file-name name version))
7327          (sha256
7328           (base32
7329            "191hnn4b5j4i3crydmlzbm231kj0h7l8zj6mzj69r1npbzkas4bd"))))
7330       (build-system asdf-build-system/sbcl)
7331       (native-inputs
7332        `(("fiveam" ,sbcl-fiveam)))
7333       (synopsis "Portable macroexpand-all for Common Lisp")
7334       (description
7335        "This library provides a macroexpand-all function that calls the
7336 implementation specific equivalent.")
7337       (license license:unlicense))))
7338
7339 (define-public cl-trivial-macroexpand-all
7340   (sbcl-package->cl-source-package sbcl-trivial-macroexpand-all))
7341
7342 (define-public ecl-trivial-macroexpand-all
7343   (sbcl-package->ecl-package sbcl-trivial-macroexpand-all))
7344
7345 (define-public sbcl-serapeum
7346   (let ((commit "64f0c4a161bbbda7c275012ca1415b4293b9e169")
7347         (revision "1"))
7348     (package
7349       (name "sbcl-serapeum")
7350       (version (git-version "0.0.0" revision commit))
7351       (home-page "https://github.com/ruricolist/serapeum")
7352       (source
7353        (origin
7354          (method git-fetch)
7355          (uri (git-reference
7356                (url home-page)
7357                (commit commit)))
7358          (file-name (git-file-name name version))
7359          (sha256
7360           (base32
7361            "0djnj0py8hdjnk5j6shjq2kbmyxqd5sw79cilcfmpfz4dzjdgkx9"))))
7362       (build-system asdf-build-system/sbcl)
7363       (inputs
7364        `(("alexandria" ,sbcl-alexandria)
7365          ("trivia" ,sbcl-trivia)
7366          ("trivia.quasiquote" ,sbcl-trivia.quasiquote)
7367          ("split-sequence" ,sbcl-split-sequence)
7368          ("string-case" ,sbcl-string-case)
7369          ("parse-number" ,sbcl-parse-number)
7370          ("trivial-garbage" ,sbcl-trivial-garbage)
7371          ("bordeaux-threads" ,sbcl-bordeaux-threads)
7372          ("named-readtables" ,sbcl-named-readtables)
7373          ("fare-quasiquote-extras" ,sbcl-fare-quasiquote-extras)
7374          ("parse-declarations-1.0" ,sbcl-parse-declarations)
7375          ("global-vars" ,sbcl-global-vars)
7376          ("trivial-file-size" ,sbcl-trivial-file-size)
7377          ("trivial-macroexpand-all" ,sbcl-trivial-macroexpand-all)))
7378       (native-inputs
7379        `(("fiveam" ,sbcl-fiveam)
7380          ("local-time" ,sbcl-local-time)))
7381       (arguments
7382        '(#:phases
7383          (modify-phases %standard-phases
7384            (add-after 'unpack 'disable-failing-tests
7385              (lambda* (#:key inputs #:allow-other-keys)
7386                (substitute* "serapeum.asd"
7387                  ;; Guix does not have Quicklisp, and probably never will.
7388                  (("\\(:file \"quicklisp\"\\)") ""))
7389                #t)))))
7390       (synopsis "Common Lisp utility library beyond Alexandria")
7391       (description
7392        "Serapeum is a conservative library of Common Lisp utilities.  It is a
7393 supplement, not a competitor, to Alexandria.")
7394       (license license:expat))))
7395
7396 (define-public cl-serapeum
7397   (sbcl-package->cl-source-package sbcl-serapeum))
7398
7399 (define-public sbcl-arrows
7400   (let ((commit "df7cf0067e0132d9697ac8b1a4f1b9c88d4f5382")
7401         (revision "0"))
7402     (package
7403       (name "sbcl-arrows")
7404       (version (git-version "0.2.0" revision commit))
7405       (source
7406        (origin
7407          (method git-fetch)
7408          (uri (git-reference
7409                (url "https://gitlab.com/Harleqin/arrows.git")
7410                (commit commit)))
7411          (file-name (git-file-name name version))
7412          (sha256
7413           (base32
7414            "042k9vkssrqx9nhp14wdzm942zgdxvp35mba0p2syz98i75im2yy"))))
7415       (build-system asdf-build-system/sbcl)
7416       (native-inputs
7417        `(("hu.dwim.stefil" ,sbcl-hu.dwim.stefil)))
7418       (synopsis "Clojure-like arrow macros for Common Lisp")
7419       (description
7420        "This library implements the @code{->} and @code{->>} macros from
7421 Clojure, as well as several expansions on the idea.")
7422       (home-page "https://gitlab.com/Harleqin/arrows")
7423       (license license:public-domain))))
7424
7425 (define-public cl-arrows
7426   (sbcl-package->cl-source-package sbcl-arrows))
7427
7428 (define-public ecl-arrows
7429   (sbcl-package->ecl-package sbcl-arrows))
7430
7431 (define-public sbcl-simple-parallel-tasks
7432   (let ((commit "db460f7a3f7bbfe2d3a2223ed21e162068d04dda")
7433         (revision "0"))
7434     (package
7435       (name "sbcl-simple-parallel-tasks")
7436       (version (git-version "1.0" revision commit))
7437       (source
7438        (origin
7439          (method git-fetch)
7440          (uri (git-reference
7441                (url "https://github.com/glv2/simple-parallel-tasks.git")
7442                (commit commit)))
7443          (file-name (git-file-name name version))
7444          (sha256
7445           (base32
7446            "0amw3qk23wnlyrsgzszs6rs7y4zvxv8dr03rnqhc60mnm8ds4dd5"))))
7447       (build-system asdf-build-system/sbcl)
7448       (native-inputs
7449        `(("fiveam" ,sbcl-fiveam)))
7450       (inputs
7451        `(("chanl" ,sbcl-chanl)))
7452       (synopsis "Common Lisp library to evaluate some forms in parallel")
7453       (description "This is a simple Common Lisp library to evaluate some
7454 forms in parallel.")
7455       (home-page "https://github.com/glv2/simple-parallel-tasks")
7456       (license license:gpl3))))
7457
7458 (define-public cl-simple-parallel-tasks
7459   (sbcl-package->cl-source-package sbcl-simple-parallel-tasks))
7460
7461 (define-public ecl-simple-parallel-tasks
7462   (sbcl-package->ecl-package sbcl-simple-parallel-tasks))
7463
7464 (define-public sbcl-cl-heap
7465   (package
7466     (name "sbcl-cl-heap")
7467     (version "0.1.6")
7468     (source
7469      (origin
7470        (method url-fetch)
7471        (uri (string-append "https://common-lisp.net/project/cl-heap/releases/"
7472                            "cl-heap_" version ".tar.gz"))
7473        (sha256
7474         (base32
7475          "163hb07p2nxz126rpq3cj5dyala24n0by5i5786n2qcr1w0bak4i"))))
7476     (build-system asdf-build-system/sbcl)
7477     (native-inputs
7478      `(("xlunit" ,sbcl-xlunit)))
7479     (arguments
7480      `(#:test-asd-file "cl-heap-tests.asd"))
7481     (synopsis "Heap and priority queue data structures for Common Lisp")
7482     (description
7483      "CL-HEAP provides various implementations of heap data structures (a
7484 binary heap and a Fibonacci heap) as well as an efficient priority queue.")
7485     (home-page "https://common-lisp.net/project/cl-heap/")
7486     (license license:gpl3+)))
7487
7488 (define-public cl-heap
7489   (sbcl-package->cl-source-package sbcl-cl-heap))
7490
7491 (define-public ecl-cl-heap
7492   (sbcl-package->ecl-package sbcl-cl-heap))
7493
7494 (define-public sbcl-curry-compose-reader-macros
7495   (let ((commit "beaa92dedf392726c042184bfd6149fa8d9e6ac2")
7496         (revision "0"))
7497     (package
7498       (name "sbcl-curry-compose-reader-macros")
7499       (version (git-version "1.0.0" revision commit))
7500       (source
7501        (origin
7502          (method git-fetch)
7503          (uri
7504           (git-reference
7505            (url "https://github.com/eschulte/curry-compose-reader-macros.git")
7506            (commit commit)))
7507          (file-name (git-file-name name version))
7508          (sha256
7509           (base32
7510            "0rv9bl8xrad5wfcg5zs1dazvnpmvqz6297lbn8bywsrcfnlf7h98"))))
7511       (build-system asdf-build-system/sbcl)
7512       (inputs
7513        `(("alexandria" ,sbcl-alexandria)
7514          ("named-readtables" ,sbcl-named-readtables)))
7515       (synopsis "Reader macros for partial application and composition")
7516       (description
7517        "This Common Lisp library provides reader macros for concise expression
7518 of function partial application and composition.")
7519       (home-page "https://eschulte.github.io/curry-compose-reader-macros/")
7520       (license license:public-domain))))
7521
7522 (define-public cl-curry-compose-reader-macros
7523   (sbcl-package->cl-source-package sbcl-curry-compose-reader-macros))
7524
7525 (define-public ecl-curry-compose-reader-macros
7526   (sbcl-package->ecl-package sbcl-curry-compose-reader-macros))
7527
7528 (define-public sbcl-yason
7529   (package
7530     (name "sbcl-yason")
7531     (version "0.7.7")
7532     (source
7533      (origin
7534        (method git-fetch)
7535        (uri (git-reference
7536              (url "https://github.com/phmarek/yason.git")
7537              (commit (string-append "v" version))))
7538        (file-name (git-file-name name version))
7539        (sha256
7540         (base32
7541          "0479rbjgbj80jpk5bby18inlv1kfp771a82rlcq5psrz65qqa9bj"))))
7542     (build-system asdf-build-system/sbcl)
7543     (inputs
7544      `(("alexandria" ,sbcl-alexandria)
7545        ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
7546     (synopsis "Common Lisp JSON parser/encoder")
7547     (description
7548      "YASON is a Common Lisp library for encoding and decoding data in the
7549 JSON interchange format.")
7550     (home-page "https://github.com/phmarek/yason")
7551     (license license:bsd-3)))
7552
7553 (define-public cl-yason
7554   (sbcl-package->cl-source-package sbcl-yason))
7555
7556 (define-public ecl-yason
7557   (sbcl-package->ecl-package sbcl-yason))
7558
7559 (define-public sbcl-stefil
7560   (let ((commit "0398548ec95dceb50fc2c2c03e5fb0ce49b86c7a")
7561         (revision "0"))
7562     (package
7563       (name "sbcl-stefil")
7564       (version (git-version "0.1" revision commit))
7565       (source
7566        (origin
7567          (method git-fetch)
7568          (uri (git-reference
7569                (url "https://gitlab.common-lisp.net/stefil/stefil.git")
7570                (commit commit)))
7571          (file-name (git-file-name name version))
7572          (sha256
7573           (base32
7574            "0bqz64q2szzhf91zyqyssmvrz7da6442rs01808pf3wrdq28bclh"))))
7575       (build-system asdf-build-system/sbcl)
7576       (inputs
7577        `(("alexandria" ,sbcl-alexandria)
7578          ("iterate" ,sbcl-iterate)
7579          ("metabang-bind" ,sbcl-metabang-bind)))
7580       (propagated-inputs
7581        ;; Swank doesn't have a pre-compiled package, therefore we must
7582        ;; propagate its sources.
7583        `(("swank" ,cl-slime-swank)))
7584       (arguments
7585        '(#:phases
7586          (modify-phases %standard-phases
7587            (add-after 'unpack 'drop-unnecessary-dependency
7588              (lambda _
7589                (substitute* "package.lisp"
7590                  ((":stefil-system") ""))
7591                #t)))))
7592       (home-page "https://common-lisp.net/project/stefil/index-old.shtml")
7593       (synopsis "Simple test framework")
7594       (description
7595        "Stefil is a simple test framework for Common Lisp, with a focus on
7596 interactive development.")
7597       (license license:public-domain))))
7598
7599 (define-public cl-stefil
7600   (sbcl-package->cl-source-package sbcl-stefil))
7601
7602 (define-public sbcl-graph
7603   (let ((commit "78bf9ec930d8eae4f0861b5be76765fb1e45e24f")
7604         (revision "0"))
7605     (package
7606       (name "sbcl-graph")
7607       (version (git-version "0.0.0" revision commit))
7608       (source
7609        (origin
7610          (method git-fetch)
7611          (uri
7612           (git-reference
7613            (url "https://github.com/eschulte/graph.git")
7614            (commit commit)))
7615          (file-name (git-file-name name version))
7616          (sha256
7617           (base32
7618            "1qpij4xh8bqwc2myahpilcbh916v7vg0acz2fij14d3y0jm02h0g"))
7619          (patches (search-patches "sbcl-graph-asdf-definitions.patch"))))
7620       (build-system asdf-build-system/sbcl)
7621       (native-inputs
7622        `(("stefil" ,sbcl-stefil)))
7623       (inputs
7624        `(("alexandria" ,sbcl-alexandria)
7625          ("cl-heap" ,sbcl-cl-heap)
7626          ("curry-compose-reader-macros" ,sbcl-curry-compose-reader-macros)
7627          ("metabang-bind" ,sbcl-metabang-bind)
7628          ("named-readtables" ,sbcl-named-readtables)))
7629       (arguments
7630        '(#:test-asd-file "graph-test.asd"))
7631       (synopsis "Graph data structure and algorithms for Common Lisp")
7632       (description
7633        "The GRAPH Common Lisp library provides a data structures to represent
7634 graphs, as well as some graph manipulation and analysis algorithms (shortest
7635 path, maximum flow, minimum spanning tree, etc.).")
7636       (home-page "https://eschulte.github.io/graph/")
7637       (license license:gpl3+))))
7638
7639 (define-public cl-graph
7640   (sbcl-package->cl-source-package sbcl-graph))
7641
7642 (define-public sbcl-graph-dot
7643   (package
7644     (inherit sbcl-graph)
7645     (name "sbcl-graph-dot")
7646     (inputs
7647      `(("alexandria" ,sbcl-alexandria)
7648        ("cl-ppcre" ,sbcl-cl-ppcre)
7649        ("curry-compose-reader-macros" ,sbcl-curry-compose-reader-macros)
7650        ("graph" ,sbcl-graph)
7651        ("metabang-bind" ,sbcl-metabang-bind)
7652        ("named-readtables" ,sbcl-named-readtables)))
7653     (arguments
7654      (substitute-keyword-arguments (package-arguments sbcl-graph)
7655        ((#:asd-file _ "") "graph-dot.asd")
7656        ((#:asd-system-name _ #f) "graph-dot")))
7657     (synopsis "Serialize graphs to and from DOT format")))
7658
7659 (define-public sbcl-graph-json
7660   (package
7661     (inherit sbcl-graph)
7662     (name "sbcl-graph-json")
7663     (inputs
7664      `(("alexandria" ,sbcl-alexandria)
7665        ("curry-compose-reader-macros" ,sbcl-curry-compose-reader-macros)
7666        ("graph" ,sbcl-graph)
7667        ("metabang-bind" ,sbcl-metabang-bind)
7668        ("named-readtables" ,sbcl-named-readtables)
7669        ("yason" ,sbcl-yason)))
7670     (arguments
7671      (substitute-keyword-arguments (package-arguments sbcl-graph)
7672        ((#:asd-file _ "") "graph-json.asd")
7673        ((#:asd-system-name _ #f) "graph-json")))
7674     (synopsis "Serialize graphs to and from JSON format")))
7675
7676 (define-public sbcl-trivial-indent
7677   (let ((commit "2d016941751647c6cc5bd471751c2cf68861c94a")
7678         (revision "0"))
7679     (package
7680       (name "sbcl-trivial-indent")
7681       (version (git-version "1.0.0" revision commit))
7682       (source
7683        (origin
7684          (method git-fetch)
7685          (uri
7686           (git-reference
7687            (url "https://github.com/Shinmera/trivial-indent")
7688            (commit commit)))
7689          (file-name (git-file-name name version))
7690          (sha256
7691           (base32
7692            "1sj90nqz17w4jq0ixz00gb9g5g6d2s7l8r17zdby27gxxh51w266"))))
7693       (build-system asdf-build-system/sbcl)
7694       (synopsis "Simple Common Lisp library to allow indentation hints for SWANK")
7695       (description
7696        "This library allows you to define custom indentation hints for your
7697 macros if the one recognised by SLIME automatically produces unwanted
7698 results.")
7699       (home-page "https://shinmera.github.io/trivial-indent/")
7700       (license license:zlib))))
7701
7702 (define-public cl-trivial-indent
7703   (sbcl-package->cl-source-package sbcl-trivial-indent))
7704
7705 (define-public sbcl-documentation-utils
7706   (let ((commit "98630dd5f7e36ae057fa09da3523f42ccb5d1f55")
7707         (revision "0"))
7708     (package
7709       (name "sbcl-documentation-utils")
7710       (version (git-version "1.2.0" revision commit))
7711       (source
7712        (origin
7713          (method git-fetch)
7714          (uri
7715           (git-reference
7716            (url "https://github.com/Shinmera/documentation-utils.git")
7717            (commit commit)))
7718          (file-name (git-file-name name version))
7719          (sha256
7720           (base32
7721            "098qhkqskmmrh4wix34mawf7p5c87yql28r51r75yjxj577k5idq"))))
7722       (build-system asdf-build-system/sbcl)
7723       (inputs
7724        `(("trivial-indent" ,sbcl-trivial-indent)))
7725       (synopsis "Few simple tools to document Common Lisp libraries")
7726       (description
7727        "This is a small library to help you with managing the Common Lisp
7728 docstrings for your library.")
7729       (home-page "https://shinmera.github.io/documentation-utils/")
7730       (license license:zlib))))
7731
7732 (define-public cl-documentation-utils
7733   (sbcl-package->cl-source-package sbcl-documentation-utils))
7734
7735 (define-public ecl-documentation-utils
7736   (sbcl-package->ecl-package sbcl-documentation-utils))
7737
7738 (define-public sbcl-form-fiddle
7739   (let ((commit "e0c23599dbb8cff3e83e012f3d86d0764188ad18")
7740         (revision "0"))
7741     (package
7742       (name "sbcl-form-fiddle")
7743       (version (git-version "1.1.0" revision commit))
7744       (source
7745        (origin
7746          (method git-fetch)
7747          (uri
7748           (git-reference
7749            (url "https://github.com/Shinmera/form-fiddle")
7750            (commit commit)))
7751          (file-name (git-file-name name version))
7752          (sha256
7753           (base32
7754            "041iznc9mpfyrl0sv5893ys9pbb2pvbn9g3clarqi7gsfj483jln"))))
7755       (build-system asdf-build-system/sbcl)
7756       (inputs
7757        `(("documentation-utils" ,sbcl-documentation-utils)))
7758       (synopsis "Utilities to destructure Common Lisp lambda forms")
7759       (description
7760        "Often times we need to destructure a form definition in a Common Lisp
7761 macro.  This library provides a set of simple utilities to help with that.")
7762       (home-page "https://shinmera.github.io/form-fiddle/")
7763       (license license:zlib))))
7764
7765 (define-public cl-form-fiddle
7766   (sbcl-package->cl-source-package sbcl-form-fiddle))
7767
7768 (define-public sbcl-parachute
7769   (let ((commit "ca04dd8e43010a6dfffa26dbe1d62af86008d666")
7770         (revision "0"))
7771     (package
7772       (name "sbcl-parachute")
7773       (version (git-version "1.1.1" revision commit))
7774       (source
7775        (origin
7776          (method git-fetch)
7777          (uri
7778           (git-reference
7779            (url "https://github.com/Shinmera/parachute")
7780            (commit commit)))
7781          (file-name (git-file-name name version))
7782          (sha256
7783           (base32
7784            "1mvsm3r0r6a2bg75nw0q7n9vlby3ch45qjl7hnb5k1z2n5x5lh60"))))
7785       (build-system asdf-build-system/sbcl)
7786       (inputs
7787        `(("documentation-utils" ,sbcl-documentation-utils)
7788          ("form-fiddle" ,sbcl-form-fiddle)))
7789       (synopsis "Extensible and cross-compatible testing framework for Common Lisp")
7790       (description
7791        "Parachute is a simple-to-use and extensible testing framework.
7792 In Parachute, things are organised as a bunch of named tests within a package.
7793 Each test can contain a bunch of test forms that make up its body.")
7794       (home-page "https://shinmera.github.io/parachute/")
7795       (license license:zlib))))
7796
7797 (define-public cl-parachute
7798   (sbcl-package->cl-source-package sbcl-parachute))
7799
7800 (define-public sbcl-array-utils
7801   (let ((commit "f90eb9070d0b2205af51126a35033574725e5c56")
7802         (revision "0"))
7803     (package
7804       (name "sbcl-array-utils")
7805       (version (git-version "1.1.1" revision commit))
7806       (source
7807        (origin
7808          (method git-fetch)
7809          (uri
7810           (git-reference
7811            (url "https://github.com/Shinmera/array-utils")
7812            (commit commit)))
7813          (file-name (git-file-name name version))
7814          (sha256
7815           (base32
7816            "0zhwfbpr53vs1ii4sx75dz2k9yhh1xpwdqqpg8nmfndxkmhpbi3x"))))
7817       (build-system asdf-build-system/sbcl)
7818       (native-inputs
7819        `(("parachute" ,sbcl-parachute)))
7820       (inputs
7821        `(("documentation-utils" ,sbcl-documentation-utils)))
7822       (synopsis "Tiny collection of array and vector utilities for Common Lisp")
7823       (description
7824        "A miniature toolkit that contains some useful shifting/popping/pushing
7825 functions for arrays and vectors.  Originally from Plump.")
7826       (home-page "https://shinmera.github.io/array-utils/")
7827       (license license:zlib))))
7828
7829 (define-public cl-array-utils
7830   (sbcl-package->cl-source-package sbcl-array-utils))
7831
7832 (define-public sbcl-plump
7833   (let ((commit "34f890fe46efdebe7bb70d218f1937e98f632bf9")
7834         (revision "1"))
7835     (package
7836       (name "sbcl-plump")
7837       (version (git-version "2.0.0" revision commit))
7838       (source
7839        (origin
7840          (method git-fetch)
7841          (uri
7842           (git-reference
7843            (url "https://github.com/Shinmera/plump")
7844            (commit commit)))
7845          (file-name (git-file-name name version))
7846          (sha256
7847           (base32
7848            "0a0x8wn6vv1ylxcwck12k18gy0a366kdm6ddxxk7yynl4mwnqgkh"))))
7849       (build-system asdf-build-system/sbcl)
7850       (inputs
7851        `(("array-utils" ,sbcl-array-utils)
7852          ("documentation-utils" ,sbcl-documentation-utils)))
7853       (synopsis "Lenient XML / XHTML / HTML parser for Common Lisp")
7854       (description
7855        "Plump is a parser for HTML/XML-like documents, focusing on being
7856 lenient towards invalid markup.  It can handle things like invalid attributes,
7857 bad closing tag order, unencoded entities, inexistent tag types, self-closing
7858 tags and so on.  It parses documents to a class representation and offers a
7859 small set of DOM functions to manipulate it.  It can be extended to parse to
7860 your own classes.")
7861       (home-page "https://shinmera.github.io/plump/")
7862       (license license:zlib))))
7863
7864 (define-public cl-plump
7865   (sbcl-package->cl-source-package sbcl-plump))
7866
7867 (define-public sbcl-antik-base
7868   (let ((commit "e4711a69b3d6bf37b5727af05c3cfd03e8428ba3")
7869         (revision "1"))
7870     (package
7871       (name "sbcl-antik-base")
7872       (version (git-version "0.0.0" revision commit))
7873       (source
7874        (origin
7875          (method git-fetch)
7876          (uri (git-reference
7877                (url "https://gitlab.common-lisp.net/antik/antik.git")
7878                (commit commit)))
7879          (file-name (git-file-name name version))
7880          (sha256
7881           (base32
7882            "047ga2c38par2xbgg4qx6hwv06qhf1c1f67as8xvir6s80lip1km"))))
7883       (build-system asdf-build-system/sbcl)
7884       (inputs
7885        `(("alexandria" ,sbcl-alexandria)
7886          ("cl-ppcre" ,sbcl-cl-ppcre)
7887          ("iterate" ,sbcl-iterate)
7888          ("metabang-bind" ,sbcl-metabang-bind)
7889          ("named-readtables" ,sbcl-named-readtables)
7890          ("split-sequence" ,sbcl-split-sequence)))
7891       (native-inputs
7892        `(("lisp-unit" ,sbcl-lisp-unit)))
7893       (synopsis "Scientific and engineering computation in Common Lisp")
7894       (description
7895        "Antik provides a foundation for scientific and engineering
7896 computation in Common Lisp.  It is designed not only to facilitate
7897 numerical computations, but to permit the use of numerical computation
7898 libraries and the interchange of data and procedures, whether
7899 foreign (non-Lisp) or Lisp libraries.  It is named after the
7900 Antikythera mechanism, one of the oldest examples of a scientific
7901 computer known.")
7902       (home-page "https://common-lisp.net/project/antik/")
7903       (license license:gpl3))))
7904
7905 (define-public cl-antik-base
7906   (sbcl-package->cl-source-package sbcl-antik-base))
7907
7908 (define-public ecl-antik-base
7909   (sbcl-package->ecl-package sbcl-antik-base))
7910
7911 (define-public sbcl-foreign-array
7912   (package
7913     (inherit sbcl-antik-base)
7914     (name "sbcl-foreign-array")
7915     (arguments
7916      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
7917        ((#:asd-file _ "") "foreign-array.asd")
7918        ((#:asd-system-name _ #f) "foreign-array")))
7919     (inputs
7920      `(("antik-base" ,sbcl-antik-base)
7921        ("cffi" ,sbcl-cffi)
7922        ("trivial-garbage" ,sbcl-trivial-garbage)
7923        ("static-vectors" ,sbcl-static-vectors)))
7924     (synopsis "Common Lisp library providing access to foreign arrays")))
7925
7926 (define-public cl-foreign-array
7927   (sbcl-package->cl-source-package sbcl-foreign-array))
7928
7929 (define-public ecl-foreign-array
7930   (sbcl-package->ecl-package sbcl-foreign-array))
7931
7932 (define-public sbcl-physical-dimension
7933   (package
7934     (inherit sbcl-antik-base)
7935     (name "sbcl-physical-dimension")
7936     (inputs
7937      `(("fare-utils" ,sbcl-fare-utils)
7938        ("foreign-array" ,sbcl-foreign-array)
7939        ("trivial-utf-8" ,sbcl-trivial-utf-8)))
7940     (arguments
7941      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
7942        ((#:asd-file _ "") "physical-dimension.asd")
7943        ((#:asd-system-name _ #f) "physical-dimension")))
7944     (synopsis
7945      "Common Lisp library providing computations with physical units")))
7946
7947 (define-public cl-physical-dimension
7948   (sbcl-package->cl-source-package sbcl-physical-dimension))
7949
7950 (define-public sbcl-science-data
7951   (package
7952     (inherit sbcl-antik-base)
7953     (name "sbcl-science-data")
7954     (inputs
7955      `(("physical-dimension" ,sbcl-physical-dimension)
7956        ("drakma" ,sbcl-drakma)))
7957     (arguments
7958      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
7959        ((#:asd-file _ "") "science-data.asd")
7960        ((#:asd-system-name _ #f) "science-data")))
7961     (synopsis
7962      "Common Lisp library for scientific and engineering numerical data")))
7963
7964 (define-public cl-science-data
7965   (sbcl-package->cl-source-package sbcl-science-data))
7966
7967 (define-public sbcl-gsll
7968   (let ((commit "1a8ada22f9cf5ed7372d352b2317f4ccdb6ab308")
7969         (revision "1"))
7970     (package
7971       (name "sbcl-gsll")
7972       (version (git-version "0.0.0" revision commit))
7973       (source
7974        (origin
7975          (method git-fetch)
7976          (uri (git-reference
7977                (url "https://gitlab.common-lisp.net/antik/gsll.git")
7978                (commit commit)))
7979          (file-name (git-file-name name version))
7980          (sha256
7981           (base32
7982            "0z5nypfk26hxihb08p085644afawicrgb4xvadh3lmrn46qbjfn4"))))
7983       (build-system asdf-build-system/sbcl)
7984       (native-inputs
7985        `(("lisp-unit" ,sbcl-lisp-unit)))
7986       (inputs
7987        `(("alexandria" ,sbcl-alexandria)
7988          ("cffi-grovel" ,sbcl-cffi-grovel)
7989          ("cffi-libffi" ,sbcl-cffi-libffi)
7990          ("foreign-array" ,sbcl-foreign-array)
7991          ("gsl" ,gsl)
7992          ("metabang-bind" ,sbcl-metabang-bind)
7993          ("trivial-features" ,sbcl-trivial-features)
7994          ("trivial-garbage" ,sbcl-trivial-garbage)))
7995       (arguments
7996        `(#:tests? #f
7997          #:phases
7998          (modify-phases %standard-phases
7999            (add-after 'unpack 'fix-cffi-paths
8000              (lambda* (#:key inputs #:allow-other-keys)
8001                (substitute* "gsll.asd"
8002                  ((":depends-on \\(#:foreign-array")
8003                   ":depends-on (#:foreign-array #:cffi-libffi"))
8004                (substitute* "init/init.lisp"
8005                  (("libgslcblas.so" all)
8006                   (string-append
8007                    (assoc-ref inputs "gsl") "/lib/" all)))
8008                (substitute* "init/init.lisp"
8009                  (("libgsl.so" all)
8010                   (string-append
8011                    (assoc-ref inputs "gsl") "/lib/" all))))))))
8012       (synopsis "GNU Scientific Library for Lisp")
8013       (description
8014        "The GNU Scientific Library for Lisp (GSLL) allows the use of the
8015 GNU Scientific Library (GSL) from Common Lisp.  This library provides a
8016 full range of common mathematical operations useful to scientific and
8017 engineering applications.  The design of the GSLL interface is such
8018 that access to most of the GSL library is possible in a Lisp-natural
8019 way; the intent is that the user not be hampered by the restrictions
8020 of the C language in which GSL has been written.  GSLL thus provides
8021 interactive use of GSL for getting quick answers, even for someone not
8022 intending to program in Lisp.")
8023       (home-page "https://common-lisp.net/project/gsll/")
8024       (license license:gpl3))))
8025
8026 (define-public cl-gsll
8027   (sbcl-package->cl-source-package sbcl-gsll))
8028
8029 (define-public sbcl-antik
8030   (package
8031     (inherit sbcl-antik-base)
8032     (name "sbcl-antik")
8033     (inputs
8034      `(("gsll" ,sbcl-gsll)
8035        ("physical-dimension" ,sbcl-physical-dimension)))
8036     (arguments
8037      (substitute-keyword-arguments (package-arguments sbcl-antik-base)
8038        ((#:asd-file _ "") "antik.asd")
8039        ((#:asd-system-name _ #f) "antik")))))
8040
8041 (define-public cl-antik
8042   (sbcl-package->cl-source-package sbcl-antik))
8043
8044 (define-public sbcl-cl-interpol
8045   (let ((commit "1fd288d861db85bc4677cff3cdd6af75fda1afb4")
8046         (revision "1"))
8047     (package
8048       (name "sbcl-cl-interpol")
8049       (version (git-version "0.2.6" revision commit))
8050       (source
8051        (origin
8052          (method git-fetch)
8053          (uri (git-reference
8054                (url "https://github.com/edicl/cl-interpol.git")
8055                (commit commit)))
8056          (file-name (git-file-name name version))
8057          (sha256
8058           (base32
8059            "1hnikak52hmcq1r5f616m6qq1108qnkw80pja950nv1fq5p0ppjn"))))
8060       (build-system asdf-build-system/sbcl)
8061       (inputs
8062        `(("cl-unicode" ,sbcl-cl-unicode)
8063          ("named-readtables" ,sbcl-named-readtables)))
8064       (native-inputs
8065        `(("flexi-streams" ,sbcl-flexi-streams)))
8066       (synopsis "String interpolation for Common Lisp")
8067       (description
8068        "CL-INTERPOL is a library for Common Lisp which modifies the
8069 reader so that you can have interpolation within strings similar to
8070 Perl or Unix Shell scripts.  It also provides various ways to insert
8071 arbitrary characters into literal strings even if your editor/IDE
8072 doesn't support them.")
8073       (home-page "https://edicl.github.io/cl-interpol/")
8074       (license license:bsd-3))))
8075
8076 (define-public cl-interpol
8077   (sbcl-package->cl-source-package sbcl-cl-interpol))
8078
8079 (define-public ecl-cl-interpol
8080   (sbcl-package->ecl-package sbcl-cl-interpol))
8081
8082 (define sbcl-symbol-munger-boot0
8083   ;; There is a cyclical dependency between symbol-munger and lisp-unit2.
8084   ;; See https://github.com/AccelerationNet/symbol-munger/issues/4
8085   (let ((commit "cc2bb4b7acd454d756484aec81ba487648385fc3")
8086         (revision "1"))
8087     (package
8088       (name "sbcl-symbol-munger-boot0")
8089       (version (git-version "0.0.1" revision commit))
8090       (source
8091        (origin
8092          (method git-fetch)
8093          (uri (git-reference
8094                (url "https://github.com/AccelerationNet/symbol-munger.git")
8095                (commit commit)))
8096          (file-name (git-file-name name version))
8097          (sha256
8098           (base32
8099            "0diav5ricqsybqvbp4bkxyj3bn3v9n7xb2pqqc4vg1algsw2pyjl"))))
8100       (build-system asdf-build-system/sbcl)
8101       (arguments
8102        `(#:asd-file "symbol-munger.asd"
8103          #:asd-system-name "symbol-munger"))
8104       (inputs
8105        `(("iterate" ,sbcl-iterate)
8106          ("alexandria" ,sbcl-alexandria)))
8107       (native-inputs
8108        `(("lisp-unit" ,sbcl-lisp-unit)))
8109       (synopsis
8110        "Capitalization and spacing conversion functions for Common Lisp")
8111       (description
8112        "This is a Common Lisp library to change the capitalization and spacing
8113 of a string or a symbol.  It can convert to and from Lisp, english, underscore
8114 and camel-case rules.")
8115       (home-page "https://github.com/AccelerationNet/symbol-munger")
8116       ;; The package declares a BSD license, but all of the license
8117       ;; text is MIT.
8118       ;; See https://github.com/AccelerationNet/symbol-munger/issues/5
8119       (license license:expat))))
8120
8121 (define sbcl-lisp-unit2-boot0
8122   ;; There is a cyclical dependency between symbol-munger and lisp-unit2.
8123   ;; See https://github.com/AccelerationNet/symbol-munger/issues/4
8124   (let ((commit "fb9721524d1e4e73abb223ee036d74ce14a5505c")
8125         (revision "1"))
8126     (package
8127       (name "sbcl-lisp-unit2-boot0")
8128       (version (git-version "0.2.0" revision commit))
8129       (source
8130        (origin
8131          (method git-fetch)
8132          (uri (git-reference
8133                (url "https://github.com/AccelerationNet/lisp-unit2.git")
8134                (commit commit)))
8135          (file-name (git-file-name name version))
8136          (sha256
8137           (base32
8138            "1rsqy8y0jqll6xn9a593848f5wvd5ribv4csry1ly0hmdhfnqzlp"))))
8139       (build-system asdf-build-system/sbcl)
8140       (arguments
8141        `(#:asd-file "lisp-unit2.asd"
8142          #:asd-system-name "lisp-unit2"))
8143       (inputs
8144        `(("alexandria" ,sbcl-alexandria)
8145          ("cl-interpol" ,sbcl-cl-interpol)
8146          ("iterate" ,sbcl-iterate)
8147          ("symbol-munger-boot0" ,sbcl-symbol-munger-boot0)))
8148       (synopsis "Test Framework for Common Lisp")
8149       (description
8150        "LISP-UNIT2 is a Common Lisp library that supports unit testing in the
8151 style of JUnit for Java.  It is a new version of the lisp-unit library written
8152 by Chris Riesbeck.")
8153       (home-page "https://github.com/AccelerationNet/lisp-unit2")
8154       (license license:expat))))
8155
8156 (define-public sbcl-symbol-munger
8157   (let ((commit "97598d4c3c53fd5da72ab78908fbd5d8c7a13416")
8158         (revision "1"))
8159     (package
8160       (name "sbcl-symbol-munger")
8161       (version (git-version "0.0.1" revision commit))
8162       (source
8163        (origin
8164          (method git-fetch)
8165          (uri (git-reference
8166                (url "https://github.com/AccelerationNet/symbol-munger.git")
8167                (commit commit)))
8168          (file-name (git-file-name name version))
8169          (sha256
8170           (base32
8171            "0y8jywjy0ldyhp7bxf16fdvdd2qgqnd7nlhlqfpfnzxcqk4xy1km"))))
8172       (build-system asdf-build-system/sbcl)
8173       (inputs
8174        `(("alexandria" ,sbcl-alexandria)
8175          ("iterate" ,sbcl-iterate)))
8176       (native-inputs
8177        `(("lisp-unit2-boot0" ,sbcl-lisp-unit2-boot0)))
8178       (synopsis
8179        "Capitalization and spacing conversion functions for Common Lisp")
8180       (description
8181        "This is a Common Lisp library to change the capitalization and spacing
8182 of a string or a symbol.  It can convert to and from Lisp, english, underscore
8183 and camel-case rules.")
8184       (home-page "https://github.com/AccelerationNet/symbol-munger")
8185       ;; The package declares a BSD license, but all of the license
8186       ;; text is MIT.
8187       ;; See https://github.com/AccelerationNet/symbol-munger/issues/5
8188       (license license:expat))))
8189
8190 (define-public cl-symbol-munger
8191   (sbcl-package->cl-source-package sbcl-symbol-munger))
8192
8193 (define-public ecl-symbol-munger
8194   (sbcl-package->ecl-package sbcl-symbol-munger))
8195
8196 (define-public sbcl-lisp-unit2
8197   (package
8198     (inherit sbcl-lisp-unit2-boot0)
8199     (name "sbcl-lisp-unit2")
8200     (inputs
8201      `(("alexandria" ,sbcl-alexandria)
8202        ("cl-interpol" ,sbcl-cl-interpol)
8203        ("iterate" ,sbcl-iterate)
8204        ("symbol-munger" ,sbcl-symbol-munger)))))
8205
8206 (define-public cl-lisp-unit2
8207   (sbcl-package->cl-source-package sbcl-lisp-unit2))
8208
8209 (define-public ecl-lisp-unit2
8210   (sbcl-package->ecl-package sbcl-lisp-unit2))
8211
8212 (define-public sbcl-cl-csv
8213   (let ((commit "3eba29c8364b033fbe0d189c2500559278b6a362")
8214         (revision "1"))
8215     (package
8216       (name "sbcl-cl-csv")
8217       (version (git-version "1.0.6" revision commit))
8218       (source
8219        (origin
8220          (method git-fetch)
8221          (uri (git-reference
8222                (url "https://github.com/AccelerationNet/cl-csv.git")
8223                (commit commit)))
8224          (file-name (git-file-name name version))
8225          (sha256
8226           (base32
8227            "07h4ni89jzx93clx453hlnnb5g53hhlcmz5hghqv6ysam48lc8g6"))))
8228       (build-system asdf-build-system/sbcl)
8229       (arguments
8230        ;; See: https://github.com/AccelerationNet/cl-csv/pull/34
8231        `(#:tests? #f))
8232       (inputs
8233        `(("alexandria" ,sbcl-alexandria)
8234          ("cl-interpol" ,sbcl-cl-interpol)
8235          ("iterate" ,sbcl-iterate)))
8236       (native-inputs
8237        `(("lisp-unit2" ,sbcl-lisp-unit2)))
8238       (synopsis "Common lisp library for comma-separated values")
8239       (description
8240        "This is a Common Lisp library providing functions to read/write CSV
8241 from/to strings, streams and files.")
8242       (home-page "https://github.com/AccelerationNet/cl-csv")
8243       (license license:bsd-3))))
8244
8245 (define-public cl-csv
8246   (sbcl-package->cl-source-package sbcl-cl-csv))
8247
8248 (define-public ecl-cl-csv
8249   (sbcl-package->ecl-package sbcl-cl-csv))
8250
8251 (define-public sbcl-external-program
8252   (let ((commit "5888b8f1fd3953feeeacecbba4384ddda584a749")
8253         (revision "1"))
8254     (package
8255       (name "sbcl-external-program")
8256       (version (git-version "0.0.6" revision commit))
8257       (source
8258        (origin
8259          (method git-fetch)
8260          (uri (git-reference
8261                (url "https://github.com/sellout/external-program.git")
8262                (commit commit)))
8263          (file-name (git-file-name name version))
8264          (sha256
8265           (base32
8266            "0vww1x3yilb3bjwg6k184vaj4vxyxw4vralhnlm6lk4xac67kc9z"))))
8267       (build-system asdf-build-system/sbcl)
8268       (inputs
8269        `(("trivial-features" ,sbcl-trivial-features)))
8270       (native-inputs
8271        `(("fiveam" ,sbcl-fiveam)))
8272       (synopsis "Common Lisp library for running external programs")
8273       (description
8274        "EXTERNAL-PROGRAM enables running programs outside the Lisp
8275 process.  It is an attempt to make the RUN-PROGRAM functionality in
8276 implementations like SBCL and CCL as portable as possible without
8277 sacrificing much in the way of power.")
8278       (home-page "https://github.com/sellout/external-program")
8279       (license license:llgpl))))
8280
8281 (define-public cl-external-program
8282   (sbcl-package->cl-source-package sbcl-external-program))
8283
8284 (define-public ecl-external-program
8285   (sbcl-package->ecl-package sbcl-external-program))
8286
8287 (define sbcl-cl-ana-boot0
8288   (let ((commit "fa7cee4c50aa1c859652813049ba0da7c18a0df9")
8289         (revision "1"))
8290     (package
8291      (name "sbcl-cl-ana-boot0")
8292      (version (git-version "0.0.0" revision commit))
8293      (source
8294       (origin
8295        (method git-fetch)
8296        (uri (git-reference
8297              (url "https://github.com/ghollisjr/cl-ana.git")
8298              (commit commit)))
8299        (file-name (git-file-name name version))
8300        (sha256
8301         (base32
8302          "0mr47l57m276dbpap7irr4fcnk5fgknhf6mgv4043s8h73amk5qh"))))
8303      (build-system asdf-build-system/sbcl)
8304      (synopsis "Common Lisp data analysis library")
8305      (description
8306       "CL-ANA is a data analysis library in Common Lisp providing tabular and
8307 binned data analysis along with nonlinear least squares fitting and
8308 visualization.")
8309      (home-page "https://github.com/ghollisjr/cl-ana")
8310      (license license:gpl3))))
8311
8312 (define-public sbcl-cl-ana.pathname-utils
8313   (package
8314     (inherit sbcl-cl-ana-boot0)
8315     (name "sbcl-cl-ana.pathname-utils")
8316     (arguments
8317      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8318        ((#:asd-file _ "") "pathname-utils/cl-ana.pathname-utils.asd")
8319        ((#:asd-system-name _ #f) "cl-ana.pathname-utils")))))
8320
8321 (define-public cl-ana.pathname-utils
8322   (sbcl-package->cl-source-package sbcl-cl-ana.pathname-utils))
8323
8324 (define-public ecl-cl-ana.pathname-utils
8325   (sbcl-package->ecl-package sbcl-cl-ana.pathname-utils))
8326
8327 (define-public sbcl-cl-ana.package-utils
8328   (package
8329     (inherit sbcl-cl-ana-boot0)
8330     (name "sbcl-cl-ana.package-utils")
8331     (inputs
8332      `(("alexandria" ,sbcl-alexandria)))
8333     (arguments
8334      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8335        ((#:asd-file _ "") "package-utils/cl-ana.package-utils.asd")
8336        ((#:asd-system-name _ #f) "cl-ana.package-utils")))))
8337
8338 (define-public cl-ana.package-utils
8339   (sbcl-package->cl-source-package sbcl-cl-ana.package-utils))
8340
8341 (define-public ecl-cl-ana.package-utils
8342   (sbcl-package->ecl-package sbcl-cl-ana.package-utils))
8343
8344 (define-public sbcl-cl-ana.string-utils
8345   (package
8346     (inherit sbcl-cl-ana-boot0)
8347     (name "sbcl-cl-ana.string-utils")
8348     (inputs
8349      `(("split-sequence" ,sbcl-split-sequence)))
8350     (arguments
8351      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8352        ((#:asd-file _ "") "string-utils/cl-ana.string-utils.asd")
8353        ((#:asd-system-name _ #f) "cl-ana.string-utils")))))
8354
8355 (define-public cl-ana.string-utils
8356   (sbcl-package->cl-source-package sbcl-cl-ana.string-utils))
8357
8358 (define-public ecl-cl-ana.string-utils
8359   (sbcl-package->ecl-package sbcl-cl-ana.string-utils))
8360
8361 (define-public sbcl-cl-ana.functional-utils
8362   (package
8363     (inherit sbcl-cl-ana-boot0)
8364     (name "sbcl-cl-ana.functional-utils")
8365     (arguments
8366      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8367        ((#:asd-file _ "") "functional-utils/cl-ana.functional-utils.asd")
8368        ((#:asd-system-name _ #f) "cl-ana.functional-utils")))))
8369
8370 (define-public cl-ana.functional-utils
8371   (sbcl-package->cl-source-package sbcl-cl-ana.functional-utils))
8372
8373 (define-public ecl-cl-ana.functional-utils
8374   (sbcl-package->ecl-package sbcl-cl-ana.functional-utils))
8375
8376 (define-public sbcl-cl-ana.list-utils
8377   (package
8378     (inherit sbcl-cl-ana-boot0)
8379     (name "sbcl-cl-ana.list-utils")
8380     (inputs
8381      `(("alexandria" ,sbcl-alexandria)
8382        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8383        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)))
8384     (arguments
8385      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8386        ((#:asd-file _ "") "list-utils/cl-ana.list-utils.asd")
8387        ((#:asd-system-name _ #f) "cl-ana.list-utils")))))
8388
8389 (define-public cl-ana.list-utils
8390   (sbcl-package->cl-source-package sbcl-cl-ana.list-utils))
8391
8392 (define-public ecl-cl-ana.list-utils
8393   (sbcl-package->ecl-package sbcl-cl-ana.list-utils))
8394
8395 (define-public sbcl-cl-ana.generic-math
8396   (package
8397     (inherit sbcl-cl-ana-boot0)
8398     (name "sbcl-cl-ana.generic-math")
8399     (inputs
8400      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8401        ("cl-ana.package-utils" ,sbcl-cl-ana.package-utils)))
8402     (arguments
8403      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8404        ((#:asd-file _ "") "generic-math/cl-ana.generic-math.asd")
8405        ((#:asd-system-name _ #f) "cl-ana.generic-math")))))
8406
8407 (define-public cl-ana.generic-math
8408   (sbcl-package->cl-source-package sbcl-cl-ana.generic-math))
8409
8410 (define-public ecl-cl-ana.generic-math
8411   (sbcl-package->ecl-package sbcl-cl-ana.generic-math))
8412
8413 (define-public sbcl-cl-ana.math-functions
8414   (package
8415     (inherit sbcl-cl-ana-boot0)
8416     (name "sbcl-cl-ana.math-functions")
8417     (inputs
8418      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8419        ("gsll" ,sbcl-gsll)))
8420     (arguments
8421      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8422        ((#:asd-file _ "") "math-functions/cl-ana.math-functions.asd")
8423        ((#:asd-system-name _ #f) "cl-ana.math-functions")))))
8424
8425 (define-public cl-ana.math-functions
8426   (sbcl-package->cl-source-package sbcl-cl-ana.math-functions))
8427
8428 (define-public sbcl-cl-ana.calculus
8429   (package
8430     (inherit sbcl-cl-ana-boot0)
8431     (name "sbcl-cl-ana.calculus")
8432     (inputs
8433      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)))
8434     (arguments
8435      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8436        ((#:asd-file _ "") "calculus/cl-ana.calculus.asd")
8437        ((#:asd-system-name _ #f) "cl-ana.calculus")))))
8438
8439 (define-public cl-ana.calculus
8440   (sbcl-package->cl-source-package sbcl-cl-ana.calculus))
8441
8442 (define-public ecl-cl-ana.calculus
8443   (sbcl-package->ecl-package sbcl-cl-ana.calculus))
8444
8445 (define-public sbcl-cl-ana.symbol-utils
8446   (package
8447     (inherit sbcl-cl-ana-boot0)
8448     (name "sbcl-cl-ana.symbol-utils")
8449     (inputs
8450      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)))
8451     (arguments
8452      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8453        ((#:asd-file _ "") "symbol-utils/cl-ana.symbol-utils.asd")
8454        ((#:asd-system-name _ #f) "cl-ana.symbol-utils")))))
8455
8456 (define-public cl-ana.symbol-utils
8457   (sbcl-package->cl-source-package sbcl-cl-ana.symbol-utils))
8458
8459 (define-public ecl-cl-ana.symbol-utils
8460   (sbcl-package->ecl-package sbcl-cl-ana.symbol-utils))
8461
8462 (define-public sbcl-cl-ana.macro-utils
8463   (package
8464     (inherit sbcl-cl-ana-boot0)
8465     (name "sbcl-cl-ana.macro-utils")
8466     (inputs
8467      `(("alexandria" ,sbcl-alexandria)
8468        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8469        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8470        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8471        ("split-sequence" ,sbcl-split-sequence)))
8472     (arguments
8473      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8474        ((#:asd-file _ "") "macro-utils/cl-ana.macro-utils.asd")
8475        ((#:asd-system-name _ #f) "cl-ana.macro-utils")))))
8476
8477 (define-public cl-ana.macro-utils
8478   (sbcl-package->cl-source-package sbcl-cl-ana.macro-utils))
8479
8480 (define-public ecl-cl-ana.macro-utils
8481   (sbcl-package->ecl-package sbcl-cl-ana.macro-utils))
8482
8483 (define-public sbcl-cl-ana.binary-tree
8484   (package
8485     (inherit sbcl-cl-ana-boot0)
8486     (name "sbcl-cl-ana.binary-tree")
8487     (inputs
8488      `(("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8489        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8490        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)))
8491     (arguments
8492      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8493        ((#:asd-file _ "") "binary-tree/cl-ana.binary-tree.asd")
8494        ((#:asd-system-name _ #f) "cl-ana.binary-tree")))))
8495
8496 (define-public cl-ana.binary-tree
8497   (sbcl-package->cl-source-package sbcl-cl-ana.binary-tree))
8498
8499 (define-public ecl-cl-ana.binary-tree
8500   (sbcl-package->ecl-package sbcl-cl-ana.binary-tree))
8501
8502 (define-public sbcl-cl-ana.tensor
8503   (package
8504     (inherit sbcl-cl-ana-boot0)
8505     (name "sbcl-cl-ana.tensor")
8506     (inputs
8507      `(("alexandria" ,sbcl-alexandria)
8508        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8509        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8510        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8511        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)))
8512     (arguments
8513      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8514        ((#:asd-file _ "") "tensor/cl-ana.tensor.asd")
8515        ((#:asd-system-name _ #f) "cl-ana.tensor")))))
8516
8517 (define-public cl-ana.tensor
8518   (sbcl-package->cl-source-package sbcl-cl-ana.tensor))
8519
8520 (define-public ecl-cl-ana.tensor
8521   (sbcl-package->ecl-package sbcl-cl-ana.tensor))
8522
8523 (define-public sbcl-cl-ana.error-propogation
8524   (package
8525     (inherit sbcl-cl-ana-boot0)
8526     (name "sbcl-cl-ana.error-propogation")
8527     (inputs
8528      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8529        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)))
8530     (arguments
8531      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8532        ((#:asd-file _ "") "error-propogation/cl-ana.error-propogation.asd")
8533        ((#:asd-system-name _ #f) "cl-ana.error-propogation")))))
8534
8535 (define-public cl-ana.error-propogation
8536   (sbcl-package->cl-source-package sbcl-cl-ana.error-propogation))
8537
8538 (define-public sbcl-cl-ana.quantity
8539   (package
8540     (inherit sbcl-cl-ana-boot0)
8541     (name "sbcl-cl-ana.quantity")
8542     (inputs
8543      `(("alexandria" ,sbcl-alexandria)
8544        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
8545        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8546        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8547        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8548        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)))
8549     (arguments
8550      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8551        ((#:asd-file _ "") "quantity/cl-ana.quantity.asd")
8552        ((#:asd-system-name _ #f) "cl-ana.quantity")))))
8553
8554 (define-public cl-ana.quantity
8555   (sbcl-package->cl-source-package sbcl-cl-ana.quantity))
8556
8557 (define-public sbcl-cl-ana.table
8558   (package
8559     (inherit sbcl-cl-ana-boot0)
8560     (name "sbcl-cl-ana.table")
8561     (inputs
8562      `(("alexandria" ,sbcl-alexandria)
8563        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8564        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8565        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8566        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8567        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)))
8568     (arguments
8569      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8570        ((#:asd-file _ "") "table/cl-ana.table.asd")
8571        ((#:asd-system-name _ #f) "cl-ana.table")))))
8572
8573 (define-public cl-ana.table
8574   (sbcl-package->cl-source-package sbcl-cl-ana.table))
8575
8576 (define-public ecl-cl-ana.table
8577   (sbcl-package->ecl-package sbcl-cl-ana.table))
8578
8579 (define-public sbcl-cl-ana.table-utils
8580   (package
8581     (inherit sbcl-cl-ana-boot0)
8582     (name "sbcl-cl-ana.table-utils")
8583     (inputs
8584      `(("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8585        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8586        ("cl-ana.table" ,sbcl-cl-ana.table)))
8587     (arguments
8588      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8589        ((#:asd-file _ "") "table-utils/cl-ana.table-utils.asd")
8590        ((#:asd-system-name _ #f) "cl-ana.table-utils")))))
8591
8592 (define-public cl-ana.table-utils
8593   (sbcl-package->cl-source-package sbcl-cl-ana.table-utils))
8594
8595 (define-public ecl-cl-ana.table-utils
8596   (sbcl-package->ecl-package sbcl-cl-ana.table-utils))
8597
8598 (define-public sbcl-cl-ana.hdf-cffi
8599   (package
8600     (inherit sbcl-cl-ana-boot0)
8601     (name "sbcl-cl-ana.hdf-cffi")
8602     (inputs
8603      `(("cffi" ,sbcl-cffi)
8604        ("hdf5" ,hdf5-parallel-openmpi)))
8605     (arguments
8606      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8607        ((#:asd-file _ "") "hdf-cffi/cl-ana.hdf-cffi.asd")
8608        ((#:asd-system-name _ #f) "cl-ana.hdf-cffi")
8609        ((#:phases phases '%standard-phases)
8610         `(modify-phases ,phases
8611            (add-after 'unpack 'fix-paths
8612              (lambda* (#:key inputs #:allow-other-keys)
8613                (substitute* "hdf-cffi/hdf-cffi.lisp"
8614                  (("/usr/lib/i386-linux-gnu/hdf5/serial/libhdf5.so")
8615                   (string-append
8616                    (assoc-ref inputs "hdf5")
8617                    "/lib/libhdf5.so")))))))))))
8618
8619 (define-public cl-ana.hdf-cffi
8620   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-cffi))
8621
8622 (define-public ecl-cl-ana.hdf-cffi
8623   (sbcl-package->ecl-package sbcl-cl-ana.hdf-cffi))
8624
8625 (define-public sbcl-cl-ana.int-char
8626   (package
8627     (inherit sbcl-cl-ana-boot0)
8628     (name "sbcl-cl-ana.int-char")
8629     (arguments
8630      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8631        ((#:asd-file _ "") "int-char/cl-ana.int-char.asd")
8632        ((#:asd-system-name _ #f) "cl-ana.int-char")))))
8633
8634 (define-public cl-ana.int-char
8635   (sbcl-package->cl-source-package sbcl-cl-ana.int-char))
8636
8637 (define-public ecl-cl-ana.int-char
8638   (sbcl-package->ecl-package sbcl-cl-ana.int-char))
8639
8640 (define-public sbcl-cl-ana.memoization
8641   (package
8642     (inherit sbcl-cl-ana-boot0)
8643     (name "sbcl-cl-ana.memoization")
8644     (inputs
8645      `(("alexandria" ,sbcl-alexandria)))
8646     (arguments
8647      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8648        ((#:asd-file _ "") "memoization/cl-ana.memoization.asd")
8649        ((#:asd-system-name _ #f) "cl-ana.memoization")))))
8650
8651 (define-public cl-ana.memoization
8652   (sbcl-package->cl-source-package sbcl-cl-ana.memoization))
8653
8654 (define-public ecl-cl-ana.memoization
8655   (sbcl-package->ecl-package sbcl-cl-ana.memoization))
8656
8657 (define-public sbcl-cl-ana.typespec
8658   (package
8659     (inherit sbcl-cl-ana-boot0)
8660     (name "sbcl-cl-ana.typespec")
8661     (inputs
8662      `(("alexandria" ,sbcl-alexandria)
8663        ("cffi" ,sbcl-cffi)
8664        ("cl-ana.int-char" ,sbcl-cl-ana.int-char)
8665        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8666        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8667        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8668        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8669        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)))
8670     (arguments
8671      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8672        ((#:asd-file _ "") "typespec/cl-ana.typespec.asd")
8673        ((#:asd-system-name _ #f) "cl-ana.typespec")))))
8674
8675 (define-public cl-ana.typespec
8676   (sbcl-package->cl-source-package sbcl-cl-ana.typespec))
8677
8678 (define-public ecl-cl-ana.typespec
8679   (sbcl-package->ecl-package sbcl-cl-ana.typespec))
8680
8681 (define-public sbcl-cl-ana.hdf-typespec
8682   (package
8683     (inherit sbcl-cl-ana-boot0)
8684     (name "sbcl-cl-ana.hdf-typespec")
8685     (inputs
8686      `(("alexandria" ,sbcl-alexandria)
8687        ("cffi" ,sbcl-cffi)
8688        ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi)
8689        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8690        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8691        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8692        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8693        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8694     (arguments
8695      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8696        ((#:asd-file _ "") "hdf-typespec/cl-ana.hdf-typespec.asd")
8697        ((#:asd-system-name _ #f) "cl-ana.hdf-typespec")))))
8698
8699 (define-public cl-ana.hdf-typespec
8700   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-typespec))
8701
8702 (define-public ecl-cl-ana.hdf-typespec
8703   (sbcl-package->ecl-package sbcl-cl-ana.hdf-typespec))
8704
8705 (define-public sbcl-cl-ana.hdf-utils
8706   (package
8707     (inherit sbcl-cl-ana-boot0)
8708     (name "sbcl-cl-ana.hdf-utils")
8709     (inputs
8710      `(("alexandria" ,sbcl-alexandria)
8711        ("cffi" ,sbcl-cffi)
8712        ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi)
8713        ("cl-ana.hdf-typespec" ,sbcl-cl-ana.hdf-typespec)
8714        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8715        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8716        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
8717        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8718        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8719     (arguments
8720      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8721        ((#:asd-file _ "") "hdf-utils/cl-ana.hdf-utils.asd")
8722        ((#:asd-system-name _ #f) "cl-ana.hdf-utils")))))
8723
8724 (define-public cl-ana.hdf-utils
8725   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-utils))
8726
8727 (define-public ecl-cl-ana.hdf-utils
8728   (sbcl-package->ecl-package sbcl-cl-ana.hdf-utils))
8729
8730 (define-public sbcl-cl-ana.typed-table
8731   (package
8732     (inherit sbcl-cl-ana-boot0)
8733     (name "sbcl-cl-ana.typed-table")
8734     (inputs
8735      `(("alexandria" ,sbcl-alexandria)
8736        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8737        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
8738        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8739        ("cl-ana.table" ,sbcl-cl-ana.table)
8740        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8741     (arguments
8742      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8743        ((#:asd-file _ "") "typed-table/cl-ana.typed-table.asd")
8744        ((#:asd-system-name _ #f) "cl-ana.typed-table")))))
8745
8746 (define-public cl-ana.typed-table
8747   (sbcl-package->cl-source-package sbcl-cl-ana.typed-table))
8748
8749 (define-public ecl-cl-ana.typed-table
8750   (sbcl-package->ecl-package sbcl-cl-ana.typed-table))
8751
8752 (define-public sbcl-cl-ana.hdf-table
8753   (package
8754     (inherit sbcl-cl-ana-boot0)
8755     (name "sbcl-cl-ana.hdf-table")
8756     (inputs
8757      `(("alexandria" ,sbcl-alexandria)
8758        ("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree)
8759        ("cl-ana.hdf-cffi" ,sbcl-cl-ana.hdf-cffi)
8760        ("cl-ana.hdf-typespec" ,sbcl-cl-ana.hdf-typespec)
8761        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
8762        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8763        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
8764        ("cl-ana.table" ,sbcl-cl-ana.table)
8765        ("cl-ana.typed-table" ,sbcl-cl-ana.typed-table)
8766        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
8767     (arguments
8768      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8769        ((#:asd-file _ "") "hdf-table/cl-ana.hdf-table.asd")
8770        ((#:asd-system-name _ #f) "cl-ana.hdf-table")))))
8771
8772 (define-public cl-ana.hdf-table
8773   (sbcl-package->cl-source-package sbcl-cl-ana.hdf-table))
8774
8775 (define-public ecl-cl-ana.hdf-table
8776   (sbcl-package->ecl-package sbcl-cl-ana.hdf-table))
8777
8778 (define-public sbcl-cl-ana.gsl-cffi
8779   (package
8780     (inherit sbcl-cl-ana-boot0)
8781     (name "sbcl-cl-ana.gsl-cffi")
8782     (inputs
8783      `(("cffi" ,sbcl-cffi)
8784        ("gsl" ,gsl)))
8785     (arguments
8786      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8787        ((#:asd-file _ "") "gsl-cffi/cl-ana.gsl-cffi.asd")
8788        ((#:asd-system-name _ #f) "cl-ana.gsl-cffi")
8789        ((#:phases phases '%standard-phases)
8790         `(modify-phases ,phases
8791            (add-after 'unpack 'fix-paths
8792              (lambda* (#:key inputs #:allow-other-keys)
8793                (substitute* "gsl-cffi/gsl-cffi.lisp"
8794                  (("define-foreign-library gsl-cffi" all)
8795                   (string-append all " (:unix "
8796                                  (assoc-ref inputs "gsl")
8797                                  "/lib/libgsl.so)")))))))))))
8798
8799 (define-public cl-ana.gsl-cffi
8800   (sbcl-package->cl-source-package sbcl-cl-ana.gsl-cffi))
8801
8802 (define-public ecl-cl-ana.gsl-cffi
8803   (sbcl-package->ecl-package sbcl-cl-ana.gsl-cffi))
8804
8805 (define-public sbcl-cl-ana.ntuple-table
8806   (package
8807     (inherit sbcl-cl-ana-boot0)
8808     (name "sbcl-cl-ana.ntuple-table")
8809     (inputs
8810      `(("alexandria" ,sbcl-alexandria)
8811        ("cffi" ,sbcl-cffi)
8812        ("cl-ana.gsl-cffi" ,sbcl-cl-ana.gsl-cffi)
8813        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8814        ("cl-ana.table" ,sbcl-cl-ana.table)
8815        ("cl-ana.typed-table" ,sbcl-cl-ana.typed-table)
8816        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)
8817        ("gsll" ,sbcl-gsll)))
8818     (arguments
8819      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8820        ((#:asd-file _ "") "ntuple-table/cl-ana.ntuple-table.asd")
8821        ((#:asd-system-name _ #f) "cl-ana.ntuple-table")))))
8822
8823 (define-public cl-ana.ntuple-table
8824   (sbcl-package->cl-source-package sbcl-cl-ana.ntuple-table))
8825
8826 (define-public sbcl-cl-ana.csv-table
8827   (package
8828     (inherit sbcl-cl-ana-boot0)
8829     (name "sbcl-cl-ana.csv-table")
8830     (inputs
8831      `(("alexandria" ,sbcl-alexandria)
8832        ("antik" ,sbcl-antik)
8833        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8834        ("cl-ana.table" ,sbcl-cl-ana.table)
8835        ("cl-csv" ,sbcl-cl-csv)
8836        ("iterate" ,sbcl-iterate)))
8837     (arguments
8838      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8839        ((#:asd-file _ "") "csv-table/cl-ana.csv-table.asd")
8840        ((#:asd-system-name _ #f) "cl-ana.csv-table")))))
8841
8842 (define-public cl-ana.csv-table
8843   (sbcl-package->cl-source-package sbcl-cl-ana.csv-table))
8844
8845 (define-public sbcl-cl-ana.reusable-table
8846   (package
8847     (inherit sbcl-cl-ana-boot0)
8848     (name "sbcl-cl-ana.reusable-table")
8849     (inputs
8850      `(("alexandria" ,sbcl-alexandria)
8851        ("cl-ana.table" ,sbcl-cl-ana.table)))
8852     (arguments
8853      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8854        ((#:asd-file _ "") "reusable-table/cl-ana.reusable-table.asd")
8855        ((#:asd-system-name _ #f) "cl-ana.reusable-table")))))
8856
8857 (define-public cl-ana.reusable-table
8858   (sbcl-package->cl-source-package sbcl-cl-ana.reusable-table))
8859
8860 (define-public ecl-cl-ana.reusable-table
8861   (sbcl-package->ecl-package sbcl-cl-ana.reusable-table))
8862
8863 (define-public sbcl-cl-ana.linear-algebra
8864   (package
8865     (inherit sbcl-cl-ana-boot0)
8866     (name "sbcl-cl-ana.linear-algebra")
8867     (inputs
8868      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8869        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8870        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
8871        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
8872        ("gsll" ,sbcl-gsll)))
8873     (arguments
8874      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8875        ((#:asd-file _ "") "linear-algebra/cl-ana.linear-algebra.asd")
8876        ((#:asd-system-name _ #f) "cl-ana.linear-algebra")))))
8877
8878 (define-public cl-ana.linear-algebra
8879   (sbcl-package->cl-source-package sbcl-cl-ana.linear-algebra))
8880
8881 (define-public sbcl-cl-ana.lorentz
8882   (package
8883     (inherit sbcl-cl-ana-boot0)
8884     (name "sbcl-cl-ana.lorentz")
8885     (inputs
8886      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8887        ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra)
8888        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
8889        ("iterate" ,sbcl-iterate)))
8890     (arguments
8891      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8892        ((#:asd-file _ "") "lorentz/cl-ana.lorentz.asd")
8893        ((#:asd-system-name _ #f) "cl-ana.lorentz")))))
8894
8895 (define-public cl-ana.lorentz
8896   (sbcl-package->cl-source-package sbcl-cl-ana.lorentz))
8897
8898 (define-public sbcl-cl-ana.clos-utils
8899   (package
8900     (inherit sbcl-cl-ana-boot0)
8901     (name "sbcl-cl-ana.clos-utils")
8902     (inputs
8903      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8904        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
8905        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
8906        ("closer-mop" ,sbcl-closer-mop)))
8907     (arguments
8908      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8909        ((#:asd-file _ "") "clos-utils/cl-ana.clos-utils.asd")
8910        ((#:asd-system-name _ #f) "cl-ana.clos-utils")))))
8911
8912 (define-public cl-ana.clos-utils
8913   (sbcl-package->cl-source-package sbcl-cl-ana.clos-utils))
8914
8915 (define-public ecl-cl-ana.clos-utils
8916   (sbcl-package->ecl-package sbcl-cl-ana.clos-utils))
8917
8918 (define-public sbcl-cl-ana.hash-table-utils
8919   (package
8920     (inherit sbcl-cl-ana-boot0)
8921     (name "sbcl-cl-ana.hash-table-utils")
8922     (arguments
8923      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8924        ((#:asd-file _ "") "hash-table-utils/cl-ana.hash-table-utils.asd")
8925        ((#:asd-system-name _ #f) "cl-ana.hash-table-utils")))))
8926
8927 (define-public cl-ana.hash-table-utils
8928   (sbcl-package->cl-source-package sbcl-cl-ana.hash-table-utils))
8929
8930 (define-public ecl-cl-ana.hash-table-utils
8931   (sbcl-package->ecl-package sbcl-cl-ana.hash-table-utils))
8932
8933 (define-public sbcl-cl-ana.map
8934   (package
8935     (inherit sbcl-cl-ana-boot0)
8936     (name "sbcl-cl-ana.map")
8937     (inputs
8938      `(("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)))
8939     (arguments
8940      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8941        ((#:asd-file _ "") "map/cl-ana.map.asd")
8942        ((#:asd-system-name _ #f) "cl-ana.map")))))
8943
8944 (define-public cl-ana.map
8945   (sbcl-package->cl-source-package sbcl-cl-ana.map))
8946
8947 (define-public ecl-cl-ana.map
8948   (sbcl-package->ecl-package sbcl-cl-ana.map))
8949
8950 (define-public sbcl-cl-ana.fitting
8951   (package
8952     (inherit sbcl-cl-ana-boot0)
8953     (name "sbcl-cl-ana.fitting")
8954     (inputs
8955      `(("alexandria" ,sbcl-alexandria)
8956        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
8957        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8958        ("cl-ana.map" ,sbcl-cl-ana.map)
8959        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
8960        ("gsll" ,sbcl-gsll)))
8961     (arguments
8962      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8963        ((#:asd-file _ "") "fitting/cl-ana.fitting.asd")
8964        ((#:asd-system-name _ #f) "cl-ana.fitting")))))
8965
8966 (define-public cl-ana.fitting
8967   (sbcl-package->cl-source-package sbcl-cl-ana.fitting))
8968
8969 (define-public sbcl-cl-ana.histogram
8970   (package
8971     (inherit sbcl-cl-ana-boot0)
8972     (name "sbcl-cl-ana.histogram")
8973     (inputs
8974      `(("alexandria" ,sbcl-alexandria)
8975        ("iterate" ,sbcl-iterate)
8976        ("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree)
8977        ("cl-ana.clos-utils" ,sbcl-cl-ana.clos-utils)
8978        ("cl-ana.fitting" ,sbcl-cl-ana.fitting)
8979        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
8980        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
8981        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
8982        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
8983        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
8984        ("cl-ana.map" ,sbcl-cl-ana.map)
8985        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)))
8986     (arguments
8987      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
8988        ((#:asd-file _ "") "histogram/cl-ana.histogram.asd")
8989        ((#:asd-system-name _ #f) "cl-ana.histogram")))))
8990
8991 (define-public cl-ana.histogram
8992   (sbcl-package->cl-source-package sbcl-cl-ana.histogram))
8993
8994 (define-public sbcl-cl-ana.file-utils
8995   (package
8996     (inherit sbcl-cl-ana-boot0)
8997     (name "sbcl-cl-ana.file-utils")
8998     (inputs
8999      `(("external-program" ,sbcl-external-program)
9000        ("split-sequence" ,sbcl-split-sequence)))
9001     (arguments
9002      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9003        ((#:asd-file _ "") "file-utils/cl-ana.file-utils.asd")
9004        ((#:asd-system-name _ #f) "cl-ana.file-utils")))))
9005
9006 (define-public cl-ana.file-utils
9007   (sbcl-package->cl-source-package sbcl-cl-ana.file-utils))
9008
9009 (define-public ecl-cl-ana.file-utils
9010   (sbcl-package->ecl-package sbcl-cl-ana.file-utils))
9011
9012 (define-public sbcl-cl-ana.statistics
9013   (package
9014     (inherit sbcl-cl-ana-boot0)
9015     (name "sbcl-cl-ana.statistics")
9016     (inputs
9017      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9018        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9019        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9020        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9021        ("cl-ana.map" ,sbcl-cl-ana.map)))
9022     (arguments
9023      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9024        ((#:asd-file _ "") "statistics/cl-ana.statistics.asd")
9025        ((#:asd-system-name _ #f) "cl-ana.statistics")))))
9026
9027 (define-public cl-ana.statistics
9028   (sbcl-package->cl-source-package sbcl-cl-ana.statistics))
9029
9030 (define-public sbcl-cl-ana.gnuplot-interface
9031   (package
9032     (inherit sbcl-cl-ana-boot0)
9033     (name "sbcl-cl-ana.gnuplot-interface")
9034     (inputs
9035      `(("external-program" ,sbcl-external-program)))
9036     (arguments
9037      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9038        ((#:asd-file _ "") "gnuplot-interface/cl-ana.gnuplot-interface.asd")
9039        ((#:asd-system-name _ #f) "cl-ana.gnuplot-interface")))))
9040
9041 (define-public cl-ana.gnuplot-interface
9042   (sbcl-package->cl-source-package sbcl-cl-ana.gnuplot-interface))
9043
9044 (define-public ecl-cl-ana.gnuplot-interface
9045   (sbcl-package->ecl-package sbcl-cl-ana.gnuplot-interface))
9046
9047 (define-public sbcl-cl-ana.plotting
9048   (package
9049     (inherit sbcl-cl-ana-boot0)
9050     (name "sbcl-cl-ana.plotting")
9051     (inputs
9052      `(("alexandria" ,sbcl-alexandria)
9053        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
9054        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
9055        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9056        ("cl-ana.gnuplot-interface" ,sbcl-cl-ana.gnuplot-interface)
9057        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9058        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9059        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9060        ("cl-ana.map" ,sbcl-cl-ana.map)
9061        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
9062        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
9063        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
9064        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
9065        ("external-program" ,sbcl-external-program)
9066        ("split-sequence" ,sbcl-split-sequence)))
9067     (arguments
9068      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9069        ((#:asd-file _ "") "plotting/cl-ana.plotting.asd")
9070        ((#:asd-system-name _ #f) "cl-ana.plotting")))))
9071
9072 (define-public cl-ana.plotting
9073   (sbcl-package->cl-source-package sbcl-cl-ana.plotting))
9074
9075 (define-public sbcl-cl-ana.table-viewing
9076   (package
9077     (inherit sbcl-cl-ana-boot0)
9078     (name "sbcl-cl-ana.table-viewing")
9079     (inputs
9080      `(("alexandria" ,sbcl-alexandria)
9081        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9082        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9083        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9084        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
9085        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
9086        ("cl-ana.table" ,sbcl-cl-ana.table)))
9087     (arguments
9088      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9089        ((#:asd-file _ "") "table-viewing/cl-ana.table-viewing.asd")
9090        ((#:asd-system-name _ #f) "cl-ana.table-viewing")))))
9091
9092 (define-public cl-ana.table-viewing
9093   (sbcl-package->cl-source-package sbcl-cl-ana.table-viewing))
9094
9095 (define-public sbcl-cl-ana.serialization
9096   (package
9097     (inherit sbcl-cl-ana-boot0)
9098     (name "sbcl-cl-ana.serialization")
9099     (inputs
9100      `(("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
9101        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
9102        ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table)
9103        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9104        ("cl-ana.int-char" ,sbcl-cl-ana.int-char)
9105        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9106        ("cl-ana.typespec" ,sbcl-cl-ana.typespec)))
9107     (arguments
9108      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9109        ((#:asd-file _ "") "serialization/cl-ana.serialization.asd")
9110        ((#:asd-system-name _ #f) "cl-ana.serialization")))))
9111
9112 (define-public cl-ana.serialization
9113   (sbcl-package->cl-source-package sbcl-cl-ana.serialization))
9114
9115 (define-public sbcl-cl-ana.makeres
9116   (package
9117     (inherit sbcl-cl-ana-boot0)
9118     (name "sbcl-cl-ana.makeres")
9119     (inputs
9120      `(("alexandria" ,sbcl-alexandria)
9121        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
9122        ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils)
9123        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
9124        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9125        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
9126        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
9127        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9128        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9129        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9130        ("cl-ana.map" ,sbcl-cl-ana.map)
9131        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
9132        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
9133        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
9134        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
9135        ("cl-ana.serialization" ,sbcl-cl-ana.serialization)
9136        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
9137        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
9138        ("cl-ana.table" ,sbcl-cl-ana.table)
9139        ("external-program" ,sbcl-external-program)))
9140     (native-inputs
9141      `(("cl-fad" ,sbcl-cl-fad)))
9142     (arguments
9143      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9144        ((#:asd-file _ "") "makeres/cl-ana.makeres.asd")
9145        ((#:asd-system-name _ #f) "cl-ana.makeres")))))
9146
9147 (define-public cl-ana.makeres
9148   (sbcl-package->cl-source-package sbcl-cl-ana.makeres))
9149
9150 (define-public sbcl-cl-ana.makeres-macro
9151   (package
9152     (inherit sbcl-cl-ana-boot0)
9153     (name "sbcl-cl-ana.makeres-macro")
9154     (inputs
9155      `(("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9156        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
9157     (arguments
9158      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9159        ((#:asd-file _ "") "makeres-macro/cl-ana.makeres-macro.asd")
9160        ((#:asd-system-name _ #f) "cl-ana.makeres-macro")))))
9161
9162 (define-public cl-ana.makeres-macro
9163   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-macro))
9164
9165 (define-public sbcl-cl-ana.makeres-block
9166   (package
9167     (inherit sbcl-cl-ana-boot0)
9168     (name "sbcl-cl-ana.makeres-block")
9169     (inputs
9170      `(("alexandria" ,sbcl-alexandria)
9171        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9172        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9173        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
9174     (arguments
9175      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9176        ((#:asd-file _ "") "makeres-block/cl-ana.makeres-block.asd")
9177        ((#:asd-system-name _ #f) "cl-ana.makeres-block")))))
9178
9179 (define-public cl-ana.makeres-block
9180   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-block))
9181
9182 (define-public sbcl-cl-ana.makeres-progress
9183   (package
9184     (inherit sbcl-cl-ana-boot0)
9185     (name "sbcl-cl-ana.makeres-progress")
9186     (inputs
9187      `(("alexandria" ,sbcl-alexandria)
9188        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9189        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
9190     (arguments
9191      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9192        ((#:asd-file _ "") "makeres-progress/cl-ana.makeres-progress.asd")
9193        ((#:asd-system-name _ #f) "cl-ana.makeres-progress")))))
9194
9195 (define-public cl-ana.makeres-progress
9196   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-progress))
9197
9198 (define-public sbcl-cl-ana.makeres-table
9199   (package
9200     (inherit sbcl-cl-ana-boot0)
9201     (name "sbcl-cl-ana.makeres-table")
9202     (inputs
9203      `(("cl-ana.csv-table" ,sbcl-cl-ana.csv-table)
9204        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
9205        ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table)
9206        ("cl-ana.hdf-utils" ,sbcl-cl-ana.hdf-utils)
9207        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9208        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9209        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9210        ("cl-ana.makeres-macro" ,sbcl-cl-ana.makeres-macro)
9211        ("cl-ana.memoization" ,sbcl-cl-ana.memoization)
9212        ("cl-ana.ntuple-table" ,sbcl-cl-ana.ntuple-table)
9213        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
9214        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
9215        ("cl-ana.table" ,sbcl-cl-ana.table)))
9216     (native-inputs
9217      `(("cl-fad" ,sbcl-cl-fad)))
9218     (arguments
9219      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9220        ((#:asd-file _ "") "makeres-table/cl-ana.makeres-table.asd")
9221        ((#:asd-system-name _ #f) "cl-ana.makeres-table")))))
9222
9223 (define-public cl-ana.makeres-table
9224   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-table))
9225
9226 (define-public sbcl-cl-ana.makeres-graphviz
9227   (package
9228     (inherit sbcl-cl-ana-boot0)
9229     (name "sbcl-cl-ana.makeres-graphviz")
9230     (inputs
9231      `(("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9232        ("external-program" ,sbcl-external-program)))
9233     (arguments
9234      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9235        ((#:asd-file _ "") "makeres-graphviz/cl-ana.makeres-graphviz.asd")
9236        ((#:asd-system-name _ #f) "cl-ana.makeres-graphviz")))))
9237
9238 (define-public cl-ana.makeres-graphviz
9239   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-graphviz))
9240
9241 (define-public sbcl-cl-ana.makeres-branch
9242   (package
9243     (inherit sbcl-cl-ana-boot0)
9244     (name "sbcl-cl-ana.makeres-branch")
9245     (inputs
9246      `(("alexandria" ,sbcl-alexandria)
9247        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9248        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
9249        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9250        ("cl-ana.map" ,sbcl-cl-ana.map)
9251        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)))
9252     (arguments
9253      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9254        ((#:asd-file _ "") "makeres-branch/cl-ana.makeres-branch.asd")
9255        ((#:asd-system-name _ #f) "cl-ana.makeres-branch")))))
9256
9257 (define-public cl-ana.makeres-branch
9258   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-branch))
9259
9260 (define-public sbcl-cl-ana.makeres-utils
9261   (package
9262     (inherit sbcl-cl-ana-boot0)
9263     (name "sbcl-cl-ana.makeres-utils")
9264     (inputs
9265      `(("alexandria" ,sbcl-alexandria)
9266        ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils)
9267        ("cl-ana.fitting" ,sbcl-cl-ana.fitting)
9268        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
9269        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9270        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9271        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9272        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9273        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9274        ("cl-ana.map" ,sbcl-cl-ana.map)
9275        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
9276        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
9277        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
9278        ("cl-ana.string-utils" ,sbcl-cl-ana.string-utils)
9279        ("cl-ana.symbol-utils" ,sbcl-cl-ana.symbol-utils)
9280        ("cl-ana.table" ,sbcl-cl-ana.table)))
9281     (native-inputs
9282      `(("cl-fad" ,sbcl-cl-fad)))
9283     (arguments
9284      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9285        ((#:asd-file _ "") "makeres-utils/cl-ana.makeres-utils.asd")
9286        ((#:asd-system-name _ #f) "cl-ana.makeres-utils")))))
9287
9288 (define-public cl-ana.makeres-utils
9289   (sbcl-package->cl-source-package sbcl-cl-ana.makeres-utils))
9290
9291 (define-public sbcl-cl-ana.statistical-learning
9292   (package
9293     (inherit sbcl-cl-ana-boot0)
9294     (name "sbcl-cl-ana.statistical-learning")
9295     (inputs
9296      `(("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9297        ("cl-ana.functional-utils" ,sbcl-cl-ana.functional-utils)
9298        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9299        ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra)
9300        ("cl-ana.list-utils" ,sbcl-cl-ana.list-utils)
9301        ("cl-ana.macro-utils" ,sbcl-cl-ana.macro-utils)
9302        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
9303        ("cl-ana.map" ,sbcl-cl-ana.map)
9304        ("cl-ana.statistics" ,sbcl-cl-ana.statistics)))
9305     (native-inputs
9306      `(("cl-fad" ,sbcl-cl-fad)))
9307     (arguments
9308      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9309        ((#:asd-file _ "")
9310         "statistical-learning/cl-ana.statistical-learning.asd")
9311        ((#:asd-system-name _ #f) "cl-ana.statistical-learning")))))
9312
9313 (define-public cl-ana.statistical-learning
9314   (sbcl-package->cl-source-package sbcl-cl-ana.statistical-learning))
9315
9316 (define-public sbcl-cl-ana
9317   (package
9318     (inherit sbcl-cl-ana-boot0)
9319     (name "sbcl-cl-ana")
9320     (inputs
9321      `(("cl-ana.binary-tree" ,sbcl-cl-ana.binary-tree)
9322        ("cl-ana.calculus" ,sbcl-cl-ana.calculus)
9323        ("cl-ana.clos-utils" ,sbcl-cl-ana.clos-utils)
9324        ("cl-ana.csv-table" ,sbcl-cl-ana.csv-table)
9325        ("cl-ana.error-propogation" ,sbcl-cl-ana.error-propogation)
9326        ("cl-ana.file-utils" ,sbcl-cl-ana.file-utils)
9327        ("cl-ana.fitting" ,sbcl-cl-ana.fitting)
9328        ("cl-ana.generic-math" ,sbcl-cl-ana.generic-math)
9329        ("cl-ana.hash-table-utils" ,sbcl-cl-ana.hash-table-utils)
9330        ("cl-ana.hdf-table" ,sbcl-cl-ana.hdf-table)
9331        ("cl-ana.histogram" ,sbcl-cl-ana.histogram)
9332        ("cl-ana.int-char" ,sbcl-cl-ana.int-char)
9333        ("cl-ana.linear-algebra" ,sbcl-cl-ana.linear-algebra)
9334        ("cl-ana.lorentz" ,sbcl-cl-ana.lorentz)
9335        ("cl-ana.map" ,sbcl-cl-ana.map)
9336        ("cl-ana.makeres" ,sbcl-cl-ana.makeres)
9337        ("cl-ana.makeres-block" ,sbcl-cl-ana.makeres-block)
9338        ("cl-ana.makeres-branch" ,sbcl-cl-ana.makeres-branch)
9339        ("cl-ana.makeres-graphviz" ,sbcl-cl-ana.makeres-graphviz)
9340        ("cl-ana.makeres-macro" ,sbcl-cl-ana.makeres-macro)
9341        ("cl-ana.makeres-progress" ,sbcl-cl-ana.makeres-progress)
9342        ("cl-ana.makeres-table" ,sbcl-cl-ana.makeres-table)
9343        ("cl-ana.makeres-utils" ,sbcl-cl-ana.makeres-utils)
9344        ("cl-ana.math-functions" ,sbcl-cl-ana.math-functions)
9345        ("cl-ana.ntuple-table" ,sbcl-cl-ana.ntuple-table)
9346        ("cl-ana.package-utils" ,sbcl-cl-ana.package-utils)
9347        ("cl-ana.pathname-utils" ,sbcl-cl-ana.pathname-utils)
9348        ("cl-ana.plotting" ,sbcl-cl-ana.plotting)
9349        ("cl-ana.quantity" ,sbcl-cl-ana.quantity)
9350        ("cl-ana.reusable-table" ,sbcl-cl-ana.reusable-table)
9351        ("cl-ana.serialization" ,sbcl-cl-ana.serialization)
9352        ("cl-ana.statistics" ,sbcl-cl-ana.statistics)
9353        ("cl-ana.statistical-learning" ,sbcl-cl-ana.statistical-learning)
9354        ("cl-ana.table" ,sbcl-cl-ana.table)
9355        ("cl-ana.table-utils" ,sbcl-cl-ana.table-utils)
9356        ("cl-ana.table-viewing" ,sbcl-cl-ana.table-viewing)
9357        ("cl-ana.tensor" ,sbcl-cl-ana.tensor)
9358        ("libffi" ,libffi)))
9359     (native-inputs
9360      `(("cl-fad" ,sbcl-cl-fad)))
9361     (arguments
9362      (substitute-keyword-arguments (package-arguments sbcl-cl-ana-boot0)
9363        ((#:asd-file _ "") "cl-ana.asd")
9364        ((#:asd-system-name _ #f) "cl-ana")))))
9365
9366 (define-public cl-ana
9367   (sbcl-package->cl-source-package sbcl-cl-ana))
9368
9369 (define-public sbcl-archive
9370   (let ((commit "631271c091ed02994bec3980cb288a2cf32c7cdc")
9371         (revision "1"))
9372     (package
9373       (name "sbcl-archive")
9374       (version (git-version "0.9" revision commit))
9375       (source (origin
9376                 (method git-fetch)
9377                 (uri (git-reference
9378                       (url "https://github.com/sharplispers/archive.git")
9379                       (commit commit)))
9380                 (file-name (git-file-name name version))
9381                 (sha256
9382                  (base32
9383                   "0pvsc9fmybx7rxd0kmzq4shi6hszdpwdc1sfy7jwyfxf8n3hnv4p"))))
9384       (build-system asdf-build-system/sbcl)
9385       (inputs
9386        `(("cl-fad" ,sbcl-cl-fad)
9387          ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
9388       (synopsis "Common Lisp library for tar and cpio archives")
9389       (description
9390        "This is a Common Lisp library to read and write disk-based file
9391 archives such as those generated by the tar and cpio programs on Unix.")
9392       (home-page "https://github.com/sharplispers/archive")
9393       (license license:bsd-3))))
9394
9395 (define-public cl-archive
9396   (sbcl-package->cl-source-package sbcl-archive))
9397
9398 (define-public ecl-archive
9399   (sbcl-package->ecl-package sbcl-archive))
9400
9401 (define-public sbcl-misc-extensions
9402   (let ((commit "101c05112bf2f1e1bbf527396822d2f50ca6327a")
9403         (revision "1"))
9404     (package
9405       (name "sbcl-misc-extensions")
9406       (version (git-version "3.3" revision commit))
9407       (source
9408        (origin
9409          (method git-fetch)
9410          (uri (git-reference
9411                (url "https://gitlab.common-lisp.net/misc-extensions/devel.git")
9412                (commit commit)))
9413          (file-name (git-file-name name version))
9414          (sha256
9415           (base32
9416            "0gz5f4p70qzilnxsnf5lih2n9m4wjcw8hlw4w8mpn9jyhyppyyv0"))))
9417       (build-system asdf-build-system/sbcl)
9418       (synopsis "Collection of small macros and extensions for Common Lisp")
9419       (description
9420        "This project is intended as a catchall for small, general-purpose
9421 extensions to Common Lisp.  It contains:
9422
9423 @itemize
9424 @item @code{new-let}, a macro that combines and generalizes @code{let},
9425 @code{let*} and @code{multiple-value-bind},
9426 @item @code{gmap}, an iteration macro that generalizes @code{map}.
9427 @end itemize\n")
9428       (home-page "https://common-lisp.net/project/misc-extensions/")
9429       (license license:public-domain))))
9430
9431 (define-public cl-misc-extensions
9432   (sbcl-package->cl-source-package sbcl-misc-extensions))
9433
9434 (define-public ecl-misc-extensions
9435   (sbcl-package->ecl-package sbcl-misc-extensions))
9436
9437 (define-public sbcl-mt19937
9438   (package
9439     (name "sbcl-mt19937")
9440     (version "1.1")
9441     (source
9442      (origin
9443        (method url-fetch)
9444        (uri (string-append "https://common-lisp.net/project/asdf-packaging/"
9445                            "mt19937-latest.tar.gz"))
9446        (sha256
9447         (base32
9448          "1iw636b0iw5ygkv02y8i41lh7xj0acglv0hg5agryn0zzi2nf1xv"))))
9449     (build-system asdf-build-system/sbcl)
9450     (synopsis "Mersenne Twister pseudo-random number generator")
9451     (description
9452      "MT19937 is a portable Mersenne Twister pseudo-random number generator
9453 for Common Lisp.")
9454     (home-page "https://www.cliki.net/mt19937")
9455     (license license:public-domain)))
9456
9457 (define-public cl-mt19937
9458   (sbcl-package->cl-source-package sbcl-mt19937))
9459
9460 (define-public ecl-mt19937
9461   (sbcl-package->ecl-package sbcl-mt19937))
9462
9463 (define-public sbcl-fset
9464   (let ((commit "6d2f9ded8934d2b42f2571a0ba5bda091037d852")
9465         (revision "1"))
9466     (package
9467       (name "sbcl-fset")
9468       (version (git-version "1.3.2" revision commit))
9469       (source
9470        (origin
9471          (method git-fetch)
9472          (uri (git-reference
9473                (url "https://github.com/slburson/fset")
9474                (commit commit)))
9475          (file-name (git-file-name name version))
9476          (sha256
9477           (base32
9478            "127acblwrbqicx47h6sgvknz1cqyfn8p4xkhkn1m7hxh8w5gk1zy"))
9479          (snippet '(begin
9480                      ;; Remove obsolete copy of system definition.
9481                      (delete-file "Code/fset.asd")
9482                      #t))))
9483       (build-system asdf-build-system/sbcl)
9484       (inputs
9485        `(("misc-extensions" ,sbcl-misc-extensions)
9486          ("mt19937" ,sbcl-mt19937)
9487          ("named-readtables" ,sbcl-named-readtables)))
9488       (synopsis "Functional set-theoretic collections library")
9489       (description
9490        "FSet is a functional set-theoretic collections library for Common Lisp.
9491 Functional means that all update operations return a new collection rather than
9492 modifying an existing one in place.  Set-theoretic means that collections may
9493 be nested arbitrarily with no additional programmer effort; for instance, sets
9494 may contain sets, maps may be keyed by sets, etc.")
9495       (home-page "https://common-lisp.net/project/fset/Site/index.html")
9496       (license license:llgpl))))
9497
9498 (define-public cl-fset
9499   (sbcl-package->cl-source-package sbcl-fset))
9500
9501 (define-public sbcl-cl-cont
9502   (let ((commit "fc1fa7e6eb64894fdca13e688e6015fad5290d2a")
9503         (revision "1"))
9504     (package
9505       (name "sbcl-cl-cont")
9506       (version (git-version "0.3.8" revision commit))
9507       (source
9508        (origin
9509          (method git-fetch)
9510          (uri (git-reference
9511                (url "https://gitlab.common-lisp.net/cl-cont/cl-cont.git")
9512                (commit commit)))
9513          (file-name (git-file-name name version))
9514          (sha256
9515           (base32
9516            "1zf8zvb0i6jm3hhfks4w74hibm6avgc6f9s1qwgjrn2bcik8lrvz"))))
9517       (build-system asdf-build-system/sbcl)
9518       (inputs
9519        `(("alexandria" ,sbcl-alexandria)
9520          ("closer-mop" ,sbcl-closer-mop)))
9521       (native-inputs
9522        `(("rt" ,sbcl-rt)))
9523       (synopsis "Delimited continuations for Common Lisp")
9524       (description
9525        "This is a library that implements delimited continuations by
9526 transforming Common Lisp code to continuation passing style.")
9527       (home-page "https://common-lisp.net/project/cl-cont/")
9528       (license license:llgpl))))
9529
9530 (define-public cl-cont
9531   (sbcl-package->cl-source-package sbcl-cl-cont))
9532
9533 (define-public ecl-cl-cont
9534   (sbcl-package->ecl-package sbcl-cl-cont))
9535
9536 (define-public sbcl-cl-coroutine
9537   (let ((commit "de098f8d5debd8b14ef6864b5bdcbbf5ddbcfd72")
9538         (revision "1"))
9539     (package
9540       (name "sbcl-cl-coroutine")
9541       (version (git-version "0.1" revision commit))
9542       (source
9543        (origin
9544          (method git-fetch)
9545          (uri (git-reference
9546                (url "https://github.com/takagi/cl-coroutine.git")
9547                (commit commit)))
9548          (file-name (git-file-name name version))
9549          (sha256
9550           (base32
9551            "1cqdhdjxffgfs116l1swjlsmcbly0xgcgrckvaajd566idj9yj4l"))))
9552       (build-system asdf-build-system/sbcl)
9553       (inputs
9554        `(("alexandria" ,sbcl-alexandria)
9555          ("cl-cont" ,sbcl-cl-cont)))
9556       (native-inputs
9557        `(("prove" ,sbcl-prove)))
9558       (arguments
9559        `(;; TODO: Fix the tests. They fail with:
9560          ;; "Component CL-COROUTINE-ASD::CL-COROUTINE-TEST not found"
9561          #:tests? #f
9562          #:phases
9563          (modify-phases %standard-phases
9564            (add-after 'unpack 'fix-tests
9565              (lambda _
9566                (substitute* "cl-coroutine-test.asd"
9567                  (("cl-test-more")
9568                   "prove"))
9569                #t)))))
9570       (synopsis "Coroutine library for Common Lisp")
9571       (description
9572        "This is a coroutine library for Common Lisp implemented using the
9573 continuations of the @code{cl-cont} library.")
9574       (home-page "https://github.com/takagi/cl-coroutine")
9575       (license license:llgpl))))
9576
9577 (define-public cl-coroutine
9578   (sbcl-package->cl-source-package sbcl-cl-coroutine))
9579
9580 (define-public ecl-cl-coroutine
9581   (sbcl-package->ecl-package sbcl-cl-coroutine))
9582
9583 (define-public sbcl-vom
9584   (let ((commit "1aeafeb5b74c53741b79497e0ef4acf85c92ff24")
9585         (revision "1"))
9586     (package
9587       (name "sbcl-vom")
9588       (version (git-version "0.1.4" revision commit))
9589       (source
9590        (origin
9591          (method git-fetch)
9592          (uri (git-reference
9593                (url "https://github.com/orthecreedence/vom.git")
9594                (commit commit)))
9595          (file-name (git-file-name name version))
9596          (sha256
9597           (base32
9598            "0536kppj76ax4lrxhv42npkfjsmx45km2g439vf9jmw3apinz9cy"))))
9599       (build-system asdf-build-system/sbcl)
9600       (synopsis "Tiny logging utility for Common Lisp")
9601       (description
9602        "Vom is a logging library for Common Lisp.  It's goal is to be useful
9603 and small.  It does not provide a lot of features as other loggers do, but
9604 has a small codebase that's easy to understand and use.")
9605       (home-page "https://github.com/orthecreedence/vom")
9606       (license license:expat))))
9607
9608 (define-public cl-vom
9609   (sbcl-package->cl-source-package sbcl-vom))
9610
9611 (define-public ecl-vom
9612   (sbcl-package->ecl-package sbcl-vom))
9613
9614 (define-public sbcl-cl-libuv
9615   (let ((commit "32100c023c518038d0670a103eaa4d50dd785d29")
9616         (revision "1"))
9617     (package
9618       (name "sbcl-cl-libuv")
9619       (version (git-version "0.1.6" revision commit))
9620       (source
9621        (origin
9622          (method git-fetch)
9623          (uri (git-reference
9624                (url "https://github.com/orthecreedence/cl-libuv.git")
9625                (commit commit)))
9626          (file-name (git-file-name name version))
9627          (sha256
9628           (base32
9629            "1kwix4si8a8hza34ab2k7whrh7z0yrmx39v2wc3qblv9m244jkh1"))))
9630       (build-system asdf-build-system/sbcl)
9631       (inputs
9632        `(("alexandria" ,sbcl-alexandria)
9633          ("cffi" ,sbcl-cffi)
9634          ("cffi-grovel" ,sbcl-cffi-grovel)
9635          ("libuv" ,libuv)))
9636       (arguments
9637        `(#:phases
9638          (modify-phases %standard-phases
9639            (add-after 'unpack 'fix-paths
9640              (lambda* (#:key inputs #:allow-other-keys)
9641                (substitute* "lib.lisp"
9642                  (("/usr/lib/libuv.so")
9643                   (string-append (assoc-ref inputs "libuv")
9644                                  "/lib/libuv.so")))
9645                #t))
9646            (add-after 'fix-paths 'fix-system-definition
9647              (lambda _
9648                (substitute* "cl-libuv.asd"
9649                  (("#:cffi #:alexandria")
9650                   "#:cffi #:cffi-grovel #:alexandria"))
9651                #t)))))
9652       (synopsis "Common Lisp bindings to libuv")
9653       (description
9654        "This library provides low-level libuv bindings for Common Lisp.")
9655       (home-page "https://github.com/orthecreedence/cl-libuv")
9656       (license license:expat))))
9657
9658 (define-public cl-libuv
9659   (sbcl-package->cl-source-package sbcl-cl-libuv))
9660
9661 (define-public ecl-cl-libuv
9662   (sbcl-package->ecl-package sbcl-cl-libuv))
9663
9664 (define-public sbcl-cl-async-base
9665   (let ((commit "f6423e44404a44434d803605e0d2e17199158e28")
9666         (revision "1"))
9667     (package
9668       (name "sbcl-cl-async-base")
9669       (version (git-version "0.6.1" revision commit))
9670       (source
9671        (origin
9672          (method git-fetch)
9673          (uri (git-reference
9674                (url "https://github.com/orthecreedence/cl-async.git")
9675                (commit commit)))
9676          (file-name (git-file-name name version))
9677          (sha256
9678           (base32
9679            "11xi9dxb8mjgwzrkj88i0xkgk26z9w9ddxzbv6xsvfc1d4x5cf4x"))))
9680       (build-system asdf-build-system/sbcl)
9681       (inputs
9682        `(("bordeaux-threads" ,sbcl-bordeaux-threads)
9683          ("cffi" ,sbcl-cffi)
9684          ("cl-libuv" ,sbcl-cl-libuv)))
9685       (arguments
9686        `(#:asd-file "cl-async.asd"))
9687       (synopsis "Base system for cl-async")
9688       (description
9689        "Cl-async is a library for general purpose, non-blocking programming in
9690 Common Lisp.  It uses the libuv library as backend.")
9691       (home-page "https://orthecreedence.github.io/cl-async/")
9692       (license license:expat))))
9693
9694 (define-public cl-async-base
9695   (sbcl-package->cl-source-package sbcl-cl-async-base))
9696
9697 (define-public ecl-cl-async-base
9698   (sbcl-package->ecl-package sbcl-cl-async-base))
9699
9700 (define-public sbcl-cl-async-util
9701   (package
9702     (inherit sbcl-cl-async-base)
9703     (name "sbcl-cl-async-util")
9704     (inputs
9705      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
9706        ("cffi" ,sbcl-cffi)
9707        ("cl-async-base" ,sbcl-cl-async-base)
9708        ("cl-libuv" ,sbcl-cl-libuv)
9709        ("cl-ppcre" ,sbcl-cl-ppcre)
9710        ("fast-io" ,sbcl-fast-io)
9711        ("vom" ,sbcl-vom)))
9712     (synopsis "Internal utilities for cl-async")))
9713
9714 (define-public cl-async-util
9715   (sbcl-package->cl-source-package sbcl-cl-async-util))
9716
9717 (define-public ecl-cl-async-util
9718   (sbcl-package->ecl-package sbcl-cl-async-util))
9719
9720 (define-public sbcl-cl-async
9721   (package
9722     (inherit sbcl-cl-async-base)
9723     (name "sbcl-cl-async")
9724     (inputs
9725      `(("babel" ,sbcl-babel)
9726        ("cffi" ,sbcl-cffi)
9727        ("cl-async-base" ,sbcl-cl-async-base)
9728        ("cl-async-util" ,sbcl-cl-async-util)
9729        ("cl-libuv" ,sbcl-cl-libuv)
9730        ("cl-ppcre" ,sbcl-cl-ppcre)
9731        ("static-vectors" ,sbcl-static-vectors)
9732        ("trivial-features" ,sbcl-trivial-features)
9733        ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
9734     (synopsis "Asynchronous operations for Common Lisp")))
9735
9736 (define-public cl-async
9737   (sbcl-package->cl-source-package sbcl-cl-async))
9738
9739 (define-public ecl-cl-async
9740   (sbcl-package->ecl-package sbcl-cl-async))
9741
9742 (define-public sbcl-cl-async-repl
9743   (package
9744     (inherit sbcl-cl-async-base)
9745     (name "sbcl-cl-async-repl")
9746     (inputs
9747      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
9748        ("cl-async" ,sbcl-cl-async)))
9749     (arguments
9750      (substitute-keyword-arguments (package-arguments sbcl-cl-async-base)
9751        ((#:asd-file _ "") "cl-async-repl.asd")))
9752     (synopsis "REPL integration for cl-async")))
9753
9754 (define-public cl-async-repl
9755   (sbcl-package->cl-source-package sbcl-cl-async-repl))
9756
9757 (define-public ecl-cl-async-repl
9758   (sbcl-package->ecl-package sbcl-cl-async-repl))
9759
9760 (define-public sbcl-cl-async-ssl
9761   (package
9762     (inherit sbcl-cl-async-base)
9763     (name "sbcl-cl-async-ssl")
9764     (inputs
9765      `(("cffi" ,sbcl-cffi)
9766        ("cl-async" ,sbcl-cl-async)
9767        ("openssl" ,openssl)
9768        ("vom" ,sbcl-vom)))
9769     (arguments
9770      (substitute-keyword-arguments (package-arguments sbcl-cl-async-base)
9771        ((#:asd-file _ "") "cl-async-ssl.asd")
9772        ((#:phases phases '%standard-phases)
9773         `(modify-phases ,phases
9774            (add-after 'unpack 'fix-paths
9775              (lambda* (#:key inputs #:allow-other-keys)
9776                (substitute* "src/ssl/package.lisp"
9777                  (("libcrypto\\.so")
9778                   (string-append (assoc-ref inputs "openssl")
9779                                  "/lib/libcrypto.so"))
9780                  (("libssl\\.so")
9781                   (string-append (assoc-ref inputs "openssl")
9782                                  "/lib/libssl.so")))
9783                #t))))))
9784     (synopsis "SSL wrapper around cl-async socket implementation")))
9785
9786 (define-public cl-async-ssl
9787   (sbcl-package->cl-source-package sbcl-cl-async-ssl))
9788
9789 (define-public ecl-cl-async-ssl
9790   (sbcl-package->ecl-package sbcl-cl-async-ssl))
9791
9792 (define-public sbcl-blackbird
9793   (let ((commit "d361f81c1411dec07f6c2dcb11c78f7aea9aaca8")
9794         (revision "1"))
9795     (package
9796       (name "sbcl-blackbird")
9797       (version (git-version "0.5.2" revision commit))
9798       (source
9799        (origin
9800          (method git-fetch)
9801          (uri (git-reference
9802                (url "https://github.com/orthecreedence/blackbird.git")
9803                (commit commit)))
9804          (file-name (git-file-name name version))
9805          (sha256
9806           (base32
9807            "0xfds5yaya64arzr7w1x38karyz11swzbhxx1afldpradj9dh19c"))))
9808       (build-system asdf-build-system/sbcl)
9809       (inputs
9810        `(("vom" ,sbcl-vom)))
9811       (native-inputs
9812        `(("cl-async" ,sbcl-cl-async)
9813          ("fiveam" ,sbcl-fiveam)))
9814       (synopsis "Promise implementation for Common Lisp")
9815       (description
9816        "This is a standalone promise implementation for Common Lisp.  It is
9817 the successor to the now-deprecated cl-async-future project.")
9818       (home-page "https://orthecreedence.github.io/blackbird/")
9819       (license license:expat))))
9820
9821 (define-public cl-blackbird
9822   (sbcl-package->cl-source-package sbcl-blackbird))
9823
9824 (define-public ecl-blackbird
9825   (sbcl-package->ecl-package sbcl-blackbird))
9826
9827 (define-public sbcl-cl-async-future
9828   (let ((commit "ee36c22a69a9516407458d2ed8b475f1fc473959")
9829         (revision "1"))
9830     (package
9831       (name "sbcl-cl-async-future")
9832       (version (git-version "0.4.4.1" revision commit))
9833       (source
9834        (origin
9835          (method git-fetch)
9836          (uri (git-reference
9837                (url "https://github.com/orthecreedence/cl-async-future.git")
9838                (commit commit)))
9839          (file-name (git-file-name name version))
9840          (sha256
9841           (base32
9842            "0z0sc7qlzzxk99f4l26zp6rai9kv0kj0f599sxai5s44p17zbbvh"))))
9843       (build-system asdf-build-system/sbcl)
9844       (inputs
9845        `(("blackbird" ,sbcl-blackbird)))
9846       (native-inputs
9847        `(("cl-async" ,sbcl-cl-async)
9848          ("eos" ,sbcl-eos)))
9849       (synopsis "Futures implementation for Common Lisp")
9850       (description
9851        "This is futures implementation for Common Lisp.  It plugs in nicely
9852 to cl-async.")
9853       (home-page "https://orthecreedence.github.io/cl-async/future")
9854       (license license:expat))))
9855
9856 (define-public cl-async-future
9857   (sbcl-package->cl-source-package sbcl-cl-async-future))
9858
9859 (define-public ecl-cl-async-future
9860   (sbcl-package->ecl-package sbcl-cl-async-future))
9861
9862 (define-public sbcl-green-threads
9863   (let ((commit "fff5ebecb441a37e5c511773716aafd84a3c5840")
9864         (revision "1"))
9865     (package
9866       (name "sbcl-green-threads")
9867       (version (git-version "0.3" revision commit))
9868       (source
9869        (origin
9870          (method git-fetch)
9871          (uri (git-reference
9872                (url "https://github.com/thezerobit/green-threads.git")
9873                (commit commit)))
9874          (file-name (git-file-name name version))
9875          (sha256
9876           (base32
9877            "1czw7nr0dwfps76h8hjvglk1wdh53yqbfbvv30whwbgqx33iippz"))))
9878       (build-system asdf-build-system/sbcl)
9879       (inputs
9880        `(("cl-async-future" ,sbcl-cl-async-future)
9881          ("cl-cont" ,sbcl-cl-cont)))
9882       (native-inputs
9883        `(("prove" ,sbcl-prove)))
9884       (arguments
9885        `(;; TODO: Fix the tests. They fail with:
9886          ;; "The function BLACKBIRD::PROMISE-VALUES is undefined"
9887          #:tests? #f
9888          #:phases
9889          (modify-phases %standard-phases
9890            (add-after 'unpack 'fix-tests
9891              (lambda _
9892                (substitute* "green-threads-test.asd"
9893                  (("cl-test-more")
9894                   "prove"))
9895                #t)))))
9896       (synopsis "Cooperative multitasking library for Common Lisp")
9897       (description
9898        "This library allows for cooperative multitasking with help of cl-cont
9899 for continuations.  It tries to mimic the API of bordeaux-threads as much as
9900 possible.")
9901       (home-page "https://github.com/thezerobit/green-threads")
9902       (license license:bsd-3))))
9903
9904 (define-public cl-green-threads
9905   (sbcl-package->cl-source-package sbcl-green-threads))
9906
9907 (define-public ecl-green-threads
9908   (sbcl-package->ecl-package sbcl-green-threads))
9909
9910 (define-public sbcl-cl-base32
9911   (let ((commit "8cdee06fab397f7b0a19583b57e7f0c98405be85")
9912         (revision "1"))
9913     (package
9914       (name "sbcl-cl-base32")
9915       (version (git-version "0.1" revision commit))
9916       (source
9917        (origin
9918          (method git-fetch)
9919          (uri (git-reference
9920                (url "https://github.com/hargettp/cl-base32.git")
9921                (commit commit)))
9922          (file-name (git-file-name name version))
9923          (sha256
9924           (base32 "17jrng8jb05d64ggyd11hp308c2fl5drvf9g175blgrkkl8l4mf8"))))
9925       (build-system asdf-build-system/sbcl)
9926       (native-inputs
9927        `(("lisp-unit" ,sbcl-lisp-unit)))
9928       (synopsis "Common Lisp library for base32 encoding and decoding")
9929       (description
9930        "This package provides functions for base32 encoding and decoding as
9931 defined in RFC4648.")
9932       (home-page "https://github.com/hargettp/cl-base32")
9933       (license license:expat))))
9934
9935 (define-public cl-base32
9936   (sbcl-package->cl-source-package sbcl-cl-base32))
9937
9938 (define-public ecl-cl-base32
9939   (sbcl-package->ecl-package sbcl-cl-base32))
9940
9941 (define-public sbcl-cl-z85
9942   (let ((commit "85b3951a9cfa2603acb6aee15567684f9a108098")
9943         (revision "1"))
9944     (package
9945       (name "sbcl-cl-z85")
9946       (version (git-version "1.0" revision commit))
9947       (source
9948        (origin
9949          (method git-fetch)
9950          (uri (git-reference
9951                (url "https://github.com/glv2/cl-z85.git")
9952                (commit commit)))
9953          (file-name (git-file-name name version))
9954          (sha256
9955           (base32 "0r27pidjaxbm7k1rr90nnajwl5xm2kp65g1fv0fva17lzy45z1mp"))))
9956       (build-system asdf-build-system/sbcl)
9957       (native-inputs
9958        `(("cl-octet-streams" ,sbcl-cl-octet-streams)
9959          ("fiveam" ,sbcl-fiveam)))
9960       (synopsis "Common Lisp library for Z85 encoding and decoding")
9961       (description
9962        "This package provides functions to encode or decode byte vectors or
9963 byte streams using the Z85 format, which is a base-85 encoding used by
9964 ZeroMQ.")
9965       (home-page "https://github.com/glv2/cl-z85")
9966       (license license:gpl3+))))
9967
9968 (define-public cl-z85
9969   (sbcl-package->cl-source-package sbcl-cl-z85))
9970
9971 (define-public ecl-cl-z85
9972   (sbcl-package->ecl-package sbcl-cl-z85))
9973
9974 (define-public sbcl-ltk
9975   (package
9976     (name "sbcl-ltk")
9977     (version "0.992")
9978     (source
9979      (origin
9980        (method git-fetch)
9981        (uri (git-reference
9982              (url "https://github.com/herth/ltk.git")
9983              (commit version)))
9984        (file-name (git-file-name name version))
9985        (sha256
9986         (base32 "13l2q4mskzilya9xh5wy2xvy30lwn104bd8wrq6ifds56r82iy3x"))))
9987     (build-system asdf-build-system/sbcl)
9988     (inputs
9989      `(("imagemagick" ,imagemagick)
9990        ("tk" ,tk)))
9991     (arguments
9992      `(#:asd-file "ltk/ltk.asd"
9993        #:tests? #f
9994        #:phases (modify-phases %standard-phases
9995                   (add-after 'unpack 'fix-paths
9996                     (lambda* (#:key inputs #:allow-other-keys)
9997                       (substitute* "ltk/ltk.lisp"
9998                         (("#-freebsd \"wish\"")
9999                          (string-append "#-freebsd \""
10000                                         (assoc-ref inputs "tk")
10001                                         "/bin/wish\""))
10002                         (("do-execute \"convert\"")
10003                          (string-append "do-execute \""
10004                                         (assoc-ref inputs "imagemagick")
10005                                         "/bin/convert\"")))
10006                       #t)))))
10007     (synopsis "Common Lisp bindings for the Tk GUI toolkit")
10008     (description
10009      "LTK is a Common Lisp binding for the Tk graphics toolkit.  It is written
10010 in pure Common Lisp and does not require any Tk knowledge for its usage.")
10011     (home-page "http://www.peter-herth.de/ltk/")
10012     (license license:llgpl)))
10013
10014 (define-public cl-ltk
10015   (sbcl-package->cl-source-package sbcl-ltk))
10016
10017 (define-public ecl-ltk
10018   (sbcl-package->ecl-package sbcl-ltk))
10019
10020 (define-public sbcl-ltk-mw
10021   (package
10022     (inherit sbcl-ltk)
10023     (name "sbcl-ltk-mw")
10024     (inputs
10025      `(("ltk" ,sbcl-ltk)))
10026     (arguments
10027      (substitute-keyword-arguments (package-arguments sbcl-ltk)
10028        ((#:asd-file _) "ltk/ltk-mw.asd")
10029        ((#:phases _) '%standard-phases)))
10030     (synopsis "Extra widgets for LTK")
10031     (description
10032      "This is a collection of higher-level widgets built on top of LTK.")))
10033
10034 (define-public cl-ltk-mw
10035   (sbcl-package->cl-source-package sbcl-ltk-mw))
10036
10037 (define-public ecl-ltk-mw
10038   (sbcl-package->ecl-package sbcl-ltk-mw))
10039
10040 (define-public sbcl-ltk-remote
10041   (package
10042     (inherit sbcl-ltk)
10043     (name "sbcl-ltk-remote")
10044     (inputs
10045      `(("ltk" ,sbcl-ltk)))
10046     (arguments
10047      (substitute-keyword-arguments (package-arguments sbcl-ltk)
10048        ((#:asd-file _) "ltk/ltk-remote.asd")
10049        ((#:phases _) '%standard-phases)))
10050     (synopsis "Remote GUI support for LTK")
10051     (description
10052      "This LTK extension allows the GUI to be displayed on a computer different
10053 from the one running the Lisp program by using a TCP connection.")))
10054
10055 (define-public cl-ltk-remote
10056   (sbcl-package->cl-source-package sbcl-ltk-remote))
10057
10058 (define-public sbcl-cl-lex
10059   (let ((commit "f2dbbe25ef553005fb402d9a6203180c3fa1093b")
10060         (revision "1"))
10061     (package
10062       (name "sbcl-cl-lex")
10063       (version (git-version "1.1.3" revision commit))
10064       (source
10065        (origin
10066          (method git-fetch)
10067          (uri (git-reference
10068                (url "https://github.com/djr7C4/cl-lex.git")
10069                (commit commit)))
10070          (file-name (git-file-name name version))
10071          (sha256
10072           (base32 "1kg50f76bfpfxcv4dfivq1n9a0xlsra2ajb0vd68lxwgbidgyc2y"))))
10073       (build-system asdf-build-system/sbcl)
10074       (inputs
10075        `(("cl-ppcre" ,sbcl-cl-ppcre)))
10076       (synopsis "Common Lisp macros for generating lexical analyzers")
10077       (description
10078        "This is a Common Lisp library providing a set of macros for generating
10079 lexical analyzers automatically.  The lexers generated using @code{cl-lex} can
10080 be used with @code{cl-yacc}.")
10081       (home-page "https://github.com/djr7C4/cl-lex")
10082       (license license:gpl3))))
10083
10084 (define-public cl-lex
10085   (sbcl-package->cl-source-package sbcl-cl-lex))
10086
10087 (define-public ecl-cl-lex
10088   (sbcl-package->ecl-package sbcl-cl-lex))
10089
10090 (define-public sbcl-clunit2
10091   (let ((commit "5e28343734eb9b7aee39306a614af92c1062d50b")
10092         (revision "1"))
10093     (package
10094       (name "sbcl-clunit2")
10095       (version (git-version "0.2.4" revision commit))
10096       (source
10097        (origin
10098          (method git-fetch)
10099          (uri (git-reference
10100                (url "https://notabug.org/cage/clunit2.git")
10101                (commit commit)))
10102          (file-name (git-file-name name version))
10103          (sha256
10104           (base32 "1ngiapfki6nm8a555mzhb5p7ch79i3w665za5bmb5j7q34fy80vw"))))
10105       (build-system asdf-build-system/sbcl)
10106       (synopsis "Unit testing framework for Common Lisp")
10107       (description
10108        "CLUnit is a Common Lisp unit testing framework.  It is designed to be
10109 easy to use so that you can quickly start testing.")
10110       (home-page "https://notabug.org/cage/clunit2")
10111       (license license:expat))))
10112
10113 (define-public cl-clunit2
10114   (sbcl-package->cl-source-package sbcl-clunit2))
10115
10116 (define-public ecl-clunit2
10117   (sbcl-package->ecl-package sbcl-clunit2))
10118
10119 (define-public sbcl-cl-colors2
10120   (let ((commit "795aedee593b095fecde574bd999b520dd03ed24")
10121         (revision "1"))
10122     (package
10123       (name "sbcl-cl-colors2")
10124       (version (git-version "0.2.1" revision commit))
10125       (source
10126        (origin
10127          (method git-fetch)
10128          (uri (git-reference
10129                (url "https://notabug.org/cage/cl-colors2.git")
10130                (commit commit)))
10131          (file-name (git-file-name name version))
10132          (sha256
10133           (base32 "0hlyf4h5chkjdp9armla5w4kw5acikk159sym7y8c4jbjp9x47ih"))))
10134       (build-system asdf-build-system/sbcl)
10135       (native-inputs
10136        `(("clunit2" ,sbcl-clunit2)))
10137       (inputs
10138        `(("alexandria" ,sbcl-alexandria)
10139          ("cl-ppcre" ,sbcl-cl-ppcre)))
10140       (synopsis "Color library for Common Lisp")
10141       (description
10142        "This is a very simple color library for Common Lisp, providing:
10143
10144 @itemize
10145 @item Types for representing colors in HSV and RGB spaces.
10146 @item Simple conversion functions between the above types (and also
10147 hexadecimal representation for RGB).
10148 @item Some predefined colors (currently X11 color names -- of course
10149 the library does not depend on X11).
10150 @end itemize\n")
10151       (home-page "https://notabug.org/cage/cl-colors2")
10152       (license license:boost1.0))))
10153
10154 (define-public cl-colors2
10155   (sbcl-package->cl-source-package sbcl-cl-colors2))
10156
10157 (define-public ecl-cl-colors2
10158   (sbcl-package->ecl-package sbcl-cl-colors2))
10159
10160 (define-public sbcl-cl-jpeg
10161   (let ((commit "ec557038128df6895fbfb743bfe8faf8ec2534af")
10162         (revision "1"))
10163     (package
10164       (name "sbcl-cl-jpeg")
10165       (version (git-version "2.8" revision commit))
10166       (source
10167        (origin
10168          (method git-fetch)
10169          (uri (git-reference
10170                (url "https://github.com/sharplispers/cl-jpeg.git")
10171                (commit commit)))
10172          (file-name (git-file-name name version))
10173          (sha256
10174           (base32 "1bkkiqz8fqldlj1wbmrccjsvxcwj98h6s4b6gslr3cg2wmdv5xmy"))))
10175       (build-system asdf-build-system/sbcl)
10176       (synopsis "JPEG image library for Common Lisp")
10177       (description
10178        "This is a baseline JPEG codec written in Common Lisp.  It can be used
10179 for reading and writing JPEG image files.")
10180       (home-page "https://github.com/sharplispers/cl-jpeg")
10181       (license license:bsd-3))))
10182
10183 (define-public cl-jpeg
10184   (sbcl-package->cl-source-package sbcl-cl-jpeg))
10185
10186 (define-public ecl-cl-jpeg
10187   (sbcl-package->ecl-package sbcl-cl-jpeg))
10188
10189 (define-public sbcl-nodgui
10190   (let ((commit "bc59ed9b787dfc9e68ae3bd7f7e8507c5c619212")
10191         (revision "1"))
10192     (package
10193       (name "sbcl-nodgui")
10194       (version (git-version "0.0.5" revision commit))
10195       (source
10196        (origin
10197          (method git-fetch)
10198          (uri (git-reference
10199                (url "https://notabug.org/cage/nodgui.git")
10200                (commit commit)))
10201          (file-name (git-file-name name version))
10202          (sha256
10203           (base32 "0xx0dk54d882i598ydnwmy7mnfk0b7vib3ddsgpqxhjck1rwq8l8"))))
10204       (build-system asdf-build-system/sbcl)
10205       (inputs
10206        `(("alexandria" ,sbcl-alexandria)
10207          ("bordeaux-threads" ,sbcl-bordeaux-threads)
10208          ("cl-colors2" ,sbcl-cl-colors2)
10209          ("cl-jpeg" ,sbcl-cl-jpeg)
10210          ("cl-lex" ,sbcl-cl-lex)
10211          ("cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)
10212          ("cl-unicode" ,sbcl-cl-unicode)
10213          ("cl-yacc" ,sbcl-cl-yacc)
10214          ("clunit2" ,sbcl-clunit2)
10215          ("named-readtables" ,sbcl-named-readtables)
10216          ("parse-number" ,sbcl-parse-number)
10217          ("tk" ,tk)))
10218       (arguments
10219        `(#:phases (modify-phases %standard-phases
10220                     (add-after 'unpack 'fix-paths
10221                       (lambda* (#:key inputs #:allow-other-keys)
10222                         (substitute* "src/wish-communication.lisp"
10223                           (("#-freebsd \"wish\"")
10224                            (string-append "#-freebsd \""
10225                                           (assoc-ref inputs "tk")
10226                                           "/bin/wish\"")))
10227                         #t)))))
10228       (synopsis "Common Lisp bindings for the Tk GUI toolkit")
10229       (description
10230        "Nodgui (@emph{No Drama GUI}) is a Common Lisp binding for the Tk GUI
10231 toolkit.  It also provides a few additional widgets more than the standard Tk
10232 ones.")
10233       (home-page "https://www.autistici.org/interzona/nodgui.html")
10234       (license license:llgpl))))
10235
10236 (define-public cl-nodgui
10237   (sbcl-package->cl-source-package sbcl-nodgui))
10238
10239 (define-public ecl-nodgui
10240   (sbcl-package->ecl-package sbcl-nodgui))
10241
10242 (define-public sbcl-salza2
10243   (package
10244     (name "sbcl-salza2")
10245     (version "2.0.9")
10246     (source
10247      (origin
10248        (method git-fetch)
10249        (uri (git-reference
10250              (url "https://github.com/xach/salza2.git")
10251              (commit (string-append "release-" version))))
10252        (file-name (git-file-name name version))
10253        (sha256
10254         (base32 "0p38rj4gq7j5k807php7hrz7l2zyyfshv8i9yms7i8lkgg3433ki"))))
10255     (build-system asdf-build-system/sbcl)
10256     (synopsis "Common Lisp library for zlib, deflate and gzip compression")
10257     (description
10258      "Salza2 is a Common Lisp library for creating compressed data in the zlib,
10259 deflate, or gzip data formats, described in RFC 1950, RFC 1951, and RFC 1952,
10260 respectively.")
10261     (home-page "https://www.xach.com/lisp/salza2/")
10262     (license license:bsd-2)))
10263
10264 (define-public cl-salza2
10265   (sbcl-package->cl-source-package sbcl-salza2))
10266
10267 (define-public ecl-salza2
10268   (sbcl-package->ecl-package sbcl-salza2))
10269
10270 (define-public sbcl-png-read
10271   (let ((commit "ec29f38a689972b9f1373f13bbbcd6b05deada88")
10272         (revision "1"))
10273     (package
10274       (name "sbcl-png-read")
10275       (version (git-version "0.3.1" revision commit))
10276       (source
10277        (origin
10278          (method git-fetch)
10279          (uri (git-reference
10280                (url "https://github.com/Ramarren/png-read.git")
10281                (commit commit)))
10282          (file-name (git-file-name name version))
10283          (sha256
10284           (base32 "0vyczbcwskrygrf1hgrsnk0jil8skmvf1kiaalw5jps4fjrfdkw0"))))
10285       (build-system asdf-build-system/sbcl)
10286       (inputs
10287        `(("babel" ,sbcl-babel)
10288          ("chipz" ,sbcl-chipz)
10289          ("iterate" ,sbcl-iterate)))
10290       (synopsis "PNG decoder for Common Lisp")
10291       (description "This is a Common Lisp library for reading PNG images.")
10292       (home-page "https://github.com/Ramarren/png-read")
10293       (license license:bsd-3))))
10294
10295 (define-public cl-png-read
10296   (sbcl-package->cl-source-package sbcl-png-read))
10297
10298 (define-public ecl-png-read
10299   (sbcl-package->ecl-package sbcl-png-read))
10300
10301 (define-public sbcl-zpng
10302   (package
10303     (name "sbcl-zpng")
10304     (version "1.2.2")
10305     (source
10306      (origin
10307        (method git-fetch)
10308        (uri (git-reference
10309              (url "https://github.com/xach/zpng.git")
10310              (commit (string-append "release-" version))))
10311        (file-name (git-file-name name version))
10312        (sha256
10313         (base32 "0b3ag3jhl3z7kdls3ahdsdxsfhhw5qrizk769984f4wkxhb69rcm"))))
10314     (build-system asdf-build-system/sbcl)
10315     (inputs
10316      `(("salza2" ,sbcl-salza2)))
10317     (synopsis "PNG encoder for Common Lisp")
10318     (description "This is a Common Lisp library for creating PNG images.")
10319     (home-page "https://www.xach.com/lisp/zpng/")
10320     (license license:bsd-2)))
10321
10322 (define-public cl-zpng
10323   (sbcl-package->cl-source-package sbcl-zpng))
10324
10325 (define-public ecl-zpng
10326   (sbcl-package->ecl-package sbcl-zpng))
10327
10328 (define-public sbcl-cl-qrencode
10329   (package
10330     (name "sbcl-cl-qrencode")
10331     (version "0.1.2")
10332     (source
10333      (origin
10334        (method git-fetch)
10335        (uri (git-reference
10336              (url "https://github.com/jnjcc/cl-qrencode.git")
10337              (commit (string-append "v" version))))
10338        (file-name (git-file-name name version))
10339        (sha256
10340         (base32 "1l5k131dchbf6cj8a8xqa731790p01p3qa1kdy2wa9dawy3ymkxr"))))
10341     (build-system asdf-build-system/sbcl)
10342     (native-inputs
10343      `(("lisp-unit" ,sbcl-lisp-unit)))
10344     (inputs
10345      `(("zpng" ,sbcl-zpng)))
10346     (synopsis "QR code encoder for Common Lisp")
10347     (description
10348      "This Common Lisp library provides function to make QR codes and to save
10349 them as PNG files.")
10350     (home-page "https://github.com/jnjcc/cl-qrencode")
10351     (license license:gpl2+)))
10352
10353 (define-public cl-qrencode
10354   (sbcl-package->cl-source-package sbcl-cl-qrencode))
10355
10356 (define-public ecl-cl-qrencode
10357   (sbcl-package->ecl-package sbcl-cl-qrencode))
10358
10359 (define-public sbcl-hdf5-cffi
10360   (let ((commit "5b5c88f191e470e4fe96b462334e3ce0806eed5c")
10361         (revision "1"))
10362     (package
10363       (name "sbcl-hdf5-cffi")
10364       (version (git-version "1.8.18" revision commit))
10365       (source
10366        (origin
10367          (method git-fetch)
10368          (uri (git-reference
10369                (url "https://github.com/hdfgroup/hdf5-cffi.git")
10370                (commit commit)))
10371          (file-name (git-file-name name version))
10372          (sha256
10373           (base32
10374            "0vda3075423xz83qky998lpac5b04dwfv7bwgh9jq8cs5v0zrxjf"))))
10375       (build-system asdf-build-system/sbcl)
10376       (synopsis "Common Lisp bindings for the HDF5 library")
10377       (description
10378        "@code{hdf5-cffi} is a CFFI wrapper for the HDF5 library.")
10379       (home-page "https://github.com/hdfgroup/hdf5-cffi")
10380       (license (license:non-copyleft
10381                 (string-append "https://github.com/HDFGroup/hdf5-cffi/raw/"
10382                                commit
10383                                "/LICENSE")))
10384       (inputs
10385        `(("cffi" ,sbcl-cffi)
10386          ("cffi-grovel" ,sbcl-cffi-grovel)
10387          ("hdf5" ,hdf5-1.10)))
10388       (native-inputs
10389        `(("fiveam" ,sbcl-fiveam)))
10390       (arguments
10391        `(#:asd-system-name "hdf5-cffi"
10392          #:asd-file "hdf5-cffi.asd"
10393          #:test-asd-file "hdf5-cffi.test.asd"
10394          ;; Tests depend on hdf5-cffi.examples.asd in addition to hdf5-cffi.asd,
10395          ;; I don't know if there is a way to tell asdf-build-system to load
10396          ;; an additional system first, so tests are disabled.
10397          #:tests? #f
10398          #:phases
10399          (modify-phases %standard-phases
10400            (add-after 'unpack 'fix-paths
10401              (lambda* (#:key inputs #:allow-other-keys)
10402                (substitute* "src/library.lisp"
10403                  (("libhdf5.so")
10404                   (string-append
10405                    (assoc-ref inputs "hdf5")
10406                    "/lib/libhdf5.so")))))
10407            (add-after 'unpack 'fix-dependencies
10408              (lambda* (#:key inputs #:allow-other-keys)
10409                (substitute* "hdf5-cffi.asd"
10410                  ((":depends-on \\(:cffi\\)")
10411                   ":depends-on (:cffi :cffi-grovel)"))
10412                (substitute* "hdf5-cffi.test.asd"
10413                  ((":depends-on \\(:cffi :hdf5-cffi")
10414                   ":depends-on (:cffi :cffi-grovel :hdf5-cffi"))))))))))
10415
10416 (define-public cl-hdf5-cffi
10417   (sbcl-package->cl-source-package sbcl-hdf5-cffi))
10418
10419 (define-public ecl-hdf5-cffi
10420   (sbcl-package->ecl-package sbcl-hdf5-cffi))
10421
10422 (define-public sbcl-cl-randist
10423   (package
10424     (name "sbcl-cl-randist")
10425     (version "0.4.2")
10426     (source
10427      (origin
10428        (method git-fetch)
10429        (uri (git-reference
10430              (url "https://github.com/lvaruzza/cl-randist.git")
10431              (commit "f088a54b540a7adefab7c04094a6103f9edda3d0")))
10432        (file-name (git-file-name name version))
10433        (sha256
10434         (base32
10435          "0l8hyd6nbxb7f50vyxz3rbbm7kgr1fnadc40jywy4xj5vi5kpj5g"))))
10436     (build-system asdf-build-system/sbcl)
10437     (synopsis "Random distributions for Common Lisp")
10438     (description
10439      "Manual translation from C to Common Lisp of some random number
10440 generation functions from the GSL library.")
10441     (home-page "https://github.com/lvaruzza/cl-randist")
10442     (license license:bsd-2)
10443     (arguments
10444      `(#:asd-system-name "cl-randist"
10445        #:asd-file "cl-randist.asd"
10446        #:tests? #f))))
10447
10448 (define-public cl-randist
10449   (sbcl-package->cl-source-package sbcl-cl-randist))
10450
10451 (define-public ecl-cl-randist
10452   (sbcl-package->ecl-package sbcl-cl-randist))
10453
10454 (define-public sbcl-float-features
10455   (package
10456     (name "sbcl-float-features")
10457     (version "1.0.0")
10458     (source
10459      (origin
10460        (method git-fetch)
10461        (uri (git-reference
10462              (url "https://github.com/Shinmera/float-features.git")
10463              (commit "d3ef60181635b0849aa28cfc238053b7ca4644b0")))
10464        (file-name (git-file-name name version))
10465        (sha256
10466         (base32
10467          "0yj419k7n59x6rh3grwr6frgwwyria2il6f7wxpfazm8cskv4lzr"))))
10468     (build-system asdf-build-system/sbcl)
10469     (synopsis "Common Lisp IEEE float portability library")
10470     (description
10471      "Portability library for IEEE float features that are not
10472 covered by the Common Lisp standard.")
10473     (home-page "https://github.com/Shinmera/float-features")
10474     (license license:zlib)
10475     (inputs
10476      `(("documentation-utils" ,sbcl-documentation-utils)))
10477     (arguments
10478      `(#:asd-system-name "float-features"
10479        #:asd-file "float-features.asd"
10480        #:tests? #f))))
10481
10482 (define-public cl-float-features
10483   (sbcl-package->cl-source-package sbcl-float-features))
10484
10485 (define-public ecl-float-features
10486   (sbcl-package->ecl-package sbcl-float-features))
10487
10488 (define-public sbcl-function-cache
10489   (package
10490     (name "sbcl-function-cache")
10491     (version "1.0.3")
10492     (source
10493      (origin
10494        (method git-fetch)
10495        (uri (git-reference
10496              (url "https://github.com/AccelerationNet/function-cache.git")
10497              (commit "6a5ada401e57da2c8abf046f582029926e61fce8")))
10498        (file-name (git-file-name name version))
10499        (sha256
10500         (base32
10501          "000vmd3f5rx5hs9nvphfric0gkzaadns31c6mxaslpv0k7pkrmc6"))))
10502     (build-system asdf-build-system/sbcl)
10503     (synopsis "Function caching / memoization library for Common Lisp")
10504     (description
10505      "A common lisp library that provides extensible function result
10506 caching based on arguments (an expanded form of memoization).")
10507     (home-page "https://github.com/AccelerationNet/function-cache")
10508     (license
10509      (license:non-copyleft
10510       "https://github.com/AccelerationNet/function-cache/blob/master/README.md"))
10511     (inputs
10512      `(("alexandria" ,sbcl-alexandria)
10513        ("cl-interpol" ,sbcl-cl-interpol)
10514        ("iterate" ,sbcl-iterate)
10515        ("symbol-munger" ,sbcl-symbol-munger)
10516        ("closer-mop" ,sbcl-closer-mop)))
10517     (arguments
10518      `(#:asd-system-name "function-cache"
10519        #:asd-file "function-cache.asd"
10520        #:tests? #f))))
10521
10522 (define-public cl-function-cache
10523   (sbcl-package->cl-source-package sbcl-function-cache))
10524
10525 (define-public ecl-function-cache
10526   (sbcl-package->ecl-package sbcl-function-cache))
10527
10528 (define-public sbcl-type-r
10529   (let ((commit "83c89e38f2f7a7b16f1012777ecaf878cfa6a267")
10530         (revision "1"))
10531     (package
10532       (name "sbcl-type-r")
10533       (version (git-version "0.0.0" revision commit))
10534       (source
10535        (origin
10536          (method git-fetch)
10537          (uri (git-reference
10538                (url "https://github.com/guicho271828/type-r.git")
10539                (commit commit)))
10540          (file-name (git-file-name name version))
10541          (sha256
10542           (base32
10543            "1arsxc2539rg8vbrdirz4xxj1b06mc6g6rqndz7a02g127qvk2sm"))))
10544       (build-system asdf-build-system/sbcl)
10545       (synopsis "Parser interface for Common Lisp built-in compound types")
10546       (description
10547        "Collections of accessor functions and patterns to access
10548 the elements in compound type specifier, e.g. @code{dimensions} in
10549 @code{(array element-type dimensions)}")
10550       (home-page "https://github.com/guicho271828/type-r")
10551       (license license:lgpl3+)
10552       (inputs
10553        `(("trivia" ,sbcl-trivia)
10554          ("alexandria" ,sbcl-alexandria)))
10555       (native-inputs
10556        `(("fiveam" ,sbcl-fiveam)))
10557       (arguments
10558        `(#:asd-system-name "type-r"
10559          #:asd-file "type-r.asd"
10560          #:test-asd-file "type-r.test.asd")))))
10561
10562 (define-public cl-type-r
10563   (sbcl-package->cl-source-package sbcl-type-r))
10564
10565 (define-public sbcl-trivialib-type-unify
10566   (let ((commit "62492ebf04db567dcf435ae84c50b7b8202ecf99")
10567         (revision "1"))
10568     (package
10569       (name "sbcl-trivialib-type-unify")
10570       (version (git-version "0.1" revision commit))
10571       (source
10572        (origin
10573          (method git-fetch)
10574          (uri (git-reference
10575                (url "https://github.com/guicho271828/trivialib.type-unify.git")
10576                (commit commit)))
10577          (file-name (git-file-name name version))
10578          (sha256
10579           (base32
10580            "1bkyfzbwv75p50zp8n1n9rh2r29pw3vgz91gmn2gzzkyq3khj1vh"))))
10581       (build-system asdf-build-system/sbcl)
10582       (synopsis "Common Lisp type unification")
10583       (description
10584        "Unifies a parametrized type specifier against an actual type specifier.
10585 Importantly, it handles complicated array-subtypes and number-related types
10586 correctly.")
10587       (home-page "https://github.com/guicho271828/trivialib.type-unify")
10588       (license license:lgpl3+)
10589       (inputs
10590        `(("alexandria" ,sbcl-alexandria)
10591          ("trivia" ,sbcl-trivia)
10592          ("introspect-environment" ,sbcl-introspect-environment)
10593          ("type-r" ,sbcl-type-r)))
10594       (native-inputs
10595        `(("fiveam" ,sbcl-fiveam)))
10596       (arguments
10597        `(#:asd-system-name "trivialib.type-unify"
10598          #:asd-file "trivialib.type-unify.asd"
10599          #:test-asd-file "trivialib.type-unify.test.asd")))))
10600
10601 (define-public cl-trivialib-type-unify
10602   (sbcl-package->cl-source-package sbcl-trivialib-type-unify))
10603
10604 (define-public sbcl-specialized-function
10605   (let ((commit "b96b6afaf8358bf91cc0703e62a5a4ee20d2b7bc")
10606         (revision "1"))
10607     (package
10608       (name "sbcl-specialized-function")
10609       (version (git-version "0.0.0" revision commit))
10610       (source
10611        (origin
10612          (method git-fetch)
10613          (uri (git-reference
10614                (url "https://github.com/numcl/specialized-function.git")
10615                (commit commit)))
10616          (file-name (git-file-name name version))
10617          (sha256
10618           (base32
10619            "12j45ff0n26578vmfbhb9mfbdchw4wy023k0m2ppgl9s0z4bhjaj"))))
10620       (build-system asdf-build-system/sbcl)
10621       (synopsis "Julia-like dispatch for Common Lisp")
10622       (description
10623        "This library is part of NUMCL.  It provides a macro
10624 @code{SPECIALIZED} that performs a Julia-like dispatch on the arguments,
10625 lazily compiling a type-specific version of the function from the same
10626 code.  The main target of this macro is speed.")
10627       (home-page "https://github.com/numcl/specialized-function")
10628       (license license:lgpl3+)
10629       (inputs
10630        `(("trivia" ,sbcl-trivia)
10631          ("alexandria" ,sbcl-alexandria)
10632          ("iterate" ,sbcl-iterate)
10633          ("lisp-namespace" ,sbcl-lisp-namespace)
10634          ("type-r" ,sbcl-type-r)
10635          ("trivial-cltl2" ,sbcl-trivial-cltl2)))
10636       (native-inputs
10637        `(("fiveam" ,sbcl-fiveam)))
10638       (arguments
10639        `(#:asd-system-name "specialized-function"
10640          #:asd-file "specialized-function.asd"
10641          #:test-asd-file "specialized-function.test.asd")))))
10642
10643 (define-public cl-specialized-function
10644   (sbcl-package->cl-source-package sbcl-specialized-function))
10645
10646 (define-public sbcl-constantfold
10647   (let ((commit "0ff1d97a3fbcb89264f6a2af6ce62b73e7b421f4")
10648         (revision "1"))
10649     (package
10650       (name "sbcl-constantfold")
10651       (version (git-version "0.1" revision commit))
10652       (source
10653        (origin
10654          (method git-fetch)
10655          (uri (git-reference
10656                (url "https://github.com/numcl/constantfold.git")
10657                (commit commit)))
10658          (file-name (git-file-name name version))
10659          (sha256
10660           (base32
10661            "153h0569z6bff1qbad0bdssplwwny75l7ilqwcfqfdvzsxf9jh06"))))
10662       (build-system asdf-build-system/sbcl)
10663       (synopsis "Support library for numcl")
10664       (description
10665        "Support library for numcl.  Registers a function as an
10666 additional form that is considered as a candidate for a constant.")
10667       (home-page "https://github.com/numcl/constantfold")
10668       (license license:lgpl3+)
10669       (inputs
10670        `(("trivia" ,sbcl-trivia)
10671          ("alexandria" ,sbcl-alexandria)
10672          ("iterate" ,sbcl-iterate)
10673          ("lisp-namespace" ,sbcl-lisp-namespace)))
10674       (native-inputs
10675        `(("fiveam" ,sbcl-fiveam)))
10676       (arguments
10677        `(#:asd-system-name "constantfold"
10678          #:asd-file "constantfold.asd"
10679          #:test-asd-file "constantfold.test.asd")))))
10680
10681 (define-public cl-constantfold
10682   (sbcl-package->cl-source-package sbcl-constantfold))
10683
10684 (define-public sbcl-gtype
10685   (let ((commit "42275e3606242ae91e9c8dfa30c18ced50a35b66")
10686         (revision "1"))
10687     (package
10688       (name "sbcl-gtype")
10689       (version (git-version "0.1" revision commit))
10690       (source
10691        (origin
10692          (method git-fetch)
10693          (uri (git-reference
10694                (url "https://github.com/numcl/gtype.git")
10695                (commit commit)))
10696          (file-name (git-file-name name version))
10697          (sha256
10698           (base32
10699            "1f56dba998v945jcxhha391557n6md1ql25b7icfwwfivhmlaa9b"))))
10700       (build-system asdf-build-system/sbcl)
10701       (synopsis "C++/Julia-like parametric types in Common Lisp")
10702       (description
10703        "Support library for numcl that provides Julia-like runtime parametric
10704 type correctness in Common Lisp.  It is based on CLtL2 extensions.")
10705       (home-page "https://github.com/numcl/gtype")
10706       (license license:lgpl3+)
10707       (inputs
10708        `(("trivialib.type-unify" ,sbcl-trivialib-type-unify)
10709          ("trivial-cltl2" ,sbcl-trivial-cltl2)
10710          ("trivia" ,sbcl-trivia)
10711          ("alexandria" ,sbcl-alexandria)
10712          ("iterate" ,sbcl-iterate)
10713          ("type-r" ,sbcl-type-r)))
10714       (native-inputs
10715        `(("fiveam" ,sbcl-fiveam)))
10716       (arguments
10717        `(#:asd-system-name "gtype"
10718          #:asd-file "gtype.asd"
10719          #:test-asd-file "gtype.test.asd")))))
10720
10721 (define-public cl-gtype
10722   (sbcl-package->cl-source-package sbcl-gtype))
10723
10724 (define-public sbcl-numcl
10725   (let ((commit "1cf7dfa59f763a24a501092870e9c5ee745d0c17")
10726         (revision "1"))
10727     (package
10728       (name "sbcl-numcl")
10729       (version (git-version "0.1.0" revision commit))
10730       (source
10731        (origin
10732          (method git-fetch)
10733          (uri (git-reference
10734                (url "https://github.com/numcl/numcl.git")
10735                (commit commit)))
10736          (file-name (git-file-name name version))
10737          (sha256
10738           (base32
10739            "0i3jby9hf4ii7blivgyza80g0vmjfhk8537i5i7kqqk0i5sdnym2"))))
10740       (build-system asdf-build-system/sbcl)
10741       (synopsis "Numpy clone in Common Lisp")
10742       (description
10743        "This is a Numpy clone in Common Lisp.  At the moment the
10744 library is written in pure Common Lisp, focusing more on correctness
10745 and usefulness, not speed.  Track the progress at
10746 @url{https://github.com/numcl/numcl/projects/1}.")
10747       (home-page "https://github.com/numcl/numcl")
10748       (license license:lgpl3+)
10749       (inputs
10750        `(("trivia" ,sbcl-trivia)
10751          ("alexandria" ,sbcl-alexandria)
10752          ("iterate" ,sbcl-iterate)
10753          ("lisp-namespace" ,sbcl-lisp-namespace)
10754          ("type-r" ,sbcl-type-r)
10755          ("constantfold" ,sbcl-constantfold)
10756          ("cl-randist" ,sbcl-cl-randist)
10757          ("float-features" ,sbcl-float-features)
10758          ("function-cache" ,sbcl-function-cache)
10759          ("specialized-function" ,sbcl-specialized-function)
10760          ("gtype" ,sbcl-gtype)))
10761       (native-inputs
10762        `(("fiveam" ,sbcl-fiveam)))
10763       (arguments
10764        `(#:asd-system-name "numcl"
10765          #:asd-file "numcl.asd"
10766          #:test-asd-file "numcl.test.asd")))))
10767
10768 (define-public cl-numcl
10769   (sbcl-package->cl-source-package sbcl-numcl))
10770
10771 (define-public sbcl-pzmq
10772   (let ((commit "7c7390eedc469d033c72dc497984d1536ee75826")
10773         (revision "1"))
10774     (package
10775       (name "sbcl-pzmq")
10776       (version (git-version "0.0.0" revision commit))
10777       (source
10778        (origin
10779          (method git-fetch)
10780          (uri (git-reference
10781                (url "https://github.com/orivej/pzmq.git")
10782                (commit commit)))
10783          (file-name (git-file-name name version))
10784          (sha256
10785           (base32 "0gmwzf7h90wa7v4wnk49g0hv2mdalljpwhyigxcb967wzv8lqci9"))))
10786       (build-system asdf-build-system/sbcl)
10787       (native-inputs
10788        `(("bordeaux-threads" ,sbcl-bordeaux-threads)
10789          ("fiveam" ,sbcl-fiveam)
10790          ("let-plus" ,sbcl-let-plus)))
10791       (inputs
10792        `(("cffi" ,sbcl-cffi)
10793          ("cffi-grovel" ,sbcl-cffi-grovel)
10794          ("zeromq" ,zeromq)))
10795       (arguments
10796        `(#:phases (modify-phases %standard-phases
10797                     (add-after 'unpack 'fix-paths
10798                       (lambda* (#:key inputs #:allow-other-keys)
10799                         (substitute* "c-api.lisp"
10800                           (("\"libzmq")
10801                            (string-append "\""
10802                                           (assoc-ref inputs "zeromq")
10803                                           "/lib/libzmq")))
10804                         #t)))))
10805       (synopsis "Common Lisp bindings for the ZeroMQ library")
10806       (description "This Common Lisp library provides bindings for the ZeroMQ
10807 lightweight messaging kernel.")
10808       (home-page "https://github.com/orivej/pzmq")
10809       (license license:unlicense))))
10810
10811 (define-public cl-pzmq
10812   (sbcl-package->cl-source-package sbcl-pzmq))
10813
10814 (define-public ecl-pzmq
10815   (sbcl-package->ecl-package sbcl-pzmq))
10816
10817 (define-public sbcl-clss
10818   (let ((revision "1")
10819         (commit "2a8e8615ab55870d4ca01928f3ed3bbeb4e75c8d"))
10820     (package
10821       (name "sbcl-clss")
10822       (version (git-version "0.3.1" revision commit))
10823       (source
10824        (origin
10825          (method git-fetch)
10826          (uri
10827           (git-reference
10828            (url "https://github.com/Shinmera/clss.git")
10829            (commit commit)))
10830          (sha256
10831           (base32 "0la4dbcda78x29szanylccrsljqrn9d1mhh569sqkyp44ni5fv91"))
10832          (file-name (git-file-name name version))))
10833       (inputs
10834        `(("array-utils" ,sbcl-array-utils)
10835          ("plump" ,sbcl-plump)))
10836       (build-system asdf-build-system/sbcl)
10837       (synopsis "DOM tree searching engine based on CSS selectors")
10838       (description "CLSS is a DOM traversal engine based on CSS
10839 selectors.  It makes use of the Plump-DOM and is used by lQuery.")
10840       (home-page "https://github.com/Shinmera/clss")
10841       (license license:zlib))))
10842
10843 (define-public cl-clss
10844   (sbcl-package->cl-source-package sbcl-clss))
10845
10846 (define-public ecl-clss
10847   (sbcl-package->ecl-package sbcl-clss))
10848
10849 (define-public sbcl-lquery
10850   (let ((revision "1")
10851         (commit "8048111c6b83956daa632e7a3ffbd8c9c203bd8d"))
10852     (package
10853       (name "sbcl-lquery")
10854       (version (git-version "3.2.1" revision commit))
10855       (source
10856        (origin
10857          (method git-fetch)
10858          (uri
10859           (git-reference
10860            (url "https://github.com/Shinmera/lquery.git")
10861            (commit commit)))
10862          (sha256
10863           (base32 "0520mcpxc2d6fdm8z61arpgd2z38kan7cf06qs373n5r64rakz6w"))
10864          (file-name (git-file-name name version))))
10865       (native-inputs
10866        `(("fiveam" ,sbcl-fiveam)))
10867       (inputs
10868        `(("array-utils" ,sbcl-array-utils)
10869          ("form-fiddle" ,sbcl-form-fiddle)
10870          ("plump" ,sbcl-plump)
10871          ("clss" ,sbcl-clss)))
10872       (build-system asdf-build-system/sbcl)
10873       (synopsis "Library to allow jQuery-like HTML/DOM manipulation")
10874       (description "@code{lQuery} is a DOM manipulation library written in
10875 Common Lisp, inspired by and based on the jQuery syntax and
10876 functions.  It uses Plump and CLSS as DOM and selector engines.  The
10877 main idea behind lQuery is to provide a simple interface for crawling
10878 and modifying HTML sites, as well as to allow for an alternative
10879 approach to templating.")
10880       (home-page "https://github.com/Shinmera/lquery")
10881       (license license:zlib))))
10882
10883 (define-public cl-lquery
10884   (sbcl-package->cl-source-package sbcl-lquery))
10885
10886 (define-public ecl-lquery
10887   (sbcl-package->ecl-package sbcl-lquery))
10888
10889 (define-public sbcl-cl-mysql
10890   (let ((commit "ab56c279c1815aec6ca0bfe85164ff7e85cfb6f9")
10891         (revision "1"))
10892     (package
10893       (name "sbcl-cl-mysql")
10894       (version (git-version "0.1" revision commit))
10895       (source
10896        (origin
10897          (method git-fetch)
10898          (uri (git-reference
10899                (url "https://github.com/hackinghat/cl-mysql.git")
10900                (commit commit)))
10901          (file-name (git-file-name name version))
10902          (sha256
10903           (base32 "0dg5ynx2ww94d0qfwrdrm7plkn43h64hs4iiq9mj2s1s4ixnp3lr"))))
10904       (build-system asdf-build-system/sbcl)
10905       (native-inputs
10906        `(("stefil" ,sbcl-stefil)))
10907       (inputs
10908        `(("cffi" ,sbcl-cffi)
10909          ("mariadb-lib" ,mariadb "lib")))
10910       (arguments
10911        `(#:tests? #f ; TODO: Tests require a running server
10912          #:phases
10913          (modify-phases %standard-phases
10914            (add-after 'unpack 'fix-paths
10915              (lambda* (#:key inputs #:allow-other-keys)
10916                (substitute* "system.lisp"
10917                  (("libmysqlclient_r" all)
10918                   (string-append (assoc-ref inputs "mariadb-lib")
10919                                  "/lib/"
10920                                  all)))
10921                #t)))))
10922       (synopsis "Common Lisp wrapper for MySQL")
10923       (description
10924        "@code{cl-mysql} is a Common Lisp implementation of a MySQL wrapper.")
10925       (home-page "http://www.hackinghat.com/index.php/cl-mysql")
10926       (license license:expat))))
10927
10928 (define-public cl-mysql
10929   (sbcl-package->cl-source-package sbcl-cl-mysql))
10930
10931 (define-public sbcl-simple-date
10932   (let ((commit "74469b25bbda990ec9b77e0d0eccdba0cd7e721a")
10933         (revision "1"))
10934     (package
10935       (name "sbcl-simple-date")
10936       (version (git-version "1.19" revision commit))
10937       (source
10938        (origin
10939          (method git-fetch)
10940          (uri (git-reference
10941                (url "https://github.com/marijnh/Postmodern.git")
10942                (commit commit)))
10943          (file-name (git-file-name name version))
10944          (sha256
10945           (base32 "0im7ymnyxjhn2w74jfg76k5gpr0gl33n31akx33hl28722ljd0hd"))))
10946       (build-system asdf-build-system/sbcl)
10947       (native-inputs
10948        `(("fiveam" ,sbcl-fiveam)))
10949       (synopsis "Basic date and time objects for Common Lisp")
10950       (description
10951        "@code{simple-date} is a very basic implementation of date and time
10952 objects, used to support storing and retrieving time-related SQL types.")
10953       (home-page "https://marijnhaverbeke.nl/postmodern/")
10954       (license license:zlib))))
10955
10956 (define-public cl-simple-date
10957   (sbcl-package->cl-source-package sbcl-simple-date))
10958
10959 (define-public ecl-simple-date
10960   (sbcl-package->ecl-package sbcl-simple-date))
10961
10962 (define-public sbcl-cl-postgres
10963   (package
10964     (inherit sbcl-simple-date)
10965     (name "sbcl-cl-postgres")
10966     (native-inputs
10967      `(("fiveam" ,sbcl-fiveam)
10968        ("simple-date" ,sbcl-simple-date)))
10969     (inputs
10970      `(("md5" ,sbcl-md5)
10971        ("split-sequence" ,sbcl-split-sequence)
10972        ("usocket" ,sbcl-usocket)))
10973     (arguments
10974      `(#:tests? #f)) ; TODO: Break simple-date/postgres-glue circular dependency
10975     (synopsis "Common Lisp interface for PostgreSQL")
10976     (description
10977      "@code{cl-postgres} is a low-level library used for interfacing with
10978 a PostgreSQL server over a socket.")))
10979
10980 (define-public cl-postgres
10981   (sbcl-package->cl-source-package sbcl-cl-postgres))
10982
10983 (define-public sbcl-simple-date-postgres-glue
10984   (package
10985     (inherit sbcl-simple-date)
10986     (name "sbcl-simple-date-postgres-glue")
10987     (inputs
10988      `(("cl-postgres" ,sbcl-cl-postgres)
10989        ("simple-date" ,sbcl-simple-date)))
10990     (arguments
10991      `(#:asd-file "simple-date.asd"
10992        #:asd-system-name "simple-date/postgres-glue"))))
10993
10994 (define-public cl-simple-date-postgres-glue
10995   (sbcl-package->cl-source-package sbcl-simple-date-postgres-glue))
10996
10997 (define-public sbcl-s-sql
10998   (package
10999     (inherit sbcl-simple-date)
11000     (name "sbcl-s-sql")
11001     (inputs
11002      `(("alexandria" ,sbcl-alexandria)
11003        ("cl-postgres" ,sbcl-cl-postgres)))
11004     (arguments
11005      `(#:tests? #f)) ; TODO: Break postmodern circular dependency
11006     (synopsis "Lispy DSL for SQL")
11007     (description
11008      "@code{s-sql} is a Common Lisp library that can be used to compile
11009 s-expressions to strings of SQL code, escaping any Lisp values inside, and
11010 doing as much as possible of the work at compile time.")))
11011
11012 (define-public cl-s-sql
11013   (sbcl-package->cl-source-package sbcl-s-sql))
11014
11015 (define-public sbcl-postmodern
11016   (package
11017     (inherit sbcl-simple-date)
11018     (name "sbcl-postmodern")
11019     (native-inputs
11020      `(("fiveam" ,sbcl-fiveam)
11021        ("simple-date" ,sbcl-simple-date)
11022        ("simple-date-postgres-glue" ,sbcl-simple-date-postgres-glue)))
11023     (inputs
11024      `(("alexandria" ,sbcl-alexandria)
11025        ("bordeaux-threads" ,sbcl-bordeaux-threads)
11026        ("cl-postgres" ,sbcl-cl-postgres)
11027        ("closer-mop" ,sbcl-closer-mop)
11028        ("global-vars" ,sbcl-global-vars)
11029        ("s-sql" ,sbcl-s-sql)
11030        ("split-sequence" ,sbcl-split-sequence)))
11031     (arguments
11032      ;; TODO: Fix missing dependency errors for simple-date/postgres-glue,
11033      ;; cl-postgres/tests and s-sql/tests.
11034      `(#:tests? #f))
11035     (synopsis "Common Lisp library for interacting with PostgreSQL")
11036     (description
11037      "@code{postmodern} is a Common Lisp library for interacting with
11038 PostgreSQL databases.  It provides the following features:
11039
11040 @itemize
11041 @item Efficient communication with the database server without need for
11042 foreign libraries.
11043 @item Support for UTF-8 on Unicode-aware Lisp implementations.
11044 @item A syntax for mixing SQL and Lisp code.
11045 @item Convenient support for prepared statements and stored procedures.
11046 @item A metaclass for simple database-access objects.
11047 @end itemize\n")))
11048
11049 (define-public cl-postmodern
11050   (sbcl-package->cl-source-package sbcl-postmodern))
11051
11052 (define-public sbcl-dbi
11053   (package
11054     (name "sbcl-dbi")
11055     (version "0.9.4")
11056     (source
11057      (origin
11058        (method git-fetch)
11059        (uri (git-reference
11060              (url "https://github.com/fukamachi/cl-dbi.git")
11061              (commit version)))
11062        (file-name (git-file-name name version))
11063        (sha256
11064         (base32 "0m1fsravfaizamdak84adh3jxc4j91maqnrb4m08bfbmb04cdqhs"))))
11065     (build-system asdf-build-system/sbcl)
11066     (inputs
11067      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
11068        ("closer-mop" ,sbcl-closer-mop)
11069        ("split-sequence" ,sbcl-split-sequence)))
11070     (arguments
11071      `(#:tests? #f)) ; TODO: Break circular dependency with dbd-*
11072     (synopsis "Database independent interface for Common Lisp")
11073     (description
11074      "@code{dbi} is a Common Lisp library providing a database independent
11075 interface for MySQL, PostgreSQL and SQLite.")
11076     (home-page "https://github.com/fukamachi/cl-dbi")
11077     (license license:llgpl)))
11078
11079 (define-public cl-dbi
11080   (sbcl-package->cl-source-package sbcl-dbi))
11081
11082 (define-public sbcl-dbd-mysql
11083   (package
11084    (inherit sbcl-dbi)
11085    (name "sbcl-dbd-mysql")
11086    (inputs
11087     `(("cl-mysql" ,sbcl-cl-mysql)
11088       ("dbi" ,sbcl-dbi)))
11089    (synopsis "Database driver for MySQL")))
11090
11091 (define-public cl-dbd-mysql
11092   (sbcl-package->cl-source-package sbcl-dbd-mysql))
11093
11094 (define-public sbcl-dbd-postgres
11095   (package
11096    (inherit sbcl-dbi)
11097    (name "sbcl-dbd-postgres")
11098    (inputs
11099     `(("cl-postgres" ,sbcl-cl-postgres)
11100       ("dbi" ,sbcl-dbi)
11101       ("trivial-garbage" ,sbcl-trivial-garbage)))
11102    (synopsis "Database driver for PostgreSQL")))
11103
11104 (define-public cl-dbd-postgres
11105   (sbcl-package->cl-source-package sbcl-dbd-postgres))
11106
11107 (define-public sbcl-dbd-sqlite3
11108   (package
11109    (inherit sbcl-dbi)
11110    (name "sbcl-dbd-sqlite3")
11111    (inputs
11112     `(("cl-sqlite" ,sbcl-cl-sqlite)
11113       ("dbi" ,sbcl-dbi)
11114       ("trivial-garbage" ,sbcl-trivial-garbage)))
11115    (synopsis "Database driver for SQLite3")))
11116
11117 (define-public cl-dbd-sqlite3
11118   (sbcl-package->cl-source-package sbcl-dbd-sqlite3))
11119
11120 (define-public sbcl-uffi
11121   (package
11122     (name "sbcl-uffi")
11123     (version "2.1.2")
11124     (source
11125      (origin
11126        (method git-fetch)
11127        (uri (git-reference
11128              (url "http://git.kpe.io/uffi.git")
11129              (commit (string-append "v" version))))
11130        (file-name (git-file-name name version))
11131        (sha256
11132         (base32 "1hqszvz0a3wk4s9faa83sc3vjxcb5rxmjclyr17yzwg55z733kry"))))
11133     (build-system asdf-build-system/sbcl)
11134     (arguments
11135      `(#:tests? #f ; TODO: Fix use of deprecated ASDF functions
11136        #:phases
11137        (modify-phases %standard-phases
11138          (add-after 'unpack 'fix-permissions
11139            (lambda _
11140              (make-file-writable "doc/html.tar.gz")
11141              #t)))))
11142     (synopsis "Universal foreign function library for Common Lisp")
11143     (description
11144      "UFFI provides a universal foreign function interface (FFI)
11145  for Common Lisp.")
11146     (home-page "http://quickdocs.org/uffi/")
11147     (license license:llgpl)))
11148
11149 (define-public cl-uffi
11150   (package
11151     (inherit (sbcl-package->cl-source-package sbcl-uffi))
11152     (arguments
11153      `(#:phases
11154        ;; asdf-build-system/source has its own phases and does not inherit
11155        ;; from asdf-build-system/sbcl phases.
11156        (modify-phases %standard-phases/source
11157          (add-after 'unpack 'fix-permissions
11158            (lambda _
11159              (make-file-writable "doc/html.tar.gz")
11160              #t)))))))
11161
11162 (define-public sbcl-clsql
11163   (package
11164     (name "sbcl-clsql")
11165     (version "6.7.0")
11166     (source
11167      (origin
11168        (method git-fetch)
11169        (uri (git-reference
11170              (url "http://git.kpe.io/clsql.git")
11171              (commit (string-append "v" version))))
11172        (file-name (git-file-name name version))
11173        (sha256
11174         (base32 "1v1k3s5bsy3lgd9gk459bzpb1r0kdjda25s29samxw4gsgf1fqvp"))
11175        (snippet
11176         '(begin
11177            ;; Remove precompiled libraries.
11178            (delete-file "db-mysql/clsql_mysql.dll")
11179            (delete-file "uffi/clsql_uffi.dll")
11180            (delete-file "uffi/clsql_uffi.lib")
11181            #t))))
11182     (build-system asdf-build-system/sbcl)
11183     (native-inputs
11184      `(("cffi-uffi-compat" ,sbcl-cffi-uffi-compat)
11185        ("rt" ,sbcl-rt)
11186        ("uffi" ,sbcl-uffi)))
11187     (arguments
11188      `(#:phases
11189        (modify-phases %standard-phases
11190          (add-after 'unpack 'fix-permissions
11191            (lambda _
11192              (make-file-writable "doc/html.tar.gz")
11193              #t))
11194          (add-after 'unpack 'fix-tests
11195            (lambda _
11196              (substitute* "clsql.asd"
11197                (("clsql-tests :force t")
11198                 "clsql-tests"))
11199              #t)))))
11200     (synopsis "Common Lisp SQL Interface library")
11201     (description
11202      "@code{clsql} is a Common Lisp interface to SQL RDBMS based on the
11203 Xanalys CommonSQL interface for Lispworks.  It provides low-level database
11204 interfaces as well as a functional and an object oriented interface.")
11205     (home-page "http://clsql.kpe.io/")
11206     (license license:llgpl)))
11207
11208 (define-public cl-clsql
11209   (package
11210     (inherit (sbcl-package->cl-source-package sbcl-clsql))
11211     (native-inputs
11212      `(("rt" ,cl-rt)))
11213     (inputs
11214      `(("mysql" ,mysql)
11215        ("postgresql" ,postgresql)
11216        ("sqlite" ,sqlite)
11217        ("zlib" ,zlib)))
11218     (propagated-inputs
11219      `(("cl-postgres" ,cl-postgres)
11220        ("cffi-uffi-compat" ,cl-cffi-uffi-compat)
11221        ("md5" ,cl-md5)
11222        ("uffi" ,cl-uffi)))
11223     (arguments
11224      `(#:phases
11225        ;; asdf-build-system/source has its own phases and does not inherit
11226        ;; from asdf-build-system/sbcl phases.
11227        (modify-phases %standard-phases/source
11228          (add-after 'unpack 'fix-permissions
11229            (lambda _
11230              (make-file-writable "doc/html.tar.gz")
11231              #t)))))))
11232
11233 (define-public sbcl-clsql-uffi
11234   (package
11235     (inherit sbcl-clsql)
11236     (name "sbcl-clsql-uffi")
11237     (inputs
11238      `(("cffi-uffi-compat" ,sbcl-cffi-uffi-compat)
11239        ("clsql" ,sbcl-clsql)
11240        ("uffi" ,sbcl-uffi)))
11241     (synopsis "UFFI helper functions for Common Lisp SQL interface library")))
11242
11243 (define-public sbcl-clsql-sqlite3
11244   (package
11245     (inherit sbcl-clsql)
11246     (name "sbcl-clsql-sqlite3")
11247     (inputs
11248      `(("clsql" ,sbcl-clsql)
11249        ("clsql-uffi" ,sbcl-clsql-uffi)
11250        ("sqlite" ,sqlite)))
11251     (arguments
11252      (substitute-keyword-arguments (package-arguments sbcl-clsql)
11253        ((#:phases phases '%standard-phases)
11254         `(modify-phases ,phases
11255            (add-after 'unpack 'fix-paths
11256              (lambda* (#:key inputs #:allow-other-keys)
11257                (substitute* "db-sqlite3/sqlite3-loader.lisp"
11258                  (("libsqlite3")
11259                   (string-append (assoc-ref inputs "sqlite")
11260                                  "/lib/libsqlite3")))
11261                #t))))))
11262     (synopsis "SQLite3 driver for Common Lisp SQL interface library")))
11263
11264 (define-public sbcl-clsql-postgresql
11265   (package
11266     (inherit sbcl-clsql)
11267     (name "sbcl-clsql-postgresql")
11268     (inputs
11269      `(("clsql" ,sbcl-clsql)
11270        ("clsql-uffi" ,sbcl-clsql-uffi)
11271        ("postgresql" ,postgresql)))
11272     (arguments
11273      (substitute-keyword-arguments (package-arguments sbcl-clsql)
11274        ((#:phases phases '%standard-phases)
11275         `(modify-phases ,phases
11276            (add-after 'unpack 'fix-paths
11277              (lambda* (#:key inputs #:allow-other-keys)
11278                (substitute* "db-postgresql/postgresql-loader.lisp"
11279                  (("libpq")
11280                   (string-append (assoc-ref inputs "postgresql")
11281                                  "/lib/libpq")))
11282                #t))))))
11283     (synopsis "PostgreSQL driver for Common Lisp SQL interface library")))
11284
11285 (define-public sbcl-clsql-postgresql-socket3
11286   (package
11287     (inherit sbcl-clsql)
11288     (name "sbcl-clsql-postgresql-socket3")
11289     (inputs
11290      `(("cl-postgres" ,sbcl-cl-postgres)
11291        ("clsql" ,sbcl-clsql)
11292        ("md5" ,sbcl-md5)))
11293     (arguments
11294      (substitute-keyword-arguments (package-arguments sbcl-clsql)
11295        ((#:phases phases '%standard-phases)
11296         `(modify-phases ,phases
11297            (add-after 'create-asd-file 'fix-asd-file
11298              (lambda* (#:key outputs #:allow-other-keys)
11299                (let* ((out (assoc-ref outputs "out"))
11300                       (lib (string-append out "/lib/" (%lisp-type)))
11301                       (asd (string-append lib "/clsql-postgresql-socket3.asd")))
11302                  (substitute* asd
11303                    (("CLSQL-POSTGRESQL-SOCKET-SYSTEM::")
11304                     "")))
11305                #t))))))
11306     (synopsis "PostgreSQL driver for Common Lisp SQL interface library")))
11307
11308 (define-public sbcl-clsql-mysql
11309   (package
11310     (inherit sbcl-clsql)
11311     (name "sbcl-clsql-mysql")
11312     (inputs
11313      `(("mysql" ,mysql)
11314        ("sbcl-clsql" ,sbcl-clsql)
11315        ("sbcl-clsql-uffi" ,sbcl-clsql-uffi)
11316        ("zlib" ,zlib)))
11317     (arguments
11318      (substitute-keyword-arguments (package-arguments sbcl-clsql)
11319        ((#:phases phases '%standard-phases)
11320         `(modify-phases ,phases
11321            (add-after 'unpack 'fix-paths
11322              (lambda* (#:key inputs outputs #:allow-other-keys)
11323                (let ((lib (string-append "#p\""
11324                                          (assoc-ref outputs "out")
11325                                          "/lib/\"")))
11326                  (substitute* "clsql-mysql.asd"
11327                    (("#p\"/usr/lib/clsql/clsql_mysql\\.so\"")
11328                     lib))
11329                  (substitute* "db-mysql/mysql-loader.lisp"
11330                    (("libmysqlclient" all)
11331                     (string-append (assoc-ref inputs "mysql") "/lib/" all))
11332                    (("clsql-mysql-system::\\*library-file-dir\\*")
11333                     lib)))
11334                #t))
11335            (add-before 'build 'build-helper-library
11336              (lambda* (#:key inputs outputs #:allow-other-keys)
11337                (let* ((mysql (assoc-ref inputs "mysql"))
11338                       (inc-dir (string-append mysql "/include/mysql"))
11339                       (lib-dir (string-append mysql "/lib"))
11340                       (shared-lib-dir (string-append (assoc-ref outputs "out")
11341                                                      "/lib"))
11342                       (shared-lib (string-append shared-lib-dir
11343                                                  "/clsql_mysql.so")))
11344                  (mkdir-p shared-lib-dir)
11345                  (invoke "gcc" "-fPIC" "-shared"
11346                          "-I" inc-dir
11347                          "db-mysql/clsql_mysql.c"
11348                          "-Wl,-soname=clsql_mysql"
11349                          "-L" lib-dir "-lmysqlclient" "-lz"
11350                          "-o" shared-lib)
11351                  #t)))))))
11352     (synopsis "MySQL driver for Common Lisp SQL interface library")))
11353
11354 (define-public sbcl-sycamore
11355   (let ((commit "fd2820fec165ad514493426dea209728f64e6d18"))
11356     (package
11357       (name "sbcl-sycamore")
11358       (version "0.0.20120604")
11359       (source
11360        (origin
11361          (method git-fetch)
11362          (uri (git-reference
11363                (url "https://github.com/ndantam/sycamore/")
11364                (commit commit)))
11365          (file-name (git-file-name name version))
11366          (sha256
11367           (base32 "00bv1aj89q5vldmq92zp2364jq312zjq2mbd3iyz1s2b4widzhl7"))))
11368       (build-system asdf-build-system/sbcl)
11369       (arguments
11370        `(#:asd-file "src/sycamore.asd"))
11371       (inputs
11372        `(("alexandria" ,sbcl-alexandria)
11373          ("cl-ppcre" ,sbcl-cl-ppcre)))
11374       (synopsis "Purely functional data structure library in Common Lisp")
11375       (description
11376        "Sycamore is a fast, purely functional data structure library in Common Lisp.
11377 If features:
11378
11379 @itemize
11380 @item Fast, purely functional weight-balanced binary trees.
11381 @item Leaf nodes are simple-vectors, greatly reducing tree height.
11382 @item Interfaces for tree Sets and Maps (dictionaries).
11383 @item Ropes.
11384 @item Purely functional pairing heaps.
11385 @item Purely functional amortized queue.
11386 @end itemize\n")
11387       (home-page "http://ndantam.github.io/sycamore/")
11388       (license license:bsd-3))))
11389
11390 (define-public cl-sycamore
11391   (sbcl-package->cl-source-package sbcl-sycamore))
11392
11393 (define-public sbcl-trivial-package-local-nicknames
11394   (package
11395     (name "sbcl-trivial-package-local-nicknames")
11396     (version "0.2")
11397     (home-page "https://github.com/phoe/trivial-package-local-nicknames")
11398     (source
11399      (origin
11400        (method git-fetch)
11401        (uri (git-reference
11402              (url home-page)
11403              (commit "16b7ad4c2b120f50da65154191f468ea5598460e")))
11404        (file-name (git-file-name name version))
11405        (sha256
11406         (base32 "18qc27xkjzdcqrilpk3pm7djldwq5rm3ggd5h9cr8hqcd54i2fqg"))))
11407     (build-system asdf-build-system/sbcl)
11408     (synopsis "Common Lisp compatibility library for package local nicknames")
11409     (description
11410      "This library is a portable compatibility layer around package local nicknames (PLN).
11411 This was done so there is a portability library for the PLN API not included
11412 in DEFPACKAGE.")
11413     (license license:unlicense)))
11414
11415 (define-public cl-trivial-package-local-nicknames
11416   (sbcl-package->cl-source-package sbcl-trivial-package-local-nicknames))
11417
11418 (define-public sbcl-enchant
11419   (let ((commit "6af162a7bf10541cbcfcfa6513894900329713fa"))
11420     (package
11421       (name "sbcl-enchant")
11422       (version (git-version "0.0.0" "1" commit))
11423       (home-page "https://github.com/tlikonen/cl-enchant")
11424       (source
11425        (origin
11426          (method git-fetch)
11427          (uri (git-reference
11428                (url home-page)
11429                (commit commit)))
11430          (file-name (git-file-name name version))
11431          (sha256
11432           (base32 "19yh5ihirzi1d8xqy1cjqipzd6ly3245cfxa5s9xx496rryz0s01"))))
11433       (build-system asdf-build-system/sbcl)
11434       (inputs
11435        `(("enchant" ,enchant)
11436          ("cffi" ,sbcl-cffi)))
11437       (arguments
11438        `(#:phases
11439          (modify-phases %standard-phases
11440            (add-after 'unpack 'fix-paths
11441              (lambda* (#:key inputs #:allow-other-keys)
11442                (substitute* "load-enchant.lisp"
11443                  (("libenchant")
11444                   (string-append
11445                    (assoc-ref inputs "enchant") "/lib/libenchant-2"))))))))
11446       (synopsis "Common Lisp interface for the Enchant spell-checker library")
11447       (description
11448        "Enchant is a Common Lisp interface for the Enchant spell-checker
11449 library.  The Enchant library is a generic spell-checker library which uses
11450 other spell-checkers transparently as back-end.  The library supports the
11451 multiple checkers, including Aspell and Hunspell.")
11452       (license license:public-domain))))
11453
11454 (define-public cl-enchant
11455   (sbcl-package->cl-source-package sbcl-enchant))
11456
11457 (define-public sbcl-cl-change-case
11458   (let ((commit "5ceff2a5f8bd845b6cb510c6364176b27a238fd3"))
11459     (package
11460       (name "sbcl-cl-change-case")
11461       (version (git-version "0.1.0" "1" commit))
11462       (home-page "https://github.com/rudolfochrist/cl-change-case")
11463       (source
11464        (origin
11465          (method git-fetch)
11466          (uri (git-reference
11467                (url home-page)
11468                (commit commit)))
11469          (file-name (git-file-name name version))
11470          (sha256
11471           (base32 "1afyglglk9z3yg8gylcl301bl2r8vq3sllyznzj9s5xi5gs6qyf2"))))
11472       (build-system asdf-build-system/sbcl)
11473       (inputs
11474        `(("cl-ppcre" ,sbcl-cl-ppcre)
11475          ("cl-ppcre-unicode" ,sbcl-cl-ppcre-unicode)))
11476       (native-inputs
11477        `(("fiveam" ,sbcl-fiveam)))
11478       (arguments
11479        '(;; FIXME: Test pass but phase fails with 'Component
11480          ;; "cl-change-case-test" not found, required by'.
11481          #:tests? #f
11482          #:test-asd-file "cl-change-case-test.asd"))
11483       (synopsis "Convert Common Lisp strings between camelCase, PascalCase and more")
11484       (description
11485        "@code{cl-change-case} is library to convert strings between camelCase,
11486 PascalCase, snake_case, param-case, CONSTANT_CASE and more.")
11487       (license license:llgpl))))
11488
11489 (define-public cl-change-case
11490   (sbcl-package->cl-source-package sbcl-cl-change-case))
11491
11492 (define-public sbcl-moptilities
11493   (let ((commit "a436f16b357c96b82397ec018ea469574c10dd41"))
11494     (package
11495       (name "sbcl-moptilities")
11496       (version (git-version "0.3.13" "1" commit))
11497       (home-page "https://github.com/gwkkwg/moptilities/")
11498       (source
11499        (origin
11500          (method git-fetch)
11501          (uri (git-reference
11502                (url home-page)
11503                (commit commit)))
11504          (file-name (git-file-name name version))
11505          (sha256
11506           (base32 "1q12bqjbj47lx98yim1kfnnhgfhkl80102fkgp9pdqxg0fp6g5fc"))))
11507       (build-system asdf-build-system/sbcl)
11508       (inputs
11509        `(("closer-mop" ,sbcl-closer-mop)))
11510       (native-inputs
11511        `(("lift" ,sbcl-lift)))
11512       (synopsis "Compatibility layer for Common Lisp MOP implementation differences")
11513       (description
11514        "MOP utilities provide a common interface between Lisps and make the
11515 MOP easier to use.")
11516       (license license:expat))))
11517
11518 (define-public cl-moptilities
11519   (sbcl-package->cl-source-package sbcl-moptilities))
11520
11521 (define-public sbcl-osicat
11522   (let ((commit "de0c18a367eedc857e1902a7319828af072a0d97"))
11523     (package
11524       (name "sbcl-osicat")
11525       (version (git-version "0.7.0" "1" commit))
11526       (home-page "http://www.common-lisp.net/project/osicat/")
11527       (source
11528        (origin
11529          (method git-fetch)
11530          (uri (git-reference
11531                (url "https://github.com/osicat/osicat")
11532                (commit commit)))
11533          (file-name (git-file-name name version))
11534          (sha256
11535           (base32 "15viw5pi5sa7qq9b4n2rr3dj2jkqr180rh9z1lh8w3rgl42i2adc"))))
11536       (build-system asdf-build-system/sbcl)
11537       (arguments
11538        `(#:phases
11539          (modify-phases %standard-phases
11540            ;; The cleanup phase moves files around but we need to keep the
11541            ;; directory structure for the grovel-generated library.
11542            (replace 'cleanup
11543              (lambda* (#:key outputs #:allow-other-keys)
11544                (let* ((out (assoc-ref outputs "out"))
11545                       (lib (string-append out "/lib/sbcl/")))
11546                  (delete-file-recursively (string-append lib "src"))
11547                  (delete-file-recursively (string-append lib "tests"))
11548                  (for-each delete-file
11549                            (filter (lambda (file)
11550                                      (not (member (basename file) '("libosicat.so"))))
11551                                    (find-files (string-append lib "posix") ".*"))))
11552                #t)))))
11553       (inputs
11554        `(("alexandria" ,sbcl-alexandria)
11555          ("cffi" ,sbcl-cffi)
11556          ("trivial-features" ,sbcl-trivial-features)))
11557       (native-inputs
11558        `(("cffi-grovel" ,sbcl-cffi-grovel)
11559          ("rt" ,sbcl-rt)))
11560       (synopsis "Operating system interface for Common Lisp")
11561       (description
11562        "Osicat is a lightweight operating system interface for Common Lisp on
11563 Unix-platforms.  It is not a POSIX-style API, but rather a simple lispy
11564 accompaniment to the standard ANSI facilities.")
11565       (license license:expat))))
11566
11567 (define-public cl-osicat
11568   (sbcl-package->cl-source-package sbcl-osicat))
11569
11570 (define-public sbcl-clx-xembed
11571   (let ((commit "a5c4b844d31ee68ffa58c933cc1cdddde6990743")
11572         (revision "1"))
11573     (package
11574       (name "sbcl-clx-xembed")
11575       (version (git-version "0.1" revision commit))
11576       (home-page "https://github.com/laynor/clx-xembed")
11577       (source
11578        (origin
11579          (method git-fetch)
11580          (uri (git-reference
11581                (url "https://github.com/laynor/clx-xembed.git")
11582                (commit commit)))
11583          (file-name (git-file-name name version))
11584          (sha256
11585           (base32 "1abx4v36ycmfjdwpjk4hh8058ya8whwia7ds9vd96q2qsrs57f12"))))
11586       (build-system asdf-build-system/sbcl)
11587       (arguments
11588        `(#:asd-system-name "xembed"))
11589       (inputs
11590        `(("sbcl-clx" ,sbcl-clx)))
11591       (synopsis "CL(x) xembed protocol implementation ")
11592       (description "CL(x) xembed protocol implementation")
11593       ;; MIT License
11594       (license license:expat))))
11595
11596 (define-public cl-clx-xembed
11597   (sbcl-package->cl-source-package sbcl-clx-xembed))
11598
11599 (define-public ecl-clx-xembed
11600   (sbcl-package->ecl-package sbcl-clx-xembed))
11601
11602 (define-public sbcl-quantile-estimator
11603   (package
11604     (name "sbcl-quantile-estimator")
11605     (version "0.0.1")
11606     (source
11607      (origin
11608        (method git-fetch)
11609        (uri (git-reference
11610              (url "https://github.com/deadtrickster/quantile-estimator.cl")
11611              (commit "84d0ea405d793f5e808c68c4ddaf25417b0ff8e5")))
11612        (file-name (git-file-name name version))
11613        (sha256
11614         (base32
11615          "0rlswkf0siaabsvvch3dgxmg45fw5w8pd9b7ri2w7a298aya52z9"))))
11616     (build-system asdf-build-system/sbcl)
11617     (arguments
11618      '(#:asd-system-name "quantile-estimator"))
11619     (inputs
11620      `(("alexandria" ,sbcl-alexandria)))
11621     (home-page "https://github.com/deadtrickster/quantile-estimator.cl")
11622     (synopsis
11623      "Effective computation of biased quantiles over data streams")
11624     (description
11625      "Common Lisp implementation of Graham Cormode and S.
11626 Muthukrishnan's Effective Computation of Biased Quantiles over Data
11627 Streams in ICDE’05.")
11628     (license license:expat)))
11629
11630 (define-public cl-quantile-estimator
11631   (sbcl-package->cl-source-package sbcl-quantile-estimator))
11632
11633 (define-public ecl-quantile-estimator
11634   (sbcl-package->ecl-package sbcl-quantile-estimator))
11635
11636 (define-public sbcl-prometheus
11637   (package
11638     (name "sbcl-prometheus")
11639     (version "0.4.1")
11640     (source
11641      (origin
11642        (method git-fetch)
11643        (uri (git-reference
11644              (url "https://github.com/deadtrickster/prometheus.cl.git")
11645              (commit "7352b92296996ff383503e19bdd3bcea30409a15")))
11646        (file-name (git-file-name name version))
11647        (sha256
11648         (base32
11649          "0fzczls2kfgdx18pja4lqxjrz72i583185d8nq0pb3s331hhzh0z"))))
11650     (build-system asdf-build-system/sbcl)
11651     (inputs
11652      `(("alexandria" ,sbcl-alexandria)
11653        ("bordeaux-threads" ,sbcl-bordeaux-threads)
11654        ("cl-ppcre" ,sbcl-cl-ppcre)
11655        ("local-time" ,sbcl-local-time)
11656        ("quantile-estimator" ,sbcl-quantile-estimator)))
11657     (home-page "https://github.com/deadtrickster/prometheus.cl")
11658     (synopsis "Prometheus.io Common Lisp client")
11659     (description "Prometheus.io Common Lisp client.")
11660     (license license:expat)))
11661
11662 (define-public cl-prometheus
11663   (sbcl-package->cl-source-package sbcl-prometheus))
11664
11665 (define-public ecl-prometheus
11666   (sbcl-package->ecl-package sbcl-prometheus))
11667
11668 (define-public sbcl-prometheus.collectors.sbcl
11669   (package
11670     (inherit sbcl-prometheus)
11671     (name "sbcl-prometheus.collectors.sbcl")
11672     (inputs `(("prometheus" ,sbcl-prometheus)))
11673     (synopsis "Prometheus collector for SBCL metrics")
11674     (description "Prometheus collector for SBCL metrics.")))
11675
11676 (define-public cl-prometheus.collectors.sbcl
11677   (sbcl-package->cl-source-package sbcl-prometheus.collectors.sbcl))
11678
11679 (define-public sbcl-prometheus.collectors.process
11680   (package
11681     (inherit sbcl-prometheus)
11682     (name "sbcl-prometheus.collectors.process")
11683     (inputs
11684      `(("cffi" ,sbcl-cffi)
11685        ("cffi-grovel" ,sbcl-cffi-grovel)
11686        ("cl-fad" ,sbcl-cl-fad)
11687        ("prometheus" ,sbcl-prometheus)
11688        ("split-sequence" ,sbcl-split-sequence)))
11689     (synopsis "Prometheus collector for process metrics")
11690     (description "Prometheus collector for process metrics.")))
11691
11692 (define-public cl-prometheus.collectors.process
11693   (sbcl-package->cl-source-package sbcl-prometheus.collectors.process))
11694
11695 (define-public ecl-prometheus.collectors.process
11696   (sbcl-package->ecl-package sbcl-prometheus.collectors.process))
11697
11698 (define-public sbcl-prometheus.formats.text
11699   (package
11700     (inherit sbcl-prometheus)
11701     (name "sbcl-prometheus.formats.text")
11702     (inputs
11703      `(("alexandria" ,sbcl-alexandria)
11704        ("prometheus" ,sbcl-prometheus)))
11705     (synopsis "Prometheus client text format")
11706     (description "Prometheus client text format.")))
11707
11708 (define-public cl-prometheus.formats.text
11709   (sbcl-package->cl-source-package sbcl-prometheus.formats.text))
11710
11711 (define-public ecl-prometheus.formats.text
11712   (sbcl-package->ecl-package sbcl-prometheus.formats.text))
11713
11714 (define-public sbcl-prometheus.exposers.hunchentoot
11715   (package
11716     (inherit sbcl-prometheus)
11717     (name "sbcl-prometheus.exposers.hunchentoot")
11718     (inputs
11719      `(("hunchentoot" ,sbcl-hunchentoot)
11720        ("prometheus" ,sbcl-prometheus)
11721        ("prometheus.formats.text" ,sbcl-prometheus.formats.text)
11722        ("salza2" ,sbcl-salza2)
11723        ("trivial-utf-8" ,sbcl-trivial-utf-8)))
11724     (synopsis "Prometheus collector for Hunchentoot metrics")
11725     (description "Prometheus collector for Hunchentoot metrics")))
11726
11727 (define-public cl-prometheus.exposers.hunchentoot
11728   (sbcl-package->cl-source-package sbcl-prometheus.exposers.hunchentoot))
11729
11730 (define-public sbcl-prometheus.pushgateway
11731   (package
11732     (inherit sbcl-prometheus)
11733     (name "sbcl-prometheus.pushgateway")
11734     (inputs
11735      `(("drakma" ,sbcl-drakma)
11736        ("prometheus" ,sbcl-prometheus)
11737        ("prometheus.formats.text" ,sbcl-prometheus.formats.text)))
11738     (synopsis "Prometheus Pushgateway client")
11739     (description "Prometheus Pushgateway client.")))
11740
11741 (define-public cl-prometheus.pushgateway
11742   (sbcl-package->cl-source-package sbcl-prometheus.pushgateway))
11743
11744 (define-public ecl-prometheus.pushgateway
11745   (sbcl-package->ecl-package sbcl-prometheus.pushgateway))
11746
11747 (define-public sbcl-uuid
11748   (let ((commit "e7d6680c3138385c0708f7aaf0c96622eeb140e8"))
11749     (package
11750       (name "sbcl-uuid")
11751       (version (git-version "2012.12.26" "1" commit))
11752       (source
11753        (origin
11754          (method git-fetch)
11755          (uri (git-reference
11756                (url "https://github.com/dardoria/uuid.git")
11757                (commit commit)))
11758          (file-name (git-file-name name version))
11759          (sha256
11760           (base32
11761            "0jnyp2kibcf5cwi60l6grjrj8wws9chasjvsw7xzwyym2lyid46f"))))
11762       (build-system asdf-build-system/sbcl)
11763       (inputs
11764        `(("ironclad" ,sbcl-ironclad)
11765          ("trivial-utf-8" ,sbcl-trivial-utf-8)))
11766       (home-page "https://github.com/dardoria/uuid")
11767       (synopsis
11768        "Common Lisp implementation of UUIDs according to RFC4122")
11769       (description
11770        "Common Lisp implementation of UUIDs according to RFC4122.")
11771       (license license:llgpl))))
11772
11773 (define-public cl-uuid
11774   (sbcl-package->cl-source-package sbcl-uuid))
11775
11776 (define-public ecl-uuid
11777   (sbcl-package->ecl-package sbcl-uuid))
11778
11779 (define-public sbcl-dissect
11780   (let ((commit "cffd38479f0e64e805f167bbdb240b783ecc8d45"))
11781     (package
11782       (name "sbcl-dissect")
11783       (version (git-version "1.0.0" "1" commit))
11784       (source
11785        (origin
11786          (method git-fetch)
11787          (uri (git-reference
11788                (url "https://github.com/Shinmera/dissect.git")
11789                (commit commit)))
11790          (file-name (git-file-name name version))
11791          (sha256
11792           (base32
11793            "0rmsjkgjl90gl6ssvgd60hb0d5diyhsiyypvw9hbc0ripvbmk5r5"))))
11794       (build-system asdf-build-system/sbcl)
11795       (inputs
11796        `(("cl-ppcre" ,sbcl-cl-ppcre)))
11797       (home-page "https://shinmera.github.io/dissect/")
11798       (synopsis
11799        "Introspection library for the call stack and restarts")
11800       (description
11801        "Dissect is a small Common Lisp library for introspecting the call stack
11802 and active restarts.")
11803       (license license:zlib))))
11804
11805 (define-public cl-dissect
11806   (sbcl-package->cl-source-package sbcl-dissect))
11807
11808 (define-public ecl-dissect
11809   (sbcl-package->ecl-package sbcl-dissect))
11810
11811 ;; TODO: Uses ASDF's package-inferred-system which is not supported by
11812 ;; asdf-build-system/sbcl as of 2020-05-21. We should fix
11813 ;; asdf-build-system/sbcl.
11814 (define-public sbcl-rove
11815   (package
11816     (name "sbcl-rove")
11817     (version "0.9.6")
11818     (source
11819      (origin
11820        (method git-fetch)
11821        (uri (git-reference
11822              (url "https://github.com/fukamachi/rove.git")
11823              (commit "f3695db08203bf26f3b861dc22ac0f4257d3ec21")))
11824        (file-name (git-file-name name version))
11825        (sha256
11826         (base32
11827          "07ala4l2fncxf540fzxj3h5mhi9i4wqllhj0rqk8m2ljl5zbz89q"))))
11828     (build-system asdf-build-system/sbcl)
11829     (inputs
11830      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
11831        ("dissect" ,sbcl-dissect)
11832        ("trivial-gray-streams" ,sbcl-trivial-gray-streams)))
11833     (home-page "https://github.com/fukamachi/rove")
11834     (synopsis
11835      "Yet another common lisp testing library")
11836     (description
11837      "Rove is a unit testing framework for Common Lisp applications.
11838 This is intended to be a successor of Prove.")
11839     (license license:bsd-3)))
11840
11841 (define-public cl-rove
11842   (sbcl-package->cl-source-package sbcl-rove))
11843
11844 (define-public ecl-rove
11845   (sbcl-package->ecl-package sbcl-rove))
11846
11847 (define-public sbcl-exponential-backoff
11848   (let ((commit "8d9e8444d8b3184a524c12ce3449f91613ab714f"))
11849     (package
11850       (name "sbcl-exponential-backoff")
11851       (version (git-version "0" "1" commit))
11852       (source
11853        (origin
11854          (method git-fetch)
11855          (uri (git-reference
11856                (url "https://github.com/death/exponential-backoff.git")
11857                (commit commit)))
11858          (file-name (git-file-name name version))
11859          (sha256
11860           (base32
11861            "1389hm9hxv85s0125ja4js1bvh8ay4dsy9q1gaynjv27ynik6gmv"))))
11862       (build-system asdf-build-system/sbcl)
11863       (home-page "https://github.com/death/exponential-backoff")
11864       (synopsis "Exponential backoff algorithm in Common Lisp")
11865       (description
11866        "An implementation of the exponential backoff algorithm in Common Lisp.
11867 Inspired by the implementation found in Chromium.  Read the header file to
11868 learn about each of the parameters.")
11869       (license license:expat))))
11870
11871 (define-public cl-exponential-backoff
11872   (sbcl-package->cl-source-package sbcl-exponential-backoff))
11873
11874 (define-public ecl-exponential-backoff
11875   (sbcl-package->ecl-package sbcl-exponential-backoff))
11876
11877 (define-public sbcl-sxql
11878   (let ((commit "5aa8b739492c5829e8623432b5d46482263990e8"))
11879     (package
11880       (name "sbcl-sxql")
11881       (version (git-version "0.1.0" "1" commit))
11882       (source
11883        (origin
11884          (method git-fetch)
11885          (uri (git-reference
11886                (url "https://github.com/fukamachi/sxql.git")
11887                (commit commit)))
11888          (file-name (git-file-name name version))
11889          (sha256
11890           (base32
11891            "0k25p6w2ld9cn8q8s20lda6yjfyp4q89219sviayfgixnj27avnj"))))
11892       (build-system asdf-build-system/sbcl)
11893       (arguments
11894        `(#:test-asd-file "sxql-test.asd"))
11895       (inputs
11896        `(("alexandria" ,sbcl-alexandria)
11897          ("cl-syntax-annot" ,sbcl-cl-syntax-annot)
11898          ("iterate" ,sbcl-iterate)
11899          ("optima" ,sbcl-optima)
11900          ("split-sequence" ,sbcl-split-sequence)
11901          ("trivial-types" ,sbcl-trivial-types)))
11902       (native-inputs
11903        `(("prove" ,sbcl-prove)
11904          ("prove-asdf" ,sbcl-prove-asdf)))
11905       (home-page "https://github.com/fukamachi/sxql")
11906       (synopsis "SQL generator for Common Lisp")
11907       (description "SQL generator for Common Lisp.")
11908       (license license:bsd-3))))
11909
11910 (define-public cl-sxql
11911   (sbcl-package->cl-source-package sbcl-sxql))
11912
11913 (define-public ecl-sxql
11914   (sbcl-package->ecl-package sbcl-sxql))
11915
11916 (define-public sbcl-1am
11917   (let ((commit "8b1da94eca4613fd8a20bdf63f0e609e379b0ba5"))
11918     (package
11919       (name "sbcl-1am")
11920       (version (git-version "0.0" "1" commit))
11921       (source
11922        (origin
11923          (method git-fetch)
11924          (uri (git-reference
11925                (url "https://github.com/lmj/1am.git")
11926                (commit commit)))
11927          (file-name (git-file-name name version))
11928          (sha256
11929           (base32
11930            "05ss4nz1jb9kb796295482b62w5cj29msfj8zis33sp2rw2vmv2g"))))
11931       (build-system asdf-build-system/sbcl)
11932       (arguments
11933        `(#:asd-system-name "1am"))
11934       (home-page "https://github.com/lmj/1am")
11935       (synopsis "Minimal testing framework for Common Lisp")
11936       (description "A minimal testing framework for Common Lisp.")
11937       (license license:expat))))
11938
11939 (define-public cl-1am
11940   (sbcl-package->cl-source-package sbcl-1am))
11941
11942 (define-public ecl-1am
11943   (sbcl-package->ecl-package sbcl-1am))
11944
11945 (define-public sbcl-cl-ascii-table
11946   (let ((commit "d9f5e774a56fad1b416e4dadb8f8a5b0e84094e2")
11947         (revision "1"))
11948     (package
11949       (name "sbcl-cl-ascii-table")
11950       (version (git-version "0.0.0" revision commit))
11951       (source
11952        (origin
11953          (method git-fetch)
11954          (uri (git-reference
11955                (url "https://github.com/telephil/cl-ascii-table.git")
11956                (commit commit)))
11957          (file-name (git-file-name name version))
11958          (sha256
11959           (base32 "125fdif9sgl7k0ngjhxv0wjas2q27d075025hvj2rx1b1x948z4s"))))
11960       (build-system asdf-build-system/sbcl)
11961       (synopsis "Library to make ascii-art tables")
11962       (description
11963        "This is a Common Lisp library to present tabular data in ascii-art
11964 tables.")
11965       (home-page "https://github.com/telephil/cl-ascii-table")
11966       (license license:expat))))
11967
11968 (define-public cl-ascii-table
11969   (sbcl-package->cl-source-package sbcl-cl-ascii-table))
11970
11971 (define-public ecl-cl-ascii-table
11972   (sbcl-package->ecl-package sbcl-cl-ascii-table))
11973
11974 (define-public sbcl-cl-rdkafka
11975   (package
11976     (name "sbcl-cl-rdkafka")
11977     (version "1.0.2")
11978     (source
11979      (origin
11980        (method git-fetch)
11981        (uri (git-reference
11982              (url "https://github.com/SahilKang/cl-rdkafka.git")
11983              (commit (string-append "v" version))))
11984        (file-name (git-file-name name version))
11985        (sha256
11986         (base32
11987          "1qcgfd4h7syilzmrmd4z2vknbvawda3q3ykw7xm8n381syry4g82"))))
11988     (build-system asdf-build-system/sbcl)
11989     (arguments
11990      `(#:tests? #f ; Attempts to connect to locally running Kafka
11991        #:phases
11992        (modify-phases %standard-phases
11993          (add-after 'unpack 'fix-paths
11994            (lambda* (#:key inputs #:allow-other-keys)
11995              (substitute* "src/low-level/librdkafka-bindings.lisp"
11996                (("librdkafka" all)
11997                 (string-append (assoc-ref inputs "librdkafka") "/lib/"
11998                                all)))))
11999          (add-before 'cleanup 'move-bundle
12000            (lambda* (#:key outputs #:allow-other-keys)
12001              (let* ((out (assoc-ref outputs "out"))
12002                     (actual (string-append out "/lib/sbcl/src/cl-rdkafka.fasl"))
12003                     (expected (string-append
12004                                out "/lib/sbcl/cl-rdkafka--system.fasl")))
12005                (copy-file actual expected)
12006                #t))))))
12007     (inputs
12008      `(("bordeaux-threads" ,sbcl-bordeaux-threads)
12009        ("cffi" ,sbcl-cffi)
12010        ("cffi-grovel" ,sbcl-cffi-grovel)
12011        ("librdkafka" ,librdkafka)
12012        ("lparallel" ,sbcl-lparallel)
12013        ("trivial-garbage" ,sbcl-trivial-garbage)))
12014     (home-page "https://github.com/SahilKang/cl-rdkafka")
12015     (synopsis "Common Lisp client library for Apache Kafka")
12016     (description "A Common Lisp client library for Apache Kafka.")
12017     (license license:gpl3)))
12018
12019 (define-public cl-rdkafka
12020   (sbcl-package->cl-source-package sbcl-cl-rdkafka))