Coverage report: /home/runner/work/geb/geb/src/specs/bitc-printer.lisp

KindCoveredAll%
expression017 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 (in-package #:geb.bitc.spec)
2
 
3
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4
 ;; Subst Constructor Printer
5
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
 
7
 ;; we are going to be super lazy about this, just make a format
8
 (defmacro easy-printer (class-name)
9
   `(defmethod print-object ((obj ,class-name) stream)
10
      (format stream "~A"
11
              (cons ',class-name
12
                    (mapcar #'cdr (geb.mixins:to-pointwise-list obj))))))
13
 
14
 (easy-printer compose)
15
 (easy-printer fork)
16
 (easy-printer parallel)
17
 (easy-printer swap)
18
 (easy-printer one)
19
 (easy-printer zero)
20
 (easy-printer ident)
21
 (easy-printer drop)
22
 (easy-printer branch)
23
 
24
 (defmethod print-object ((obj ident) stream)
25
   (print-unreadable-object (obj stream :type nil :identity nil)
26
     (format stream "IDENT")))