1.0.28.50: better source locations for failure-to-stack-allocate notes

diff --git a/src/compiler/physenvanal.lisp b/src/compiler/physenvanal.lisp
index ee3874e..e43bf9e 100644 (file)
--- a/src/compiler/physenvanal.lisp
+++ b/src/compiler/physenvanal.lisp
@@ -342,8 +342,9 @@
                                      (t
                                       (do-uses (use lvar)
                                         (unless (ref-p use)
-                                          (compiler-notify "could not stack allocate the result of ~S"
-                                                           (find-original-source (node-source-path use)))))
+                                          (let ((*compiler-error-context* use))
+                                            (compiler-notify "could not stack allocate the result of ~S"
+                                                             (find-original-source (node-source-path use))))))
                                       (setf (lvar-dynamic-extent lvar) nil)))))
                             (node       ; DX closure
                              (let* ((call what)

diff --git a/version.lisp-expr b/version.lisp-expr
index b311c6b..ba90147 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.28.49"
+"1.0.28.50"