[Sbcl-devel] build failure on win32

[<mar...@gm...>]

Build failed when compiling 1.0.4.71 on win32. Here's the part of the build log.

Regards,
Marko

; file: C:\lisp\tmp\sbcl\src\code\serve-event.lisp
; in: DEFSTRUCT HANDLER
;     (DEFSTRUCT
;       (SB!IMPL::HANDLER
;        (:CONSTRUCTOR SB!IMPL::MAKE-HANDLER
;         (SB!IMPL::DIRECTION SB!IMPL::DESCRIPTOR FUNCTION))
;        (:COPIER NIL))
;     (SB!IMPL::DIRECTION NIL :TYPE (MEMBER :INPUT :OUTPUT))
;     (SB!IMPL::DESCRIPTOR 0 :TYPE (MOD 1024))
;     SB!IMPL::ACTIVE
;     (FUNCTION NIL :TYPE FUNCTION)
;     SB!IMPL::BOGUS)
; --> PROGN DEFUN PROGN SB!INT:COLD-FSET BLOCK LET SB!EXT:TRULY-THE
; ==>
;   (SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT
;    (SB!KERNEL::%DELAYED-GET-COMPILER-LAYOUT SB!IMPL::HANDLER))
;
; caught STYLE-WARNING:
;   undefined function: SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT

; --> PROGN SB!KERNEL:WITH-SINGLE-PACKAGE-LOCKED-ERROR PROGN LET LET
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB!C::%WITHIN-CLEANUP RETURN-FROM PROGN
; ==>
;   (SB!KERNEL:ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED 'SB!IMPL::HANDLER
;                                                  "defining ~A as a structure")
;
; caught STYLE-WARNING:
;   undefined function: ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED

; in: DEFUN HANDLER-DESCRIPTORS-ERROR
;     (RESTART-CASE
;    (ERROR "~S ~[have~;has a~:;have~] bad file descriptor~:P."
;           SB!IMPL::BOGUS-HANDLERS (LENGTH SB!IMPL::BOGUS-HANDLERS))
;    (SB!IMPL::REMOVE-THEM NIL :REPORT "Remove bogus handlers."
;     (SB!IMPL::WITH-DESCRIPTOR-HANDLERS
;      (SETF SB!IMPL::*DESCRIPTOR-HANDLERS*
;              (DELETE-IF #'SB!IMPL::HANDLER-BOGUS
;                         SB!IMPL::*DESCRIPTOR-HANDLERS*))))
;    (SB!IMPL::RETRY-THEM NIL :REPORT "Retry bogus handlers."
;     (DOLIST (SB!IMPL::HANDLER SB!IMPL::BOGUS-HANDLERS)
;       (SETF (SB!IMPL::HANDLER-BOGUS SB!IMPL::HANDLER) NIL)))
;    (CONTINUE NIL :REPORT "Go on, leaving handlers marked as bogus."))
; --> BLOCK LET TAGBODY RESTART-BIND LET RETURN-FROM LET
; ==>
;   (SB!KERNEL:COERCE-TO-CONDITION
;    "~S ~[have~;has a~:;have~] bad file descriptor~:P."
;    (LIST SB!IMPL::BOGUS-HANDLERS (LENGTH SB!IMPL::BOGUS-HANDLERS))
;    'SIMPLE-ERROR 'ERROR)
;
; caught STYLE-WARNING:
;   undefined function: COERCE-TO-CONDITION

; in: DEFUN SUB-SERVE-EVENT
;     (EQL SB!IMPL::ERR SB!UNIX:EINTR)
;
; caught WARNING:
;   undefined variable: SB!UNIX:EINTR

; in: DEFVAR *DESCRIPTOR-HANDLER-LOCK*
;     (SB!THREAD::MAKE-SPINLOCK :NAME "descriptor handle lock")
;
; caught STYLE-WARNING:
;   undefined function: SB!THREAD::MAKE-SPINLOCK

;
; caught WARNING:
;   This variable is undefined:
;     SB!UNIX:EINTR

