feat: repository generic function turns a repository into itself

fiddlerwoaroof · Nov 2, 2023 · f5f8883 · f5f8883
1 parent 582a22c
commit f5f8883
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/model.lisp b/model.lisp
@@ -81,6 +81,8 @@
 
 (defgeneric repository (object)
   (:documentation "get the repository for an object")
+  (:method ((root repository))
+    root)
   (:method ((root pathname))
     (resolve-repository root))
   (:method ((root string))