Changeset 8ec0d2 for rt-tests.lisp


Ignore:
Timestamp:
04/08/12 17:14:37 (3 years ago)
Author:
Raymond Toy <toy.raymond@…>
Branches:
master
Children:
6cfb0a
Parents:
bd6d81
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.

File:
1 edited

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))
Note: See TracChangeset for help on using the changeset viewer.