?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
1.0.22.22: (SETF FIND-CLASSOID) to drop DEFTYPE lambda-lists and source-locations
[sbcl/tcr.git] / contrib / sb-cover / test-data-3.lisp
blob3b2a51586c0c1084c2636e77db5d48c13e008498
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)))))
tcr's SBCL random hacking branch.