From 6ace97e5ce3c2777eb4d2f6aae1152579975c72f Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 8 Apr 2004 07:30:26 +0000
Subject: [PATCH] Fixed typo.

---
 src/cmp/cmpexit.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmpexit.lsp b/src/cmp/cmpexit.lsp
index 81bcaf92f..4ecd87559 100644
--- a/src/cmp/cmpexit.lsp
+++ b/src/cmp/cmpexit.lsp
@@ -25,6 +25,7 @@
 (defun unwind-exit (loc &optional (jump-p nil)
                         &aux (bds-lcl nil) (bds-bind 0) (stack-pop nil))
   (declare (fixnum bds-bind))
+
   (when (consp *destination*)
     (case (car *destination*)
       (JUMP-TRUE
@@ -125,8 +126,8 @@
 	(cond ((eq ue exit)
 	       (unwind-bds bds-lcl bds-bind stack-pop)
 	       (return))
-	      ((eq (car ue) 'STACK)
-	       (push (cdr ue) stack-pop))))
+	      ((eq (first ue) 'STACK)
+	       (push (second ue) stack-pop))))
        ((numberp ue) (setq bds-lcl ue bds-bind 0))
        ((eq ue 'BDS-BIND) (incf bds-bind))
        ((member ue '(RETURN RETURN-OBJECT RETURN-FIXNUM RETURN-CHARACTER