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

KindCoveredAll%
expression025 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; schema.lisp --- Skel Schemas
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :skel/core/schema)
7
 
8
 (defclass sk-schema (rdb-schema skel) ())
9
 
10
 (defvar *skel-registry-schema*
11
   (make-instance 'sk-schema
12
     :fields 
13
     (make-fields 
14
      :id '(fixnum . string)
15
      :properties '(fixnum . octet-vector)
16
      :name '(string . fixnum)
17
      :path '(fixnum . pathname)
18
      :tags '(fixnum . (array string)))))
19
 
20
 (defvar *skel-cache-schema*
21
   (make-instance 'sk-schema
22
     :fields 
23
     (make-fields
24
      :id '(fixnum . octet-vector)
25
      :hash '((octet-vector 32) . fixnum)
26
      :updated '(fixnum . octet-vector))))
27
 
28
 (defclass sk-object-schema (rdb-object-schema) ()
29
   (:default-initargs :class-name 'skel))