diff options
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 4 |
1 files changed, 2 insertions, 2 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|))))))) |