Temporarily replace use of LOOP by use of MAPCAR awaiting SICL LOOP.
Load definitions of standard environment functions.
Interchanged two files to load so that DEFTYPE is defined earlier.
Removed spurious extra argument to SETF.
Defined the type FUNCTION-NAME.