diff --git a/documentation/documentation.html b/documentation/documentation.html index 1c5a9c8f3cd7dc05216f7dfac54354901ee0a3e4..fb4ef587e86191d355f5788ca0dfb19ad050e50e 100644 --- a/documentation/documentation.html +++ b/documentation/documentation.html @@ -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"> diff --git a/floating-point/floating-point.lisp b/floating-point/floating-point.lisp index 8dcd7f5d69a55f234ebda7ae0b133b796817224d..88c8b5f4f8898ba53714aaf9299bd40db340a1c7 100644 --- a/floating-point/floating-point.lisp +++ b/floating-point/floating-point.lisp @@ -1,6 +1,6 @@ ;; 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)))))