Skip to content
Snippets Groups Projects
Commit 519d5133 authored by Raymond Toy's avatar Raymond Toy
Browse files

(setf floating-point-modes) wants (unsigned-byte 24)

When enabling traps, need to take just the low 24 bits of the arg
because (setf floating-point-modes) wants an (unsigned-byte 24)
argument.  The logorc2 makes the result negative when enabling traps.
parent d2a8d5c7
No related branches found
No related tags found
No related merge requests found
......@@ -397,7 +397,8 @@
(unwind-protect
(progn
(setf (floating-point-modes)
(,',logical-op ,orig-modes ,(logand trap-mask exception-mask)))
(ldb (byte 24 0)
(,',logical-op ,orig-modes ,(logand trap-mask exception-mask))))
,@body)
;; Restore the original traps and exceptions.
(setf (floating-point-modes)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment