From 5425a33839286e37efad6d654316d0aa648c2194 Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 28 Sep 2022 11:23:04 -0400 Subject: [PATCH] add test to push new --- tools/clog-builder-projects.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/clog-builder-projects.lisp b/tools/clog-builder-projects.lisp index cedba87..b06c9ae 100644 --- a/tools/clog-builder-projects.lisp +++ b/tools/clog-builder-projects.lisp @@ -12,7 +12,9 @@ (defun projects-setup (panel) (let* ((app (connection-data-item panel "builder-app-data"))) (when (uiop:directory-exists-p #P"~/common-lisp/") - (pushnew #P"~/common-lisp/" (symbol-value (read-from-string "ql:*local-project-directories*")))) + (pushnew #P"~/common-lisp/" + (symbol-value (read-from-string "ql:*local-project-directories*")) + :test #'equalp)) (add-select-option (project-list panel) "None" "None") (dolist (n (sort (projects-list-local-systems) #'string-lessp)) (add-select-option (project-list panel) n n))