diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-29 02:28:09 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-29 02:28:09 +0000 |
| commit | c220d4d9a44a3828d96e55b1b1a0756d3acea9fe (patch) | |
| tree | 095a41566dc0299676d32d7c9068d9b0e392652d /src/boot/strap | |
| parent | 05f1dbf1e8564c316a4e0ed7146b4991162f8875 (diff) | |
| download | open-axiom-c220d4d9a44a3828d96e55b1b1a0756d3acea9fe.tar.gz | |
* interp/sys-utility.boot (displayTextFile): New.
* interp/i-syscmd.boot (summary): Use it.
(copyright): Likewise.
* algebra/net.spad.pamphlet: Replace closeFile with closeStream.
* boot/translator.boot: Likewise.
* interp/as.boot: Likewise.
* interp/ax.boot: Likewise.
* interp/br-saturn.boot: Likewise.
* interp/br-search.boot: Likewise.
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/translator.clisp | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index b7170014..54c28449 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -151,7 +151,7 @@ (PROGN (SETQ |a| (|inputTextFile| (|shoeAddbootIfNec| |fn|))) (|shoeClLines| |a| |fn| |lines| |outfn|)) - (|closeFile| |a|))))) + (|closeStream| |a|))))) (DEFUN |shoeClLines| (|a| |fn| |lines| |outfn|) (PROG (|stream|) @@ -173,7 +173,7 @@ (|shoeFileTrees| (|shoeTransformStream| |a|) |stream|) (|genModuleFinalization| |stream|) |outfn|) - (|closeFile| |stream|))))))) + (|closeStream| |stream|))))))) (DEFUN BOOTTOCLC (|fn| |out|) (UNWIND-PROTECT @@ -190,7 +190,7 @@ (PROGN (SETQ |a| (|inputTextFile| (|shoeAddbootIfNec| |fn|))) (|shoeClCLines| |a| |fn| |lines| |outfn|)) - (|closeFile| |a|))))) + (|closeStream| |a|))))) (DEFUN |shoeClCLines| (|a| |fn| |lines| |outfn|) (PROG (|stream|) @@ -216,7 +216,7 @@ |stream|) (|genModuleFinalization| |stream|) |outfn|) - (|closeFile| |stream|))))))) + (|closeStream| |stream|))))))) (DECLAIM (FTYPE (FUNCTION (|%String|) |%Thing|) BOOTTOMC)) @@ -231,7 +231,7 @@ (SETQ |a| (|inputTextFile| (|shoeAddbootIfNec| |fn|))) (|shoeMc| |a| |fn|)) (PROGN - (|closeFile| |a|) + (|closeStream| |a|) (|setCurrentPackage| |callingPackage|))))))) (DEFUN |shoeMc| (|a| |fn|) @@ -254,7 +254,7 @@ (PROGN (SETQ |a| (|inputTextFile| |infn|)) (|shoeClLines| |a| |infn| NIL |outfn|)) - (PROGN (|closeFile| |a|) (|setCurrentPackage| |b|))) + (PROGN (|closeStream| |a|) (|setCurrentPackage| |b|))) (LOAD |outfn|))))) (DECLAIM (FTYPE (FUNCTION (|%String|) |%Thing|) BO)) @@ -269,7 +269,7 @@ (PROGN (SETQ |a| (|inputTextFile| (|shoeAddbootIfNec| |fn|))) (|shoeToConsole| |a| |fn|)) - (PROGN (|closeFile| |a|) (|setCurrentPackage| |b|))))))) + (PROGN (|closeStream| |a|) (|setCurrentPackage| |b|))))))) (DEFUN BOCLAM (|fn|) (PROG (|$bfClamming| |a| |callingPackage|) @@ -284,7 +284,7 @@ (SETQ |a| (|inputTextFile| (|shoeAddbootIfNec| |fn|))) (|shoeToConsole| |a| |fn|)) (PROGN - (|closeFile| |a|) + (|closeStream| |a|) (|setCurrentPackage| |callingPackage|))))))) (DEFUN |shoeToConsole| (|a| |fn|) @@ -795,7 +795,7 @@ (PROGN (SETQ |a| (|inputTextFile| (CONCAT |fn| ".boot"))) (|shoeDfu| |a| |fn|)) - (|closeFile| |a|))))) + (|closeStream| |a|))))) (DEFPARAMETER |$bootDefined| NIL) @@ -825,7 +825,7 @@ (SETQ |stream| (|outputTextFile| (CONCAT |fn| ".defuse"))) (|shoeReport| |stream|)) - (|closeFile| |stream|))))))) + (|closeStream| |stream|))))))) (DEFUN |shoeReport| (|stream|) (PROG (|b| |a|) @@ -1104,7 +1104,7 @@ (PROGN (SETQ |a| (|inputTextFile| (CONCAT |fn| ".boot"))) (|shoeXref| |a| |fn|)) - (|closeFile| |a|))))) + (|closeStream| |a|))))) (DEFUN |shoeXref| (|a| |fn|) (PROG (|$bfClamming| |$bootUsed| |$bootDefined| |$lispWordTable| @@ -1127,7 +1127,7 @@ (SETQ |stream| (|outputTextFile| |out|)) (|shoeXReport| |stream|) |out|) - (|closeFile| |stream|))))))) + (|closeStream| |stream|))))))) (DEFUN |shoeXReport| (|stream|) (PROG (|a| |c|) |