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

Rename %get/%set-floating-point-modes to encode/decode-floating-point-modes.

parent a610d96c
No related branches found
No related tags found
No related merge requests found
...@@ -1579,10 +1579,10 @@ ...@@ -1579,10 +1579,10 @@
"DOUBLE-FLOAT-POSITIVE-INFINITY" "LONG-FLOAT-POSITIVE-INFINITY" "DOUBLE-FLOAT-POSITIVE-INFINITY" "LONG-FLOAT-POSITIVE-INFINITY"
"SINGLE-FLOAT-NEGATIVE-INFINITY" "SHORT-FLOAT-NEGATIVE-INFINITY" "SINGLE-FLOAT-NEGATIVE-INFINITY" "SHORT-FLOAT-NEGATIVE-INFINITY"
"DOUBLE-FLOAT-NEGATIVE-INFINITY" "LONG-FLOAT-NEGATIVE-INFINITY" "DOUBLE-FLOAT-NEGATIVE-INFINITY" "LONG-FLOAT-NEGATIVE-INFINITY"
"%GET-FLOATING-POINT-MODES"
"GET-FLOATING-POINT-MODES" "GET-FLOATING-POINT-MODES"
"SET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES"
"%SET-FLOATING-POINT-MODES" "ENCODE-FLOATING-POINT-MODES"
"DECODE-FLOATING-POINT-MODES"
"FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P" "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
"FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
"FLOAT-SIGNALING-NAN-P" "FLOAT-SIGNALING-NAN-P"
......
...@@ -23,9 +23,9 @@ ...@@ -23,9 +23,9 @@
) )
(in-package "EXTENSIONS") (in-package "EXTENSIONS")
(export '(set-floating-point-modes (export '(set-floating-point-modes
%set-floating-point-modes
get-floating-point-modes get-floating-point-modes
%get-floating-point-modes decode-floating-point-modes
encode-floating-point-modes
with-float-traps-masked with-float-traps-masked
with-float-traps-enabled)) with-float-traps-enabled))
(in-package "VM") (in-package "VM")
...@@ -140,13 +140,13 @@ ...@@ -140,13 +140,13 @@
;;; %SET-FLOATING-POINT-MODES -- Public ;;; %SET-FLOATING-POINT-MODES -- Public
;;; ;;;
(defun %set-floating-point-modes (&key (floating-point-modes (floating-point-modes)) (defun encode-floating-point-modes (&key (floating-point-modes (floating-point-modes))
(traps nil traps-p) (traps nil traps-p)
(rounding-mode nil round-p) (rounding-mode nil round-p)
(current-exceptions nil current-x-p) (current-exceptions nil current-x-p)
(accrued-exceptions nil accrued-x-p) (accrued-exceptions nil accrued-x-p)
(fast-mode nil fast-mode-p)) (fast-mode nil fast-mode-p))
"Sets floating-point modes according to the give options and the "Encode the floating-point modes according to the give options and the
specified mode, Floating-Point-Modes. The resulting new mode is specified mode, Floating-Point-Modes. The resulting new mode is
returned. If a keyword is not supplied, then the current value is returned. If a keyword is not supplied, then the current value is
preserved. Possible keywords: preserved. Possible keywords:
...@@ -260,13 +260,13 @@ ...@@ -260,13 +260,13 @@
(declare (ignorable traps rounding-mode current-exceptions accrued-exceptions fast-mode)) (declare (ignorable traps rounding-mode current-exceptions accrued-exceptions fast-mode))
(setf (floating-point-modes) (setf (floating-point-modes)
(apply #'%set-floating-point-modes args)) (apply #'encode-floating-point-modes args))
(values)) (values))
;;; %GET-FLOATING-POINT-MODES -- Public ;;; %GET-FLOATING-POINT-MODES -- Public
;;; ;;;
(defun %get-floating-point-modes (modes) (defun decode-floating-point-modes (modes)
"This function returns a list representing the state of the floating point "This function returns a list representing the state of the floating point
modes given in Modes. The list is in the same format as the keyword arguments to modes given in Modes. The list is in the same format as the keyword arguments to
SET-FLOATING-POINT-MODES." SET-FLOATING-POINT-MODES."
...@@ -295,7 +295,7 @@ ...@@ -295,7 +295,7 @@
(apply #'set-floating-point-modes (get-floating-point-modes)) (apply #'set-floating-point-modes (get-floating-point-modes))
sets the floating point modes to their current values (and thus is a no-op)." sets the floating point modes to their current values (and thus is a no-op)."
(%get-floating-point-modes (floating-point-modes))) (decode-floating-point-modes (floating-point-modes)))
;;; CURRENT-FLOAT-TRAP -- Interface ;;; CURRENT-FLOAT-TRAP -- Interface
......
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