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)