From 9734a429f87b6050b9ad60f91d4afb34abebc14c Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 23 Apr 1991 01:21:42 +0000
Subject: [PATCH] Fixed restore-dynamic-state to correctly check for the end of
 the binding stack instead of trying to crank through all of memory.

---
 compiler/rt/nlx.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/rt/nlx.lisp b/compiler/rt/nlx.lisp
index b8a71c0ad..bf217e36e 100644
--- a/compiler/rt/nlx.lisp
+++ b/compiler/rt/nlx.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/nlx.lisp,v 1.1 1991/02/18 15:08:03 chiles Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/nlx.lisp,v 1.2 1991/04/23 01:21:42 wlott Exp $
 ;;;
 ;;; This file contains the definitions of VOPs used for non-local exit (throw,
 ;;; lexical exit, etc.)
@@ -87,7 +87,7 @@
       (move nsp-tn nsp)
       
       (load-symbol-value bsp *binding-stack-pointer*)
-      (inst c bsp 0)
+      (inst c bsp special)
       (inst bc :eq done)
 
       ;; Unwind shallow dynamic bindings.
-- 
GitLab