;
; caught STYLE-WARNING:
;   These functions are undefined:
;     SB!KERNEL::%MAKE-INSTANCE-WITH-LAYOUT
ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED COERCE-TO-CONDITION
SB!THREAD::MAKE-SPIN
LOCK
;
; compilation unit finished
;   caught 2 WARNING conditions
;   caught 5 STYLE-WARNING conditions


; C:\lisp\tmp\sbcl\obj\from-xc\src\code\serve-event.lisp-obj-tmp written
; compilation finished in 0:00:01
unhandled SIMPLE-ERROR:
  FAILURE-P was set when creating "obj/from-xc/src/code/serve-event.lisp-obj".

0: (SB-DEBUG:BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {908C9B9}>)
1: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
    #<SIMPLE-ERROR {B933E11}>
    #<unavailable argument>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR {B933E11}>)
3: (INVOKE-DEBUGGER #<SIMPLE-ERROR {B933E11}>)
4: (ERROR #<SIMPLE-ERROR {B933E11}>)
5: (COMPILE-STEM
    "src/code/serve-event"
    :OBJ-PREFIX
    "obj/from-xc/"
    :OBJ-SUFFIX
    ".lisp-obj"
    :TMP-OBJ-SUFFIX-SUFFIX
    "-tmp"
    :SRC-PREFIX
    ""
    :SRC-SUFFIX
    ".lisp"
    :COMPILE-FILE
    #<FUNCTION SB-XC:COMPILE-FILE>
    :TRACE-FILE
    NIL
    :IGNORE-FAILURE-P
    NIL)
6: (IN-TARGET-CROSS-COMPILATION-MODE #<CLOSURE (LAMBDA #) {AD8D9F5}>)
7: (NIL)
8: (SB-INT:SIMPLE-EVAL-IN-LEXENV
    (LET ((REVERSED-TARGET-OBJECT-FILE-NAMES NIL))
      (DO-STEMS-AND-FLAGS (STEM FLAGS)
                          (UNLESS (POSITION :NOT-TARGET FLAGS)
                            (PUSH # REVERSED-TARGET-OBJECT-FILE-NAMES)))
      (SETF *TARGET-OBJECT-FILE-NAMES*
              (NREVERSE REVERSED-TARGET-OBJECT-FILE-NAMES)))
    #<NULL-LEXENV>)
9: (SB-FASL::LOAD-AS-SOURCE
    #<SB-SYS:FD-STREAM for "file
C:\\lisp\\tmp\\sbcl\\src\\cold\\compile-cold-sbcl.lisp" {C0C7529}>
    NIL
    NIL)
10: (SB-FASL::INTERNAL-LOAD
     #P"src\\cold\\compile-cold-sbcl.lisp"
     #P"C:\\lisp\\tmp\\sbcl\\src\\cold\\compile-cold-sbcl.lisp"
     :ERROR
     NIL
     NIL
     :SOURCE
     :DEFAULT)
11: (SB-FASL::INTERNAL-LOAD
     #P"src\\cold\\compile-cold-sbcl.lisp"
     #P"C:\\lisp\\tmp\\sbcl\\src\\cold\\compile-cold-sbcl.lisp"
     :ERROR
     NIL
     NIL
     NIL
     :DEFAULT)
12: (LOAD "src/cold/compile-cold-sbcl.lisp")
13: (SB-INT:SIMPLE-EVAL-IN-LEXENV
     (LOAD "src/cold/compile-cold-sbcl.lisp")
     #<NULL-LEXENV>)
14: (SB-EXT:INTERACTIVE-EVAL (LOAD "src/cold/compile-cold-sbcl.lisp"))
15: (SB-IMPL::REPL-FUN NIL)
16: (SB-IMPL::REPL-FUN NIL)
17: ((LAMBDA ()))
18: ((LAMBDA ()))
19: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {A6540CD}>)
20: (SB-IMPL::TOPLEVEL-REPL NIL)
21: (SB-IMPL::TOPLEVEL-INIT)
22: ((LABELS SB-IMPL::RESTART-LISP))
23: ("foreign function: #x411925")
24: ("foreign function: #x40A6C6")

unhandled condition in --disable-debugger mode, quitting
deleted #P"C:\\lisp\\tmp\\sbcl\\obj\\from-xc\\src\\code\\serve-event.lisp-obj-tmp"