z_a*_*xis 1 common-lisp hunchentoot
如果是这样,我该如何更改以下代码:
(script-path (tbnl::enough-url (ppcre:regex-replace-all "\\\\" script-name "/") uri-prefix))
Run Code Online (Sandbox Code Playgroud)
谢谢!
也许你在找这个?
CL-USER> (puri:render-uri
(puri:enough-uri "http://foo.bar.com/baz/blub"
"http://foo.bar.com/")
nil)
"/baz/blub"
Run Code Online (Sandbox Code Playgroud)