Micro-optimize DOUBLE-FLOAT-LOW-BITS on x68-64.
[sbcl.git] / contrib / sb-cover / test-data-1.lisp
1 (in-package sb-cover-test)
2
3 (defun test1 ()
4   (+ 1 2))
5