- ((probe-directory dir)
- (let ((cmd (format nil "rm -rf ~A" (namestring dir))))
- (unless quiet
- (format *trace-output* ";; ~A" cmd))
- (command-output cmd)))
- ((eq if-does-not-exist :error)
- (error "Directory ~A does not exist [delete-directory-and-files]." dir))))
+ ((probe-directory dir)
+ (let ((cmd (format nil "rm -rf ~A" (namestring dir))))
+ (unless quiet
+ (format *trace-output* ";; ~A" cmd))
+ (command-output cmd)))
+ ((eq if-does-not-exist :error)
+ (error "Directory ~A does not exist [delete-directory-and-files]." dir))))