cmucl-cvs June 2023

cmucl-cvs@common-lisp.net

1 participants
54 discussions

[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] add recursive listing of locale directories to test for files
by Jon Boone (＠jboone) 07 Jun '23

07 Jun '23

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: 9ce6e5c4 by Jon Boone at 2023-06-06T21:35:40-04:00 add recursive listing of locale directories to test for files - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -61,6 +61,7 @@ linux:test: - job: linux:build artifacts: true script: + - ls -laR dist/lib/cmucl/lib/locale/ - bin/run-tests.sh -l dist/bin/lisp 2>&1 | tee test.log linux:ansi-test: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9ce6e5c475401d2f9953eaa… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9ce6e5c475401d2f9953eaa… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] both tests + print of intl::*locale* for verification
by Jon Boone (＠jboone) 06 Jun '23

06 Jun '23

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: 7f512626 by Jon Boone at 2023-06-05T20:21:55-04:00 both tests + print of intl::*locale* for verification - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -837,7 +837,8 @@ (piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay.")) (unwind-protect (progn - ;; (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) + (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) + (print (intl::find-domain "cmucl" intl::*locale*)) (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer.")) ) (intl:setlocale old-locale)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7f5126260c3fb5be2376810… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/7f5126260c3fb5be2376810… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] checking second test for issue.154
by Jon Boone (＠jboone) 06 Jun '23

06 Jun '23

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: f5b2a9bf by Jon Boone at 2023-06-05T20:12:45-04:00 checking second test for issue.154 - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -837,8 +837,8 @@ (piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay.")) (unwind-protect (progn - (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) - ;; (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer.")) + ;; (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) + (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer.")) ) (intl:setlocale old-locale)))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f5b2a9bf2ecf3e5650efe83… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f5b2a9bf2ecf3e5650efe83… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Deleted branch resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore
by Jon Boone (＠jboone) 05 Jun '23

05 Jun '23

Jon Boone deleted branch resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl -- You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] ensure first tests for issue.154 passes alone
by Jon Boone (＠jboone) 05 Jun '23

05 Jun '23

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: c774e49d by Jon Boone at 2023-06-05T19:48:35-04:00 ensure first tests for issue.154 passes alone - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -838,7 +838,8 @@ (unwind-protect (progn (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) - (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer."))) + ;; (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer.")) + ) (intl:setlocale old-locale)))) (define-test issue.158 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c774e49d989d801f222233c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/c774e49d989d801f222233c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore] 4 commits: add en_US.UTF-8@piglatin as locale-alias
by Jon Boone (＠jboone) 05 Jun '23

05 Jun '23

