Commit b6672cef authored by pfdietz's avatar pfdietz

Fixed oft-cited bug in e-d-e.8

parent 4909fec8
......@@ -125,6 +125,11 @@
(setq results (multiple-value-list (ensure-directories-exist pn)))))
(result-pn (first results))
(created (second results)))
;; Create the file and write to it
(with-open-file (*standard-output*
pn :direction :output :if-exists :error
:if-does-not-exist :create)
(print nil))
(values
(length results)
(notnot created)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment