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
1 changed file:
Changes:
| ... | ... | @@ -333,3 +333,13 @@ |
| 333 | 333 | (declare (ignore c))
|
| 334 | 334 | (values (invoke-restart 'lisp::largest-float)))))
|
| 335 | 335 | (read-from-string string))))))
|
| 336 | + |
|
| 337 | +#+x86
|
|
| 338 | +(define-test x87-set-floating-point-modes
|
|
| 339 | + (:tag :issues)
|
|
| 340 | + (let ((new-mode (setf (x86::x87-floating-point-modes)
|
|
| 341 | + (dpb 2 (byte 2 24)
|
|
| 342 | + (x86::x87-floating-point-modes)))))
|
|
| 343 | + (assert-true (typep new-mode 'x86::float-modes))
|
|
| 344 | + (assert-equal new-mode (setf (x86::x87-floating-point-modes) new-mode))))
|
|
| 345 | + |