Coverage report: /home/runner/work/geb/geb/src/gui/stick-view.lisp

KindCoveredAll%
expression016 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 (in-package :geb-gui)
2
 
3
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4
 ;; Main Data and View
5
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6
 
7
 ;; Graph view of products and coproducts
8
 (defclass stick-view (show-view) ())
9
 
10
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
11
 ;; Stick View
12
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
 
14
 ;; likely wrong, as it'll do it recursively, but need to fix it later
15
 (define-presentation-method present ((object geb:coprod)
16
                                      (type   geb:coprod)
17
                                      (pane   extended-output-stream)
18
                                      (view   stick-view)
19
                                      &key)
20
   (format pane "+")
21
   (stick-graph object pane))
22
 
23
 (define-presentation-method present ((object geb:prod)
24
                                      (type   geb:prod)
25
                                      (pane   extended-output-stream)
26
                                      (view   stick-view)
27
                                      &key)
28
   (format pane "×")
29
   (stick-graph object pane))
30
 