Function Unique-Directory

Part of:

package lift
( unique-directory < pathname > )