Fix SETF for EXT:URL-PATHNAME-FRAGMENT

parent 36f837ea
......@@ -494,7 +494,7 @@
(setf (getf host :fragment) v))
(%invalidate-namestring p))
(defsetf url-pathname-query set-url-pathname-fragment)
(defsetf url-pathname-fragment set-url-pathname-fragment)
(export '(url-pathname-scheme
url-pathname-authority
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment