cl-etcd

SBCL 2.1.7.62-417920f09 / ASDF 3.3.5

etcd-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20210919-git/cl-json.asd" contains definition for system "cl-json.test". Please only define "cl-json" and secondary systems with a name starting with "cl-json/" (e.g. "cl-json/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20210919-git/cl-ppcre-unicode.asd" contains definition for system "cl-ppcre-unicode-test". Please only define "cl-ppcre-unicode" and secondary systems with a name starting with "cl-ppcre-unicode/" (e.g. "cl-ppcre-unicode/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20210919-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-etcd/8ac94e92f81e27cd18ae986ee7c0e79817839a04/cl-etcd-20210919-git/etcd.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (ETCD)
;     (MULTIPLE-VALUE-BIND
;         (CL-ETCD::OUTPUT CL-ETCD::ERROR-OUTPUT CL-ETCD::EXIT-CODE)
;         (UIOP/RUN-PROGRAM:RUN-PROGRAM "which etcd" :IGNORE-ERROR-STATUS T)
;       (WHEN (NOT (= 0 CL-ETCD::EXIT-CODE))
;         (ERROR "etcd command is required but missing")))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (
;          &OPTIONAL (CL-ETCD::OUTPUT) (CL-ETCD::ERROR-OUTPUT)
;          (CL-ETCD::EXIT-CODE)
;          &REST #:G7)
;       (DECLARE (IGNORE #:G7))
;       (WHEN (NOT (= 0 CL-ETCD::EXIT-CODE))
;         (ERROR "etcd command is required but missing")))
; 
; caught STYLE-WARNING:
;   The variable OUTPUT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ERROR-OUTPUT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-etcd/8ac94e92f81e27cd18ae986ee7c0e79817839a04/cl-etcd-20210919-git/etcd.lisp
; in: DEFUN DELETE-DIR-ETCD
;     (DEFUN CL-ETCD:DELETE-DIR-ETCD
;            (CL-ETCD::DIR CL-ETCD:ETCD &KEY (CL-ETCD::ERROR-ON-MISSING NIL))
;       "Delete the directory DIR recursively from ETCD."
;       (WITH-SLOTS (CL-ETCD::GET-PUT-URI)
;           CL-ETCD:ETCD
;         (MULTIPLE-VALUE-BIND (CL-ETCD::ANSWER CL-ETCD::ERROR-CODE)
;             (DRAKMA:HTTP-REQUEST
;              (STR:CONCAT CL-ETCD::GET-PUT-URI CL-ETCD::KEY "?recursive=true")
;              :METHOD :DELETE)
;           (IF (OR # #)
;               CL-ETCD::KEY
;               (ERROR "can't delete from etcd[~A]: ~A" CL-ETCD::ERROR-CODE #))
;           CL-ETCD::KEY)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-ETCD:DELETE-DIR-ETCD
;         (CL-ETCD::DIR CL-ETCD:ETCD &KEY (CL-ETCD::ERROR-ON-MISSING NIL))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Delete the directory DIR recursively from ETCD."
;       (BLOCK CL-ETCD:DELETE-DIR-ETCD
;         (WITH-SLOTS (CL-ETCD::GET-PUT-URI)
;             CL-ETCD:ETCD
;           (MULTIPLE-VALUE-BIND (CL-ETCD::ANSWER CL-ETCD::ERROR-CODE)
;               (DRAKMA:HTTP-REQUEST # :METHOD :DELETE)
;             (IF #
;                 CL-ETCD::KEY
;                 #)
;             CL-ETCD::KEY))))
; 
; caught STYLE-WARNING:
;   The variable DIR is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-etcd/8ac94e92f81e27cd18ae986ee7c0e79817839a04/cl-etcd-20210919-git/etcd.lisp
; in: DEFUN %GET-ETCD
;     (CDR ASSOC :MESSAGE CL-ETCD::JSON)
; 
; caught WARNING:
;   The function CDR is called with three arguments, but wants exactly one.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-etcd" "etcd">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10114E9BA3}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10114E9BA3}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10114E9BA3}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005773213}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005773213}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "etcd-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "etcd-test">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "etcd-test">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "etcd-test")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "etcd-test") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100576FDFB}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100573244B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "etcd-test") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "etcd-test" "etcd-test")
23: (DEPCHECK::MAGIC "etcd-test" "etcd-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-M62gs7Ff/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "etcd-test" "etcd-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-M62gs7Ff/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-M62gs7Ff/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 3 STYLE-WARNING conditions

cl-etcd

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-json/a506ef6a9ce15a1b58b4d7fbeb9fd774e24008e2/cl-json-20210919-git/cl-json.asd" contains definition for system "cl-json.test". Please only define "cl-json" and secondary systems with a name starting with "cl-json/" (e.g. "cl-json/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/d6593d8f842bcf6af810ff93c6c02b757bd49ecf/cl-ppcre-20210919-git/cl-ppcre-unicode.asd" contains definition for system "cl-ppcre-unicode-test". Please only define "cl-ppcre-unicode" and secondary systems with a name starting with "cl-ppcre-unicode/" (e.g. "cl-ppcre-unicode/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/2f04ab423f3e13bad09bf311dd863838fec643be/flexi-streams-20210919-git/flexi-streams.asd" contains definition for system "flexi-streams-test". Please only define "flexi-streams" and secondary systems with a name starting with "flexi-streams/" (e.g. "flexi-streams/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-etcd/8ac94e92f81e27cd18ae986ee7c0e79817839a04/cl-etcd-20210919-git/etcd.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (ETCD)
;     (MULTIPLE-VALUE-BIND
;         (CL-ETCD::OUTPUT CL-ETCD::ERROR-OUTPUT CL-ETCD::EXIT-CODE)
;         (UIOP/RUN-PROGRAM:RUN-PROGRAM "which etcd" :IGNORE-ERROR-STATUS T)
;       (WHEN (NOT (= 0 CL-ETCD::EXIT-CODE))
;         (ERROR "etcd command is required but missing")))
; --> MULTIPLE-VALUE-CALL 
; ==>
;   #'(LAMBDA
;         (
;          &OPTIONAL (CL-ETCD::OUTPUT) (CL-ETCD::ERROR-OUTPUT)
;          (CL-ETCD::EXIT-CODE)
;          &REST #:G7)
;       (DECLARE (IGNORE #:G7))
;       (WHEN (NOT (= 0 CL-ETCD::EXIT-CODE))
;         (ERROR "etcd command is required but missing")))
; 
; caught STYLE-WARNING:
;   The variable OUTPUT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ERROR-OUTPUT is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-etcd/8ac94e92f81e27cd18ae986ee7c0e79817839a04/cl-etcd-20210919-git/etcd.lisp
; in: DEFUN DELETE-DIR-ETCD
;     (DEFUN CL-ETCD:DELETE-DIR-ETCD
;            (CL-ETCD::DIR CL-ETCD:ETCD &KEY (CL-ETCD::ERROR-ON-MISSING NIL))
;       "Delete the directory DIR recursively from ETCD."
;       (WITH-SLOTS (CL-ETCD::GET-PUT-URI)
;           CL-ETCD:ETCD
;         (MULTIPLE-VALUE-BIND (CL-ETCD::ANSWER CL-ETCD::ERROR-CODE)
;             (DRAKMA:HTTP-REQUEST
;              (STR:CONCAT CL-ETCD::GET-PUT-URI CL-ETCD::KEY "?recursive=true")
;              :METHOD :DELETE)
;           (IF (OR # #)
;               CL-ETCD::KEY
;               (ERROR "can't delete from etcd[~A]: ~A" CL-ETCD::ERROR-CODE #))
;           CL-ETCD::KEY)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-ETCD:DELETE-DIR-ETCD
;         (CL-ETCD::DIR CL-ETCD:ETCD &KEY (CL-ETCD::ERROR-ON-MISSING NIL))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "Delete the directory DIR recursively from ETCD."
;       (BLOCK CL-ETCD:DELETE-DIR-ETCD
;         (WITH-SLOTS (CL-ETCD::GET-PUT-URI)
;             CL-ETCD:ETCD
;           (MULTIPLE-VALUE-BIND (CL-ETCD::ANSWER CL-ETCD::ERROR-CODE)
;               (DRAKMA:HTTP-REQUEST # :METHOD :DELETE)
;             (IF #
;                 CL-ETCD::KEY
;                 #)
;             CL-ETCD::KEY))))
; 
; caught STYLE-WARNING:
;   The variable DIR is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-etcd/8ac94e92f81e27cd18ae986ee7c0e79817839a04/cl-etcd-20210919-git/etcd.lisp
; in: DEFUN %GET-ETCD
;     (CDR ASSOC :MESSAGE CL-ETCD::JSON)
; 
; caught WARNING:
;   The function CDR is called with three arguments, but wants exactly one.
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-etcd" "etcd">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {1001BF0103}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10110D1473}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10110D1473}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10110D1473}>)
3: (ERROR UIOP/LISP-BUILD:COMPILE-FILE-ERROR :CONTEXT-FORMAT "~/asdf-action::format-action/" :CONTEXT-ARGUMENTS ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">)))
4: (UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-action/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">)
6: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
7: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-etcd" "etcd">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005778EE3}>) [fast-method]
9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
10: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005778EE3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-etcd"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
12: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-etcd">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-etcd">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-etcd")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-etcd") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005775C4B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<FUNCTION (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10057382BB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-etcd") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-etcd" "cl-etcd")
23: (DEPCHECK::MAGIC "cl-etcd" "cl-etcd" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Dnl8ER8t/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-etcd" "cl-etcd" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Dnl8ER8t/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-Dnl8ER8t/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/quicklisp/local-projects/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SB-IMPL::START-LISP))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-IMPL::START-LISP))
28: (SB-IMPL::START-LISP)

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   caught 3 STYLE-WARNING conditions