Custom Query (1030 matches)

FORMAT prints one digit too many after decimal point for ~e directive (CLHS 22.3.3.2). E.g.:

$ ./lx86cl 
Welcome to Clozure Common Lisp Version 1.9-r16078  (LinuxX8632)!
? (loop for d in '(1 2 3 4 5 6) do (format t "~,ve ~,ve~%" d 1.2345678e-10 d 1.2345678e+10))
1.23E-10 1.23E+10
1.235E-10 1.235E+10
1.2346E-10 1.2346E+10
1.23457E-10 1.23457E+10
1.234568E-10 1.234568E+10
1.2345679E-10 1.2345678E+10
NIL

On the other hand SBCL 1.0.55.0 is correct from what I can tell:

* (loop for d in '(1 2 3 4 5 6) do (format t "~,ve ~,ve~%" d 1.2345678e-10 d 1.2345678e+10))
1.2e-10 1.2e+10
1.23e-10 1.23e+10
1.235e-10 1.235e+10
1.2346e-10 1.2346e+10
1.23457e-10 1.23457e+10
1.234568e-10 1.234568e+10
NIL

When *print-circle* is T, FORMAT uses three times as much memory when printing conses compared to 1.9-r15757 (LinuxX8664), for example:

(defun test () (dotimes (k 100000) (format () "~a" '((a) (b)))))
(time (test))

Runtime is also increased, by ca. 25%

When *print-circle* is nil, the increase in memory usage is even bigger (almost tenfold).

FILE-LENGTH should return the number of CHARACTER in a text file. It returns instead the number of bytes.

Either:

1- do the right thing, read the whole file when the encoding is not a 1-1 encoding, and count the characters, or

2- document that FILE-LENGTH on CHARACTER text files with non 1-1 encodings deviates from the standard.