From 20d2b44038975476f7f84a5aa222ef750c38e76d Mon Sep 17 00:00:00 2001 From: Frank Duncan Date: Sun, 12 Dec 2021 07:34:43 -0600 Subject: [PATCH] Fix typo in error message --- src/main/server.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/main/server.lisp b/src/main/server.lisp index 41ec482..409a804 100644 --- a/src/main/server.lisp +++ b/src/main/server.lisp @@ -64,7 +64,7 @@ (defun delete-project (name) (let ((project (find name *all-project* :test #'string= :key #'project-name))) - (when (not project) (error "Project does not exists")) + (when (not project) (error "Project does not exist")) (sb-ext:delete-directory (project-dir project) :recursive t) (mapcar #'nremove-job (find-job-by-project project)) (mapcar #'nremove-branch (find-branch-by-project project)) @@ -76,7 +76,7 @@ (defun project-branch-information (name) (let ((project (find name *all-project* :test #'string= :key #'project-name))) - (when (not project) (error "Project does not exists")) + (when (not project) (error "Project does not exist")) (mapcar (lambda (branch) (list @@ -87,5 +87,5 @@ (defun project-job-information (name) (let ((project (find name *all-project* :test #'string= :key #'project-name))) - (when (not project) (error "Project does not exists")) + (when (not project) (error "Project does not exist")) (mapcar #'job->job-information (find-job-by-project project)))) -- 2.25.1