Coverage report: /home/ellis/comp/core/lib/obj/color/theme.lisp

KindCoveredAll%
expression01 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; theme.lisp --- Color Themes
2
 
3
 ;; Color Theme Protocol
4
 
5
 ;;; Commentary:
6
 
7
 ;; loosely based on Anathema by contrapunctus, a CL theme library for CLIM
8
 ;; applications
9
 
10
 ;; Styles loosely correspond to Emacs 'faces'.
11
 
12
 ;;; Code:
13
 (in-package :obj/color)
14
 
15
 ;;; Style
16
 ;; (defclass style () ())
17
 ;; (defgeneric style (self))
18
 ;; (defgeneric (setf style) (new self))
19
 ;; (defmacro define-style (name direct-superclasses direct-slots &rest opts))
20
 ;; (defmacro with-style ((medium style &rest opts) &body body))
21
 ;;; Theme
22
 ;; (defclass theme (style) ())
23
 ;; (defgeneric theme (self))
24
 ;; (defgeneric (setf theme) (new self))
25
 ;; (defmacro define-theme (name direct-superclasses direct-slots &rest opts))
26