X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=os.lisp;h=0861b07b8418ed1f5bb81e25b21dd899f8bc86f9;hb=19190787da0e49afad011b90b4b6ce8608b22444;hp=2e524416e83e2d06d620437170fb11f7c8d00907;hpb=e9927af19ebf762b2311f296643c00e3aa9cbb00;p=kmrcl.git

diff --git a/os.lisp b/os.lisp
index 2e52441..0861b07 100644
--- 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.")
+  )