[Cl-darcs-cvs] r105 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Sat Mar 10 16:18:44 2007
New Revision: 105

Modified:
   cl-darcs/trunk/util.lisp
Log:
Implement DELETE-DIR for Lispworks


Modified: cl-darcs/trunk/util.lisp
==============================================================================
--- cl-darcs/trunk/util.lisp	(original)
+++ cl-darcs/trunk/util.lisp	Sat Mar 10 16:18:44 2007
@@ -247,7 +247,8 @@
   "Delete directory PATHNAME."
   #+clisp (ext:delete-dir pathname)
   #+sbcl  (sb-posix:rmdir pathname)
-  #-(or clisp sbcl)
+  #+lispworks (lw:delete-directory pathname)
+  #-(or clisp sbcl lispworks)
   (error "DELETE-DIR not implemented for ~A." (lisp-implementation-type)))
 
 (defun copy-directory (source target &key excluding)