;;tests an arbitrary length string to determine
;;if all characters represent base 10 digits
(defun alldigits (astring)
  (and
    (= (type astring) 'STR)
    (> (strlen astring) 0)
    (not (member nil (mapcar '(lambda (int) (if (> 58 int 47) int nil))
        (vl-string->list astring)))))
)