[Openmcl-devel] openmcl as sbcl build host

[bryan o'connor]

bleeding-edge no longer works as a build host for sbcl 0.9.x.
0.14.3 still does.  it'd be nice to know if it's because of
an openmcl bug (or regression) before the next release.

i spent half a day looking at it and i couldn't figure it out.
someone more knowledgeable of the sbcl source will hopefully
have an easier time at it.

when compiling src/code/show.lisp in make-host-2.sh,
sb!c::generate-code funcalls the generator function for a
SB!C:TYPE-CHECK-ERROR vop and we get the following:

value #(31 254 14 3 254 78
         1) is not of the expected type CCL::SIMPLE-UNSIGNED-BYTE- 
VECTOR.
    [Condition of type TYPE-ERROR]

(the value unreadably prints as #<VECTOR 16 fill-pointer 7
type (UNSIGNED-BYTE 8), adjustable>)

i imagine that sb!c:type-check-error is actually generating
that error.  its presence meaning that some type-check failed
earlier (or perhaps it's doing the type check at the moment?)
it's the earlier part that i don't know how to find.

the defpackage form in show.lisp seems to be responsible for
the presence of type-check-error vop.

any volunteers?

     ...bryan


-------------- next part --------------
value #(31 254 14 3 254 78
        1) is not of the expected type CCL::SIMPLE-UNSIGNED-BYTE-VECTOR.
   [Condition of type TYPE-ERROR]

Restarts:
  0: [RETRY-LOAD] Retry loading "src/cold/compile-cold-sbcl.lisp"
  1: [SKIP-LOAD] Skip loading "src/cold/compile-cold-sbcl.lisp"
  2: [LOAD-OTHER] Load other file instead of "src/cold/compile-cold-sbcl.lisp"
  3: [ABORT] Abort handling SLIME request.
  4: [ABORT-BREAK] Reset this process
  5: [ABORT] Kill this process

Backtrace:
  0: (#<Anonymous Function #x8BDA75E> #<COMPONENT :NAME "top level form" #x8FB417E>)
      Locals:
        SB!VM::OBJECT = #<TN t9[A0]>
        TYPE = #<TN t20[FDEFN]>
        #:SEGMENT-34458 = #<SEGMENT :NAME "regular">
        SB!ASSEM::**CURRENT-SEGMENT** = #<Unbound>
        SB!ASSEM::**CURRENT-VOP** = NIL
        #:G34469 = 7
      Catch-tags:
        NIL
  1: (SB!C::GENERATE-CODE #<COMPONENT :NAME "top level form" #x8FB417E>)
      Locals:
        SB!C:COMPONENT = #<COMPONENT :NAME "top level form" #x8FB417E>
        SB!C::PREV-ENV = #<PHYSENV :LAMBDA #<CLAMBDA :%SOURCE-NAME SB!C::.ANONYMOUS. :%DEBUG-NAME (SB!C::TOP-LEVEL-FORM (SETQ *PACKAGE* #)) :KIND :TOPLEVEL :TYPE #<BUILT-IN-CLASSOID FUNCTION> :WHERE-FROM :DEFINED :VARS NIL #x8FB4E0E> #x8FB410E>
        SB!C::*TRACE-TABLE-INFO* = #<Unbound>
        SB!C::*PREV-SEGMENT* = #<Unbound>
        SB!C::*PREV-VOP* = #<Unbound>
        SB!C::*FIXUP-NOTES* = #<Unbound>
        BLOCK = #<IR2-BLOCK  :START-VOP #1=#<VOP :INFO SB!C:TYPE-CHECK-ERROR :ARGS #<TN-REF :TN #<TN t9[A0]> :WRITE-P NIL :VOP SB!C:TYPE-CHECK-ERROR> :RESULTS NIL> :LAST-VOP #1# :LOCAL-TN-COUNT 1 :%LABEL #<LABEL 3>>
        SB!C::VOP = #<VOP :INFO SB!C:TYPE-CHECK-ERROR :ARGS #<TN-REF :TN #<TN t9[A0]> :WRITE-P NIL :VOP SB!C:TYPE-CHECK-ERROR> :RESULTS NIL>
        SB!C::GEN = #<Anonymous Function #x8BDA75E>
      [No catch-tags]
  2: (SB!C::%COMPILE-COMPONENT 'NIL)
  3: (SB!C::COMPILE-COMPONENT 1)
  4: (SB!C::SUB-COMPILE-TOPLEVEL-LAMBDAS '(#<CLAMBDA :%SOURCE-NAME SB!C::.ANONYMOUS. :%DEBUG-NAME (SB!C::TOP-LEVEL-FORM #) :KIND :TOPLEVEL :TYPE #<BUILT-IN-CLASSOID FUNCTION> :WHERE-FROM :DEFINED :VARS NIL #x8FB4E0E>))
  5: (SB!C::COMPILE-TOPLEVEL-LAMBDAS 'NIL)
  6: (SB!C::COMPILE-TOPLEVEL 'NIL '(SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE '"SB!INT")))
  7: (SB!C::CONVERT-AND-MAYBE-COMPILE '(SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE '"SB!INT")) '(#1=(SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE #)) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1#) SB!C::ORIGINAL-SOURCE-START 0 0))
  8: (SB!C::DEFAULT-PROCESSOR '(#1=(SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE #)) (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) #1#) SB!C::ORIGINAL-SOURCE-START 0 0) '(:COMPILE-TOPLEVEL) '(SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE '"SB!INT")))
  9: (SB!C::PROCESS-TOPLEVEL-FORM '((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETQ *PACKAGE* #)) SB!C::ORIGINAL-SOURCE-START 0 0) 'NIL '(SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE '"SB!INT")))
 10: (SB!C::PROCESS-TOPLEVEL-PROGN '((SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))) '(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))) 'EVAL-WHEN)
 11: (SB!C::PROCESS-TOPLEVEL-FORM '(SB!C::ORIGINAL-SOURCE-START 0 0) '(IN-PACKAGE "SB!INT") '(EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SETQ *PACKAGE* (SB!INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))))
 12: (SB!C::DEFAULT-PROCESSOR '(SB!C::ORIGINAL-SOURCE-START 0 0) 'NIL '(IN-PACKAGE "SB!INT"))
 13: (SB!C::PROCESS-TOPLEVEL-FORM '(SB!C::ORIGINAL-SOURCE-START 0 0) '(IN-PACKAGE "SB!INT") #S(SB!C::FILE-INFO :NAME #P"/Users/bryan/src/sbcl/src/code/show.lisp" :EXTERNAL-FORMAT :DEFAULT :UNTRUENAME #P"src/code/show.lisp" :WRITE-DATE 3334434345 :SOURCE-ROOT ...))
 14: (SB!C::SUB-SUB-COMPILE-FILE #<SOURCE-INFO >)
 15: (#<Anonymous Function #x882DB6E> #<SOURCE-INFO >)
 16: (SB!C::%WITH-COMPILATION-UNIT #<COMPILED-LEXICAL-CLOSURE #x8FB595E>)
 17: (SB!C::SUB-COMPILE-FILE #<SOURCE-INFO >)
 18: (SB-XC:COMPILE-FILE "src/code/show.lisp")
 19: (SB-COLD::COMPILE-STEM "src/code/show")
 --more--
-------------- next part --------------