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 b355405..3bc0c16 100644 --- a/src/names.lisp +++ b/src/names.lisp @@ -13,13 +13,14 @@ (defmethod unique-name ((hero hero)) (name hero)) + (defgeneric urlpath (object) (:documentation "Return the path to the object given a particular") (:method ((object has-uid)) "If the object has a unique human readable name, urlify that name and incorporate it into the urlpath. Otherwise use the object's uid. -Returns /inflection/class/identifier." +Returns /class/identifier." (format nil "/~a/~a" (urlify (class-name (class-of object))) (urlify (or (unique-name object) (uid object)))))) |