From c65ac216959772cd6955c9dc050b98d38d7492da Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 12 Apr 2008 08:58:02 +0000
Subject: 	* interp/define.boot (compCapsuleItems): Fix thinko. 	*
 interp/newaux.lisp: Increase the binding power of "+->".

---
 src/interp/define.boot | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'src/interp/define.boot')

diff --git a/src/interp/define.boot b/src/interp/define.boot
index d79ed090..58afdba9 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -1275,11 +1275,7 @@ processFunctor(form,signature,data,localParList,e) ==
  
 compCapsuleItems(itemlist,$predl,$e) ==
   $TOP__LEVEL: local
-  $myFunctorBody :local         -- := data    ---needed for translator
-  -- ??? the following line needs more investigation.  Why is data
-  -- ??? expected to be a dynamic variable? Looks more like a bug.
-  if (BOUNDP 'data) then 
-    $myFunctorBody:= SYMBOL_-VALUE 'data -- unbound at runtime?
+  $myFunctorBody :local    ---needed for translator
   $signatureOfForm: local
   $suffix: local:= 0
   for item in itemlist repeat $e:= compSingleCapsuleItem(item,$predl,$e)
-- 
cgit v1.2.3