Raymond Toy pushed to branch issue-426-fix-float-modes-type-def at cmucl / cmucl Commits: 387ed142 by Raymond Toy at 2025-08-08T07:11:42-07:00 Add test for (setf (x86::x87-floating-point-modes)) - - - - - 1 changed file: - tests/float.lisp Changes: ===================================== tests/float.lisp ===================================== @@ -333,3 +333,13 @@ (declare (ignore c)) (values (invoke-restart 'lisp::largest-float))))) (read-from-string string)))))) + +#+x86 +(define-test x87-set-floating-point-modes + (:tag :issues) + (let ((new-mode (setf (x86::x87-floating-point-modes) + (dpb 2 (byte 2 24) + (x86::x87-floating-point-modes))))) + (assert-true (typep new-mode 'x86::float-modes)) + (assert-equal new-mode (setf (x86::x87-floating-point-modes) new-mode)))) + View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/387ed142e6e279b10bf9ee2e... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/387ed142e6e279b10bf9ee2e... You're receiving this email because of your account on gitlab.common-lisp.net.