036-truncate.lisp 217 Bytes
Newer Older
1 2 3 4
(testcmp "truncate positive float" '(truncate (1+ 3.4)) 4)
(testcmp "truncate positive int" '(truncate 3) 3)
(testcmp "truncate negative float" '(truncate -3.4) -3)
(testcmp "truncate negative int" '(truncate -3) -3)