diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-05 11:36:37 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 11:36:37 +0000 |
| commit | fb3bb6231462cddfb70301ea1672ebc04c8e829a (patch) | |
| tree | 316e516bc5f0920f407fdae6e54780cdbdd320f2 /src/boot/strap | |
| parent | 94c6cd6e946964b3710dbe24dbca7c44a36beee0 (diff) | |
| download | open-axiom-fb3bb6231462cddfb70301ea1672ebc04c8e829a.tar.gz | |
more cleanups
Diffstat (limited to 'src/boot/strap')
| -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|))))))) |