Reads a line from the reader or from *in* if no reader is specified
Source
(defnread-line"Reads a line from the reader or from *in* if no reader is specified"([rdr](loop[c(read-charrdr)s(StringBuffer.)](if(newline?c)(strs)(recur(read-charrdr)(.appendsc))))))