From f2edc17edfa63a3b0d86397096d0bc357322a695 Mon Sep 17 00:00:00 2001 From: hajovonta Date: Wed, 21 Dec 2022 22:27:04 +0100 Subject: [PATCH] Don't add a name when it's already defined. This can potentially be a memory leak if a code keeps adding tests. --- src/test.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/test.lisp b/src/test.lisp index 506a511..abfb234 100644 --- a/src/test.lisp +++ b/src/test.lisp @@ -28,7 +28,7 @@ (gethash key (%tests *test*) default)) (defun (setf get-test) (value key) - (push key (%test-names *test*)) + (pushnew key (%test-names *test*)) (setf (gethash key (%tests *test*)) value)) (defun rem-test (key)