(number-literal? reader initch)
Checks whether the reader is at the start of a number literal
Source
(defn number-literal?
"Checks whether the reader is at the start of a number literal"
[reader initch]
(or (numeric? initch)
(and (or (identical? \+ initch) (identical? \- initch))
(numeric? (peek-char reader)))))