- (find-if #'has-full-call-use funs))
- (block punt
- (dolist (fun funs t)
- (dolist (ref (leaf-refs fun))
- (let* ((lvar (node-lvar ref))
- (dest (and lvar (lvar-dest lvar))))
- (when (and (basic-combination-p dest)
- (not (node-tail-p dest))
- (eq (basic-combination-fun dest) lvar)
- (eq (basic-combination-kind dest) :local))
- (return-from punt nil)))))))))
+ (find-if #'has-full-call-use funs))
+ (some (lambda (fun) (policy fun (>= insert-debug-catch 2))) funs)
+ (block punt
+ (dolist (fun funs t)
+ (dolist (ref (leaf-refs fun))
+ (let* ((lvar (node-lvar ref))
+ (dest (and lvar (lvar-dest lvar))))
+ (when (and (basic-combination-p dest)
+ (not (node-tail-p dest))
+ (eq (basic-combination-fun dest) lvar)
+ (eq (basic-combination-kind dest) :local))
+ (return-from punt nil)))))))))