Jon Boone pushed to branch resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: 961adce2 by Jon Boone at 2023-06-05T15:00:50-04:00 add en_US.UTF-8@piglatin as locale-alias - - - - - be648edc by Jon Boone at 2023-06-05T15:00:51-04:00 adding test for issue 154 fix - - - - - 8f48ebc1 by Jon Boone at 2023-06-05T15:00:52-04:00 corrects test definition to restore locale afterward - - - - - d6801a41 by Jon Boone at 2023-06-05T15:00:53-04:00 modified issue.154 test to have lispier symbols - - - - - 3 changed files: - src/code/intl.lisp - src/i18n/locale/cmucl.pot - tests/issues.lisp Changes: ===================================== src/code/intl.lisp ===================================== @@ -51,6 +51,7 @@ Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this.") (defvar *loaded-domains* (make-hash-table :test 'equal)) (defvar *locale-aliases* (make-hash-table :test 'equal)) +(setf (gethash "en_US.UTF-8@piglatin" *locale-aliases*) "en@piglatin") (defstruct domain-entry (domain "" :type simple-base-string) ===================================== src/i18n/locale/cmucl.pot ===================================== @@ -9083,7 +9083,8 @@ msgstr "" #: src/code/extfmts.lisp msgid "" "The default external format to use if no other external format is\n" -" specified" +" specified. This is unaffected by any locale settings or by\n" +" SET-SYSTEM-EXTERNAL-FORMAT." msgstr "" #: src/code/extfmts.lisp ===================================== tests/issues.lisp ===================================== @@ -830,7 +830,16 @@ (assert-true (stream::find-external-format :euckr)) (assert-true (stream::find-external-format :cp949)))) - +(define-test issue.154 + (:tag :issues) + (let ((old-locale intl::*locale*) + (locale "en_US.UTF-8@piglatin") + (piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay.")) + (unwind-protect + (progn + (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) + (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer."))) + (intl:setlocale old-locale)))) (define-test issue.158 (:tag :issues) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a2fa2dae5851e0687f525f… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a2fa2dae5851e0687f525f… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore
by Jon Boone (＠jboone) 05 Jun '23

05 Jun '23

Jon Boone pushed new branch resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/resolve-mr-for-issue-154-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] 3 commits: Add a simple template for release notes
by Jon Boone (＠jboone) 05 Jun '23

05 Jun '23

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: b6e9fd43 by Raymond Toy at 2023-06-05T14:20:56-04:00 Add a simple template for release notes Supply a template for release notes that has the various parts to be filled in. This probably needs some tweaking. I'm no longer clear on the differences between "Changes", "ANSI compliance fixes", "Bug fixes", and "Gitlab tickets". - - - - - 2d76d55f by Raymond Toy at 2023-06-05T14:20:57-04:00 Fix #216: enough-namestring with relative pathname fails - - - - - 149665ae by Raymond Toy at 2023-06-05T14:20:59-04:00 Remove unicode replacement character There's a Unicode replacement character (U+FFFD) in src/code/unicode.lisp. I tried to see if I can figure out what character was actually here, but I couldn't find the original. There's no point in having it here since it provides no information other than at some point it got replaced. Might as well remove it. - - - - - 4 changed files: - src/code/filesys.lisp - src/code/unicode.lisp - + src/general-info/release-template.md - tests/issues.lisp Changes: ===================================== src/code/filesys.lisp ===================================== @@ -610,8 +610,8 @@ ;; We are an absolute pathname, so we can just use it. pathname-directory) (t - ;; We are a relative directory. So we lose. - (lose))))) + ;; We are a relative directory, so just return it as is. + pathname-directory)))) (strings (unparse-unix-directory-list result-dir))) (let* ((pathname-version (%pathname-version pathname)) (version-needed (and pathname-version ===================================== src/code/unicode.lisp ===================================== @@ -177,7 +177,7 @@ ;; incorrect; instead, what we need is a new rule: ;; ;; *Break after paragraph separators.* -;; WB3a. Sep � +;; WB3a. Sep ;; I'll make a propose to the UTC for this. ;; ;; Here is Will's translation of those rules (including WB3a) ===================================== src/general-info/release-template.md ===================================== @@ -0,0 +1,39 @@ +# Work in progress + +The CMUCL project is pleased to announce the release of CMUCL 21e. +This is a major release which contains numerous enhancements and bug +fixes from the <previous> release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a +source-level debugger and code profiler; and an Emacs-like editor +implemented in Common Lisp. CMUCL is maintained by a team of +volunteers collaborating over the Internet, and is mostly in the +public domain. + +## New in this release: + * Known issues: + * Feature enhancements: + * Changes: + * ANSI compliance fixes: + * Bug fixes: + * Gitlab tickets: + * Other changes: + * Improvements to the PCL implementation of CLOS: + * Changes to building procedure: + +This release is not binary compatible with code compiled using CMUCL +<previous>; you will need to recompile FASL files. + +See http://www.cmucl.org or +https://gitlab.common-lisp.net/cmucl/cmucl for more information, +See +https://gitlab.common-lisp.net/cmucl/cmucl/wikis/GettingCmucl +for obtaining CMUCL, including sources and binaries.. + + +We hope you enjoy using this release of CMUCL! ===================================== tests/issues.lisp ===================================== @@ -986,3 +986,12 @@ (assert-true (equal (make-pathname :version :newest) (make-pathname :version :unspecific))) ) + +(define-test issue.216.enough-namestring-relative-dir + (:tag :issues) + (let ((pathname #p"foo/bar.lisp")) + (dolist (defaults '(#p"/tmp/zot/" #p"/tmp/zot/foo/")) + (let ((enough (enough-namestring pathname defaults))) + ;; This is the condition from the CLHS entry for enough-namestring + (assert-equal (merge-pathnames enough defaults) + (merge-pathnames (parse-namestring pathname nil defaults) defaults)))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2c5f040e8bf7d350baa380… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/2c5f040e8bf7d350baa380… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] modified issue.154 test to have lispier symbols
by Jon Boone (＠jboone) 05 Jun '23

05 Jun '23

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: 2c5f040e by Jon Boone at 2023-06-04T20:27:45-04:00 modified issue.154 test to have lispier symbols - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -834,11 +834,11 @@ (:tag :issues) (let ((old-locale intl::*locale*) (locale "en_US.UTF-8@piglatin") - (piglatin_text "Ethay izesay ofway away eamstray inway-ufferbay.")) + (piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay.")) (unwind-protect (progn (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) - (assert-equal piglatin_text (intl:dgettext "cmucl" "The size of a stream in-buffer."))) + (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer."))) (intl:setlocale old-locale)))) (define-test issue.158 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2c5f040e8bf7d350baa3801… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/2c5f040e8bf7d350baa3801… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-154-piglatin-translation-doesnt-work-anymore] corrects test definition to restore locale afterward
by Jon Boone (＠jboone) 04 Jun '23

04 Jun '23

Jon Boone pushed to branch issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl Commits: e2bb63ec by Jon Boone at 2023-06-03T22:22:59-04:00 corrects test definition to restore locale afterward - - - - - 1 changed file: - tests/issues.lisp Changes: ===================================== tests/issues.lisp ===================================== @@ -832,10 +832,14 @@ (define-test issue.154 (:tag :issues) - (let ((locale "en_US.UTF-8@piglatin") + (let ((old-locale intl::*locale*) + (locale "en_US.UTF-8@piglatin") (piglatin_text "Ethay izesay ofway away eamstray inway-ufferbay.")) - (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) - (assert-equal piglatin_text (intl:dgettext "cmucl" "The size of a stream in-buffer.")))) + (unwind-protect + (progn + (assert-equal locale (intl:setlocale "en_US.UTF-8@piglatin")) + (assert-equal piglatin_text (intl:dgettext "cmucl" "The size of a stream in-buffer."))) + (intl:setlocale old-locale)))) (define-test issue.158 (:tag :issues) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e2bb63ece46c2ea14176a7c… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/e2bb63ece46c2ea14176a7c… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs June 2023