From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 23 Apr 2021 03:32:09 +0000 (+1000)
Subject: ensure directories rather than just pathnames
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=339dde354339c128de2e689a8064c83856790efa;p=rrq%2Fnewlisp-ftw.git

ensure directories rather than just pathnames
---

diff --git a/un-merge-usr.lsp b/un-merge-usr.lsp
index 4cb58f0..1187cd8 100644
--- a/un-merge-usr.lsp
+++ b/un-merge-usr.lsp
@@ -72,7 +72,7 @@
 
 # Ensure the root directories still/again exist 
 (dolist (D DIRS)
-  (! (format "/bin/touch %s /usr%s" D D)))
+  (! (format "/bin/mkdir -p %s /usr%s" D D)))
 
 (print "Push enter to reboot: ")
 (read-line)