diff --git a/src/tests/regressions/.#compiler.lsp b/src/tests/regressions/.#compiler.lsp deleted file mode 120000 index 8fb655653..000000000 --- a/src/tests/regressions/.#compiler.lsp +++ /dev/null @@ -1 +0,0 @@ -jack@pandora.670:1470121845 \ No newline at end of file diff --git a/src/tests/regressions/mixed.lsp b/src/tests/regressions/mixed.lsp index 2845b8c05..301e03e3c 100644 --- a/src/tests/regressions/mixed.lsp +++ b/src/tests/regressions/mixed.lsp @@ -113,13 +113,14 @@ (ext:with-clean-symbols (fact) (defun fact (n) (if (zerop n) :boom (fact (1- n)))) (test mix.0008.trace-output - (is-eql 0 - (length - (with-output-to-string (*trace-output*) - (trace fact) - (fact 3) - (untrace fact) - *trace-output*))))) + (is + (not (zerop + (length + (with-output-to-string (*trace-output*) + (trace fact) + (fact 3) + (untrace fact) + *trace-output*))))))) ;;;; Author: Daniel KochmaƄski