(defun %table-name-to-sequence-name (table-name)
;; if this was escaped it still should be,
;; if it wasnt it still shouldnt-be
(check-type table-name string)
(defun %table-name-to-sequence-name (table-name)
;; if this was escaped it still should be,
;; if it wasnt it still shouldnt-be
(check-type table-name string)