X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fphysenvanal.lisp;h=e43bf9e85d90015e0177d0ce06a91d3fa0979ee0;hb=9a82b26397de09d67372f34158090c2284fd1411;hp=0b923412085ae8ab5158b106a06a980b11ad739a;hpb=fbae90af33b92c5411ddcb419485dcf2bca47ab7;p=sbcl.git

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