diff options
| author |  Uko Kokņevičs | 2025-10-18 03:06:09 +0300 |
|---|---|---|
| committer | Uko Kokņevičs | 2025-10-18 03:53:48 +0300 |
| commit | ec7de1aa1ad2bc14b3b1572ea4cc5024a6c662ae (patch) | |
| tree | 5dcc03e76b14f1bb522f16ea98e975a7ef5bbb88 /src/strings.lisp | |
| parent | Add "tiny ..." trigger (diff) | |
| download | ukkoclot-ec7de1aa1ad2bc14b3b1572ea4cc5024a6c662ae.tar.gz ukkoclot-ec7de1aa1ad2bc14b3b1572ea4cc5024a6c662ae.tar.xz ukkoclot-ec7de1aa1ad2bc14b3b1572ea4cc5024a6c662ae.zip | |
Add ocicl lint
Diffstat (limited to '')
| -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) |