さあ、おまいら、存分に叩いてください。

(defun get-token ()
(defun hogehooloop (s)
(let ((ended nil))
(while (not (eobp))
(let ((c (char-befor)))
(if
(or (= ?\r c) (= ?\n c) (= ? c) (= ?\t c))
(setq ended s)
(setq s (cons c s))))
(forward-char 1))
ended)
(let ((chars (hogehooloop '()))
(and chars (getStringFromList (reverse chars)))))))