Из Ceramic:bundle получил uiop/run-program:subprocess-error не находит мой компонент (и не показывает много)

Question

Из Ceramic:bundle получил uiop/run-program:subprocess-error не находит мой компонент (и не показывает много)

Я хочу встроить приложение в связку с Ceramic. Я могу запустить приложение с ним. Ошибка возникает с:

(ceramic:bundle :WEBLOCKS-TODOMVC :bundle-pathname #p"build/todomvc.tar")

это бежит…

Ceramic: Compiling app...
Launch:
"/usr/local/bin/sbcl" --noinform --no-userinit --no-sysinit
 --load "/home/vince/quicklisp/setup.lisp"
 --eval "(setf *debugger-hook*
               #'(lambda (c h)
                   (declare (ignore h))
                   (uiop:print-condition-backtrace c)
                   (uiop:quit -1)))"
 --eval "(asdf:load-system :WEBLOCKS-TODOMVC)"
 --eval "(setf uiop:*image-entry-point*
               #'(lambda ()
                  (ceramic-entry::weblocks-todomvc)))"
 --eval "(uiop:dump-image #P\"/home/vince/.ceramic/working/weblocks-todomvc\"
                          :executable t
                          #+sb-core-compression :compression
                          #+sb-core-compression t)"

и вылетает:

Subprocess with command "\"/usr/local/bin/sbcl\" --noinform --no-userinit --no-sysinit --load \"/home/vince/quicklisp/setup.lisp\" --eval \"(setf *debugger-hook* #'(lambda (c h) (declare (ignore h)) (uiop:print-condition-backtrace c) (uiop:quit -1)))\" --eval \"(asdf:load-system :WEBLOCKS-TODOMVC)\" --eval \"(setf uiop:*image-entry-point* #'(lambda () (ceramic-entry::weblocks-todomvc)))\" --eval \"(uiop:dump-image #P\\\"/home/vince/.ceramic/working/weblocks-todomvc\\\" :executable t #+sb-core-compression :compression #+sb-core-compression t)\"" exited with error code 255 [Condition of type UIOP/RUN-PROGRAM:SUBPROCESS-ERROR]

Тем не менее, ошибка журнала, обратная трассировка не содержат много информации вообще. Есть ли способ попросить больше?

Я сделал mkdir build/ чтобы быть уверенным.

образ

Учитывая ответ coredump:

Я пошел в источник (с M-.) из керамики: связка, чтобы найти вызов uiop:run-process, который я добавил два параметра и обернул вокруг привязки нескольких значений:

(multiple-value-bind (zero one two)
    (uiop:run-program command
                  :output *standard-output*
                  :error :output
                  :error-output :lines
                  :ignore-error-status t)
  (format t "------------ printing error messages:")
  (log:info zero)
  (log:info one)
  (log:info two))))

и снова запустите команду сборки:

