[xcvb-devel] Success for make xcvb-using-asdf, yet system load fails.

[Samium Gromoff]

The Desire's bootstrap script climb.sh now successfully builds and
installs xcvb-using-asdf.  The next quirk now is loading it, as it
fails to load a fasl from cache.

A way to reproduce it is rather simple now:

  wget http://www.feelingofgreen.ru/shared/git/desire/climb.sh
  bash climb.sh /home/<clean-user-directory>/desr xcvb

The backtrace:

debugger invoked on a SB-INT:SIMPLE-FILE-ERROR in thread #<THREAD "initial thread" RUNNING {10029D6091}>:
  Couldn't load
  #P"/little/home/empty/.cache/common-lisp/sbcl-1.0.31.32-linux-x86-64/little/home/empty/desr/git/xcvb/driver.fasl":
  file does not exist.

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [TRY-RECOMPILING] Recompile driver and try loading it again
  1: [RETRY          ] Retry performing #<ASDF:LOAD-OP NIL {1005A83511}> on
                       #<ASDF:CL-SOURCE-FILE "driver" {100465CB91}>.
  2: [ACCEPT         ] Continue, treating #<ASDF:LOAD-OP NIL {1005A83511}> on
                       #<ASDF:CL-SOURCE-FILE "driver" {100465CB91}> as having
                       been successful.
  3: [CONTINUE       ] Ignore runtime option --eval "
(progn
  (setf executor:*execute-explanatory* nil executor:*execute-verbosely* nil)
  (init \"/home/empty/desr/\" :wishmaster-branch :master)
  (format t \"~&~%~%~
   Congratulations! You have reached a point where you can wish for any package~%~
  desire knows about. Just type (lust 'desiree) and it will happen.~%~
  You can link desire's pool of packages into ASDF by ensuring that~%~
  #p\\\"/home/empty/desr/git/.asdf-registry/\\\" is in your ASDF:*CENTRAL-REGISTRY*~%~%~
  To see what's possible, issue:~%~
    (apropos-desr 'clim)~%~
  or~%~
    (list-modules)~%~%~
  Have fun!~%~%\")
  (let* ((app (app 'xcvb :if-does-not-exist :continue))
         (system  (if app
                      (app-system app)
                      (system 'xcvb :if-does-not-exist :continue)))
         (module (if system
                     (system-module system)
                     (module 'xcvb :if-does-not-exist :continue))))
    (when (and 'xcvb (not module))
      (error \"~@<A desire ~S was provided, but no such entity (application, system or module) is known to desire.~:@>\"
             'xcvb))
    (when module
      (lust (name module)))
    (when system
      (require (down-case-name system)))
    (when app
      (run app))))".
  4: [ABORT          ] Skip rest of --eval and --load options.
  5:                   Skip to toplevel READ/EVAL/PRINT loop.
  6: [QUIT           ] Quit SBCL (calling #'QUIT, killing the process).

(LOAD
 #P"/little/home/empty/.cache/common-lisp/sbcl-1.0.31.32-linux-x86-64/little/home/empty/desr/git/xcvb/driver.fasl")[:EXTERNAL]
0] :ba

0: (LOAD
    #P"/little/home/empty/.cache/common-lisp/sbcl-1.0.31.32-linux-x86-64/little/home/empty/desr/git/xcvb/driver.fasl")[:EXTERNAL]
1: ((SB-PCL::FAST-METHOD ASDF:PERFORM
     (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE)) #<unavailable lambda list>)
2: ((LAMBDA
        (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
         SB-PCL::.ARG1.)) #<unavailable lambda list>)
3: ((SB-PCL::FAST-METHOD ASDF:PERFORM ASDF:AROUND
     (ASDF:LOAD-OP ASDF:CL-SOURCE-FILE)) #<unavailable lambda list>)
4: ((LAMBDA ()) #<unavailable lambda list>)
5: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
6: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]291))
7: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
    #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFFF4F6F549}>
    #S(SB-THREAD:MUTEX
       :NAME "World Lock"
       :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {10029D6091}>
       :STATE 1))
8: (SB-C::%WITH-COMPILATION-UNIT #<CLOSURE (LAMBDA #) {10049992A9}>)[:EXTERNAL]
9: (ASDF:OPERATE #<unavailable lambda list>)[:EXTERNAL]
10: (ASDF::MODULE-PROVIDE-ASDF #<unavailable lambda list>)
11: ((LAMBDA (#:G[REQUIRE]13)) ASDF::MODULE-PROVIDE-ASDF)
12: (SB-IMPL::%MAP-FOR-EFFECT-ARITY-1
     #<CLOSURE (LAMBDA #) {1004459469}>
     (ASDF::MODULE-PROVIDE-ASDF SB-IMPL::MODULE-PROVIDE-CONTRIB))
13: (REQUIRE "xcvb" NIL)
14: ((LAMBDA ()) #<unavailable lambda list>)
15: (SB-INT:SIMPLE-EVAL-IN-LEXENV
     (LET* ((APP (APP 'XCVB :IF-DOES-NOT-EXIST :CONTINUE))
            (SYSTEM
             (IF APP
                 (APP-SYSTEM APP)
                 (SYSTEM 'XCVB :IF-DOES-NOT-EXIST :CONTINUE)))
            (MODULE
             (IF SYSTEM
                 (SYSTEM-MODULE SYSTEM)
                 (MODULE 'XCVB :IF-DOES-NOT-EXIST :CONTINUE))))
       (WHEN (AND 'XCVB (NOT MODULE))
         (ERROR
          "~@<A desire ~S was provided, but no such entity (application, system or module) is known to desire.~:@>"
          'XCVB))
       (WHEN MODULE (LUST (NAME MODULE)))
       (WHEN SYSTEM (REQUIRE (DOWN-CASE-NAME SYSTEM)))
       (WHEN APP (RUN APP)))
     #<NULL-LEXENV>)
16: (SB-INT:SIMPLE-EVAL-IN-LEXENV


regards,
  Samium Gromoff
--
                                 _deepfire-at-feelingofgreen.ru
O< ascii ribbon campaign - stop html mail - www.asciiribbon.org