Common lisp function for reading input, usefull for hakerrank challenges

gistfile1.lisp

(defun get-hr-parameters (&optional (coerce #'identity))
  "gets all the parameters and puts them in a list"
  (loop 
   for input-line = (read-line t nil :eof)
   until (eq input-line :eof)
   collect (funcall coerce input-line)))