(defun isdigit (char)
  (if (> 58 (ascii char) 47) char nil)
);isdigit
(defun isnumchar (char)
  (if (or (= 46 (ascii char))(> 58 (ascii char) 47)) char nil)
);isnumchar