<html lang='en'>
<head>
<meta content='text/html; charset=utf-8' http-equiv='Content-Type'>
<title>
GitLab
</title>
</meta>
</head>
<style>
img {
max-width: 100%;
height: auto;
}
p.details {
font-style:italic;
color:#777
}
.footer p {
font-size:small;
color:#777
}
pre.commit-message {
white-space: pre-wrap;
}
.file-stats a {
text-decoration: none;
}
.file-stats .new-file {
color: #090;
}
.file-stats .deleted-file {
color: #B00;
}
</style>
<body>
<div class='content'>
<h3>
Raymond Toy pushed to branch master
at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a>
</h3>
<h4>
Commits:
</h4>
<ul>
<li>
<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/16ae67097d669531ec23c424398621f24e7ef77d">16ae6709</a></strong>
<div>
<span>by Raymond Toy</span>
<i>at 2015-12-31T13:08:00Z</i>
</div>
<pre class='commit-message'>Rename %get/%set-floating-point-modes to encode/decode-floating-point-modes.</pre>
</li>
</ul>
<h4>2 changed files:</h4>
<ul>
<li class='file-stats'>
<a href='#diff-0'>
src/code/exports.lisp
</a>
</li>
<li class='file-stats'>
<a href='#diff-1'>
src/code/float-trap.lisp
</a>
</li>
</ul>
<h4>Changes:</h4>
<li id='diff-0'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/commit/16ae67097d669531ec23c424398621f24e7ef77d#diff-0'>
<strong>
src/code/exports.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/code/exports.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/code/exports.lisp
</span><span style="color: #aaaaaa">@@ -1579,10 +1579,10 @@
</span> "DOUBLE-FLOAT-POSITIVE-INFINITY" "LONG-FLOAT-POSITIVE-INFINITY"
"SINGLE-FLOAT-NEGATIVE-INFINITY" "SHORT-FLOAT-NEGATIVE-INFINITY"
"DOUBLE-FLOAT-NEGATIVE-INFINITY" "LONG-FLOAT-NEGATIVE-INFINITY"
<span style="color: #000000;background-color: #ffdddd">- "%GET-FLOATING-POINT-MODES"
</span> "GET-FLOATING-POINT-MODES"
"SET-FLOATING-POINT-MODES"
<span style="color: #000000;background-color: #ffdddd">- "%SET-FLOATING-POINT-MODES"
</span><span style="color: #000000;background-color: #ddffdd">+ "ENCODE-FLOATING-POINT-MODES"
+ "DECODE-FLOATING-POINT-MODES"
</span> "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
"FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
"FLOAT-SIGNALING-NAN-P"
</code></pre>
<br>
</li>
<li id='diff-1'>
<a href='https://gitlab.common-lisp.net/cmucl/cmucl/commit/16ae67097d669531ec23c424398621f24e7ef77d#diff-1'>
<strong>
src/code/float-trap.lisp
</strong>
</a>
<hr>
<pre class="highlight"><code><span style="color: #000000;background-color: #ffdddd">--- a/src/code/float-trap.lisp
</span><span style="color: #000000;background-color: #ddffdd">+++ b/src/code/float-trap.lisp
</span><span style="color: #aaaaaa">@@ -23,9 +23,9 @@
</span> )
(in-package "EXTENSIONS")
(export '(set-floating-point-modes
<span style="color: #000000;background-color: #ffdddd">- %set-floating-point-modes
</span> get-floating-point-modes
<span style="color: #000000;background-color: #ffdddd">- %get-floating-point-modes
</span><span style="color: #000000;background-color: #ddffdd">+ decode-floating-point-modes
+ encode-floating-point-modes
</span> with-float-traps-masked
with-float-traps-enabled))
(in-package "VM")
<span style="color: #aaaaaa">@@ -140,13 +140,13 @@
</span>
;;; %SET-FLOATING-POINT-MODES -- Public
;;;
<span style="color: #000000;background-color: #ffdddd">-(defun %set-floating-point-modes (&key (floating-point-modes (floating-point-modes))
</span><span style="color: #000000;background-color: #ddffdd">+(defun encode-floating-point-modes (&key (floating-point-modes (floating-point-modes))
</span> (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))
<span style="color: #000000;background-color: #ffdddd">- "Sets floating-point modes according to the give options and the
</span><span style="color: #000000;background-color: #ddffdd">+ "Encode the floating-point modes according to the give options and the
</span> 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:
<span style="color: #aaaaaa">@@ -260,13 +260,13 @@
</span> (declare (ignorable traps rounding-mode current-exceptions accrued-exceptions fast-mode))
(setf (floating-point-modes)
<span style="color: #000000;background-color: #ffdddd">- (apply #'%set-floating-point-modes args))
</span><span style="color: #000000;background-color: #ddffdd">+ (apply #'encode-floating-point-modes args))
</span> (values))
;;; %GET-FLOATING-POINT-MODES -- Public
;;;
<span style="color: #000000;background-color: #ffdddd">-(defun %get-floating-point-modes (modes)
</span><span style="color: #000000;background-color: #ddffdd">+(defun decode-floating-point-modes (modes)
</span> "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."
<span style="color: #aaaaaa">@@ -295,7 +295,7 @@
</span> (apply #'set-floating-point-modes (get-floating-point-modes))
sets the floating point modes to their current values (and thus is a no-op)."
<span style="color: #000000;background-color: #ffdddd">- (%get-floating-point-modes (floating-point-modes)))
</span><span style="color: #000000;background-color: #ddffdd">+ (decode-floating-point-modes (floating-point-modes)))
</span>
;;; CURRENT-FLOAT-TRAP -- Interface
</code></pre>
<br>
</li>
</div>
<div class='footer' style='margin-top: 10px;'>
<p>
—
<br>
<a href="https://gitlab.common-lisp.net/cmucl/cmucl/commit/16ae67097d669531ec23c424398621f24e7ef77d">View it on GitLab</a>.
<br>
You're receiving this email because of your account on gitlab.common-lisp.net.
If you'd like to receive fewer emails, you can adjust your notification settings.
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":"View Commit","url":"https://gitlab.common-lisp.net/cmucl/cmucl/commit/16ae67097d669531ec23c424398621f24e7ef77d"}}</script>
</p>
</div>
</body>
</html>