From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 18 Aug 2004 12:00:53 +0000 (+0000)
Subject: r9892: new functions
X-Git-Tag: v1.96~64
X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=commitdiff_plain;h=19190787da0e49afad011b90b4b6ce8608b22444

r9892: new functions
---

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.")
+  )
diff --git a/package.lisp b/package.lisp
index 64db28f..27df0e6 100644
--- a/package.lisp
+++ b/package.lisp
@@ -286,6 +286,7 @@
    ;; os.lisp
    #:command-output
    #:run-shell-command-output-stream
+   #:delete-directory-and-files
    
    ;; color.lisp
    #:rgb->hsv