diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-11 02:03:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-11 02:03:13 +0000 |
| commit | f8e7728606692cfb26816637c0622007758d9ae5 (patch) | |
| tree | 2d2965bfcbd1e4a02bd61c5460e217f16b99f960 /src/boot/strap/scanner.clisp | |
| parent | 46e765be689a737fa233ca242459520db3797f03 (diff) | |
| download | open-axiom-f8e7728606692cfb26816637c0622007758d9ae5.tar.gz | |
Clean up
Diffstat (limited to 'src/boot/strap/scanner.clisp')
| -rw-r--r-- | src/boot/strap/scanner.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index 9fcb1bef..42cb92e3 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -526,7 +526,7 @@ (SETQ |$n| (+ |$n| 1)) (|SoftShoeError| (CONS |$linepos| |n|) (CONCAT "The character whose number is " - (STRINGIMAGE (QENUM |$ln| |n|)) + (WRITE-TO-STRING (QENUM |$ln| |n|)) " is not a Boot character")) (|shoeLeafError| (ELT |$ln| |n|)))))) |