Changeset 50 for trunk

Show
Ignore:
Timestamp:
04/04/08 16:20:48 (8 months ago)
Author:
lhealy
Message:

Accept T for ieee754 argument to mean the type of the float number
given.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/floating-point/floating-point.lisp

    r42 r50  
    11;; Comparison of floating point numbers using sequence integers 
    22;; Liam Healy 2008-01-22 19:00:17EST floating-point.lisp 
    3 ;; Time-stamp: <2008-03-21 15:04:15EDT floating-point.lisp> 
     3;; Time-stamp: <2008-04-04 11:35:20EDT floating-point.lisp> 
    44;; $Id$ 
    55 
    … …  
    7575      (decode-ieee754 float) 
    7676    (declare (ignore expbits)) 
     77    (when (eq ieee754 t) (setf ieee754 (type-of float))) 
    7778    (if ieee754 
    7879        (* (dpb 1 (ieee754-sign-bit ieee754) (+ (ash exp sigbits) mant)))