From 91140f7d50c56fa5ffbb93229d3a062fb3f40ede Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 15 Sep 1997 16:47:04 +0000
Subject: [PATCH] Defvar for *current-unwind-block* should be
 *current-unwind-protect-block*.

---
 code/lispinit.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index c5280576e..45546857d 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.49 1997/01/18 14:30:42 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.50 1997/09/15 16:47:04 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -64,7 +64,7 @@
 (progn
 
 (defvar *current-catch-block*)
-(defvar *current-unwind-block*)
+(defvar *current-unwind-protect-block*)
 (defvar *free-interrupt-context-index*)
 
 ); #-gengc progn
-- 
GitLab