(loop :for prev = nil :then line
      :for line = (read-line *standard-input* nil nil)
      :until (null line)
      :do (if (null prev)
            (format t "First line: ~A~%" line)
            (format t "Another line: ~A~%" line)))