From c65ac216959772cd6955c9dc050b98d38d7492da Mon Sep 17 00:00:00 2001 From: dos-reis 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/ChangeLog | 5 +++++ src/interp/define.boot | 6 +----- src/interp/newaux.lisp | 2 +- 3 files changed, 7 insertions(+), 6 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 98f67f86..cfaa4bd7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2008-04-12 Juergen Weiss + + * interp/define.boot (compCapsuleItems): Fix thinko. + * interp/newaux.lisp: Increase the binding power of "+->". + 2008-04-11 Gabriel Dos Reis * interp/compiler.boot: Register compiler for Enumeration 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) diff --git a/src/interp/newaux.lisp b/src/interp/newaux.lisp index dcbdfd95..df23d213 100644 --- a/src/interp/newaux.lisp +++ b/src/interp/newaux.lisp @@ -123,7 +123,7 @@ (/\\ 250 251) (\\/ 200 201) (\.\. SEGMENT 401 699 (|PARSE-Seg|)) (=\> 123 103) - (+-\> 998 102) + (+-\> 998 112) (== DEF 122 121) (==\> MDEF 122 121) (\| 108 111) ;was 190 190 -- cgit v1.2.3