Macro In-Dir

Part of:

package lisplab
( in-dir &rest < args > )
Temperarily binds *default-pathname-defaults* to dir. When directory
does not exists, it is created.