From b6071df1af85018467bdc0c612a811c8b181e554 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sun, 18 Nov 2012 05:42:30 +0100 Subject: [PATCH] Better variable name --- src/suite.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/suite.lisp b/src/suite.lisp index 972e1f6..4e96bfb 100644 --- a/src/suite.lisp +++ b/src/suite.lisp @@ -34,14 +34,14 @@ named NAME." (def-suite ,name ,@def-suite-args) (in-suite ,name))) -(defun make-suite (name &key description in) +(defun make-suite (name &key description ((:in parent-suite))) "Create a new test suite object. Overrides any existing suite named NAME." (let ((suite (make-instance 'test-suite :name name))) (when description (setf (description suite) description)) - (loop for i in (ensure-list in) + (loop for i in (ensure-list parent-suite) for in-suite = (get-test i) do (progn (when (null in-suite) -- 1.7.10.4