Victoria Day test.lisp

[Bill.Chiles@WB1.CS.CMU.EDU]

I'm trying to install the Victoria Day PCL in CMU Common Lisp, and I'm
having problems just compiling the test.lisp file.  I'm pretty new to this
stuff, so I don't have any good clues or skills for providing any good
information on the lossage I'm seeing.

I see the error in DCODE-CACHE-SIZE.  I interpreted this definition and
compiled test.lisp to produce the error below.  The lossage is different
when compiled in our system since PCL compiles with safety 0, so I
interpreted DCODE-CACHE-SIZE.  I've provided a partial backtrace.

Has anyone else had this problem, or should I start crawling deep into our
system?  I should not guess at the problem, but it appears someone, some
closure or cached information, thinks some structure is larger than it
really is, possibly because cache structures can grow?

Bill

   * (compile-file "pcl:test")


   Error output from /usr1/lisp/pcl/test.lisp 25-May-89 10:59:54.
   Compiled on 25-May-89 13:54:48 by CLC version M1.8 (24-May-89).

   DO-TEST compiled.
   DO-TEST-ERROR compiled.
   CLEANUP-DO-TEST compiled.
   Warning between functions:
     CLASS bound but not referenced.

   Error in function SVREF.
   Vector index, 16, out of bounds.

   Restarts:
     0: Return to Top-Level.

   Debug  (type H for help)
   (CONDITIONS::MAKE-ERROR-TABLE SVREF 0 16 NIL)
   0] backtrace
   (CONDITIONS::MAKE-ERROR-TABLE SVREF 0 16 NIL)
   (SVREF #(0 NIL NIL NIL NIL ...) 16)
   (LET NIL (DECLARE (OPTIMIZE # #) (INLINE SVREF))
    (SVREF (THE SIMPLE-VECTOR CACHE) (THE FIXNUM #)))
   (COND ((NOT #) NIL (RETURN T)))
   (DOTIMES (I NKEYS) (UNLESS (EQ # #) (RETURN T)))
   (COND ((NOT #) NIL (SETQ FREE-NEXT TRY) (RETURN-FROM SCAN-CACHE #)))
   (LET ((TAIL WRAPPERS-AND-ARGS))
    (UNLESS (DOTIMES # #) (SETQ FREE-NEXT TRY)
     (RETURN-FROM SCAN-CACHE #)))
   (COND ((NOT #) NIL (LET # #) (DECF LIMIT)))
   (DO ((TRY # #) (LIMIT NEXT-SCAN-LIMIT LIMIT))
    ((ZEROP LIMIT) (RETURN-FROM SCAN-CACHE #))
    (UNLESS (ZEROP TRY) (LET # #) (DECF LIMIT)))
   (SETQ VALUE (BLOCK SCAN-CACHE (DO # # #)))
   (PROGN (SETQ VALUE (BLOCK SCAN-CACHE #))
    (UNLESS (OR # #) (LET # # #)) (RETURN-FROM DCODE-CACHE-MISS VALUE))
   (MACROLET ((INTERRUPTS-ON NIL NIL) (INTERRUPTS-OFF NIL NIL))
    (PROGN (SETQ VALUE #) (UNLESS # #)
     (RETURN-FROM DCODE-CACHE-MISS VALUE)))
   (LABELS
    ((FILL-LINE # #) (COPY-LINE # # #) (FILL-PRIMARY NIL # #)
     (DISPLACE-PRIMARY NIL #) (COPY-TO-NEXT # #) ...)
    (WITHOUT-INTERRUPTS (SETQ VALUE #) (UNLESS # #)
     (RETURN-FROM DCODE-CACHE-MISS VALUE)))
   (LET*
    ((ENTRIES-HAVE-VALUE-P #) (PRIMARY #) (MIRROR #) (FREE-NEXT 0)
     (VALUE NIL))
    (LABELS (# # # # # ...) (WITHOUT-INTERRUPTS # # #)))
   (TAGBODY RESTART (LET* (# # # # #) (LABELS # #)))
   (MACROLET ((COMPUTE-MIRROR # #) (COMPUTE-LOC-FROM-LINE # #))
    (TAGBODY RESTART (LET* # #)))
   ((LAMBDA (GF TERTIARY-MISS-FN CACHE SIZE MASK ...)
      (BLOCK DCODE-CACHE-MISS #))
    #<Funcallable Instance CHECK-SUPER-METACLASS-COMPATIBILITY {40006C8}>
    #<Function CACHING-DCODE-TERTIARY-MISS {6048748}>
    #(0 NIL NIL NIL NIL ...) 32 ...)
   (CHECK-SUPER-METACLASS-COMPATIBILITY #<Standard-Class FOO1 >
    #<Standard-Class OBJECT >)
   (NOTICE-METHODS-CHANGE-2
    #<Funcallable Instance CHECK-SUPER-METACLASS-COMPATIBILITY {40006C8}>
    (#<Standard-Class FOO1 > #<Standard-Class OBJECT >))
   (CHECK-SUPER-METACLASS-COMPATIBILITY #<Standard-Class FOO1 >
    #<Standard-Class OBJECT >)
   (|(METHOD UPDATE-CLASS (STANDARD-CLASS))| #<Standard-Class FOO1 >
    :DIRECT-SUPERCLASSES NIL :DIRECT-SLOTS ...)
   (UPDATE-CLASS #<Standard-Class FOO1 > :DIRECT-SUPERCLASSES NIL
    :DIRECT-SLOTS ...)
   (NOTICE-METHODS-CHANGE-2
    #<Funcallable Instance UPDATE-CLASS {4002454}>
    (#<Standard-Class FOO1 > :DIRECT-SUPERCLASSES NIL :DIRECT-SLOTS NIL
     ...))
   (UPDATE-CLASS #<Standard-Class FOO1 > :DIRECT-SUPERCLASSES NIL
    :DIRECT-SLOTS ...)
   (|(METHOD ADD-NAMED-CLASS (STANDARD-CLASS T T T T))|
    #<Standard-Class "unbound" > FOO1 NIL NIL ...)
   (ADD-NAMED-CLASS #<Standard-Class "unbound" > FOO1 NIL NIL ...)
   (NOTICE-METHODS-CHANGE-2
    #<Funcallable Instance ADD-NAMED-CLASS {4003260}>
    (#<Standard-Class "unbound" > FOO1 NIL NIL NIL))
   (ADD-NAMED-CLASS #<Standard-Class "unbound" > FOO1 NIL NIL ...)
   (LOAD-DEFCLASS STANDARD-CLASS FOO1 NIL NIL ...)
    .
    .
    .