X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=src%2Fmain%2Fserver.lisp;h=ef80743b6cd9ab45bb5de390f73892a539858845;hp=1f9a96cc1d2fd2888995c1f998c6a627911cef28;hb=9407d49f19966b27a3a0d891d65024e547024d76;hpb=a6d4c2d4bcadc19c1747fc3441891a85d2cce7f9

diff --git a/src/main/server.lisp b/src/main/server.lisp
index 1f9a96c..ef80743 100644
--- a/src/main/server.lisp
+++ b/src/main/server.lisp
@@ -103,3 +103,11 @@
   (when (not project) (error "Project does not exist"))
   (when (not job) (error "Job does not exist"))
   (job-log job)))
+
+(defun list-projects ()
+ (mapcar
+  (lambda (project)
+   (list
+    (project-name project)
+    (project-src project)))
+  *all-project*))