r9892: new functions

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")
 
     ))
     (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 64db28fb66e2c7f168395a6649ec7edb44f37d19..27df0e64e6b3e5a88fedabd51623deb9e74b1dc5 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -286,6 +286,7 @@
    ;; os.lisp
    #:command-output
    #:run-shell-command-output-stream
    ;; os.lisp
    #:command-output
    #:run-shell-command-output-stream

+   #:delete-directory-and-files

    
    ;; color.lisp
    #:rgb->hsv
    
    ;; color.lisp
    #:rgb->hsv