Skip to content
Snippets Groups Projects
Commit 1decdc13 authored by Liam Healy's avatar Liam Healy
Browse files

Merge branch 'pre-ffa'

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