diff --git a/code/package.lisp b/code/package.lisp index 9d13464bf307a25f23c201950adf403851982945..95374479aa8c2bd2d9fbc84abd91d0e917274281 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -970,7 +970,7 @@ (shadowing-import sym package) (return-from unintern t))))))) (setf (package-%shadowing-symbols package) - (delete symbol shadowing-symbols))) + (remove symbol shadowing-symbols))) (multiple-value-bind (s w) (find-symbol name package) (declare (ignore s)) @@ -1162,7 +1162,7 @@ ;; ;; If it was shadowed, we don't want Unintern to flame out... (setf (package-%shadowing-symbols package) - (delete s (the list (package-%shadowing-symbols package)))) + (remove s (the list (package-%shadowing-symbols package)))) (unintern s package)) (add-symbol internal sym)) (pushnew sym (package-%shadowing-symbols package))))) @@ -1181,7 +1181,7 @@ (let* ((package (package-or-lose package)) (internal (package-internal-symbols package))) (dolist (name (mapcar #'string - (if (consp symbols) symbols (list symbols)))) + (if (listp symbols) symbols (list symbols)))) (multiple-value-bind (s w) (find-symbol name package) (when (or (not w) (eq w :inherited)) (setq s (make-symbol name)) @@ -1264,12 +1264,12 @@ (let ((package (package-or-lose package))) (dolist (p (package-listify packages-to-unuse)) (setf (package-%use-list package) - (delete p (the list (package-%use-list package)))) + (remove p (the list (package-%use-list package)))) (setf (package-tables package) (delete (package-external-symbols p) (the list (package-tables package)))) (setf (package-%used-by-list p) - (delete package (the list (package-%used-by-list p))))) + (remove package (the list (package-%used-by-list p))))) t)) ;;; Find-All-Symbols -- Public