diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/define.boot | 6 | ||||
| -rw-r--r-- | src/interp/newaux.lisp | 2 |
2 files changed, 2 insertions, 6 deletions
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 |