| Kind | Covered | All | % |
| expression | 6 | 6 | 100.0 |
| branch | 2 | 2 | 100.0 |
1 (in-package sb-cover-test)2 3 (defun test2 (x)4 (let ((a 0))5 (when (plusp x)6 (incf a))7 a))8 9 ;;; Test for a bad interaction between *READ-SUPPRESS* and #. in10 ;;; source location recording.11 (identity #+sbcl #.112 #+cmu #.3)13 14 ;;; This test would show that we do correct detection of non-cons15 ;;; source forms in non-PROGN-contexts. Which we don't, so this test16 ;;; is commented out.17 #+nil18 (defun test2-b (x)19 (let ((a 0))20 (when x21 (incf a))22 a))