Commit 1decdc13 authored by Liam Healy's avatar Liam Healy

Merge branch 'pre-ffa'

Brought forward commits from the pre-ffa branch that were made after
the two branches were split.
parents 1082a0f5 2aafb58f
......@@ -80,7 +80,7 @@ optionally set, and then freed when the body of the let is exited.
For Lisp environments with arglist prompting (such as SLIME), these
are functions whose symbols are exported so that an arglist prompt
will be visible; however, the function should not be used outside a
let binding.
<code>letm</code> binding.
<h3>Data: vectors, matrices, etc.</h3>
<div class="content">
......@@ -154,8 +154,8 @@ gamma-randist, negative-binomial.
<address><a href="mailto:gsll-devel@common-lisp.net">Liam Healy</a></address>
<!-- hhmts start -->
<small>
Time-stamp: <2008-07-07 21:30:48EDT documentation.html>
</small>
Time-stamp: <2008-08-31 17:21:56EDT documentation.html>
</small>
<!-- hhmts end -->
</div>
<script type="text/javascript">
......
;; Comparison of floating point numbers using sequence integers
;; Liam Healy 2008-01-22 19:00:17EST floating-point.lisp
;; Time-stamp: <2008-03-21 15:04:15EDT floating-point.lisp>
;; Time-stamp: <2008-04-04 11:35:20EDT floating-point.lisp>
;; $Id$
;;; All floats can be represented by integers. There are two slightly
......@@ -74,6 +74,7 @@
(multiple-value-bind (mant exp sign sigbits expbits)
(decode-ieee754 float)
(declare (ignore expbits))
(when (eq ieee754 t) (setf ieee754 (type-of float)))
(if ieee754
(* (dpb 1 (ieee754-sign-bit ieee754) (+ (ash exp sigbits) mant)))
(* sign (+ (ash exp sigbits) mant)))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment