From 19190787da0e49afad011b90b4b6ce8608b22444 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Wed, 18 Aug 2004 12:00:53 +0000
Subject: [PATCH] r9892: new functions

---
 os.lisp      | 5 +++++
 package.lisp | 1 +
 2 files changed, 6 insertions(+)

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
-- 
2.34.1