diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-28 04:34:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-28 04:34:35 +0000 |
| commit | e609586105f5a9b2b314a9dbeab0e7ec47d66b85 (patch) | |
| tree | d7d301cc8060f30154dff07b334cbc67e636432d /src/lisp | |
| parent | bd0ce3e3c5dfaad8adcb5034d9637267ed6bc857 (diff) | |
| download | open-axiom-e609586105f5a9b2b314a9dbeab0e7ec47d66b85.tar.gz | |
* interp/int-top.boot (intloopReadConsole): Use $InputStream.
* interp/bootlex.lisp (init-boot/spad-reader): Use $OutputStream.
* interp/comp.lisp (|compQuietly|): Likewise.
(|compileFileQuietly|): Likewise.
(|compileQuietly|): Likewise.
* interp/unlisp.lisp (|Prompt|): Likewise.
* interp/server.boot (serverReadLine): Indent while body.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 52375325..c6ba6cd3 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -479,7 +479,7 @@ (defun |handleRequest| (prog-name request options args) (let ((driver (|getDriver| request))) (when (null driver) - (|fatalError| (format nil "invalid option ~S" request))) + (|fatalError| (format nil "invalid option `--~a'" (string request)))) (funcall driver prog-name options args))) (defun |hasHandler?| (request) |