Problems compiling clisp 23-05-95

[popineau@ese-metz.fr (Fabrice Popineau)]

Hi,

I compiled clisp-23-05-95 from sources on my linux box, libc-5.2.3,
gcc-2.7.0 . The check fails on reading/writing/manipulating floats.
Did anyone succeed ? Otherwise, it seems to be ok.

Thanks in advance,

Fabrice POPINEAU
------------------------
#include <std/disclaim.h>
-------------------------------------------------------------------------------
e-mail:     popineau@ese-metz.fr  surface-mail:  Ecole Superieure d'Electricite
 	                     	                 2 rue Edouard Belin
voice-mail: (+33) 87-74-99-38                    F-57078 Metz Cedex 3    
                                                 FRANCE                      
------------------------------------------------------------------------------ 

File src/suite/alltest.erg:

Form: (PRIN1-TO-STRING (SIN (* 8 (/ PI 2))))
SOLL: "2.0066230454737344098L-19"
CLISP: ERROR

Form: (PRIN1-TO-STRING (COS (/ PI 2)))
SOLL: "-2.5082788076048218878L-20"
CLISP: ERROR

Form: (PRIN1-TO-STRING (TAN (/ PI 2)))
SOLL: "-3.986797629004264116L19"
CLISP: ERROR

Form: (PRIN1-TO-STRING MOST-POSITIVE-SHORT-FLOAT)
SOLL: "1.7014s38"
CLISP: ERROR

Form: (PRIN1-TO-STRING LEAST-POSITIVE-SHORT-FLOAT)
SOLL: "2.93874s-39"
CLISP: ERROR

Form: (PRIN1-TO-STRING LEAST-NEGATIVE-SHORT-FLOAT)
SOLL: "-2.93874s-39"
CLISP: ERROR

Form: (PRIN1-TO-STRING MOST-NEGATIVE-SHORT-FLOAT)
SOLL: "-1.7014s38"
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING MOST-POSITIVE-SINGLE-FLOAT))) (OR (EQUAL S "1.7014117E38") (EQUAL S "3.4028235E38")))
SOLL: T
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING LEAST-POSITIVE-SINGLE-FLOAT))) (OR (EQUAL S "2.938736E-39") (EQUAL S "1.1754944E-38")))
SOLL: T
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING LEAST-NEGATIVE-SINGLE-FLOAT))) (OR (EQUAL S "-2.938736E-39") (EQUAL S "-1.1754944E-38")))
SOLL: T
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-SINGLE-FLOAT))) (OR (EQUAL S "-1.7014117E38") (EQUAL S "-3.4028235E38")))
SOLL: T
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING MOST-POSITIVE-DOUBLE-FLOAT))) (OR (EQUAL S "8.988465674311579d307") (EQUAL S "1.7976931348623157d308")))
SOLL: T
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING LEAST-POSITIVE-DOUBLE-FLOAT))) (OR (EQUAL S "5.562684646268004d-309") (EQUAL S "2.2250738585072014d-308")))
SOLL: T
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING LEAST-NEGATIVE-DOUBLE-FLOAT))) (OR (EQUAL S "-5.562684646268004d-309") (EQUAL S "-2.2250738585072014d-308")))
SOLL: T
CLISP: ERROR

Form: (LET ((S (PRIN1-TO-STRING MOST-NEGATIVE-DOUBLE-FLOAT))) (OR (EQUAL S "-8.988465674311579d307") (EQUAL S "-1.7976931348623157d308")))
SOLL: T
CLISP: ERROR

Form: (PRIN1-TO-STRING MOST-POSITIVE-LONG-FLOAT)
SOLL: "8.8080652584198167656L646456992"
CLISP: ERROR

Form: (PRIN1-TO-STRING LEAST-POSITIVE-LONG-FLOAT)
SOLL: "5.676615526003731344L-646456994"
CLISP: ERROR

Form: (PRIN1-TO-STRING LEAST-NEGATIVE-LONG-FLOAT)
SOLL: "-5.676615526003731344L-646456994"
CLISP: ERROR

Form: (PRIN1-TO-STRING MOST-NEGATIVE-LONG-FLOAT)
SOLL: "-8.8080652584198167656L646456992"
CLISP: ERROR

Form: (PRIN1-TO-STRING SHORT-FLOAT-NEGATIVE-EPSILON)
SOLL: "3.81476s-6"
CLISP: ERROR

Form: (PRIN1-TO-STRING SINGLE-FLOAT-NEGATIVE-EPSILON)
SOLL: "2.9802326E-8"
CLISP: ERROR

Form: (PRIN1-TO-STRING DOUBLE-FLOAT-NEGATIVE-EPSILON)
SOLL: "5.551115123125784d-17"
CLISP: ERROR

Form: (PRIN1-TO-STRING LONG-FLOAT-NEGATIVE-EPSILON)
SOLL: "2.7105054312137610853L-20"
CLISP: ERROR