ensure directories rather than just pathnames

[rrq/newlisp-ftw.git] / un-merge-usr.lsp

diff --git a/un-merge-usr.lsp b/un-merge-usr.lsp
index 4cb58f0580d3e95249278c4be1e6633f4660e669..1187cd8cc3edfca19329e2104c87cd2e174f977e 100644 (file)
--- 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)