; this will get set to nil but we keep them around for historical reference
(lame-db:defdbstruct branch name in-git (project :join project) (job :join job))
+(setf (documentation 'project-name 'function)
+ "PROJECT-NAME PROJECT => NAME
+
+ARGUMENTS AND VALUES:
+
+ PROJECT: the project
+ NAME: a string, the name of the job
+
+DESCRIPTION:
+
+ Returns the name of the project in question.")
+
(defun project-dir (project)
"PROJECT-DIR PROJECT => DIR