Function Invert-Permutation

Part of:

package lisplab
( invert-permutation < p > )