format is broken

eddier · Post by **eddier** » Wed Feb 18, 2004 2:13 pm

(setq data '((1 "a001" "g") (2 "a101" "c") (3 "c220" "g")))
(map (fn (x) (format "%3.2f %5s %2s" (nth 0 x) (nth 1 x) (nth 2 x))) data)
=> ("1.00     g  g" "2.00     c  c" "3.00     g  g")

What happend to the "a001", "a101", and the "c220"?

Eddie

Sammo · Post by **Sammo** » Wed Feb 18, 2004 2:49 pm

Same results on WIN2K, but (format "%3.2f %5s %2s" 1 "a001" "g") produces the correct result as does (map (fn (x) (list (nth 0 x) (nth 1 x) (nth 2 x))) data) ==> ((1 "a001" "g") (2 "a101" "c") (3 "c220" "g"))

eddier · Post by **eddier** » Wed Feb 18, 2004 3:23 pm

I found that the following works as well.

Code: Select all

(map (fn (x) (append (format "%3.2f " (nth 0 x))
                                  (format "%5s " (nth 1 x))
                                  (format "%2s" (nth 2 x))))
  data)

Eddie

Lutz · Post by **Lutz** » Wed Feb 18, 2004 3:43 pm

This bug was introduced in 7.4.5 when taking out the limit of 2048 args in 'format'.

I have fixed this in 7.5.3 which goes up in a couple of minutes into the development directory, but:

CAUTION: in 7.5.3 all deprecated functions are removed as previously announced, look into the chapter 'Deprecated functions', all of these functions have work alikes with different names since many versions, i.e. sublist -> slice etc.. This prompted also changes in cgi.lsp stat.lsp and spam-filter and newlisp-blog and newlisp-wiki.

Lutz

eddier · Post by **eddier** » Wed Feb 18, 2004 3:58 pm

Thanks Lutz!

Lutz · Post by **Lutz** » Wed Feb 18, 2004 4:13 pm

There are still code changes necessary in the newlisp-tk.tcl code, so the Windows tk version will go up later. At this moment only a Windows executable which will not work with 1.07-tk environment.

Lutz