common-lisp - hunchentoot-1.2.3中是否删除了足够的url功能？

Question

如果是这样，我该如何更改以下代码：

(script-path (tbnl::enough-url (ppcre:regex-replace-all "\\\\" script-name "/") uri-prefix))

谢谢！

Answer 1

也许你正在寻找这个？

CL-USER> (puri:render-uri
          (puri:enough-uri "http://foo.bar.com/baz/blub"
                           "http://foo.bar.com/")
          nil)
"/baz/blub"