aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap/scanner.clisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/strap/scanner.clisp')
-rw-r--r--src/boot/strap/scanner.clisp2
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|))))))