tests/block-compile-test-4.lisp

   1 ;;; From the CMU CL user manual.
   2 (declaim (sb-ext:start-block fun1 fun3))
   3
   4 (defun fun1 (x)
   5   (print x))
   6
   7 (defun fun2 ()
   8   (1+ (fun1 6)))
   9
  10 (defun fun3 (x)
  11   (if x
  12       (fun1 3)
  13       (fun2)))
  14
  15 (declaim (sb-ext:end-block))
  16
  17 (defun fun4 (z)
  18   (+ 2 (fun1 z)))