From 8b678591beea76bb1a91d2704545d1e0fc4ae0d5 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Wed, 21 Apr 2004 13:47:27 +0000 Subject: [PATCH] *** empty log message *** --- src/cmp/cmpexit.lsp | 1 - 1 file changed, 1 deletion(-) diff --git a/src/cmp/cmpexit.lsp b/src/cmp/cmpexit.lsp index 4ecd87559..e0699aaea 100644 --- a/src/cmp/cmpexit.lsp +++ b/src/cmp/cmpexit.lsp @@ -25,7 +25,6 @@ (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