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