Coverage report: /home/runner/work/geb/geb/src/util/package.lisp

KindCoveredAll%
expression04 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 (pax:define-package #:geb.utils
2
   (:documentation "provides the utility functions for the Geb project")
3
   (:use #:common-lisp #:serapeum)
4
   (:export #:@geb-utils-manual #:@geb-accessors))
5
 
6
 (in-package :geb.utils)
7
 
8
 (pax:defsection @geb-utils-manual (:title "Geb Utilities")
9
   "The Utilities package provides general utility functionality that is
10
 used throughout the GEB codebase"
11
   (list-of                 pax:type)
12
   (symbol-to-keyword       pax:function)
13
   (muffle-package-variance pax:macro)
14
   (subclass-responsibility pax:function)
15
   (shallow-copy-object     pax:function)
16
   (copy-instance           pax:generic-function)
17
   (make-pattern            pax:macro)
18
   (number-to-digits        pax:function)
19
   (digit-to-under          pax:function)
20
   (number-to-under         pax:function)
21
   (apply-n                 pax:function)
22
   (@geb-accessors          pax:section))
23
 
24
 (pax:defsection @geb-accessors (:title "Accessors")
25
   "These functions are generic lenses of the GEB codebase. If a class is
26
    defined, where the names are not known, then these accessors are
27
    likely to be used. They may even augment existing classes."
28
   (mcar      pax:generic-function)
29
   (mcadr     pax:generic-function)
30
   (mcaddr    pax:generic-function)
31
   (mcadddr   pax:generic-function)
32
   (mcdr      pax:generic-function)
33
   (obj       pax:generic-function)
34
   (name      pax:generic-function)
35
   (func      pax:generic-function)
36
   (predicate pax:generic-function)
37
   (then      pax:generic-function)
38
   (else      pax:generic-function)
39
   (code      pax:generic-function))