- cmucl-cvs - mailman3.common-lisp.net

[Git][cmucl/cmucl][master] 2 commits: Fix #444: Use 64-bit time_t value for stat and friends
by Raymond Toy (＠rtoy) 13 Oct '25

13 Oct '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 13f23f79 by Raymond Toy at 2025-10-13T18:45:22-07:00 Fix #444: Use 64-bit time_t value for stat and friends - - - - - 52ce44f1 by Raymond Toy at 2025-10-13T18:45:22-07:00 Merge branch 'issue-444-b-stat-with-64-bit-time' into 'master' Fix #444: Use 64-bit time_t value for stat and friends Closes #444 See merge request cmucl/cmucl!326 - - - - - 4 changed files: - src/general-info/release-22a.md - src/lisp/os-common.c - tests/os.lisp - + tests/resources/64-bit-timestamp.txt Changes: ===================================== src/general-info/release-22a.md ===================================== @@ -24,8 +24,9 @@ public domain. * Updated CLX from upstream to version from 2024-09-11. * ANSI compliance fixes: * Bug fixes: - * #387: Update CLX from upstream to version from 2024-09-11. * Gitlab tickets: + * #387: Update CLX from upstream to version from 2024-09-11. + * #444: `unix-stat` and friends return wrong timestamp * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: ===================================== src/lisp/os-common.c ===================================== @@ -5,6 +5,11 @@ */ +#ifdef __linux__ +/* Want 64-bit time_t values for stat and friends */ +#define _TIME_BITS 64 +#endif + #include <assert.h> #include <errno.h> #include <langinfo.h> ===================================== tests/os.lisp ===================================== @@ -34,3 +34,19 @@ (system:get-user-homedir-namestring "zotuserunknown") (assert-eql home-pathname nil) (assert-eql status 0))) + +#+linux +(define-test stat.64-bit-timestamp + (:tag :issues) + (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp.txt" + cl:*load-pathname*))) + (assert-true (probe-file test-file)) + (multiple-value-bind (ok st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size + st-atime st-mtime + st-ctime st-blksize st-blocks) + (unix:unix-stat (namestring test-file)) + (declare (ignore st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev + st-ctime st-blksize st-blocks)) + (assert-true ok) + (assert-equal st-atime 2153718000) + (assert-equal st-mtime 2153718000)))) ===================================== tests/resources/64-bit-timestamp.txt ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e5b25a238f73321c0961cb… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/e5b25a238f73321c0961cb… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-444-b-stat-with-64-bit-time] Update release notes
by Raymond Toy (＠rtoy) 12 Oct '25

12 Oct '25

Raymond Toy pushed to branch issue-444-b-stat-with-64-bit-time at cmucl / cmucl Commits: 300f7673 by Raymond Toy at 2025-10-12T18:49:46-07:00 Update release notes - - - - - 1 changed file: - src/general-info/release-22a.md Changes: ===================================== src/general-info/release-22a.md ===================================== @@ -24,8 +24,9 @@ public domain. * Updated CLX from upstream to version from 2024-09-11. * ANSI compliance fixes: * Bug fixes: - * #387: Update CLX from upstream to version from 2024-09-11. * Gitlab tickets: + * #387: Update CLX from upstream to version from 2024-09-11. + * #444: `unix-stat` and friends return wrong timestamp * Other changes: * Improvements to the PCL implementation of CLOS: * Changes to building procedure: View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/300f7673352e492cbff80be… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/300f7673352e492cbff80be… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-444-b-stat-with-64-bit-time] Fix typo
by Raymond Toy (＠rtoy) 12 Oct '25

12 Oct '25

