Skip to content
Snippets Groups Projects
Commit 79f76b80 authored by phg's avatar phg
Browse files

Removed an unnecessary clause in delete-package.

parent 38d3610d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.26 1992/11/04 19:23:32 phg Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.27 1992/11/30 16:41:45 phg Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -856,12 +856,11 @@ ...@@ -856,12 +856,11 @@
;; of that name. ;; of that name.
(cerror "Return NIL" "No package of name ~S." package) (cerror "Return NIL" "No package of name ~S." package)
(return-from delete-package nil)) (return-from delete-package nil))
(when pack-struc (setf use-list (package-used-by-list pack-struc))))
(setf use-list (package-used-by-list pack-struc)))))
(when (and pack-struc (not pack-name)) ; Package already deleted. (when (and pack-struc (not pack-name)) ; Package already deleted.
(return-from delete-package nil)) (return-from delete-package nil))
(when use-list ; The package is used by other packages. (when use-list ; The package is used by other packages.
;; Correctable error, if continued, then effectively unuse-package on all. ;; Correctable error, if continued, then unuse-package on all.
(cerror "Remove dependency in other packages." (cerror "Remove dependency in other packages."
"~S is used by package(s) ~S" package use-list) "~S is used by package(s) ~S" package use-list)
(dolist (p use-list) (dolist (p use-list)
......
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