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

   1 (declaim (optimize sb-c::store-coverage-data))
   2
   3 (defun test-1 ()
   4   (print '((1 3 1))))
   5
   6 (defun test-2 ()
   7   (assert (equal (test-1)
   8                  (list (list 1 3 1)))))