Coverage report: /home/ellis/comp/core/app/skel/core/condition.lisp

KindCoveredAll%
expression026 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; skel/core/condition.lisp --- Skel Errors
2
 
3
 ;;; Code:
4
 (in-package :skel/core/int)
5
 
6
 (define-condition skel-condition () ()
7
   (:documentation "Superclass of SKEL error types."))
8
 
9
 (eval-always
10
   (deferror skel-error (error skel-condition) ())
11
   (deferror skel-syntax-error (syntax-error skel-error) ())
12
   (deferror skel-io-error (skel-error) () (:auto t))
13
   (deferror skel-compile-error (skel-error) () (:auto t))
14
   (deferror skel-simple-error (simple-error skel-error) ()))
15
 
16
 (defun skel-simple-error (fmt &rest args)
17
   (error 'skel-simple-error :format-control fmt :format-arguments args))
18
 
19
 (deferror invalid-skel-ast (skel-syntax-error)
20
     ((ast :initform nil :initarg :ast :accessor ast))
21
     (:report (lambda (c s)
22
                (format s "Invalid Skel AST: ~A" (ast c)))))
23
 
24
 (defun invalid-skel-ast (ast)
25
   (error 'invalid-skel-ast :ast ast))
26
 
27
 (deferror invalid-skel-bind (invalid-argument skel-compile-error) () (:auto t))