From eea0da373349349b4d25dd4bc116a9c9eb04fb98 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Mon, 6 Mar 2023 20:06:19 -0800
Subject: Add: basic page stub to view an adventure

---
 src/names.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/names.lisp')

diff --git a/src/names.lisp b/src/names.lisp
index 3bc0c16..05397a6 100644
--- a/src/names.lisp
+++ b/src/names.lisp
@@ -21,6 +21,7 @@
 incorporate it into the urlpath. Otherwise use the object's uid.  
 
 Returns /class/identifier."
-    (format nil "/~a/~a"
+    (format nil "/~a/~a/~a"
             (urlify (class-name (class-of object)))
+            (urlify (uid object))
             (urlify (or (unique-name object) (uid object))))))
-- 
cgit v1.2.3