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

[Git][cmucl/cmucl][issue-469-enable-cr-pow] Minor cleanup of GNUMakefile
by Raymond Toy (＠rtoy) 06 Feb '26

06 Feb '26

Raymond Toy pushed to branch issue-469-enable-cr-pow at cmucl / cmucl Commits: ef6f16ec by Raymond Toy at 2026-02-05T17:52:52-08:00 Minor cleanup of GNUMakefile First, CORE64_OBJS is no longer defined, so don't use it. The CORE64_OBJS that used to name the .o files for core-math are now computed as part of OBJS. This removal also meant that the "clean" target no longer removed the core-math object files. Fix this by changing the rule to remove $(OBJS) instead of *.o. - - - - - 1 changed file: - src/lisp/GNUmakefile Changes: ===================================== src/lisp/GNUmakefile ===================================== @@ -55,7 +55,7 @@ version.o : version.c version mv ,version version $(CC) ${CFLAGS} $(CPPFLAGS) -DVERSION=`cat version` -c $< -lisp: ${OBJS} ${CORE64_OBJS} version.o +lisp: ${OBJS} version.o $(CC) -g ${OS_LINK_FLAGS} -o ,lisp $^ ${OS_LIBS} -lm mv -f ,lisp lisp @@ -75,7 +75,7 @@ internals.h internals.inc: @false clean: - $(RM) Depends *.o $(CORE64_OBJS) lisp lisp.nm core lisp.a + $(RM) Depends $(OBJS) lisp lisp.nm core lisp.a echo 'Map file for lisp version 0' > lisp.nm depend: Depends View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef6f16eca1f968af59a0e38… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef6f16eca1f968af59a0e38… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] 2 commits: Fix #470: Fix unit test issues on Ubuntu CI
by Raymond Toy (＠rtoy) 06 Feb '26

06 Feb '26

Raymond Toy pushed to branch master at cmucl / cmucl Commits: f5a798b8 by Raymond Toy at 2026-02-05T17:51:48-08:00 Fix #470: Fix unit test issues on Ubuntu CI - - - - - 5b6d4d73 by Raymond Toy at 2026-02-05T17:51:48-08:00 Merge branch 'issue-470-ubuntu-ci-failures' into 'master' Fix #470: Fix unit test issues on Ubuntu CI Closes #470 See merge request cmucl/cmucl!348 - - - - - 3 changed files: - bin/run-unit-tests.sh - tests/issues.lisp - + tests/test-run-prog/ls-link Changes: ===================================== bin/run-unit-tests.sh ===================================== @@ -41,11 +41,6 @@ done # Shift out the options shift $((OPTIND - 1)) -# Create the test directory needed by the issue.45 test. -rm -rf test-tmp -mkdir test-tmp -ln -s /bin/ls test-tmp/ls-link - # Set the timestamps on 64-bit-timestamp-2038.txt and # 64-bit-timestamp-2106.txt, but only for OSes where we know this # works. (This is so we don't an annoying error message from touch @@ -56,8 +51,9 @@ ln -s /bin/ls test-tmp/ls-link # tests/os.lisp. case `uname -s` in Linux) - touch -d "1 April 2038" tests/resources/64-bit-timestamp-2038.txt - touch -d "1 April 2106" tests/resources/64-bit-timestamp-2106.txt + # -t format is [[CC]YY]MMDDhhmm[.ss] + touch -t 203804010000 tests/resources/64-bit-timestamp-2038.txt + touch -t 210604010000 tests/resources/64-bit-timestamp-2106.txt ;; esac ===================================== tests/issues.lisp ===================================== @@ -436,7 +436,7 @@ (define-test issue.45 (:tag :issues) ;; This depends on run-tests to setup the test directory correctly! - (let* ((test-dir #p"test-tmp/") + (let* ((test-dir #p"tests/test-run-prog/") (test-dir-name (namestring test-dir))) (flet ((do-test (program) (with-output-to-string (s) ===================================== tests/test-run-prog/ls-link ===================================== @@ -0,0 +1,2 @@ +#! /bin/sh +exec /bin/ls "$@" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9a4f3d7e2a513e6ef82112… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/9a4f3d7e2a513e6ef82112… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-470-ubuntu-ci-failures] Remove commented-out code that's not needed anymore
by Raymond Toy (＠rtoy) 06 Feb '26

06 Feb '26

