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 Export DELETE-DIRECTORY Update tests to use exported symbol. - - - - - 2 changed files: - src/code/exports.lisp - tests/pathname.lisp Changes: ===================================== src/code/exports.lisp ===================================== @@ -1213,7 +1213,8 @@ "INVALID-FASL" "WITH-TEMPORARY-DIRECTORY" - "WITH-TEMPORARY-FILE") + "WITH-TEMPORARY-FILE" + "DELETE-DIRETORY") ;; gencgc features #+gencgc (:export "GET-GC-ASSERTIONS" ===================================== tests/pathname.lisp ===================================== @@ -150,7 +150,7 @@ dir) ;; Try to delete the directory. It should fail.. (assert-error 'kernel:simple-file-error - (ext::delete-directory (pathname "tmp/"))) + (ext:delete-directory (pathname "tmp/"))) ;; Now recursively delete the directory. - (assert-true (ext::delete-directory (pathname "tmp/") :recursive t)) + (assert-true (ext:delete-directory (pathname "tmp/") :recursive t)) (assert-false (directory "tmp/")))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d427507d77f6dcdf899f2ad4... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/d427507d77f6dcdf899f2ad4... You're receiving this email because of your account on gitlab.common-lisp.net.