Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

(in-package :cl-perec)

2

3

(defvar +persistent-object-code+

4

(register-code 131 'persistent-object nil))

5

6

(defstore-cl-store (obj persistent-object stream)

7

(output-type-code +persistent-object-code+ stream)

8

(cl-store::store-type-object obj stream))

9

10

(defrestore-cl-store (persistent-object stream)

11

(load-instance (oid-of (cl-store::restore-type-object stream)) :skip-existence-check #t))

12

13

(defmethod serializable-slots-using-class ((object persistent-object) class)

14

(list (find-slot class 'oid)))