+(defun %seq-name-key ()
+ (if *old-sequence-names*
+ "_CLSQL_SEQ_"
+ "_CLSQL_SEQ"))
+
+(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)
+ (replace-all table-name (%seq-name-key) ""))
+