Lisp 从字符串修剪花括号

我在一个公共Lisp程序中使用Prolog查询从知识库中获取出生日期。查询返回格式化为{1991-05-13}的值，我用setq:setq dob{1991-05-13}在dob变量上赋值。我想在一个新函数中使用这个日期值，该函数接受字符串，所以我尝试使用write to string将dob转换为一个字符串，并使用setq strdob write to string dob，但它返回

"{1991-05-13}"

我实际上想要：

"1991-05-13"

---

没有花括号的。如何从字符串中修剪花括号？

或者，字符串修剪{}{1991-05-13}字符包可以是任何序列，将其表示为字符串可能更自然。@Vatine:这是一个非常有用的注释。谢谢我添加了它作为示例。或者，字符串trim{}{1991-05-13}字符包可以是任何序列，用字符串表示可能更自然。@Vatine:这是一个非常有用的注释。谢谢我添加了它作为示例。

CL-USER 13 > (string-trim '(#\{ #\}) "{1991-05-13}")
"1991-05-13"

CL-USER 14 > (string-trim "{}" "{1991-05-13}")
"1991-05-13"