r9892: new functions

[kmrcl.git] / os.lisp

diff --git a/os.lisp b/os.lisp
index 2e524416e83e2d06d620437170fb11f7c8d00907..0861b07b8418ed1f5bb81e25b21dd899f8bc86f9 100644 (file)
--- a/os.lisp
+++ b/os.lisp
@@ -135,3 +135,8 @@ returns (VALUES output-string pid)"
     (error "RUN-SHELL-PROGRAM not implemented for this Lisp")
 
     ))
+
+(defun delete-directory-and-files (dir)
+  #+allegro (excl:delete-directory-and-files dir)
+  #-(or allegro) (warn "delete-directory-and-files not implemented for this platform.")
+  )