[movitz-devel] error during create-image with los0-gc.lisp

[Elliott A Johnson]

Hi,

Just checking to see if anyone else is seeing this error when creating
an image?

   Type-error in KERNEL::OBJECT-NOT-LIST-ERROR-HANDLER:
     #:|cond-skip-0-85433| is not of type COMMON-LISP:LIST

Here's some more of the error message:

  (MOVITZ::ASSEMBLY-MACROEXPAND
   (:BOOLEAN-BRANCH-ON-FALSE . #:|cond-skip-0-85433|)
   #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
        :EXPANDERS #<EQ hash table, 13 entries {496D23B5}>))
  Source: 
  ; File: /home/ejohnson/cvs-dir/movitz-cvs/movitz/assembly-syntax.lisp
  (LOOP FOR (P . TAIL) ON PRG ...)

Here's the first 10 backtraces from the error:

  0: (MOVITZ::ASSEMBLY-MACROEXPAND
      (:BOOLEAN-BRANCH-ON-FALSE . #:|cond-skip-0-85433|)
      #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
           :EXPANDERS #<EQ hash table, 13 entries {496D23B5}>))
  1: (MOVITZ::ASSEMBLY-MACROEXPAND
      (:LOAD-LEXICAL
       #<MOVITZ::LOCATED-BINDING name: #:|interrupts-enabled-p-85428|
{4966532D}>
       (:BOOLEAN-BRANCH-ON-FALSE . #:|cond-skip-0-85433|))
      #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
           :EXPANDERS #<EQ hash table, 13 entries {496D23B5}>))
  2: (MOVITZ::ASSEMBLY-MACROEXPAND
      (:SUB-PROGRAM (#:UNWIND-PROTECT-CLEANUP-ENTRY85431) (:LOAD-LEXICAL
# #)
       (:LOAD-CONSTANT # :EDX) (:MOVL # :ESI) ...)
      #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
           :EXPANDERS #<EQ hash table, 13 entries {496D23B5}>))
  3: (MOVITZ::ASSEMBLY-MACROEXPAND
      '(:SUB-PROGRAM (#:UNWIND-PROTECT-CLEANUP-ENTRY85431)
(:LOAD-LEXICAL # #)
        (:LOAD-CONSTANT # :EDX) (:MOVL # :ESI) ...)
      #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
           :EXPANDERS #<EQ hash table, 13 entries {496D23B5}>))
  4: (MOVITZ::ASSEMBLY-MACROEXPAND (:CALL '(:SUB-PROGRAM # # # # ...))
                                   #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
                                        :EXPANDERS #<EQ hash table, 13
entries
                                                     {496D23B5}>))
  5: (MOVITZ::ASSEMBLY-MACROEXPAND ((:CALL '#))
                                   #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
                                        :EXPANDERS #<EQ hash table, 13
entries
                                                     {496D23B5}>))
  6: (MOVITZ::ASSEMBLY-MACROEXPAND 2
                                   ((:CALL '#))
                                   #S(MOVITZ::ASSEMBLY-MACRO-ENVIRONMENT
                                        :EXPANDERS #<EQ hash table, 13
entries
                                                    
{496D23B5}>))[:EXTERNAL]
  7: (MOVITZ::SPECIAL-OPERATOR-WITH-INLINE-ASSEMBLY-CASE
      (WITH-INLINE-ASSEMBLY-CASE NIL (MOVITZ::DO-CASE # #))
      #<MOVITZ::MOVITZ-FUNOBJ-PASS1 STOP-AND-COPY {4963F325}>
      #<MOVITZ::WITH-THINGS-ON-STACK-ENV {496D1F0D}>
      #<unused-arg>
      ...)
  8: (MOVITZ::SPECIAL-OPERATOR-WITH-CLOAK
      (WITH-CLOAK (:MULTIPLE-VALUES # COMMON-LISP:T #)
       (WITH-INLINE-ASSEMBLY-CASE NIL #))
      #<MOVITZ::MOVITZ-FUNOBJ-PASS1 STOP-AND-COPY {4963F325}>
      #<MOVITZ::LET-ENV of STOP-AND-COPY binding
#:|interrupts-enabled-p-85428|
        {496562A5}>
      NIL
      ...)
  9: (MOVITZ::COMPILE-FORM
      (MULTIPLE-VALUE-PROG1 (WITH-PROGN-RESULTS # # # #)
       (WITH-INLINE-ASSEMBLY-CASE NIL #))
      #<MOVITZ::MOVITZ-FUNOBJ-PASS1 STOP-AND-COPY {4963F325}>
      #<MOVITZ::LET-ENV of STOP-AND-COPY binding
#:|interrupts-enabled-p-85428|
        {496562A5}>
      NIL
      ...)

I'm not exactly sure, but I'm thinking it could be a special-operator
problem.  I'm having a hard time wrapping my head around this one.  Any
thoughts as to what this actually is?

-Elliott