From dbee5bf9f9949d421eb7d0a7fa5d7e0546fae39b Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Mon, 19 May 2008 10:48:28 +0000
Subject: [PATCH] The temporary destination is a function of the _final_
 destination, not of the origin of the value.

---
 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 18bd8b409..7e9133c63 100644
--- a/src/cmp/cmpexit.lsp
+++ b/src/cmp/cmpexit.lsp
@@ -113,7 +113,7 @@
 		    (wt-nl "return(" loc ");")))
 	      (return)))
 	   (FRAME
-	    (let ((*destination* (tmp-destination loc)))
+	    (let ((*destination* (tmp-destination *destination*)))
 	      (set-loc loc)
 	      (setq loc *destination*))
 	    (wt-nl "frs_pop();"))