From b406824f786ff37310d458c6a5de5e50344e66cf Mon Sep 17 00:00:00 2001 From: Arthur Niedzwiecki Date: Wed, 21 Jun 2023 13:46:26 +0200 Subject: [PATCH] Update export-existence-tests.lisp --- .../cram_task_tree_export/tests/export-existence-tests.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cram_core/cram_task_tree_export/tests/export-existence-tests.lisp b/cram_core/cram_task_tree_export/tests/export-existence-tests.lisp index b3aec8aa4e..d292fa19e9 100644 --- a/cram_core/cram_task_tree_export/tests/export-existence-tests.lisp +++ b/cram_core/cram_task_tree_export/tests/export-existence-tests.lisp @@ -42,7 +42,7 @@ (defun node-tree->formatted-tree (node &optional (depth 2)) "`depth' can be set to -1 to generate the whole tree." (when node - (list (tt-export::format-node (tt-export::node->designator node)) + (list (tt-export::format-node node) (unless (= depth 0) (mapcar (alexandria:rcurry #'node-tree->formatted-tree (- depth 1)) (tt-export::node-children node))))))