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...