Raymond Toy pushed to branch issue-470-ubuntu-ci-failures at cmucl / cmucl Commits: f9130c5e by Raymond Toy at 2026-02-05T16:21:46-08:00 Remove commented-out code that's not needed anymore A left over from the previous implementation that has been changed. - - - - - 1 changed file: - bin/run-unit-tests.sh Changes: ===================================== bin/run-unit-tests.sh ===================================== @@ -41,11 +41,6 @@ done # Shift out the options shift $((OPTIND - 1)) -# Create the test directory needed by the issue.45 test. -#rm -rf test-tmp -#mkdir test-tmp -#ln -s /bin/ls test-tmp/ls-link - # Set the timestamps on 64-bit-timestamp-2038.txt and # 64-bit-timestamp-2106.txt, but only for OSes where we know this # works. (This is so we don't an annoying error message from touch View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f9130c5e347916c1996ffca… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/f9130c5e347916c1996ffca… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-469-enable-cr-pow] 4 commits: Fix #470: Fix unit test issues on Ubuntu CI
by Raymond Toy (＠rtoy) 05 Feb '26

05 Feb '26

Raymond Toy pushed to branch issue-469-enable-cr-pow at cmucl / cmucl Commits: 3713015e by Raymond Toy at 2026-02-03T08:36:26-08:00 Fix #470: Fix unit test issues on Ubuntu CI For the timestamps, use `touch -t` to specify the time including hour and minutes. Previously, Ubuntu was using the time as 01:00:00 instead of the expected 00:00:00. Using `-t` makes it easy to read the expected time. On Ubuntu 25.10, you can't symlink to /bin/ls. It produces a security violation about the program name being incorrect. Instead define a simple shell script to run /bin/ls. - - - - - f141f493 by Raymond Toy at 2026-02-03T15:58:55-08:00 Just use a shell script for ls-link The attempt of linking ls-link to the actual location of /bin/ls doesn't work. Use a shell script instead. The script is in tests/test-run-prog which means issues.lisp needs to be informed of the new location. - - - - - 5d8c6845 by Raymond Toy at 2026-02-03T17:15:02-08:00 Forgot to add the ls-link script - - - - - dd6a4f9e by Raymond Toy at 2026-02-04T16:14:36-08:00 Merge branch 'issue-470-ubuntu-ci-failures' into issue-469-enable-cr-pow - - - - - 3 changed files: - bin/run-unit-tests.sh - tests/issues.lisp - + tests/test-run-prog/ls-link Changes: ===================================== bin/run-unit-tests.sh ===================================== @@ -42,9 +42,9 @@ done shift $((OPTIND - 1)) # Create the test directory needed by the issue.45 test. -rm -rf test-tmp -mkdir test-tmp -ln -s /bin/ls test-tmp/ls-link +#rm -rf test-tmp +#mkdir test-tmp +#ln -s /bin/ls test-tmp/ls-link # Set the timestamps on 64-bit-timestamp-2038.txt and # 64-bit-timestamp-2106.txt, but only for OSes where we know this ===================================== tests/issues.lisp ===================================== @@ -436,7 +436,7 @@ (define-test issue.45 (:tag :issues) ;; This depends on run-tests to setup the test directory correctly! - (let* ((test-dir #p"test-tmp/") + (let* ((test-dir #p"tests/test-run-prog/") (test-dir-name (namestring test-dir))) (flet ((do-test (program) (with-output-to-string (s) ===================================== tests/test-run-prog/ls-link ===================================== @@ -0,0 +1,2 @@ +#! /bin/sh +exec /bin/ls "$@" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/bd64e4c64e601124cd25a0… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/bd64e4c64e601124cd25a0… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-425-correctly-rounded-math-functions-single-float] Update cmucl.pot
by Raymond Toy (＠rtoy) 04 Feb '26

04 Feb '26

