Raymond Toy pushed to branch master at cmucl / cmucl Commits: 916b4bda by Raymond Toy at 2026-05-04T19:17:52-07:00 Fix #502: char-equal docstring indented incorrectly - - - - - 8544d3eb by Raymond Toy at 2026-05-04T19:17:52-07:00 Merge branch 'issue-502-fix-char-equal-docstring-indentation' into 'master' Fix #502: char-equal docstring indented incorrectly Closes #502 See merge request cmucl/cmucl!379 - - - - - 2 changed files: - src/code/char.lisp - src/i18n/locale/cmucl.pot Changes: ===================================== src/code/char.lisp ===================================== @@ -421,7 +421,7 @@ (defun char-equal (character &rest more-characters) "Returns T if all of its arguments are the same character. - Case is ignored." + Case is ignored." (do ((clist more-characters (cdr clist))) ((atom clist) T) (unless (= (equal-char-code (car clist)) @@ -431,7 +431,7 @@ (defun char-not-equal (character &rest more-characters) "Returns T if no two of its arguments are the same character. - Case is ignored." + Case is ignored." (do* ((head character (car list)) (list more-characters (cdr list))) ((atom list) T) @@ -445,7 +445,7 @@ (defun char-lessp (character &rest more-characters) "Returns T if its arguments are in strictly increasing alphabetic order. - Case is ignored." + Case is ignored." (do* ((c character (car list)) (list more-characters (cdr list))) ((atom list) T) @@ -456,7 +456,7 @@ (defun char-greaterp (character &rest more-characters) "Returns T if its arguments are in strictly decreasing alphabetic order. - Case is ignored." + Case is ignored." (do* ((c character (car list)) (list more-characters (cdr list))) ((atom list) T) @@ -467,7 +467,7 @@ (defun char-not-greaterp (character &rest more-characters) "Returns T if its arguments are in strictly non-decreasing alphabetic order. - Case is ignored." + Case is ignored." (do* ((c character (car list)) (list more-characters (cdr list))) ((atom list) T) @@ -478,7 +478,7 @@ (defun char-not-lessp (character &rest more-characters) "Returns T if its arguments are in strictly non-increasing alphabetic order. - Case is ignored." + Case is ignored." (do* ((c character (car list)) (list more-characters (cdr list))) ((atom list) T) ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -5644,37 +5644,37 @@ msgstr "" #: src/code/char.lisp msgid "" "Returns T if all of its arguments are the same character.\n" -" Case is ignored." +" Case is ignored." msgstr "" #: src/code/char.lisp msgid "" "Returns T if no two of its arguments are the same character.\n" -" Case is ignored." +" Case is ignored." msgstr "" #: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly increasing alphabetic order.\n" -" Case is ignored." +" Case is ignored." msgstr "" #: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly decreasing alphabetic order.\n" -" Case is ignored." +" Case is ignored." msgstr "" #: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-decreasing alphabetic order.\n" -" Case is ignored." +" Case is ignored." msgstr "" #: src/code/char.lisp msgid "" "Returns T if its arguments are in strictly non-increasing alphabetic order.\n" -" Case is ignored." +" Case is ignored." msgstr "" #: src/code/char.lisp View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/526bc7d8ad5d3475ff7e186... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/526bc7d8ad5d3475ff7e186... You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help