1863 |
;;; truncate |
;;; truncate |
1864 |
;;; |
;;; |
1865 |
|
|
1866 |
|
(with-test-prefix "truncate" |
1867 |
|
(pass-if (= 1 (truncate 1.75))) |
1868 |
|
(pass-if (= 1 (truncate 1.5))) |
1869 |
|
(pass-if (= 1 (truncate 1.25))) |
1870 |
|
(pass-if (= 0 (truncate 0.75))) |
1871 |
|
(pass-if (= 0 (truncate 0.5))) |
1872 |
|
(pass-if (= 0 (truncate 0.0))) |
1873 |
|
(pass-if (= 0 (truncate -0.5))) |
1874 |
|
(pass-if (= -1 (truncate -1.25))) |
1875 |
|
(pass-if (= -1 (truncate -1.5)))) |
1876 |
|
|
1877 |
;;; |
;;; |
1878 |
;;; round |
;;; round |
1879 |
;;; |
;;; |
1880 |
|
|
1881 |
|
(with-test-prefix "round" |
1882 |
|
(pass-if (= 2 (round 1.75))) |
1883 |
|
(pass-if (= 2 (round 1.5))) |
1884 |
|
(pass-if (= 1 (round 1.25))) |
1885 |
|
(pass-if (= 1 (round 0.75))) |
1886 |
|
(pass-if (= 0 (round 0.5))) |
1887 |
|
(pass-if (= 0 (round 0.0))) |
1888 |
|
(pass-if (= 0 (round -0.5))) |
1889 |
|
(pass-if (= -1 (round -1.25))) |
1890 |
|
(pass-if (= -2 (round -1.5)))) |
1891 |
|
|
1892 |
;;; |
;;; |
1893 |
;;; exact->inexact |
;;; exact->inexact |
1894 |
;;; |
;;; |
1912 |
(pass-if "(= 1 (expt 0.0 0.0))" (= 1 (expt 0.0 0.0)))) |
(pass-if "(= 1 (expt 0.0 0.0))" (= 1 (expt 0.0 0.0)))) |
1913 |
|
|
1914 |
;;; |
;;; |
1915 |
|
;;; asinh |
1916 |
|
;;; |
1917 |
|
|
1918 |
|
(with-test-prefix "asinh" |
1919 |
|
(pass-if (= 0 (asinh 0)))) |
1920 |
|
|
1921 |
|
;;; |
1922 |
|
;;; acosh |
1923 |
|
;;; |
1924 |
|
|
1925 |
|
(with-test-prefix "acosh" |
1926 |
|
(pass-if (= 0 (acosh 1)))) |
1927 |
|
|
1928 |
|
;;; |
1929 |
|
;;; atanh |
1930 |
|
;;; |
1931 |
|
|
1932 |
|
(with-test-prefix "atanh" |
1933 |
|
(pass-if (= 0 (atanh 0)))) |
1934 |
|
|
1935 |
|
;;; |
1936 |
;;; make-rectangular |
;;; make-rectangular |
1937 |
;;; |
;;; |
1938 |
|
|