compiling pcl on MACL 1.3.1

[BALL%YALEMED.BITNET@CUNYVM.CUNY.EDU]

I attempted to compile pcl obtained from arisia "/pcl/tarfile-rev-3" on
Macintosh Allegro Common Lisp 1.3.1. I get an error while compiling fin.lisp.

;Loading "Hard Disk:Lisp 1.3.1:May Day pcl:defsys.lisp"...

Compiler warnings for function LOAD-TRUENAME :
  Unused lexical variable (#:G104)
? (pcl::compile-pcl)
Loading binary of PKG...
Loading binary of WALK...
Loading binary of ITERATE...
Loading binary of MACROS...
Loading binary of LOW...
Loading binary of CORAL-LOW...
> Warning:  FUNCTION PRINTING-RANDOM-THING-INTERNAL originally defined in: (CCL;
May Day pcl:macros.lisp)
         is now being redefined in: CCL;May Day pcl:coral-low.lisp
> While executing: CCL::RECORD-SOURCE-FILE
> Warning:  FUNCTION SET-FUNCTION-NAME-1 originally defined in: (CCL;May Day pcl
:low.lisp)
         is now being redefined in: CCL;May Day pcl:coral-low.lisp
> While executing: CCL::RECORD-SOURCE-FILE
> Warning:  FUNCTION DOCTOR-DFUN-FOR-THE-DEBUGGER originally defined in: (CCL;Ma
y Day pcl:low.lisp)
         is now being redefined in: CCL;May Day pcl:coral-low.lisp
> While executing: CCL::RECORD-SOURCE-FILE
Compiling FIN...
> Error: Undefined function: PRINT-UVECTOR-OBJECT .
> While executing: CCL::%FUNCTION
> Type Command-/ to continue, Command-. to abort.
1 >
1 >
Aborted
? ;; Sheldon Ball