GitLab

at 2024-06-09T15:21:54+00:00

Fix #328, #330:  Fix typos in unicode.lisp

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
     (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)

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

   (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))

Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes: