Plaster
New
List
Login
text
default
anonymous
2022.01.13 17:42:28
CL-USER> (defvar *multiline* "abc def ghi") *MULTILINE* CL-USER> (with-input-from-string (stream *multiline*) (list (read-line stream) (read-line stream) (read-line stream))) ("abc" "def" "ghi") CL-USER> (with-input-from-string (stream *multiline*) (loop for line = (read-line stream nil) while line collect line)) ("abc" "def" "ghi")
Raw
Annotate
Repaste
Edit