diff options
Diffstat (limited to 'src/strings.lisp')
| -rw-r--r-- | src/strings.lisp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/strings.lisp b/src/strings.lisp index 635762c..f08010e 100644 --- a/src/strings.lisp +++ b/src/strings.lisp | |||
| @@ -42,8 +42,7 @@ | |||
| 42 | (string= gc "Zl") ; Separator, line | 42 | (string= gc "Zl") ; Separator, line |
| 43 | (string= gc "Zp") ; Separator, paragraph | 43 | (string= gc "Zp") ; Separator, paragraph |
| 44 | (string= gc "Cc") ; Other, control | 44 | (string= gc "Cc") ; Other, control |
| 45 | (= (char-code ch) #x2800) ; BRAILLE PATTERN BLANK | 45 | (= (char-code ch) #x2800)))) ; BRAILLE PATTERN BLANK |
| 46 | ))) | ||
| 47 | 46 | ||
| 48 | (defun is-tg-whitespace-str (str) | 47 | (defun is-tg-whitespace-str (str) |
| 49 | (iter (for ch in-string str) | 48 | (iter (for ch in-string str) |