From: Stas Boukarev <stassats@gmail.com>
Date: Tue, 24 Apr 2012 23:29:25 +0000 (+0400)
Subject: Better arglists for some package accessors.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ba0c7755846d3efe297d3b02b792381bc6c36515;p=sbcl.git

Better arglists for some package accessors.

package-nicknames, package-use-list, package-used-by-list,
package-shadowing-symbols now have `package-designator' instead of `x'
in their arlgists.

Closes lp#854314.

Clean up: remove a duplicate definition from tests/compiler-test-util.lisp
---

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index eff5751..00cbc54 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -335,7 +335,8 @@ error if any of PACKAGES is not a valid package designator."
 ;;; most other operations, are unspecified for deleted packages. We
 ;;; just do the easy thing and signal errors in that case.
 (macrolet ((def (ext real)
-             `(defun ,ext (x) (,real (find-undeleted-package-or-lose x)))))
+             `(defun ,ext (package-designator)
+                (,real (find-undeleted-package-or-lose package-designator)))))
   (def package-nicknames package-%nicknames)
   (def package-use-list package-%use-list)
   (def package-used-by-list package-%used-by-list)
diff --git a/tests/compiler-test-util.lisp b/tests/compiler-test-util.lisp
index d83c7b0..f0745d2 100644
--- a/tests/compiler-test-util.lisp
+++ b/tests/compiler-test-util.lisp
@@ -110,20 +110,3 @@
              (values warn fail)))
       (ignore-errors (delete-file lisp))
       (ignore-errors (delete-file fasl)))))
-
-(defun file-compile (toplevel-forms &key load)
-  (let* ((lisp (merge-pathnames "file-compile-tmp.lisp"))
-         (fasl (compile-file-pathname lisp)))
-    (unwind-protect
-         (progn
-           (with-open-file (f lisp :direction :output)
-             (if (stringp toplevel-forms)
-                 (write-line toplevel-forms f)
-                 (dolist (form toplevel-forms)
-                   (prin1 form f))))
-           (multiple-value-bind (fasl warn fail) (compile-file lisp)
-             (when load
-               (load fasl))
-             (values warn fail)))
-      (ignore-errors (delete-file lisp))
-      (ignore-errors (delete-file fasl)))))