Skip to content
Snippets Groups Projects
Commit 92743bd4 authored by pfdietz's avatar pfdietz
Browse files

Added delete-all-versions workaround for openmcl

parent 1344f6a6
No related branches found
No related tags found
No related merge requests found
...@@ -1366,7 +1366,7 @@ the condition to go uncaught if it cannot be classified." ...@@ -1366,7 +1366,7 @@ the condition to go uncaught if it cannot be classified."
(unuse-package package using-package))) (unuse-package package using-package)))
(delete-package package)))) (delete-package package))))
#-allegro #-(or allegro openmcl)
(defun delete-all-versions (pathspec) (defun delete-all-versions (pathspec)
"Replace the versions field of the pathname specified by pathspec with "Replace the versions field of the pathname specified by pathspec with
:wild, and delete all the files this refers to." :wild, and delete all the files this refers to."
...@@ -1374,13 +1374,14 @@ the condition to go uncaught if it cannot be classified." ...@@ -1374,13 +1374,14 @@ the condition to go uncaught if it cannot be classified."
(truenames (directory wild-pathname))) (truenames (directory wild-pathname)))
(mapc #'delete-file truenames))) (mapc #'delete-file truenames)))
(defconstant +fail-count-limit+ 20) ;;; This is a hack to get around an ACL bug; OpenMCL also apparently
;;; needs it
;;; This is a hack to get around an ACL bug #+(or allegro openmcl)
#+allegro
(defun delete-all-versions (pathspec) (defun delete-all-versions (pathspec)
(when (probe-file pathspec) (delete-file pathspec))) (when (probe-file pathspec) (delete-file pathspec)))
(defconstant +fail-count-limit+ 20)
(defmacro test-with-package-iterator (package-list-expr &rest symbol-types) (defmacro test-with-package-iterator (package-list-expr &rest symbol-types)
"Build an expression that tests the with-package-iterator form." "Build an expression that tests the with-package-iterator form."
(let ((name (gensym)) (let ((name (gensym))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment