[elephant-devel] memutil.lisp breaks compile

[Sebastian Tennant]

Hi there,

Darwin 9.8.0 (MacOSX 10.5.8)
SBCL 1.0.32.10
elephant-1.0 from darcs (altered wnpp-projects)
BerkeleyDB-4.5.20 (installed as per src/contrib/henrik's shell script)

 bash-3.2$ ./clbuild compile elephant
 [...]
 WARNING:
    COMPILE-FILE warned while performing
    #<COMPILE-OP (:VERBOSE NIL) {10032EBFA1}> on
    #<CL-SOURCE-FILE "memutil" {1003E481E1}>.
 unhandled ASDF:COMPILE-FAILED in thread #<SB-THREAD:THREAD "initial thread" RUNNING {100361EDE1}>:
   erred while invoking #<COMPILE-OP (:VERBOSE NIL) {10032EBFA1}> on
   #<CL-SOURCE-FILE "memutil" {1003E481E1}>

 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {1005890E29}>)[:EXTERNAL]
 1: (BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000157B71}>)
 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
     #<ASDF:COMPILE-FAILED {100588DB71}>
     #<unavailable argument>)
 3: (INVOKE-DEBUGGER #<ASDF:COMPILE-FAILED {100588DB71}>)
 4: (ERROR ASDF:COMPILE-FAILED)[:EXTERNAL]
 5: ((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
     #<unavailable argument>
     #<unavailable argument>
     #<ASDF:COMPILE-OP (:VERBOSE NIL) {10032EBFA1}>
     #<ASDF:CL-SOURCE-FILE "memutil" {1003E481E1}>)
 6: ((LAMBDA
         (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
          SB-PCL::.ARG1.))
     #<unavailable argument>
     #<unavailable argument>
     #<ASDF:COMPILE-OP (:VERBOSE NIL) {10032EBFA1}>
     #<ASDF:CL-SOURCE-FILE "memutil" {1003E481E1}>)
 7: ((SB-PCL::FAST-METHOD ASDF:PERFORM ASDF:AROUND
      (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
     #<unavailable argument>
     #S(SB-PCL::FAST-METHOD-CALL
        :FUNCTION #<CLOSURE # {100304D209}>
        :PV NIL
        :NEXT-METHOD-CALL NIL
        :ARG-INFO (2))
     #<ASDF:COMPILE-OP (:VERBOSE NIL) {10032EBFA1}>
     #<ASDF:CL-SOURCE-FILE "memutil" {1003E481E1}>)
 8: ((LAMBDA ()))
 9: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
 10: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]291))
 11: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
      #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {31FF259}>
      #S(SB-THREAD:MUTEX
         :NAME "World Lock"
         :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {100361EDE1}>
         :LUTEX #<unknown pointer object, widetag=#x66 {10007F169F}>))
 12: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {1003A6B449}>)[:EXTERNAL]
 13: (ASDF:OPERATE ASDF:LOAD-OP "ele-bdb")[:EXTERNAL]
 14: ((FLET CLBUILD::BUILD))
 15: ((LAMBDA ()))
 16: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (CLBUILD::WITH-APPLICATION (CLBUILD::PROJECTS-STRING &KEY CLBUILD::DUMP
                                  CLBUILD::VERBOSE CLBUILD::FORCE)
        (LET ((CLBUILD::PROJECTS
               (CL-PPCRE:SPLIT "\\s+" CLBUILD::PROJECTS-STRING))
              (CLBUILD::BLACKLISTED-SYSTEMS
               (UNLESS CLBUILD::FORCE CLBUILD::*BLACKLISTED-SYSTEMS*))
              (CLBUILD::SKIPPED-SYSTEMS 'NIL)
              (*PACKAGE* (FIND-PACKAGE :CL-USER)))
          (SETF CLBUILD::PROJECTS (SORT CLBUILD::PROJECTS #'STRING-LESSP))
          (FLET ((CLBUILD::BUILD ()
                   (DOLIST (CLBUILD::PROJECT CLBUILD::PROJECTS)
                     (DOLIST
                         (CLBUILD::SYSTEM
                          (CLBUILD::PROJECT-TO-SYSTEMS CLBUILD::PROJECT))
                       (COND
                        ((FIND CLBUILD::SYSTEM CLBUILD::BLACKLISTED-SYSTEMS
                               :TEST #'EQUAL)
                         (PUSH CLBUILD::SYSTEM CLBUILD::SKIPPED-SYSTEMS))
                        (T (FORMAT T "Loading ~A...~%" CLBUILD::SYSTEM)
                         (ASDF:OPERATE 'ASDF:LOAD-OP CLBUILD::SYSTEM :VERBOSE
                                       CLBUILD::VERBOSE)))))))
            (IF CLBUILD::VERBOSE
                (CLBUILD::BUILD)
                (HANDLER-BIND ((STYLE-WARNING #'MUFFLE-WARNING)
                               (COMPILER-NOTE #'MUFFLE-WARNING))
                  (LET ((*COMPILE-VERBOSE* NIL)
                        (*COMPILE-PRINT* NIL)
                        (*LOAD-VERBOSE* NIL)
                        (*LOAD-PRINT* NIL))
                    (CLBUILD::BUILD)))))
          (WHEN CLBUILD::SKIPPED-SYSTEMS
            (FORMAT T
                    "WARNING: The following black-listed systems were skipped: ~
                  ~{~A~^, ~}~%~
                 Try --force t to include them.~%"
                    CLBUILD::SKIPPED-SYSTEMS))
          (WHEN CLBUILD::DUMP
            (FORMAT T "Dumping monster.core...~%")
            (FORCE-OUTPUT)
            (SAVE-LISP-AND-DIE "monster.core"))))
      #<NULL-LEXENV>)
 17: (SB-FASL::LOAD-AS-SOURCE
      #<SB-SYS:FD-STREAM for "file /Users/admin/cl/clbuild/clbuild.lisp" {1002D49871}>
      NIL
      NIL)
 18: ((FLET SB-FASL::LOAD-STREAM)
      #<SB-SYS:FD-STREAM for "file /Users/admin/cl/clbuild/clbuild.lisp" {1002D49871}>
      NIL)
 19: (LOAD "/Users/admin/cl/clbuild/clbuild.lisp")[:EXTERNAL]
 20: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (LOAD "/Users/admin/cl/clbuild/clbuild.lisp")
      #<NULL-LEXENV>)
 21: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS
      ((:EVAL . "(require :asdf)")
       (:EVAL
        . "(setq asdf:*central-registry* '(#p\"/Users/admin/cl/clbuild/systems/\"))")
       (:EVAL . "nil")
       (:EVAL . "(load \"/Users/admin/cl/clbuild/clbuild.lisp\")")))
 22: (SB-IMPL::TOPLEVEL-INIT)
 23: ((LABELS SB-IMPL::RESTART-LISP))

 unhandled condition in --disable-debugger mode, quitting

Regards,

Sebastian
-- 
Emacs' AlsaPlayer - Music Without Jolts
Lightweight, full-featured and mindful of your idyllic happiness.
http://home.gna.org/eap