diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/define.boot | 6 | ||||
| -rw-r--r-- | 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 <weiss@uni-mainz.de> + + * interp/define.boot (compCapsuleItems): Fix thinko. + * interp/newaux.lisp: Increase the binding power of "+->". + 2008-04-11 Gabriel Dos Reis <gdr@cs.tamu.edu> * 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 |