Coverage report: /home/ellis/comp/core/lib/organ/condition.lisp

KindCoveredAll%
expression019 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; condition.lisp --- Organ Conditions
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 
7
 (in-package :organ)
8
 
9
 (define-condition organ-error (error) 
10
   ((message :initarg :message
11
             :reader organ-error-message))
12
   (:documentation "Error signaled by the ORGAN system"))
13
 
14
 (defmethod print-object ((obj organ-error) stream)
15
   (print-unreadable-object (obj stream :type t :identity t)
16
     (format stream "~a" (organ-error-message obj))))
17
 
18
 (define-condition org-file-error (organ-error)
19
   ((path :initarg :path
20
          :reader organ-error-path))
21
   (:documentation "Error signaled from a missing org file path."))
22
 
23
 (defun org-file-missing (path)
24
   (error 'org-file-error :message "Org file does not exist"
25
                          :path path))
26
 
27
 (define-condition org-parse-error (parse-error organ-error) ())
28
 
29
 (define-condition org-write-error (stream-error organ-error) ())