((/misc/process-book-readme.lisp::break-string-into-lines (nil nil nil (let*) nil nil nil) (nil nil ((lines (break-string-into-lines-rec str 0 (length str) nil))) (cond) nil nil nil) (nil nil (bad-line bad-line t) nil nil nil nil) (nil nil (find-whitespace-string value) nil nil nil (er)) ((lines soft ctx Found ~@0 line with whitespace:~%~x1~| msg bad-line lines) nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))