Problem compiling pcl (5/5/90) on NeXT 1.0/Allegro Common Lisp

[colin@snaefell.tamu.EDU (Colin Allen)]

Greg,

I am cc-ing this to CommonLoops@xerox.arpa--I hope that is the right  
address for that group.

Thanks for the info.  excl-low is getting compiled and loaded, and I can't  
immediately see anything wrong in defs, and it too is compiled and loaded  
successfully.

Here's a more detailed description of what is happening while running  
pcl::pcl-compile; after the file vector.cl is successfully compiled, and during  
the load of vector.fasl, this message appears:

attempt to call `|SETF PCL gdefinition|' which is an undefined function.
If continued, prompt for a new function, instead of `|SETF PCL gdefinition|'.

HERE'S WHAT I HAVE BEEN ABLE TO FIND OUT FROM THE  
DEBUGGER:

[1c] <cl> :zoom
Evaluation stack:

 ->(cerror "prompt for a new function, instead of `~s'." "attempt to call `~s'  
which is an undefined function." ...)
   (ensure-generic-function-using-class nil wrapper-fetcher)
   (ensure-generic-function wrapper-fetcher)
   (early-add-named-method wrapper-fetcher nil ...)
   (add-named-method wrapper-fetcher nil ...)
   (load-defmethod-internal wrapper-fetcher nil ...)
   (nil)
   (excl::fasload #<stream reading /usr/pcl/vector.fasl @ #x162ec69>)

... more older frames ...

FROM THIS IT SEEMS LIKE THE LAST FUNCTION CALLED BEFORE  
THE ERROR IS ENSURE-GENERIC-FUNCTION-USING-CLASS.  SO, I  
DID A BIT OF EXPLORATION TO TRY TO FIND OUT WHY IT HAD  
BOMBED OUT.  THE FIRST THING IT DOES IS PUSH THE NEW ITEM  
ONTO THE LIST *EARLY-GENERIC-FUNCTIONS*, SO I CHECKED IT  
OUT...

[1c] <cl> *early-generic-functions*

(wrapper-fetcher)

SO THAT HAS BEEN DONE.   THE NEXT THING IT DOES IS SET THE  
GDEFINITION OF THE NEW ITEM TO A VALUE,  WHICH IS  
APPARENTLY NOT HAPPENING...

[1c] <cl> (gdefinition 'wrapper-fetcher)
Error: Symbol wrapper-fetcher does not have a function definition.

Restart actions (select using :continue):
 0: prompt for a new function, instead of `|SETF PCL gdefinition|'.
[2] <cl> :pop
Previous error: attempt to call `|SETF PCL gdefinition|' which is an  
undefined function.
If continued, prompt for a new function, instead of `|SETF PCL gdefinition|'.
[1c] <cl> (gethash 'gdefinition *setf-function-names*)

|SETF PCL gdefinition|
t

SO IT APPEARS TO ME THAT SOMETHING IS WRONG WITH THE  
DEFINITION OF GDEFINITIONS IN DEFS.CL AFTER ALL.  TROUBLE IS I  
DON'T KNOW WHAT!

Any help is much appreciated!!