Commit da330e3c authored by Zach Beane's avatar Zach Beane
Browse files

If there's no URI scheme, return NIL from net.uri:uri-scheme.

The old code could return :NIL if that symbol existed in the image in
any form.
parent 268433c7
...@@ -45,8 +45,9 @@ ...@@ -45,8 +45,9 @@
;;; uri-scheme isn't as simple as the other accessors ;;; uri-scheme isn't as simple as the other accessors
(defun net.uri:uri-scheme (uri) (defun net.uri:uri-scheme (uri)
(values (find-symbol (string-upcase (uri-scheme (real-uri uri))) (let ((scheme (uri-scheme (real-uri uri))))
:keyword))) (when scheme
(values (find-symbol (string-upcase scheme) :keyword)))))
(defun (setf net.uri:uri-scheme) (new-value uri) (defun (setf net.uri:uri-scheme) (new-value uri)
(setf (uri-scheme (real-uri uri)) new-value)) (setf (uri-scheme (real-uri uri)) new-value))
......
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