https://github.com/ichimal/petit.package-utils.git
git clone 'https://github.com/ichimal/petit.package-utils.git'
(ql:quickload :petit.package-utils)
Petit tool box about packaging.
PETIT.PACKAGE-UTILSPPU and PETIT.PUUSE-CONFLICT-PACKAGE:An alternative CL:USE-PACKAGE function.
USE-CONFLICT-PACKAGE enables USE-PACKAGE'ing any packages which have conflicted external symbols.
e.g.
(defpackage :foo
(:shadow #:car)
(:use :cl)
(:export :car) )
(in-package :foo)
(defun car (obj) ...)
(in-package :cl-user)
(ppu:use-conflict-package :foo)
(symbol-package 'car) ; => #<PACKAGE FOO>
You can also specify to-package for USE-CONFLICT-PACKAGE optionally.
e.g. (ppu:use-conflict-package from-package to-package)
PACKAGE-SHORTEST-NAME:Returns shortest name or nickname of given package designator.
e.g. (ppu:package-shortest-name :common-lisp-user) ; => "USER"
Note: for GNU CLISP, PPU:PACKAGE-SHORTEST-NAME is just a synonym of EXT:PACKAGE-SHORTEST-NAME.
Under MIT license.