`` `

------------ printing error messages:
 <INFO> [19:09:32] trivial-build slimeCUlUAR (boot-and-build) -
  TRIVIAL-BUILD::ZERO: NIL 
 <INFO> [19:09:32] trivial-build slimeCUlUAR (boot-and-build) -
  TRIVIAL-BUILD::ONE: ("WARNING: Setting locale failed."
                       "  Check the following variables for correct values:"
                       "  LC_CTYPE=en_US.UTF-8" "  LANG=fr_FR.UTF-8"
                       "Backtrace for: #<SB-THREAD:THREAD \"main thread\" RUNNING {10019BB4E3}>"
                       "0: ((LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE))"
                       "1: ((FLET \"THUNK\" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX))"
                       "2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (FLET \"THUNK\" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX) {7FFFF70BF27B}>)"
                       "3: (UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE) {10035ABAAB}> :PACKAGE :CL)"
                       "4: (UIOP/IMAGE:PRINT-CONDITION-BACKTRACE Component :WEBLOCKS-TODOMVC not found :STREAM NIL :COUNT NIL)"
                       "5: ((LAMBDA (COMMON-LISP-USER::C COMMON-LISP-USER::H)) 
                          Component :WEBLOCKS-TODOMVC not found #<unused argument>)"
                       "6: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* 
                         Component :WEBLOCKS-TODOMVC not found)"
                       "7: (INVOKE-DEBUGGER 
                           Component :WEBLOCKS-TODOMVC not found)"
                       "8: (ERROR ASDF/FIND-SYSTEM:MISSING-COMPONENT :REQUIRES :WEBLOCKS-TODOMVC)"
                       "9: ((:METHOD ASDF/OPERATE:OPERATE (SYMBOL T)) ASDF/LISP-ACTION:LOAD-OP :WEBLOCKS-TODOMVC) [fast-method]"
                       "10: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP :WEBLOCKS-TODOMVC)"
                       "11: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))"
                       "12: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :WEBLOCKS-TODOMVC) [fast-method]"
                       "13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))"
                       "14: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1001ED497B}> :OVERRIDE NIL :KEY NIL)"
                       "15: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP :WEBLOCKS-TODOMVC) [fast-method]"
                       "16: (ASDF/OPERATE:LOAD-SYSTEM :WEBLOCKS-TODOMVC)"
                       "17: (SB-INT:SIMPLE-EVAL-IN-LEXENV (ASDF/OPERATE:LOAD-SYSTEM :WEBLOCKS-TODOMVC) #<NULL-LEXENV>)"
                       "18: (EVAL (ASDF/OPERATE:LOAD-SYSTEM :WEBLOCKS-TODOMVC))"
                       "19: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:LOAD . \"/home/vince/quicklisp/setup.lisp\") (:EVAL . \"(setf *debugger-hook* #'(lambda (c h) (declare (ignore h)) (uiop:print-condition-backtrace c) (uiop:quit -1)))\") (:EVAL . \"(asdf:load-system :WEBLOCKS-TODOMVC)\") (:EVAL . \"(setf uiop:*image-entry-point* #'(lambda () (ceramic-entry::weblocks-todomvc)))\") (:EVAL . \"(uiop:dump-image #P\\\"/home/vince/.ceramic/working/weblocks-todomvc\\\" :executable t"
                       "  #+sb-core-compression :compression #+sb-core-compression t)\")))"
                       "20: (SB-IMPL::TOPLEVEL-INIT)"
                       "21: ((FLET \"WITHOUT-INTERRUPTS-BODY-6\" :IN SB-EXT:SAVE-LISP-AND-DIE))"
                       "22: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))"
                       "Above backtrace due to this condition:"
                       "Component :WEBLOCKS-TODOMVC not found")

 <INFO> [19:09:32] trivial-build slimeCUlUAR (boot-and-build) -
  TRIVIAL-BUILD::TWO: 255 
Ceramic: Compressing...

`` `

так что кажется, что сборка не может найти мой компонент "weblocks-todomvc". Что я нахожу удивительным, потому что мой.asdf файл компилируется правильно, я могу запустить окно Ceramic,…

Учитывая комментарии к этому вопросу, я делаю тривиальную сборку загрузки своего пакета, добавляя (format nil "(load #p\"/home/vince/projets/weblocks-todomvc/weblocks-todomvc.asd/\"") в trivial-build:load-and-build-code и я получаю другую трассировку стека:

