From 55893dcd3118428f046d5f539d80e9aa5345b885 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 24 Mar 2008 11:47:01 +0000
Subject: Add support for SBCL and CLisp

---
 src/interp/br-saturn.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/br-saturn.boot')

diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
index 32225b11..51f61968 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -1,4 +1,4 @@
--- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
+-- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
 -- Copyright (C) 2007-2008, Gabriel Dos Reis.
 -- All rights reserved.
@@ -15,7 +15,7 @@
 --       the documentation and/or other materials provided with the
 --       distribution.
 --
---     - Neither the name of The Numerical ALgorithms Group Ltd. nor the
+--     - Neither the name of The Numerical Algorithms Group Ltd. nor the
 --       names of its contributors may be used to endorse or promote products
 --       derived from this software without specific prior written permission.
 --
@@ -634,7 +634,7 @@ htpMakeEmptyPage(propList,:options) ==
   name := IFCAR options or  GENTEMP()
   if not $saturn then
     $activePageList := [name, :$activePageList]
-  SET(name, val := VECTOR(name, nil, nil, nil, nil, nil, propList, nil))
+  setDynamicBinding(name, val := VECTOR(name, nil, nil, nil, nil, nil, propList, nil))
   val
 
 --=======================================================================
-- 
cgit v1.2.3