projects / sbcl.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
1.0.26.12: Don't allow (LOOP FOR X ACROSS A ...) where A evaluates to NIL
[sbcl.git] / contrib / sb-cover / test-data-1.lisp
1 (in-package sb-cover-test)
2
3 (defun test1 ()
4   (+ 1 2))
5
Mirror of Steel Bank Common Lisp SBCL's official repository