17 lines
576 B
Common Lisp
17 lines
576 B
Common Lisp
(in-package :cl-user)
|
|
(defpackage cl-project.io
|
|
(:use #:cl
|
|
#:cl-project.specials)
|
|
(:import-from #:cl-emb
|
|
#:execute-emb)
|
|
(:export #:copy-file-to-file))
|
|
(in-package :cl-project.io)
|
|
|
|
(defun copy-file-to-file (source-path target-path)
|
|
"Copy a file `source-path` to the `target-path`."
|
|
(format t "~&writing ~A~%" target-path)
|
|
(ensure-directories-exist target-path)
|
|
(with-open-file (stream target-path :direction :output :if-exists :supersede)
|
|
(write-sequence
|
|
(cl-emb:execute-emb source-path :env *skeleton-parameters*)
|
|
stream)))
|