(defun numeric-string-p (string)
      (ignore-errors (parse-number:parse-number string)))  ; parse failed, return false (nil)