make *.sh files executable after copying

This commit is contained in:
pls.153 2022-02-18 11:27:50 +01:00
parent 3770db1756
commit 7098c1d5dc

View file

@ -47,6 +47,9 @@
(format t "~&copying file: ~A" to)
(ensure-directories-exist to)
(unless (copy-file from to)
(error "File ~A could not be copied." to))))))
(error "File ~A could not be copied." to))
#+unix
(when (string= "sh" (pathname-type to))
(ext:run-program "chmod" (list "+x" to)))))))
(terpri)