tests/block-compile-test-5.lisp

   1 (declaim (start-block gamma1))
   2
   3 (defun zeta1 (x)
   4   (print (+ 1 x)))
   5
   6 (declaim (inline zeta2))
   7 (defun zeta2 (x)
   8   (zeta1 x)
   9   (zeta1 x))
  10
  11 (defun gamma1 (x)
  12   (+ (zeta2 x)
  13      (zeta2 x)))
  14
  15 (declaim (end-block))