contrib/sb-cover/test-data-2.lisp

   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 ;;; This test would show that we do correct detection of non-cons
  10 ;;; source forms in non-PROGN-contexts. Which we don't, so this test
  11 ;;; is commented out.
  12 #+nil
  13 (defun test2-b (x)
  14   (let ((a 0))
  15     (when x
  16       (incf a))
  17     a))