From 901aeaa81ddf5678e5a7efd431b29d46e27d0cff Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Thu, 18 Jun 2009 12:17:50 +0200 Subject: [PATCH] The analysis for tail recursion was broken in the presence of a IHS frame. --- src/cmp/cmpexit.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpexit.lsp b/src/cmp/cmpexit.lsp index b5b7a3bab..dec7897ef 100644 --- a/src/cmp/cmpexit.lsp +++ b/src/cmp/cmpexit.lsp @@ -182,7 +182,7 @@ (cond ((eq ue 'TAIL-RECURSION-MARK) (return t)) ((or (numberp ue) (eq ue 'BDS-BIND) (eq ue 'FRAME)) (return nil)) - ((or (consp ue) (eq ue 'JUMP))) + ((or (consp ue) (eq ue 'JUMP) (eq ue 'IHS-ENV))) (t (baboon))))) (defun c2try-tail-recursive-call (fun args)