ref: 38156baef2e1f2a3b02d9b8a99d8685be1964e42
parent: a186c3bafb15cb6e95867848889e57537fd083ae
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Mon Mar 17 21:46:46 EDT 2025
str-map: fix a typo
--- a/boot/sl.boot
+++ b/boot/sl.boot
@@ -407,8 +407,8 @@
("n170q062:" #(reverse!-) reverse!)
reverse!- #fn("n2I1B3B041=101?04N4?1@\x1d/40:" #() reverse!-) reverse-
#fn("n21J400:701<0P1=62:" #(reverse-) reverse-) rune? #fn("n12005121Q:" #(#fn(typeof)
-e) rune?)
- self-evaluating? #fn("n120051S;3Z040H;36040RS;JK0421051;3A040R;3:04022051Q:" #(#fn(gensym?)
+e) rune?)
+ self-evaluating? #fn("n120051S;3Z040H;36040RS;JK0421051;3A040R;3:04022051Q:" #(#fn(gensym?)
set-syntax! #fn("n220710163:" #(#fn(put!)
*syntax-environment*) set-syntax!)
--- a/src/system.lsp
+++ b/src/system.lsp
@@ -889,7 +889,7 @@
(while (< i n)
(io-putc b (f (str-rune s i)))
(set! i (1+ i))))
- (ios->str b)))
+ (io->str b)))
(def (str-rep s k)
(cond ((< k 4)