Raymond Toy pushed to branch issue-444-b-stat-with-64-bit-time at cmucl / cmucl Commits: 94d7c0ec by Raymond Toy at 2025-10-12T15:04:09-07:00 Fix typo - - - - - 1 changed file: - src/lisp/os-common.c Changes: ===================================== src/lisp/os-common.c ===================================== @@ -7,7 +7,7 @@ #ifdef __linux__ /* Want 64-bit time_t values for stat and friends */ -#define _TIME_BITS=64 +#define _TIME_BITS 64 #endif #include <assert.h> View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/94d7c0ec903ed2fe69cff81… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/94d7c0ec903ed2fe69cff81… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-444-b-stat-with-64-bit-time] Add test for stat with 64-bit timestamp
by Raymond Toy (＠rtoy) 12 Oct '25

12 Oct '25

Raymond Toy pushed to branch issue-444-b-stat-with-64-bit-time at cmucl / cmucl Commits: aa283d2c by Raymond Toy at 2025-10-12T14:44:38-07:00 Add test for stat with 64-bit timestamp Create tests/resources/64-bit-timestamp.txt which has a date of Apr 1, 2038, which requires a 64-bit timestamp. Add a test that `probe-file` works with this file and also that `unix-stat` produces the correct time values. - - - - - 2 changed files: - tests/os.lisp - + tests/resources/64-bit-timestamp.txt Changes: ===================================== tests/os.lisp ===================================== @@ -34,3 +34,19 @@ (system:get-user-homedir-namestring "zotuserunknown") (assert-eql home-pathname nil) (assert-eql status 0))) + +#+linux +(define-test stat.64-bit-timestamp + (:tag :issues) + (let ((test-file #.(merge-pathnames "resources/64-bit-timestamp.txt" + cl:*load-pathname*))) + (assert-true (probe-file test-file)) + (multiple-value-bind (ok st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev st-size + st-atime st-mtime + st-ctime st-blksize st-blocks) + (unix:unix-stat (namestring test-file)) + (declare (ignore st-dev st-ino st-mode st-nlink st-uid st-gid st-rdev + st-ctime st-blksize st-blocks)) + (assert-true ok) + (assert-equal st-atime 2153718000) + (assert-equal st-mtime 2153718000)))) ===================================== tests/resources/64-bit-timestamp.txt ===================================== View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/aa283d2cc48dadfb51ed52e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/aa283d2cc48dadfb51ed52e… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-444-b-stat-with-64-bit-time
by Raymond Toy (＠rtoy) 12 Oct '25

12 Oct '25

Raymond Toy pushed new branch issue-444-b-stat-with-64-bit-time at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-444-b-stat-with-64-… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-444-stat-with-64-bit-time-t] 2 commits: Revert "Fix #444: Use 64-bit time_t value for stat and friends"
by Raymond Toy (＠rtoy) 10 Oct '25

10 Oct '25

