From: Alexey D. <ade...@us...> - 2002-10-13 05:55:27
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv17308/tests Modified Files: dump.impure-cload.lisp Log Message: 0.7.8.34: OAOOed floating point number reading FOPs ... fixed reading of (COMPLEX DOUBLE-FLOAT) numbers from FASLs Index: dump.impure-cload.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/dump.impure-cload.lisp,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- dump.impure-cload.lisp 12 Oct 2002 18:12:35 -0000 1.4 +++ dump.impure-cload.lisp 13 Oct 2002 05:55:22 -0000 1.5 @@ -66,4 +66,10 @@ :fill-pointer 2 :element-type 'character)) +;;; SBCL 0.7.8 incorrectly read high bits of (COMPLEX DOUBLE-FLOAT) +;;; components as unsigned bytes. +(defparameter *numbers* + '(-1s0 -1f0 -1d0 -1l0 + #c(-1s0 -1s0) #c(-1f0 -1f0) #c(-1d0 -1d0) #c(-1l0 -1l0))) + (sb-ext:quit :unix-status 104) ; success |