Show
Ignore:
Timestamp:
04/08/12 10:14:37 (15 months ago)
Author:
Raymond Toy <toy.raymond@…>
Children:
6cfb0ac4b6bcc1a25bc119e87fd2b57bfa1f4355
Parents:
bd6d814332fdf6a831873bb33c9e4753f29d414f
git-committer:
Raymond Toy <toy.raymond@…> (04/08/12 10:14:37)
Message:

Define FLOATP, fix bugs in FLOAT.

qd-methods.lisp:
* Define FLOATP
* Fix bugs in FLOAT:

  • (FLOAT float nil) is an error
  • (FLOAT float) returns the float
  • (FLOAT rational) returns a single-float.

qd-package.lisp:
o Export FLOATP, shadowing CL:FLOAT.

rt-tests.lisp:
o Add a few tests for FLOAT.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • rt-tests.lisp

    re10e40 r8ec0d2  
    5656;;; Some simple tests from the Yozo Hida's qd package. 
    5757 
     58(rt:deftest float.1 
     59    (float 3/2) 
     60  1.5) 
     61 
     62(rt:deftest float.2 
     63    (float 3/2 1d0) 
     64  1.5d0) 
     65 
     66(rt:deftest float.3 
     67    (float 1.5d0) 
     68  1.5d0) 
     69 
     70(rt:deftest float.4 
     71    (= (float #q1.5) #q1.5) 
     72  t) 
     73 
    5874(rt:deftest ceiling-d.1 
    5975    (multiple-value-list (ceiling -50d0))