#563 closed defect (fixed)
possible bug in format tilde e
Reported by: | boyer | Owned by: | rme |
---|---|---|---|
Priority: | normal | Milestone: | |
Component: | ANSI CL Compliance | Version: | trunk |
Keywords: | format tilde e | Cc: |
Description
When I do (setq x 0) (loop (setq x (+ x .00001)) (format t "~%~8,2e" x)) I pretty soon see lines of varying width such as
1.169E-2 1.7E-2
and I wonder if that can be right. From the ANSI:
The full form is ~w,d,e,k,overflowchar,padchar, exponentcharE. ... Exactly w characters will be output.
Change History (6)
comment:1 Changed 10 years ago by rme
- Owner changed from gb to rme
comment:2 Changed 10 years ago by rme
comment:3 Changed 10 years ago by rme
(defun bug-563 () (let* ((x 0.00001) (lastx x) (str nil)) (loop (setq lastx x) (incf x 0.00001) (setq str (format nil "~8,2e" x)) (if (/= (length str) 8) (error "~s (previous ~s) formatted as ~s" x lastx str)))))
;; > Error: 0.010009956 (previous 0.009999956) formatted as " 1.001E-2"
comment:4 Changed 9 years ago by rme
- Milestone set to Clozure CL 1.8
- Priority changed from trivial to normal
comment:5 Changed 5 years ago by rme
- Resolution set to fixed
- Status changed from new to closed
Fixed in r16639.
comment:6 Changed 4 years ago by rme
- Milestone Clozure CL 1.9 deleted
Milestone Clozure CL 1.9 deleted
Note: See
TracTickets for help on using
tickets.
An offender: