Skip to content
Snippets Groups Projects
Commit 064dc592 authored by wlott's avatar wlott
Browse files

Changed DEFPACKAGE to warn if there are any packages that are no longer in

the :USE lists.

Changed IN-PACKAGE to not wrap an eval-when around %IN-PACKAGE, because the
compiler needs to handle it in magic ways.
parent 52c52587
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.22 1992/05/15 21:51:52 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.23 1992/05/16 01:08:22 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -686,10 +686,10 @@ ...@@ -686,10 +686,10 @@
(unless (eq use :default) (unless (eq use :default)
(let ((old-use-list (package-use-list package)) (let ((old-use-list (package-use-list package))
(new-use-list (mapcar #'package-or-lose use))) (new-use-list (mapcar #'package-or-lose use)))
(dolist (other-package (set-difference new-use-list old-use-list)) (use-package (set-difference new-use-list old-use-list) package)
(use-package other-package package)) (let ((laterize (set-difference old-use-list new-use-list)))
(dolist (other-package (set-difference old-use-list new-use-list)) (unuse-package other-package package)
(unuse-package other-package package)))) (warn "~A used to use the following packages:~% ~S" laterize))))
;; Import and Intern. ;; Import and Intern.
(dolist (sym-name interns) (dolist (sym-name interns)
(intern sym-name package)) (intern sym-name package))
...@@ -807,8 +807,7 @@ ...@@ -807,8 +807,7 @@
(warn "Old-style IN-PACKAGE.") (warn "Old-style IN-PACKAGE.")
`(old-in-package ,package ,@noise)) `(old-in-package ,package ,@noise))
(t (t
`(eval-when (compile load eval) `(%in-package ',(stringify-name package "package")))))
(%in-package ',(stringify-name package "package"))))))
;;; ;;;
(defun %in-package (name) (defun %in-package (name)
(setf *package* (package-or-lose name))) (setf *package* (package-or-lose name)))
......
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