tests/block-compile-test-4.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

;;; From the CMU CL user manual.
(declaim (sb-ext:start-block fun1 fun3))

(defun fun1 (x)
  (print x))

(defun fun2 ()
  (1+ (fun1 6)))

(defun fun3 (x)
  (if x
      (fun1 3)
      (fun2)))

(declaim (sb-ext:end-block))

(defun fun4 (z)
  (+ 2 (fun1 z)))