(defun f367 (b) (flet ((%f7 () (flet ((%f10 () (decf b b))) (declare (dynamic-extent #'%f10)) (funcall (eval #'%f10))))) (declare (notinline %f7)) (%f7)))
(defun f367 (b)
( decf b b)))
( declare (dynamic-extent #'%f10))
( funcall (eval #'%f10)))))
(flet ((%f7 ()
(flet ((%f10 ()
(declare (notinline %f7))
(%f7)))