Custom Query (1030 matches)

example code attached.

On windows Output of the read-line call is different depending on the line endings in the file, and currently only reading files with unix style line endings begets the appropriate behavior.

A file rvs-prune.txt consisting of -d 30 -r m:\dump\ because nothing can ever be easy

with windows line endings read by the attached function produces "-d 30 -r m:
dump

with mac "ecause nothing can ever be easy

with unix (expected output) "-d 30 -r m:
dump
"

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.

Hello,

I think the following is wrong:

SCRATCH> (let ((*print-circle* t)

(name "q"))

(format nil "~A ~A" name name))

"#1=q #1#"

I expected: "q q"

SCRATCH> (lisp-implementation-version) "Version 1.11-r16635 (WindowsX8664)"

Cheers