feat: account for Japanese whitespace (#120)

Use `code-char` for abcl, cl, lispworks
vindarel · Jun 28, 2024 · 256156c · 256156c
1 parent b9d14b4
commit 256156c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/str.lisp b/str.lisp
@@ -135,6 +135,7 @@
 (defvar *whitespaces* (list #\Backspace #\Tab #\Linefeed #\Newline #\Vt #\Page
                             #\Return #\Space #\Rubout
                             #+sbcl #\Next-Line #-sbcl (code-char 133)
+                            #+(or abcl gcl lispworks) (code-char 12288) #-(or abcl gcl lispworks) #\Ideographic_space
                             #+lispworks #\no-break-space #-lispworks #\No-break_space)
   "On some implementations, linefeed and newline represent the same character (code).")
 

diff --git a/test/test-str.lisp b/test/test-str.lisp
@@ -172,7 +172,8 @@
 (test trim
   (is (string= "rst" (trim "  rst  ")))
   (is (string= nil (trim nil)))
-  (is (string= "rst" (trim "drste" :char-bag "de"))))
+  (is (string= "rst" (trim "drste" :char-bag "de")))
+  (is (string= "rst" (trim "　　rst　　　"))))
 
 (test trim-right
   (is (string= " rst" (trim-right " rst   ")))