From ba0c7755846d3efe297d3b02b792381bc6c36515 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Wed, 25 Apr 2012 03:29:25 +0400 Subject: [PATCH] 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 --- src/code/target-package.lisp | 3 ++- tests/compiler-test-util.lisp | 17 ----------------- 2 files changed, 2 insertions(+), 18 deletions(-) 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))))) -- 1.7.10.4