[Git][cmucl/cmucl][master] Rename %get/%set-floating-point-modes to encode/decode-floating-point-modes.

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
16ae6709 by Raymond Toy at 2015-12-31T13:08:00Z
Rename %get/%set-floating-point-modes to encode/decode-floating-point-modes.

- - - - -


2 changed files:

- src/code/exports.lisp
- src/code/float-trap.lisp


Changes:

=====================================
src/code/exports.lisp
=====================================
--- 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"


=====================================
src/code/float-trap.lisp
=====================================
--- 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



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/16ae67097d669531ec23c424398621f24e7ef77d
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20151231/3150e141/attachment.html>