uri-to-url special handling in the absence of any domains

Shirakumo · Aug 11, 2024 · e2c2777 · e2c2777
1 parent 6e17b3c
commit e2c2777
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/uri.lisp b/uri.lisp
@@ -131,8 +131,11 @@
          (port (case (port uri)
                  ((443 80) NIL)
                  (T (port uri)))))
-    (format NIL "~a://~{~a~^.~}~@[:~a~]/~/radiance-core::format-urlpart/~@[?~/radiance-core::format-query/~]~@[#~/radiance-core::format-urlpart/~]"
-            schema (reverse (domains uri)) port (or (path uri) "") query fragment)))
+    (if (domains uri)
+        (format NIL "~a://~{~a~^.~}~@[:~a~]/~/radiance-core::format-urlpart/~@[?~/radiance-core::format-query/~]~@[#~/radiance-core::format-urlpart/~]"
+                schema (reverse (domains uri)) port (or (path uri) "") query fragment)
+        (format NIL "/~/radiance-core::format-urlpart/~@[?~/radiance-core::format-query/~]~@[#~/radiance-core::format-urlpart/~]"
+                (or (path uri) "") query fragment))))
 
 (defun make-url (&key domains port path schema query fragment (representation :external))
   (uri-to-url (make-uri :domains domains