`` `

------------ printing error messages:
 <INFO> [21:49:12] trivial-build trivial-build.lisp (boot-and-build) -
  TRIVIAL-BUILD::ZERO: NIL 
 <INFO> [21:49:12] trivial-build trivial-build.lisp (boot-and-build) -
  TRIVIAL-BUILD::ONE: ("WARNING: Setting locale failed."
                       "  Check the following variables for correct values:"
                       "  LC_CTYPE=en_US.UTF-8" "  LANG=fr_FR.UTF-8"
                       "Backtrace for: #<SB-THREAD:THREAD \"main thread\" RUNNING {10019BB783}>"
                       "0: ((LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE))"
                       "1: ((FLET \"THUNK\" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX))"
                       "2: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (FLET \"THUNK\" :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX) {7FFFF70BF66B}>)"
                       "3: (UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN UIOP/IMAGE:PRINT-BACKTRACE) {1001EB3A2B}> :PACKAGE :CL)"
                       "4: (UIOP/IMAGE:PRINT-CONDITION-BACKTRACE 
                     #<END-OF-FILE {1001EB3473}> :STREAM NIL :COUNT NIL)"
                       "5: ((LAMBDA (COMMON-LISP-USER::C COMMON-LISP-USER::H)) 
                   #<END-OF-FILE {1001EB3473}> #<unused argument>)"
                       "6: (SB-DEBUG::RUN-HOOK *DEBUGGER-HOOK* 
                    #<END-OF-FILE {1001EB3473}>)"
                       "7: (INVOKE-DEBUGGER #<END-OF-FILE {1001EB3473}>)"
                       "8: (ERROR END-OF-FILE :STREAM #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}>)"
                       "9: (SB-IMPL::STRING-INCH #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}> T NIL)"
                       "10: (SB-IMPL::FLUSH-WHITESPACE #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}>)"
                       "11: (SB-IMPL::READ-LIST #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}> #<unused argument>)"
                       "12: (SB-IMPL::READ-MAYBE-NOTHING #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}> #\\()"
                       "13: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}> T (NIL) T)"
                       "14: (SB-IMPL::%READ-PRESERVING-WHITESPACE #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}> T (NIL) NIL)"
                       "15: (READ #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}> T NIL NIL)"
                       "16: (SB-IMPL::%READ-FROM-STRING \"(load #p\\\"/home/vince/projets/weblocks-todomvc/weblocks-todomvc.asd/\\\"\" T NIL 0 NIL NIL)"
                       "17: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:LOAD . \"/home/vince/quicklisp/setup.lisp\") (:EVAL . \"(setf *debugger-hook* #'(lambda (c h) (declare (ignore h)) (uiop:print-condition-backtrace c) (uiop:quit -1)))\") (:EVAL . \"NIL\") (:EVAL . \"(load #p\\\"/home/vince/projets/weblocks-todomvc/weblocks-todomvc.asd/\\\"\") (:EVAL . \"(ql:quickload :WEBLOCKS-TODOMVC)\") (:EVAL . \"(setf uiop:*image-entry-point* #'(lambda () (ceramic-entry::weblocks-todomvc)))\") (:EVAL . \"(uiop:dump-image #P\\\"/home/vince/.ceramic/working/weblocks-todomvc\\\" :executable t"
                       "  #+sb-core-compression :compression #+sb-core-compression t)\")))"
                       "18: (SB-IMPL::TOPLEVEL-INIT)"
                       "19: ((FLET \"WITHOUT-INTERRUPTS-BODY-6\" :IN SB-EXT:SAVE-LISP-AND-DIE))"
                       "20: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE))"
                       "Above backtrace due to this condition:"
                       "end of file on #<SB-IMPL::STRING-INPUT-STREAM {1001EB2F53}>")

 <INFO> [21:49:12] trivial-build trivial-build.lisp (boot-and-build) -
  TRIVIAL-BUILD::TWO: 255

1

common-lisp slime asdf

Источник

user1506338 13 сен '17 в 13:33

1 ответ

Другие вопросы по тегам common-lisp slime asdf

user124319 13 сен '17 в 16:03 2017-09-13 16:03 · Answer 1 · 2017-09-13 16:03

Вам нужно:

проходить :ignore-error-status t
определить, как вы хотите получить сообщения об ошибках с :error-output (например :lines)

Затем, run-program не сообщит об ошибке, но вы должны проверить состояние ошибки (третье значение) и распечатать / проверить сообщение об ошибке (второе значение).

RUN-PROGRAM returns 3 values:
0- the result of the OUTPUT slurping if any, or NIL
1- the result of the ERROR-OUTPUT slurping if any, or NIL
2- either 0 if the subprocess exited with success status,
or an indication of failure via the EXIT-CODE of the process