(defparameter input nil)
(defparameter inputstring (make-array 0 :adjustable t :fill-pointer t :element-type 'character))

(defun reader ()

        (if (char= #\Space (peek-char))
                (progn (read-char) (push (intern inputstring) input) )
                (format inputstring "~a" (read-char))
        )
)

(loop while (not (char= #\Newline (peek-char))) do (reader))