Commit f59c845

committed

Add ensure-directories-exist

1 parent cbfa80d commit f59c845Copy full SHA for f59c845

File tree

-0

lines changed

-0

lines changed

Lines changed: 1 addition & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -363,6 +363,7 @@`
`363`	`363`	`(:documentation "Save the code to the provided source-path.")`
`364`	`364`	`(:method (kernel code source-path)`
`365`	`365`	`(declare (ignore kernel))`
	`366`	`+ (ensure-directories-exist source-path)`
`366`	`367`	`(with-open-file (stream source-path :direction :output :if-exists :supersede)`
`367`	`368`	`(write-string code stream))))`
`368`	`369`

Comments

(0)