Raymond Toy pushed to branch master at cmucl / cmucl Commits: ee8f24b5 by Raymond Toy at 2024-06-09T15:21:54+00:00 Fix #328, #330: Fix typos in unicode.lisp - - - - - 1fd8f251 by Raymond Toy at 2024-06-09T15:22:08+00:00 Merge branch 'issue-328-typo-code-char' into 'master' Fix #328, #330: Fix typos in unicode.lisp Closes #328 and #330 See merge request cmucl/cmucl!229 - - - - - 1 changed file: - src/code/unicode.lisp Changes: ===================================== src/code/unicode.lisp ===================================== @@ -495,7 +495,8 @@ (cond ((<= (char-code #\a) m (char-code #\z)) (code-char (logxor m #x20))) #+(and unicode (not unicode-bootstrap)) - ((> m +ascii-limit+) (code-char (unicode-title m))) + ((> m lisp::+ascii-limit+) + (code-char (lisp::unicode-title m))) (t char)))) (defun title-case-p (char) @@ -503,9 +504,9 @@ argument is a title-case character, NIL otherwise." (declare (character char)) (let ((m (char-code char))) - (or (<= (code-char #\A) m (code-char #\Z)) + (or (<= (char-code #\A) m (char-code #\Z)) #+(and unicode (not unicode-bootstrap)) - (and (> m +ascii-limit+) + (and (> m lisp::+ascii-limit+) (= (unicode-category m) +unicode-category-title+))))) (defun string-capitalize-unicode (string &key (start 0) end (casing :simple)) @@ -561,7 +562,7 @@ (let* ((string (if (stringp string) string (string string))) (slen (length string))) (declare (fixnum slen)) - (with-one-string string start end offset + (lisp::with-one-string string start end offset (let ((offset-slen (+ slen offset)) (newstring (make-string slen))) (declare (fixnum offset-slen)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4238c6273f8236c1ee7f820... -- This project does not include diff previews in email notifications. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4238c6273f8236c1ee7f820... You're receiving this email because of your account on gitlab.common-lisp.net.