Coverage report: /home/ellis/comp/core/lib/gui/gui.lisp

KindCoveredAll%
expression021 0.0
branch04 0.0
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; gui.lisp --- Top-level GUI
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (pkg:defpkg :gui
7
   (:use :cl :std :log)
8
   (:use-reexport :gui/core :gui/ext))
9
 
10
 (in-package :gui)
11
 
12
 (when (sb-int:featurep :x11)
13
   (use-package :gui/x11))
14
 (when (sb-int:featurep :wl)
15
   (use-package :gui/wl))
16
 
17
 (defvar *default-display-protocol* :gui/x11)
18
 
19
 (defun display-protocol-package (&optional proto)
20
   "Return the WM package, either ':x11' for X11 or ':wl' for
21
 Wayland. When no WM is provided, we interrogate the host to find out
22
 which WM is currently running, and as a last resort falls back to
23
 *DEFAULT-WM*."
24
   (case proto
25
     ((or :x11 :wl)  (find-package proto))
26
     (null (find-package *default-display-protocol*))
27
     (t (error "invalid wm type"))))