use make-dir function rather than mkdir

[rrq/newlisp-ftw.git] / enitool.lsp

diff --git a/enitool.lsp b/enitool.lsp
index 6e72882f6f7d93f642a3ecfcddaa745e9475fa82..21508a9e6e3c23339f09b02c9e02088976ad7ca8 100755 (executable)
--- a/enitool.lsp
+++ b/enitool.lsp
@@ -144,7 +144,7 @@
                 "enitool" FILE (int POS) FILE)))
 
 (change-dir "/etc/network")
-(wait-pid (process (format "mkdir -m 777 -p /tmp/enitool")))
+(make-dir "/tmp/enitool")
 
 (while PATH
   (if (apply iselect (PATH 0))