diff options
Diffstat (limited to 'src/strings.lisp')
| -rw-r--r-- | src/strings.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/strings.lisp b/src/strings.lisp index b11c31c..635762c 100644 --- a/src/strings.lisp +++ b/src/strings.lisp | |||
| @@ -6,6 +6,7 @@ | |||
| 6 | (:export | 6 | (:export |
| 7 | :ends-with | 7 | :ends-with |
| 8 | :escape-xml | 8 | :escape-xml |
| 9 | :is-tg-whitespace | ||
| 9 | :is-tg-whitespace-str | 10 | :is-tg-whitespace-str |
| 10 | :lisp->camel-case | 11 | :lisp->camel-case |
| 11 | :lisp->snake-case | 12 | :lisp->snake-case |
| @@ -41,7 +42,7 @@ | |||
| 41 | (string= gc "Zl") ; Separator, line | 42 | (string= gc "Zl") ; Separator, line |
| 42 | (string= gc "Zp") ; Separator, paragraph | 43 | (string= gc "Zp") ; Separator, paragraph |
| 43 | (string= gc "Cc") ; Other, control | 44 | (string= gc "Cc") ; Other, control |
| 44 | (= (char-code ch) #x2800) ; BRAILLE PATTERN BLANK | 45 | (= (char-code ch) #x2800) ; BRAILLE PATTERN BLANK |
| 45 | ))) | 46 | ))) |
| 46 | 47 | ||
| 47 | (defun is-tg-whitespace-str (str) | 48 | (defun is-tg-whitespace-str (str) |