Sorted out sysout filename problem.
This commit is contained in:
parent
46f75a0c4f
commit
269d31df13
1
.gitignore
vendored
1
.gitignore
vendored
|
@ -15,3 +15,4 @@ pom.xml.asc
|
|||
.calva/
|
||||
.clj-kondo/
|
||||
.lsp/
|
||||
resources/scratch.lsp
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue