Can't load CLX after loading PCL

[Steve Strassmann <straz@media-lab.media.mit.edu>]

On an HP 9000/835 running HP-UX 7.0, Lucid 3.0, with Victoria Day PCL
and CLX R4.2:

[For the purposes of this bug report, a "clean" world means freshly
booted base-lisp, where neither PCL nor CLX have been compiled or
loaded. Also, I alway restart with a clean lisp after compiling either
system]

On a clean lisp world, I can compile and run either PCL or CLX.  If I
load CLX onto a clean world, I can then compile and run PCL.  But if I
load PCL onto a clean world, then try compiling CLX, it hangs just as
I try loading socket.o. The only way out is to bash the lisp process
with a kill -9.

I get the impression that if PCL is loaded, CLX compiles differently
than if it isn't. Is this correct? In particular, the CLUE system
assumes that xlib:window and xlib:pixmap are PCL classes rather than
defstructs.

Why does PCL prevent CLX from compiling? Will CLUE (and other such
systems that need both) work ok if I compile-load CLX first, then PCL?


------------------------------------------------------------------------------

;;; HP Common Lisp, Development Environment, 29 January 1990.
;;; HP-9000, Series 800, Product no. HP92640, Rev. X.00.01
;;;
;;; Copyright (c) 1988, 1989 by Hewlett-Packard, Co., All Rights Reserved.
;;; Copyright (c) 1985, 1986, 1987, 1988, 1989 by Lucid, Inc., All Rights
Reserved.
;;;
;;; This software product contains confidential and trade secret
;;; information belonging to Hewlett-Packard.  It may not be copied
;;; for any reason other than for archival and backup purposes.

> > 
> 
> (cd "/lisp/pcl")
#P"/lisp/pcl/"
> (load "defsys")
;;; Loading source file "defsys.lisp"
#P"/lisp/pcl/defsys.lisp"
> (pcl:load-pcl)
Loading binary of PKG...
Loading binary of WALK...
Loading binary of ITERATE...
Loading binary of MACROS...
Loading binary of LOW...
Loading binary of LUCID-LOW...
;;; Warning: %POINTER is being imported from the LUCID package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: DEFSTRUCT-SIMPLE-PREDICATE is being imported from the LUCID
package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: ARGLIST is being imported from the LUCID package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: NAMED-LAMBDA is being imported from the LUCID package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: *PRINT-STRUCTURE* is being imported from the LUCID package
into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: NEW-STRUCTURE is being imported from the LUCID package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: STRUCTURE-REF is being imported from the LUCID package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDUREP is being imported from the LUCID package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-SYMBOL is being imported from the LUCID package into
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: PROCEDURE-REF is being imported from the LUCID package into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: SET-PROCEDURE-REF is being imported from the LUCID package
into 
;;;          the "PCL" package, but it isn't external in LUCID.
;;; Warning: Redefining macro %LOGAND which used to be defined in
"low.lisp"
;;; Warning: Redefining macro %ASH which used to be defined in "low.lisp"
;;; Warning: Redefining macro WITHOUT-INTERRUPTS which used to be defined
in "low.lisp"
;;; Warning: Redefining macro MAKE-MEMORY-BLOCK which used to be defined in
"low.lisp"
;;; Warning: Redefining function IWMC-CLASS-P which used to be defined in
structure IWMC-CLASS in "low.lisp"
;;; Warning: Redefining macro OBJECT-CACHE-NO which used to be defined in
"low.lisp"
;;; Warning: Redefining function SET-FUNCTION-NAME-1 which used to be
defined in "low.lisp"
;;; Warning: Redefining function PRINTING-RANDOM-THING-INTERNAL which used
to be defined in "macros.lisp"
Loading binary of FIN...
Loading binary of DEFS...
Loading binary of BOOT...
Loading binary of VECTOR...
Loading binary of SLOTS...
Loading binary of INIT...
Loading binary of DEFCLASS...
Loading binary of STD-CLASS...
Loading binary of POINTS...
Loading binary of BRAID1...
Loading binary of FSC...
Loading binary of METHODS...
Loading binary of COMBIN...
Loading binary of DCODE...
Loading binary of PRECOM1...
Loading binary of PRECOM2...
Loading binary of PRECOM3...
Loading binary of PRECOM4...
Loading binary of FIXUP...
;;; Warning: Redefining function PRINT-IWMC-CLASS which used to be defined
in "low.lisp"
;;; Warning: Redefining function CHECK-INITARGS-1 which used to be defined
in "init.lisp"
Loading binary of CONSTRUCT...
Loading binary of ENV...
Loading binary of HIGH...
;;; Warning: Redefining function BUILT-IN-WRAPPER-OF which used to be
defined in "low.lisp"
;;; Warning: Redefining function BUILT-IN-CLASS-OF which used to be defined
in "low.lisp"
Loading binary of COMPAT...
(:PORTABLE-COMMONLOOPS :PCL :HP835 :MULTITASKING :LCL3.0 :EGC :PQC
:COMPILER :LOOP :IEEE-FLOATING-POINT :PA :UNIX :LUCID :COMMON-LISP)
> (cd "/lisp/clx/")
#P"/lisp/clx/"
> (load "defsystem")
;;; Loading source file "defsystem.lisp"
#P"/lisp/clx/defsystem.lisp"
> (xlib:compile-clx "" "" :compile-c nil)
;;; Default paths: #P"" #P""
;;; Changing compiler to (safety 1) (speed 3) (compilation-speed 0)
;;; Loading foreign files 

 [ Here lisp hangs, and can only be stopped with process kill -9.
   But without PCL, the same call to XLIB:COMPILE-CLX works fine.]