path: root/app/util.lisp

;;;; utils.lisp

(in-package :oneliners.cli.app)

(defun parse-identifier (str)
  "If STR holds digits representing an integer, parse them. otherwise
  return the string.  Oneliner identifiers may be names or ID
  numbers. Returns NIL in the case that STR is NIL"
  (when str
    (or (parse-integer str :junk-allowed t)
        str)))