Raymond Toy pushed to branch issue-425-correctly-rounded-math-functions-single-float at cmucl / cmucl Commits: fdacacd7 by Raymond Toy at 2026-02-04T14:33:30-08:00 Update cmucl.pot [skip-ci] - - - - - 1 changed file: - src/i18n/locale/cmucl-sse2.pot Changes: ===================================== src/i18n/locale/cmucl-sse2.pot ===================================== @@ -86,38 +86,6 @@ msgstr "" msgid "inline ftruncate" msgstr "" -#: src/compiler/x86/float-sse2.lisp -msgid "The bit in the x87 FPU control word that controls the infinity mode." -msgstr "" - -#: src/compiler/x86/float-sse2.lisp -msgid "The bits in the x87 FPU control word for the rounding mode." -msgstr "" - -#: src/compiler/x86/float-sse2.lisp -msgid "The bits in the x87 FPU contol word for the FP operation precision." -msgstr "" - -#: src/compiler/x86/float-sse2.lisp -msgid "" -"The bits in the x87 FPU control word indicating the exceptions that\n" -" are enabled." -msgstr "" - -#: src/compiler/x86/float-sse2.lisp -msgid "" -"Alist for the x87 precison control. The car is the symbolic\n" -" precision and the cdr is the value for the precision control field." -msgstr "" - -#: src/compiler/x86/float-sse2.lisp -msgid "Print SSE2 modes word in a readable fashion." -msgstr "" - -#: src/compiler/x86/float-sse2.lisp -msgid "Print X87 floating modes word in a readable fashion." -msgstr "" - #: src/compiler/x86/float-sse2.lisp msgid "inline complex single-float creation" msgstr "" View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/fdacacd73cee798c34401bd… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/fdacacd73cee798c34401bd… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-469-enable-cr-pow] Use gcc to build on Ubuntu
by Raymond Toy (＠rtoy) 04 Feb '26

04 Feb '26

Raymond Toy pushed to branch issue-469-enable-cr-pow at cmucl / cmucl Commits: bd64e4c6 by Raymond Toy at 2026-02-04T11:03:39-08:00 Use gcc to build on Ubuntu I manually tested building lisp with gcc on the Ubuntu CI runner (not the base VM). I verifed that the ansi-tests pass. I hope that's still true when actually running the CI. - - - - - 1 changed file: - .gitlab-ci.yml Changes: ===================================== .gitlab-ci.yml ===================================== @@ -348,8 +348,10 @@ ubuntu:build: - job: ubuntu:install artifacts: true variables: - # Ubuntu 25.10 can build with either gcc or clang and pass the ansi-tests. - CONFIG: "x86_linux_clang" + # Build with gcc on Ubuntu 25.10. It produces a lisp than passes + # the ansi-tests. Clang seems to fail the ansi-tests WRITE.1, + # PRINT.1, and friends when cr_pow is used. + CONFIG: "x86_linux" ubuntu:test: <<: *unit_test_configuration View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bd64e4c64e601124cd25a07… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/bd64e4c64e601124cd25a07… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-425-correctly-rounded-math-functions-single-float] 2 commits: Remove extraneous blank line
by Raymond Toy (＠rtoy) 04 Feb '26

04 Feb '26

