From 16ae67097d669531ec23c424398621f24e7ef77d Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Thu, 31 Dec 2015 13:08:00 -0800
Subject: [PATCH] Rename %get/%set-floating-point-modes to
 encode/decode-floating-point-modes.

---
 src/code/exports.lisp    |  4 ++--
 src/code/float-trap.lisp | 14 +++++++-------
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/code/exports.lisp b/src/code/exports.lisp
index 2bd4bbc54..24f445dc0 100644
--- a/src/code/exports.lisp
+++ b/src/code/exports.lisp
@@ -1579,10 +1579,10 @@
 	   "DOUBLE-FLOAT-POSITIVE-INFINITY" "LONG-FLOAT-POSITIVE-INFINITY"
 	   "SINGLE-FLOAT-NEGATIVE-INFINITY" "SHORT-FLOAT-NEGATIVE-INFINITY"
 	   "DOUBLE-FLOAT-NEGATIVE-INFINITY" "LONG-FLOAT-NEGATIVE-INFINITY"
-	   "%GET-FLOATING-POINT-MODES"
 	   "GET-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-NAN-P" "FLOAT-TRAPPING-NAN-P"
 	   "FLOAT-SIGNALING-NAN-P"
diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp
index 8dbd3c31d..6ed3d0360 100644
--- a/src/code/float-trap.lisp
+++ b/src/code/float-trap.lisp
@@ -23,9 +23,9 @@
 )
 (in-package "EXTENSIONS")
 (export '(set-floating-point-modes
-	  %set-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-enabled))
 (in-package "VM")
@@ -140,13 +140,13 @@
 
 ;;; %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)
 				       (rounding-mode nil round-p)
 				       (current-exceptions nil current-x-p)
 				       (accrued-exceptions nil accrued-x-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
   returned.  If a keyword is not supplied, then the current value is
   preserved.  Possible keywords:
@@ -260,13 +260,13 @@
   (declare (ignorable traps rounding-mode current-exceptions accrued-exceptions fast-mode))
 
   (setf (floating-point-modes)
-	(apply #'%set-floating-point-modes args))
+	(apply #'encode-floating-point-modes args))
   (values))
 
 
 ;;; %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
   modes given in Modes.  The list is in the same format as the keyword arguments to
   SET-FLOATING-POINT-MODES."
@@ -295,7 +295,7 @@
       (apply #'set-floating-point-modes (get-floating-point-modes))
 
   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
-- 
GitLab