X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fphysenvanal.lisp;h=cd54ff23e96c4a080b8eb837539efd514070e647;hb=2a71a27c55ad98e36f2886017d45ca2ae986296d;hp=3cdb53b8ce3efa8ea726ea89e5c6eb71bffeb657;hpb=2d996b6c1f64a2a8f7515629bba134da0d0f0d32;p=sbcl.git

diff --git a/src/compiler/physenvanal.lisp b/src/compiler/physenvanal.lisp
index 3cdb53b..cd54ff2 100644
--- a/src/compiler/physenvanal.lisp
+++ b/src/compiler/physenvanal.lisp
@@ -464,7 +464,12 @@
       ;; FIXME: It might be better to add another DEFKNOWN property
       ;; (e.g. NO-TAIL-RECURSION) and use it for error-handling
       ;; functions like ERROR, instead of spreading this special case
-      ;; net so widely.
+      ;; net so widely. --WHN?
+      ;;
+      ;; Why is that bad? Because this non-elimination of
+      ;; non-returning tail calls causes the XEP for FOO appear in
+      ;; backtrace for (defun foo (x) (error "foo ~S" x)) wich seems
+      ;; less then optimal. --NS 2005-02-28
       (when ret
 	(let ((result (return-result ret)))
 	  (do-uses (use result)