Raymond Toy pushed to branch issue-444-stat-with-64-bit-time-t at cmucl / cmucl Commits: 885d88eb by Raymond Toy at 2025-10-10T07:37:55-07:00 Revert "Fix #444: Use 64-bit time_t value for stat and friends" This reverts commit 428fc80d1279cd005abca4480bf8cd990e7e7027. - - - - - 145605a0 by Raymond Toy at 2025-10-10T07:39:17-07:00 Revert previous change and use Madhu's solution Madhu provided this patch to fix the issue he was encountering with probe-file that was calling unix-stat which was failing for him. (I don't have that problem for whatever reason.) This changes `time-t` to be an `int64-t` type and adds `-D_TIME_BITS=64` to the compilation flags on Linux. I initially had issues with this patch, but it was fixed by removing all the build directories. - - - - - 3 changed files: - src/code/unix.lisp - src/lisp/Config.x86_linux - src/lisp/os-common.c Changes: ===================================== src/code/unix.lisp ===================================== @@ -69,7 +69,7 @@ (def-alien-type time-t #-(or bsd linux alpha) unsigned-long - #+linux long + #+linux int64-t #+(and bsd (not netbsd)) long #+(and bsd netbsd) int64-t #+alpha unsigned-int) @@ -136,8 +136,8 @@ (def-alien-type nil (struct timeval - (tv-sec #-linux time-t #+linux int) ; seconds - (tv-usec int))) ; and microseconds + (tv-sec time-t) ; seconds + (tv-usec long))) ; and microseconds #+(or linux BSD) (def-alien-type nil @@ -1721,12 +1721,6 @@ (void-syscall ("symlink" c-string c-string) (%name->file name1) (%name->file name2))) -(def-alien-type nil - (struct timeval - (tv-sec time-t) ; seconds - (tv-usec #-linux int - #+linux time-t))) ; and microseconds - (def-alien-type nil (struct timezone (tz-minuteswest int) ; minutes west of Greenwich ===================================== src/lisp/Config.x86_linux ===================================== @@ -4,7 +4,7 @@ include Config.x86_common CFLAGS += $(COPT) CPPFLAGS += -m32 CFLAGS += -rdynamic -march=pentium4 -mfpmath=sse -mtune=generic -CFLAGS += -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 +CFLAGS += -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_TIME_BITS=64 UNDEFSYMPATTERN = -Xlinker -u -Xlinker & ASSEM_SRC += linux-stubs.S ===================================== src/lisp/os-common.c ===================================== @@ -5,11 +5,6 @@ */ -#ifdef __linux__ -/* Want 64-bit time_t values for stat and friends */ -#define _TIME_BITS 64 -#endif - #include <assert.h> #include <errno.h> #include <langinfo.h> View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/428fc80d1279cd005abca4… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/428fc80d1279cd005abca4… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-444-stat-with-64-bit-time-t
by Raymond Toy (＠rtoy) 09 Oct '25

09 Oct '25

Raymond Toy pushed new branch issue-444-stat-with-64-bit-time-t at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-444-stat-with-64-bi… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-355-solaris-x86-sigfpe-handler
by Raymond Toy (＠rtoy) 03 Oct '25

03 Oct '25

Raymond Toy pushed new branch issue-355-solaris-x86-sigfpe-handler at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-355-solaris-x86-sig… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-387-update-clx] 3 commits: Add release-22a.md for next release
by Raymond Toy (＠rtoy) 01 Oct '25

01 Oct '25

Raymond Toy pushed to branch issue-387-update-clx at cmucl / cmucl Commits: 38e6cb72 by Raymond Toy at 2025-10-01T15:02:08-07:00 Add release-22a.md for next release Just add the template for the next release; everything is empty, of course. No CI needed. [skip-ci] - - - - - 3368e30f by Raymond Toy at 2025-10-01T15:03:26-07:00 Merge branch 'master' into issue-387-update-clx - - - - - 3ae82f62 by Raymond Toy at 2025-10-01T15:04:57-07:00 Update release notes for 22a No CI needed [skip-ci] - - - - - 1 changed file: - + src/general-info/release-22a.md Changes: ===================================== src/general-info/release-22a.md ===================================== @@ -0,0 +1,43 @@ +# CMUCL 22a + +# Work in progress + +The CMUCL project is pleased to announce the release of CMUCL 22a. +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: + * Updated CLX from upstream to version from 2024-09-11. + * ANSI compliance fixes: + * Bug fixes: + * #387: Update CLX from upstream to version from 2024-09-11. + * 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 +21f; 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! View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6475f48dded255e1d2ea95… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/6475f48dded255e1d2ea95… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Add release-22a.md for next release
by Raymond Toy (＠rtoy) 01 Oct '25

01 Oct '25

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 38e6cb72 by Raymond Toy at 2025-10-01T15:02:08-07:00 Add release-22a.md for next release Just add the template for the next release; everything is empty, of course. No CI needed. [skip-ci] - - - - - 1 changed file: - + src/general-info/release-22a.md Changes: ===================================== src/general-info/release-22a.md ===================================== @@ -0,0 +1,41 @@ +# CMUCL 22a + +# Work in progress + +The CMUCL project is pleased to announce the release of CMUCL 22a. +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 +21f; 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! View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/38e6cb72b1fe57d7cba4910… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/38e6cb72b1fe57d7cba4910… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0