Browse code
bug(git-ignore): fix gitignore generation
Ed Langley authored on 01/05/2020 22:03:43Showing 1 changed files
| ... | ... |
@@ -9,7 +9,8 @@ |
| 9 | 9 |
(defparameter *args* |
| 10 | 10 |
(uiop:command-line-arguments)) |
| 11 | 11 |
|
| 12 |
-(with-open-file (s ".gitignore" :direction :output :if-exists :append) |
|
| 12 |
+(with-open-file (s ".gitignore" :direction :io :if-exists :append) |
|
| 13 |
+ (fresh-line s) |
|
| 13 | 14 |
(if *args* |
| 14 | 15 |
(format s "~{~a~%~}" *args*)
|
| 15 | 16 |
(loop for line = (string-trim '(#\space #\tab #\newline) |