X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2tran.lisp;h=a6262af5931498b78873445e3fbc0c5c53fd15e6;hb=82653abf5573c22c691e2243b70647ecdaa6aea8;hp=2a374930274052d32b8800cb609e096dd0b69fe2;hpb=510a9c48b7a80bf89ee54bdbd92519e76e8e178d;p=sbcl.git

diff --git a/src/compiler/ir2tran.lisp b/src/compiler/ir2tran.lisp
index 2a37493..a6262af 100644
--- a/src/compiler/ir2tran.lisp
+++ b/src/compiler/ir2tran.lisp
@@ -81,7 +81,9 @@
 	 (leaf-info thing))
 	(nlx-info
 	 (aver (eq physenv (block-physenv (nlx-info-target thing))))
-	 (ir2-nlx-info-home (nlx-info-info thing))))))
+	 (ir2-nlx-info-home (nlx-info-info thing))))
+      (error "~@<internal error: ~2I~_~S ~_not found in ~_~S~:>"
+	     thing physenv)))
 
 ;;; If LEAF already has a constant TN, return that, otherwise make a
 ;;; TN for it.
@@ -696,7 +698,7 @@
 	(dolist (thing (ir2-physenv-closure called-env))
 	  (temps (find-in-physenv (car thing) this-1env))
 	  (locs (cdr thing)))
-	
+
 	(temps old-fp)
 	(locs (ir2-physenv-old-fp called-env)))