Raymond Toy pushed to branch issue-457-delete-directory-signals-errors at cmucl / cmucl
Commits:
-
d427507d
by Raymond Toy at 2025-12-13T20:34:27-08:00
2 changed files:
Changes:
| ... | ... | @@ -1213,7 +1213,8 @@ |
| 1213 | 1213 | |
| 1214 | 1214 | "INVALID-FASL"
|
| 1215 | 1215 | "WITH-TEMPORARY-DIRECTORY"
|
| 1216 | - "WITH-TEMPORARY-FILE")
|
|
| 1216 | + "WITH-TEMPORARY-FILE"
|
|
| 1217 | + "DELETE-DIRETORY")
|
|
| 1217 | 1218 | ;; gencgc features
|
| 1218 | 1219 | #+gencgc
|
| 1219 | 1220 | (:export "GET-GC-ASSERTIONS"
|
| ... | ... | @@ -150,7 +150,7 @@ |
| 150 | 150 | dir)
|
| 151 | 151 | ;; Try to delete the directory. It should fail..
|
| 152 | 152 | (assert-error 'kernel:simple-file-error
|
| 153 | - (ext::delete-directory (pathname "tmp/")))
|
|
| 153 | + (ext:delete-directory (pathname "tmp/")))
|
|
| 154 | 154 | ;; Now recursively delete the directory.
|
| 155 | - (assert-true (ext::delete-directory (pathname "tmp/") :recursive t))
|
|
| 155 | + (assert-true (ext:delete-directory (pathname "tmp/") :recursive t))
|
|
| 156 | 156 | (assert-false (directory "tmp/")))) |