diff options
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/strap/translator.clisp | 4 | ||||
-rw-r--r-- | src/boot/translator.boot | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index 3ad025ec..7c48e9fe 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -1138,7 +1138,7 @@ (DEFUN |shoeXref| (|a| |fn|) (PROG (|$bfClamming| |$GenVarCounter| |$bootUsed| |$bootDefined| - |$lispWordTable| |out|) + |$lispWordTable| |stream| |out|) (DECLARE (SPECIAL |$bfClamming| |$GenVarCounter| |$bootUsed| |$bootDefined| |$lispWordTable|)) (RETURN @@ -1154,7 +1154,7 @@ (SETQ |out| (CONCAT |fn| ".xref")) (UNWIND-PROTECT (PROGN - (SETQ |out| (|outputTextFile| |out|)) + (SETQ |stream| (|outputTextFile| |out|)) (|shoeXReport| |stream|) |out|) (|closeFile| |stream|))))))) diff --git a/src/boot/translator.boot b/src/boot/translator.boot index 2ec71dfc..d52ead6c 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -651,7 +651,7 @@ shoeXref(a,fn)== shoeDefUse shoeTransformStream a out := strconc(fn,'".xref") try - out := outputTextFile out + stream := outputTextFile out shoeXReport stream out finally closeFile stream |