757 |
(unuse-package package using-package))) |
(unuse-package package using-package))) |
758 |
(delete-package package)))) |
(delete-package package)))) |
759 |
|
|
760 |
#-(or allegro openmcl) |
#-(or allegro openmcl lispworks) |
761 |
(defun delete-all-versions (pathspec) |
(defun delete-all-versions (pathspec) |
762 |
"Replace the versions field of the pathname specified by pathspec with |
"Replace the versions field of the pathname specified by pathspec with |
763 |
:wild, and delete all the files this refers to." |
:wild, and delete all the files this refers to." |
767 |
|
|
768 |
;;; This is a hack to get around an ACL bug; OpenMCL also apparently |
;;; This is a hack to get around an ACL bug; OpenMCL also apparently |
769 |
;;; needs it |
;;; needs it |
770 |
#+(or allegro openmcl) |
#+(or allegro openmcl lispworks) |
771 |
(defun delete-all-versions (pathspec) |
(defun delete-all-versions (pathspec) |
772 |
(when (probe-file pathspec) (delete-file pathspec))) |
(when (probe-file pathspec) (delete-file pathspec))) |
773 |
|
|