Subject: [clisp-list] long-float

From: "Rehm, Keith" <[email-masked]>
Date: Mon Mar 11 15:00:11 2002

if:

(setf (ext:long-float-digits) 3322)  ;;clisp -- make long-float have 1000
digits

(defparameter *x1* 0.0L0)
(defparameter *x2* 0.0L0)

(declaim (type long-float *x1* *x2*))

(setf *x1*
0.12345671234567123456712345671234567123456712345671234567123456712345671234
5671234567123456712345671234567L0)
(setf *x2*
0.32132132132132132132132132132132132132132132132132132132132132132132132132
1321321321321321321321321321321L0)

why does (format t "~52,50F" *x1*) =>
0.12345671234567123457000000000000000000000000000000

I am thinking no zeros should show up?

when I  (the long-float (+ *x1*  *x2*)) its seems the answer is truncated
where those zeroes begin.

[8]> (the long-float (+ *x1* *x2*))
0.4447780336669925559L0

what am I doing wrong? 

thank you,
Keith

---

From: Sam Steingold <[email-masked]>
Date: Mon Mar 11 18:17:01 2002

> * In message <[email-masked]>
> * On the subject of "[clisp-list] long-float"
> * Sent on Mon, 11 Mar 2002 16:59:48 -0600
> * Honorable "Rehm, Keith" <[email-masked]> writes:
>

cannot reproduce:

[7]> (setf (ext:long-float-digits) 3322)
3322
[8]> (setf *x1* 0.123456712345671234567123456712345671234567123456712345671234567123456712345671234567123456712345671234567L0)
0.123456712345671234567123456712345671234567123456712345671234567123456712345671234567123456712345671234567L0
[9]> (format t "~52,50F" *x1*)
0.12345671234567123456712345671234567123456712345671

-- 
Sam Steingold (http://www.podval.org/~sds) running RedHat7.2 GNU/Linux
Keep Jerusalem united! <http://www.onejerusalem.org/Petition.asp>
Read, think and remember! <http://www.iris.org.il> <http://www.memri.org/>
Single tasking: Just Say No.