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

[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

[Git][cmucl/cmucl][issue-468-core-math-signals] Clean up comments
by Raymond Toy (＠rtoy) 03 Feb '26

03 Feb '26

Raymond Toy pushed to branch issue-468-core-math-signals at cmucl / cmucl Commits: 730da685 by Raymond Toy at 2026-02-02T21:01:34-08:00 Clean up comments The comments about core-math not doing the right thing have been removed because core-math does the expected thing. - - - - - 1 changed file: - tests/fdlibm.lisp Changes: ===================================== tests/fdlibm.lisp ===================================== @@ -90,10 +90,8 @@ (define-test %acosh.exceptions (:tag :fdlibm) - ;; Core-math returns infinity instead of signaling overflow. (assert-error 'floating-point-overflow (kernel:%acosh ext:double-float-positive-infinity)) - ;; Core-math currently returns QNaN (assert-error 'floating-point-invalid-operation (kernel:%acosh 0d0)) (ext:with-float-traps-masked (:overflow) @@ -106,8 +104,6 @@ (:tag :fdlibm) (assert-error 'floating-point-invalid-operation (kernel:%asinh *snan*)) - ;; Core-math returns the signed infinity instead of signaling an - ;; overflow. (assert-error 'floating-point-overflow (kernel:%asinh ext:double-float-positive-infinity)) (assert-error 'floating-point-overflow View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/730da685588abfcad4b9329… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/730da685588abfcad4b9329… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-468-core-math-signals] 2 commits: Check for infinite arg for sin, cos, tan
by Raymond Toy (＠rtoy) 03 Feb '26

03 Feb '26

Raymond Toy pushed to branch issue-468-core-math-signals at cmucl / cmucl Commits: 1751d2c9 by Raymond Toy at 2026-02-02T20:51:58-08:00 Check for infinite arg for sin, cos, tan fdlibm signals overflow for infinite args for sin, cos, and tan. Do the same for core-math. Also add test that NaN is silently returned from sin, cos, and tan are given a quiet NaN. That's what fdlibm does. - - - - - 13291eab by Raymond Toy at 2026-02-02T20:58:39-08:00 Enable underflow test for exp(-1000d0) This tests passes with core-math, so enable it. - - - - - 2 changed files: - src/lisp/irrat.c - tests/fdlibm.lisp Changes: ===================================== src/lisp/irrat.c ===================================== @@ -43,6 +43,11 @@ double lisp_sin(double x) { #ifdef FEATURE_CORE_MATH + /* Signals invalid if x is infinite */ + if (isinf(x)) { + return fdlibm_setexception(x, FDLIBM_INVALID); + } + return cr_sin(x); #else return fdlibm_sin(x); @@ -53,6 +58,11 @@ double lisp_cos(double x) { #ifdef FEATURE_CORE_MATH + /* Signals invalid if x is infinite */ + if (isinf(x)) { + return fdlibm_setexception(x, FDLIBM_INVALID); + } + return cr_cos(x); #else return fdlibm_cos(x); @@ -63,6 +73,11 @@ double lisp_tan(double x) { #ifdef FEATURE_CORE_MATH + /* Signals invalid if x is infinite */ + if (isinf(x)) { + return fdlibm_setexception(x, FDLIBM_INVALID); + } + return cr_tan(x); #else return fdlibm_tan(x); ===================================== tests/fdlibm.lisp ===================================== @@ -214,7 +214,6 @@ (ext:with-float-traps-masked (:overflow) (assert-equal ext:double-float-positive-infinity (kernel:%exp 710d0))) - #-core-math (let ((modes (ext:get-floating-point-modes))) (unwind-protect (progn @@ -671,6 +670,14 @@ (define-test %cos.exceptions (:tag :fdlibm) + ;; cos(inf) signals invalid operation + (assert-error 'floating-point-invalid-operation + (kernel:%cos ext:double-float-positive-infinity)) + (assert-error 'floating-point-invalid-operation + (kernel:%cos ext:double-float-negative-infinity)) + ;; cos(nan) is NaN + (assert-true (ext:float-nan-p (kernel:%cos *qnan*))) + ;; cos(x) = 1 for |x| < 2^-27. Signal inexact unless x = 0 (let ((x (scale-float 1d0 -28)) (x0 0d0)) @@ -686,6 +693,14 @@ (define-test %sin.exceptions (:tag :fdlibm) + ;; sin(inf) signals invalid operation + (assert-error 'floating-point-invalid-operation + (kernel:%sin ext:double-float-positive-infinity)) + (assert-error 'floating-point-invalid-operation + (kernel:%sin ext:double-float-negative-infinity)) + ;; sin(nan) is NaN + (assert-true (ext:float-nan-p (kernel:%sin *qnan*))) + ;; sin(x) = x for |x| < 2^-27. Signal inexact unless x = 0 (let ((x (scale-float 1d0 -28)) (x0 0d0)) @@ -701,6 +716,14 @@ (define-test %tan.exceptions (:tag :fdlibm) + ;; tan(inf) signals invalid operation + (assert-error 'floating-point-invalid-operation + (kernel:%tan ext:double-float-positive-infinity)) + (assert-error 'floating-point-invalid-operation + (kernel:%tan ext:double-float-negative-infinity)) + ;; tan(nan) is NaN + (assert-true (ext:float-nan-p (kernel:%sin *qnan*))) + ;; tan(x) = x for |x| < 2^-28. Signal inexact unless x = 0 (let ((x (scale-float 1d0 -29)) (x0 0d0)) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/5de13d334adb9a01c393af… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/5de13d334adb9a01c393af… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-468-core-math-signals] 2 commits: Fix merge mistake
by Raymond Toy (＠rtoy) 03 Feb '26

03 Feb '26

Raymond Toy pushed to branch issue-468-core-math-signals at cmucl / cmucl Commits: 7dbd0bcd by Raymond Toy at 2026-02-02T20:26:55-08:00 Fix merge mistake Extra #endif was accidentally left in. - - - - - 5de13d33 by Raymond Toy at 2026-02-02T20:37:41-08:00 Check for infinite arg for %asinh Also enable overflow check for %asinh of neg infinity. - - - - - 2 changed files: - src/lisp/irrat.c - tests/fdlibm.lisp Changes: ===================================== src/lisp/irrat.c ===================================== @@ -148,6 +148,11 @@ double lisp_asinh(double x) { #ifdef FEATURE_CORE_MATH + /* Signal overflow if x is infinite */ + if (isinf(x)) { + return fdlibm_setexception(x, FDLIBM_OVERFLOW); + } + return cr_asinh(x); #else return fdlibm_asinh(x); @@ -223,7 +228,6 @@ lisp_pow(double x, double y) * the failure. */ return __ieee754_pow(x, y); -#endif } double ===================================== tests/fdlibm.lisp ===================================== @@ -110,7 +110,6 @@ ;; overflow. (assert-error 'floating-point-overflow (kernel:%asinh ext:double-float-positive-infinity)) - #-core-math (assert-error 'floating-point-overflow (kernel:%asinh ext:double-float-negative-infinity)) (assert-true (ext:float-nan-p (kernel:%asinh *qnan*))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f055eed9555b420a07e70e… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/f055eed9555b420a07e70e… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0

[Git][cmucl/cmucl][issue-468-core-math-signals] 3 commits: Fix #434: Add support for correctly rounded double-precision math functions
by Raymond Toy (＠rtoy) 03 Feb '26

03 Feb '26

Raymond Toy pushed to branch issue-468-core-math-signals at cmucl / cmucl Commits: fdb86a06 by Raymond Toy at 2026-02-01T07:38:55-08:00 Fix #434: Add support for correctly rounded double-precision math functions - - - - - e3ec78e4 by Raymond Toy at 2026-02-01T07:38:55-08:00 Merge branch 'issue-425-correctly-rounded-math-functions' into 'master' Fix #434: Add support for correctly rounded double-precision math functions Closes #434, #426, and #425 See merge request cmucl/cmucl!312 - - - - - f055eed9 by Raymond Toy at 2026-02-02T20:22:35-08:00 Merge branch 'master' into issue-468-core-math-signals - - - - - 2 changed files: - src/lisp/irrat.c - tests/fdlibm.lisp Changes: ===================================== src/lisp/irrat.c ===================================== @@ -216,9 +216,12 @@ lisp_log10(double x) double lisp_pow(double x, double y) { -#ifdef FEATURE_CORE_MATH - return cr_pow(x, y); -#else + /* + * cr_pow seems causes ansi-tests to fail in test WRITE.1 among + * others. Somewhere an invalid operation is occurring. Thus + * just use fdlibm for now until we can figure out what's causing + * the failure. + */ return __ieee754_pow(x, y); #endif } ===================================== tests/fdlibm.lisp ===================================== @@ -110,6 +110,7 @@ ;; overflow. (assert-error 'floating-point-overflow (kernel:%asinh ext:double-float-positive-infinity)) + #-core-math (assert-error 'floating-point-overflow (kernel:%asinh ext:double-float-negative-infinity)) (assert-true (ext:float-nan-p (kernel:%asinh *qnan*))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/18b8d9171b420852756a33… -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/18b8d9171b420852756a33… You're receiving this email because of your account on gitlab.common-lisp.net.

1 0