+
+;;; partial bug 262: reference of deleted CTRAN (in RETURN-FROM)
+;;; during inline expansion. Bug report by Peter Denno, simplified
+;;; test case by David Wragg.
+(defun bug262-return-from (x &aux (y nil))
+ (labels ((foo-a (z) (return-from bug262-return-from z))
+ (foo-b (z) (foo-a z)))
+ (declare (inline foo-a))
+ (foo-a x)))