Coverage report: /development/source/library/org/datagraph/spocq-shard/src/core/patches/sbcl-20170928.lisp

KindCoveredAll%
expression2837 75.7
branch510 50.0
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; -*- package: sb-kernel; -*-
2
 
3
 (in-package :sb-impl)
4
 
5
 ;;; suppress package restrictions
6
 
7
 (setq *on-package-variance* nil)
8
 
9
 (defun note-package-variance (&rest args &key package &allow-other-keys)
10
   (let ((pname (package-name package)))
11
     (destructuring-bind (&key warn error) *on-package-variance*
12
       (let ((what (cond ((and (listp error) (member pname error :test #'string=))
13
                          :error)
14
                         ((and (listp warn) (member pname warn :test #'string=))
15
                          :warn)
16
                         ((eq t error)
17
                          :error)
18
                         (t
19
                          nil))))
20
         (ecase what
21
           ((nil ))
22
           (:error
23
            (apply #'error 'package-at-variance-error args))
24
           (:warn
25
            (apply #'warn 'package-at-variance args)))))))