From 269d31df13502194045eebaf3fcb45a5d564d26d Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Sun, 26 Mar 2023 20:40:45 +0100
Subject: [PATCH] Sorted out sysout filename problem.

---
 .gitignore         | 3 ++-
 src/beowulf/io.clj | 7 ++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/.gitignore b/.gitignore
index 9c425ee..833bc4e 100644
--- a/.gitignore
+++ b/.gitignore
@@ -14,4 +14,5 @@ pom.xml.asc
 *~
 .calva/
 .clj-kondo/
-.lsp/
\ No newline at end of file
+.lsp/
+resources/scratch.lsp
diff --git a/src/beowulf/io.clj b/src/beowulf/io.clj
index be6b5cb..f262515 100644
--- a/src/beowulf/io.clj
+++ b/src/beowulf/io.clj
@@ -28,12 +28,13 @@
      (str (:filepath *options*) (java.io.File/separator))
      "")
    (if (and (string? fp)
-            (> (count fp) 0))
+            (> (count fp) 0)
+            (not= fp "NIL"))
      fp
      (str "Sysout-" (local-date)))
    (if (ends-with? fp ".lsp")
-     fp
-     (str fp ".lsp"))))
+     ""
+     ".lsp")))
 
 (defn SYSOUT
   "Dump the current content of the object list to file. If no `filepath` is