CLUE won't compile

[Steve Strassmann <straz@MEDIA-LAB.MEDIA.MIT.EDU>]

On an HP 835 running HP-UX 7.0, X11R4, Lucid 3.0, 

I loaded CLX (MIT R4.2), then PCL (5/22/89 Victoria Day), then
attempted to compile CLUE (a user interface package), and got the
error below.

Is this a problem in PCL or in CLUE?


------------------------------------------------------------------------------
> (cd "/lisp/clue")
#P"/lisp/clue7.1/"
> (load "defsys")
;;; Loading source file "defsys.lisp"
#P"/lisp/clue7.1/defsys.lisp"
> (pcl::operate-on-system 'clue :compile)
Loading binary of CLUE...
Loading binary of CLX-PATCH...
;;; Warning: Redefining function CREATE-WINDOW which used to be defined in
"/lisp/clx/requests.lisp"
Loading binary of WINDOW-DOC...
Loading binary of GC-CACHE...
Loading binary of DEFCONTACT...
Compiling INTRINSICS...
;;; You are using the compiler in development mode (compilation-speed = 3)
;;; Generation of full safety checking code is enabled (safety = 3)
;;; Optimization of tail calls is disabled (speed = 2)
;;; Reading source file "/lisp/clue/intrinsics.lisp"
;;; Expanding Reserved Memory
;;; GC: 174946 words [699784 bytes] of dynamic storage in use.
;;; 283804 words [1135216 bytes] of free storage available before a GC.
;;; 742554 words [2970216 bytes] of free storage available if GC is
disabled.
;;; GC: 174946 words [699784 bytes] of dynamic storage in use.
;;; 283804 words [1135216 bytes] of free storage available before a GC.
;;; 742554 words [2970216 bytes] of free storage available if GC is
disabled.
>>Trap: Stack overflow

SYSTEM:GC-INTERNAL:
   Required arg 0 (SIZE): 0
:A  0: Abort to Lisp Top Level

-> :b

SYSTEM:GC-INTERNAL <- PCL::|(METHOD ORDER-SLOTDS (STANDARD-CLASS T
T))| <- PCL::UPDATE-SLOTS--CLASS <- PCL::|(METHOD
PROPAGATE-CLASS-UPDATE (STANDARD-CLASS T T T))| <- PCL::|(METHOD
UPDATE-CLASS (STANDARD-CLASS))| <- PCL::COMPUTE-COLUMN-SPECIALIZERS <-
PCL::COMPUTE-COMBINATION-POINTS <- PCL::COMPUTE-COMBINED-METHODS <-
PCL::NOTICE-METHODS-CHANGE-1 <- (:INTERNAL (:INTERNAL NIL 0)
PCL::RESET-GFS) <- PCL::|(METHOD UPDATE-METHOD-INHERITANCE
(STANDARD-CLASS T T))| <- PCL::|(METHOD PROPAGATE-CLASS-UPDATE
(STANDARD-CLASS T T T))| <- PCL::|(METHOD UPDATE-CLASS
(STANDARD-CLASS))| <- PCL::COMPUTE-COLUMN-SPECIALIZERS <-
PCL::COMPUTE-COMBINATION-POINTS <- PCL::COMPUTE-COMBINED-METHODS <-
PCL::NOTICE-METHODS-CHANGE-1 <- (:INTERNAL (:INTERNAL NIL 0)
PCL::RESET-GFS) <- PCL::|(METHOD UPDATE-METHOD-INHERITANCE
(STANDARD-CLASS T T))| <- PCL::|(METHOD PROPAGATE-CLASS-UPDATE
(STANDARD-CLASS T T T))| <- PCL::|(METHOD UPDATE-CLASS
(STANDARD-CLASS))| <- PCL::COMPUTE-COLUMN-SPECIALIZERS <-
PCL::COMPUTE-COMBINATION-POINTS <- PCL::COMPUT...

^C interrupt after stack overflow in the debugger