Custom Query (1030 matches)

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.

There's a Trac contrib script that can be used as an svn post-commit-hook which will look through the commit log for references to tickets and update the tickets automagically. This would be a handy feature.

the code

(let ((stream *standard-output*) (*print-right-margin* 20))
  (pprint-logical-block (stream (list "item01" "item02" "item03" "item04")
                                :prefix "[" :suffix "]")
       (loop (princ (pprint-pop) stream)
         (pprint-exit-if-list-exhausted)
         (princ ", " stream) (pprint-newline :linear stream)))
  (terpri stream))

outputs: [item01, item02, item03, item04] which exceeds the right margin of 20. It should have output:

[item01, 
 item02, 
 item03, 
 item04]

instead.