mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
c45ff731fc
And respect ANSI with the proclamation processing at that. (The CMU CL code did some magic proclaim handling instead which was the initial reason the support got gutted in the first place, as far as I can tell.)
19 lines
257 B
Common Lisp
19 lines
257 B
Common Lisp
;;; 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)))
|