From 36a06c74e97cc925212fdc6c432867cde4c465da Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sun, 7 Aug 2016 17:05:07 +0200
Subject: [PATCH] tests: fix a few mistakes

---
 src/tests/regressions/.#compiler.lsp |  1 -
 src/tests/regressions/mixed.lsp      | 15 ++++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)
 delete mode 120000 src/tests/regressions/.#compiler.lsp

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