diff options
Diffstat (limited to 'src/names.lisp')
| -rw-r--r-- | src/names.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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)))))) |