tests/block-compile-test-3.lisp

   1 (declaim (inline inl))
   2 (defun inl (x) (1- x))
   3 (defun a (x)
   4   (declare (type (unsigned-byte 64) x))
   5   (logcount (inl x)))
   6
   7 (defun foo2 (x) (1+ (bar2 x)))
   8 (declaim (inline bar2))
   9 (defun bar2 (x) (1+ x))