diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-07-04 04:39:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-07-04 04:39:13 +0000 |
| commit | dc5f09ca9fe80896ec7fd8677a3e517ce9213285 (patch) | |
| tree | a99f1bd7f2174ea4d71a3edb7fdfcc085483c3b6 /src/interp/diagnostics.boot | |
| parent | 67a9b503724a4390abf08baa367959713483f363 (diff) | |
| download | open-axiom-dc5f09ca9fe80896ec7fd8677a3e517ce9213285.tar.gz | |
* interp/vmlisp.lisp (PRINTEXP): Remove.
* interp/br-data.boot: Use writeString, writeChar, and writeLine.
* interp/c-util.boot: Likewise.
* interp/diagnostics.boot: Likewise.
* interp/fortcall.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/lisplib.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/record.boot: Likewise.
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include
%writeString, %writeNewline, %writeLine.
* interp/lisp-backend.boot: Translate them.
Diffstat (limited to 'src/interp/diagnostics.boot')
| -rw-r--r-- | src/interp/diagnostics.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/diagnostics.boot b/src/interp/diagnostics.boot index d91e3679..fd5c5e09 100644 --- a/src/interp/diagnostics.boot +++ b/src/interp/diagnostics.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2010, Gabriel Dos Reis +-- Copyright (C) 2007-2011, Gabriel Dos Reis -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -81,19 +81,19 @@ MESSAGEPRINT x == MESSAGEPRINT_-1 x == cons? x => - PRINC '"(" + writeString '"(" MESSAGEPRINT_-1 first x MESSAGEPRINT_-2 rest x - PRINC '")" + writeString '")" x = "%l" or x is '"%l" => TERPRI() PRINC x MESSAGEPRINT_-2 x == atom x => not null x => - PRINC '" . " + writeString '" . " MESSAGEPRINT_-1 x - PRINC '" " + writeString '" " MESSAGEPRINT_-1 first x MESSAGEPRINT_-2 rest x |