Raymond Toy pushed to branch issue-425-correctly-rounded-math-functions-single-float at cmucl / cmucl Commits: 9624af73 by Raymond Toy at 2026-02-04T08:58:21-08:00 Remove extraneous blank line [skip-ci] - - - - - d88b905f by Raymond Toy at 2026-02-04T09:02:57-08:00 Clean up more merge mistakes Remove these extra stuff that were moved in the master branch are no longer exist in these files. - - - - - 3 changed files: - src/code/float-trap.lisp - src/compiler/x86/float-sse2.lisp - src/compiler/x86/sse2-c-call.lisp Changes: ===================================== src/code/float-trap.lisp ===================================== @@ -109,7 +109,6 @@ (ash x87-enables 7)))) final-mode)) - (defun (setf floating-point-modes) (new-mode) (declare (type (unsigned-byte 32) new-mode)) ;; Set the floating point modes for both X87 and SSE2. This ===================================== src/compiler/x86/float-sse2.lisp ===================================== @@ -1379,83 +1379,6 @@ ;; 10 double precision (53 bits) ;; 11 double extended precision (64 bits) -(defconstant x87-float-infinity-control-byte - (byte 1 (+ 12 16)) - "The bit in the x87 FPU control word that controls the infinity mode.") -(defconstant x87-float-rounding-mode - (byte 2 (+ 10 16)) - "The bits in the x87 FPU control word for the rounding mode.") -(defconstant x87-float-precision-control-byte - (byte 2 (+ 8 16)) - "The bits in the x87 FPU contol word for the FP operation precision.") -(defconstant x87-float-traps-byte - (byte 6 16) - "The bits in the x87 FPU control word indicating the exceptions that - are enabled.") -(defconstant x87-float-precision-control-alist - `((:24-bits . 0) - (:reserved . 1) - (:53-bits . 2) - (:64-bits . 3)) - "Alist for the x87 precison control. The car is the symbolic - precision and the cdr is the value for the precision control field.") - -(defun print-fp-exceptions-enabled (enabled) - (format t "Precision enable: ~30T~A~%" (ldb (byte 1 5) enabled)) - (format t "Underflow enable: ~30T~A~%" (ldb (byte 1 4) enabled)) - (format t "Overflow enable: ~30T~A~%" (ldb (byte 1 3) enabled)) - (format t "Divide-by-zero enable: ~30T~A~%" (ldb (byte 1 2) enabled)) - (format t "Denormal op enable: ~30T~A~%" (ldb (byte 1 1) enabled)) - (format t "Invalid op enable: ~30T~A~%" (ldb (byte 1 0) enabled))) - -(defun print-fp-current-exceptions (current) - (format t "Precision flag: ~30T~A~%" (ldb (byte 1 5) current)) - (format t "Underflow flag: ~30T~A~%" (ldb (byte 1 4) current)) - (format t "Overflow flag: ~30T~A~%" (ldb (byte 1 3) current)) - (format t "Divide-by-zero flag: ~30T~A~%" (ldb (byte 1 2) current)) - (format t "Denormal op flag: ~30T~A~%" (ldb (byte 1 1) current)) - (format t "Invalid op flag: ~30T~A~%" (ldb (byte 1 0) current))) - -(defun print-sse2-fp-modes (&optional (sse-mode (sse2-floating-point-modes))) - "Print SSE2 modes word in a readable fashion." - ;; Note that Intel uses masks to disable the exception, but to match - ;; the rest of cmucl, these bits are represented as enable bits. - (format t "Flush-to-zero: ~30T~A~%" (ldb (byte 1 15) sse-mode)) - (let ((rc (ldb float-rounding-mode sse-mode))) - (format t "Rounding control: ~30T#b~2,'0b ~S~%" - rc - (car (rassoc rc rounding-mode-alist)))) - (print-fp-exceptions-enabled (ldb float-traps-byte sse-mode)) - (print-fp-current-exceptions (ldb float-exceptions-byte sse-mode))) - -(defun print-x87-fp-modes (&optional (x87-mode (x87-floating-point-modes))) - "Print X87 floating modes word in a readable fashion." - ;; Note that Intel uses masks to disable the exception, but to match - ;; the rest of cmucl, these bits are represented as enable bits. - (format t "Status word:~%") - (format t "FPU busy: ~30T~A~%" (ldb (byte 1 15) x87-mode)) - (format t "Condition code C3: ~30T~A~%" (ldb (byte 1 14) x87-mode)) - (format t "Top of stack: ~30T~D~%" (ldb (byte 3 11) x87-mode)) - (format t "Condition code C2: ~30T~A~%" (ldb (byte 1 10) x87-mode)) - (format t "Condition code C1: ~30T~A~%" (ldb (byte 1 9) x87-mode)) - (format t "Condition code C0: ~30T~A~%" (ldb (byte 1 8) x87-mode)) - (format t "Error summary: ~30T~A~%" (ldb (byte 1 7) x87-mode)) - (format t "Stack fault: ~30T~A~%" (ldb (byte 1 6) x87-mode)) - (print-fp-current-exceptions (ldb float-exceptions-byte x87-mode)) - (format t "~%Control word:~%") - (format t "Reserved: ~30T#b~2,'0b~%" (ldb (byte 2 (+ 13 16)) x87-mode)) - (format t "Infinity control: ~30T~A~%" (ldb x87-float-infinity-control-byte x87-mode)) - (let ((rc (ldb x87-float-rounding-mode x87-mode))) - (format t "Rounding control: ~30T#b~2,'0b ~S~%" - rc - (car (rassoc rc rounding-mode-alist)))) - (let ((pc (ldb x87-float-precision-control-byte x87-mode))) - (format t "Precision control: ~30T#b~2,'0b ~S~%" - pc - (car (rassoc pc x87-float-precision-control-alist)))) - (format t "Reserved: ~30T#b~2,'0b~%" (ldb (byte 2 (+ 6 16)) x87-mode)) - (print-fp-exceptions-enabled (ldb x87-float-traps-byte x87-mode))) - (defknown x87-floating-point-modes () float-modes (flushable)) (defknown ((setf x87-floating-point-modes)) (float-modes) float-modes) ===================================== src/compiler/x86/sse2-c-call.lisp ===================================== @@ -36,12 +36,6 @@ :from :eval :to :result) edx) (:temporary (:sc single-stack) temp-single) (:temporary (:sc double-stack) temp-double) - #+core-math - (:temporary (:sc unsigned-stack) save-fpu-cw) - #+core-math - (:temporary (:sc unsigned-stack) fpu-cw) - #+core-math - (:temporary (:sc unsigned-reg :offset esi-offset) temp-cw) (:node-var node) (:vop-var vop) (:save-p t) @@ -69,10 +63,7 @@ (inst movss xmm0-tn (ea-for-sf-stack temp-single))) (double-reg (inst fstpd (ea-for-df-stack temp-double)) - (inst movsd xmm0-tn (ea-for-df-stack temp-double))))) - ;; Restore the x87 FPU control settings - #+(and nil core-math) - (inst fldcw save-fpu-cw))) + (inst movsd xmm0-tn (ea-for-df-stack temp-double))))))) (define-vop (alloc-number-stack-space) (:info amount) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4573ff8693fdf746579781… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/4573ff8693fdf746579781… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][master] Minor cleanup of GNUMakefile
by Raymond Toy (＠rtoy) 04 Feb '26

04 Feb '26

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 9a4f3d7e by Raymond Toy at 2026-02-04T08:06:20-08:00 Minor cleanup of GNUMakefile First, CORE64_OBJS is no longer defined, so don't use it. The CORE64_OBJS that used to name the .o files for core-math are now computed as part of OBJS. This removal also meant that the "clean" target no longer removed the core-math object files. Fix this by changing the rule to remove $(OBJS) instead of *.o. - - - - - 1 changed file: - src/lisp/GNUmakefile Changes: ===================================== src/lisp/GNUmakefile ===================================== @@ -55,7 +55,7 @@ version.o : version.c version mv ,version version $(CC) ${CFLAGS} $(CPPFLAGS) -DVERSION=`cat version` -c $< -lisp: ${OBJS} ${CORE64_OBJS} version.o +lisp: ${OBJS} version.o $(CC) -g ${OS_LINK_FLAGS} -o ,lisp $^ ${OS_LIBS} -lm mv -f ,lisp lisp @@ -75,7 +75,7 @@ internals.h internals.inc: @false clean: - $(RM) Depends *.o $(CORE64_OBJS) lisp lisp.nm core lisp.a + $(RM) Depends $(OBJS) lisp lisp.nm core lisp.a echo 'Map file for lisp version 0' > lisp.nm depend: Depends View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9a4f3d7e2a513e6ef821123… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/9a4f3d7e2a513e6ef821123… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl] Pushed new branch issue-470-ubuntu-ci-failures
by Raymond Toy (＠rtoy) 04 Feb '26

04 Feb '26

Raymond Toy pushed new branch issue-470-ubuntu-ci-failures at cmucl / cmucl -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/tree/issue-470-ubuntu-ci-failu… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-469-enable-cr-pow] Use touch -t to set the timestamps
by Raymond Toy (＠rtoy) 03 Feb '26

03 Feb '26

Raymond Toy pushed to branch issue-469-enable-cr-pow at cmucl / cmucl Commits: d362a957 by Raymond Toy at 2026-02-03T07:49:17-08:00 Use touch -t to set the timestamps On Ubuntu 25.10, `touch -d` was setting the timestamp on the files to the correct year, month, and date but the time to 01:00:00, but on my Linux system the time is 00:00:00. Use -t to set the time since it's easy to understand the format used by -t. Manually tested this on Ubuntu and the time is correct. - - - - - 1 changed file: - bin/run-unit-tests.sh Changes: ===================================== bin/run-unit-tests.sh ===================================== @@ -56,8 +56,9 @@ ln -s /bin/ls test-tmp/ls-link # tests/os.lisp. case `uname -s` in Linux) - touch -d "1 April 2038" tests/resources/64-bit-timestamp-2038.txt - touch -d "1 April 2106" tests/resources/64-bit-timestamp-2106.txt + # -t format is [[CC]YY]MMDDhhmm[.ss] + touch -t 203804010000 tests/resources/64-bit-timestamp-2038.txt + touch -t 210604010000 tests/resources/64-bit-timestamp-2106.txt ;; esac View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d362a957d0c67b292e791fa… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d362a957d0c67b292e791fa… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0