cl-openid

SBCL 1.4.6.140-f8d5864 / ASDF 3.3.1

cl-openid

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.examples". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.test". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20180424-git/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-base64/429e68ef554c75d437f2f109d670c28fd877bf0a/cl-base64-20180424-git/cl-base64.asd" contains definition for system "cl-base64-tests". Please only define "cl-base64" and secondary systems with a name starting with "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/9289f0d6ee8c821e4d9d5bd5e56a95d94da1142a/flexi-streams-20180424-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.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180424-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl+ssl/8d84443d03c9e0fce74c30ce9708a9ea6bc1e603/cl+ssl-20180424-git/cl+ssl.asd" contains definition for system "openssl-1.1.0". Please only define "cl+ssl" and secondary systems with a name starting with "cl+ssl/" (e.g. "cl+ssl/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180424-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-utf-8/a6eb987246e5f233c6b9c4b8b15edbbe2770d848/trivial-utf-8-20180424-git/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.
WARNING: redefining IRONCLAD:MAKE-MESSAGE in DEFUN

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/src/authproc.lisp
; in: DEFUN PERFORM-XRDS-DISCOVERY
;     #'EQUAL
; 
; note: deleting unreachable code

;     '("Type" . "xri://$xrd*($v*2.0)")
; 
; note: deleting unreachable code

;     (SETF CL-OPENID::V1PRIO CL-OPENID::SPRIO
;           CL-OPENID::V1ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;           CL-OPENID::V1OPLOCAL
;             (LET ((CL-OPENID::DELEGATE #))
;               (WHEN CL-OPENID::DELEGATE (THIRD CL-OPENID::DELEGATE)))
;           CL-OPENID::V1TYPE TYPE)
; --> PROGN SETF SETQ THE 
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (THIRD CL-OPENID::DELEGATE)
; --> CADDR CAR CDR CDR 
; ==>
;   CL-OPENID::DELEGATE
; 
; note: deleting unreachable code

;     (SETF CL-OPENID::V1PRIO CL-OPENID::SPRIO
;           CL-OPENID::V1ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;           CL-OPENID::V1OPLOCAL
;             (LET ((CL-OPENID::DELEGATE #))
;               (WHEN CL-OPENID::DELEGATE (THIRD CL-OPENID::DELEGATE)))
;           CL-OPENID::V1TYPE TYPE)
; --> PROGN SETF SETQ THE 
; ==>
;   TYPE
; 
; note: deleting unreachable code

;     (SETF CL-OPENID::PRIO CL-OPENID::SPRIO
;           CL-OPENID::ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;           CL-OPENID::OPLOCAL
;             (THIRD
;              (FIND '("LocalID" . "xri://$xrd*($v*2.0)")
;                    (XMLS:NODE-CHILDREN CL-OPENID::SERVICE) :TEST #'EQUAL :KEY
;                    #'CAR)))
; --> PROGN SETF SETQ THE 
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (PURI:URI CL-OPENID::SERVICE)
; ==>
;   CL-OPENID::SERVICE
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIORITY CL-OPENID::SERVICE)
; ==>
;   CL-OPENID::SERVICE
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::PRIO)
; ==>
;   CL-OPENID::PRIO
; 
; note: deleting unreachable code

;     (LET ((CL-OPENID::SPRIO (CL-OPENID::PRIORITY CL-OPENID::SERVICE)))
;       (WHEN
;           (OR (NULL CL-OPENID::ENDPOINT)
;               (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::PRIO))
;         (SETF CL-OPENID::PRIO CL-OPENID::SPRIO
;               CL-OPENID::ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;               CL-OPENID::OPLOCAL (THIRD #))))
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::PRIO)
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (STRING= TYPE "http://specs.openid.net/auth/2.0/server")
; ==>
;   TYPE
; 
; note: deleting unreachable code

;     (STRING= TYPE "http://specs.openid.net/auth/2.0/signon")
; ==>
;   TYPE
; 
; note: deleting unreachable code

;     #'STRING=
; 
; note: deleting unreachable code

;     (LET ((CL-OPENID::SPRIO (CL-OPENID::PRIORITY CL-OPENID::SERVICE)))
;       (WHEN
;           (OR (NULL CL-OPENID::V1ENDPOINT)
;               (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::V1PRIO))
;         (SETF CL-OPENID::V1PRIO CL-OPENID::SPRIO
;               CL-OPENID::V1ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;               CL-OPENID::V1OPLOCAL
;                 (LET #
;                   #)
;               CL-OPENID::V1TYPE TYPE)))
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::V1PRIO)
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (COND
;      (CL-OPENID::ENDPOINT
;       (SETF (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::OPLOCAL)))
;      (CL-OPENID::V1ENDPOINT
;       (SETF (CL-OPENID:PROTOCOL-VERSION CL-OPENID:AUTHPROC) (OR # '#)
;             (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::V1ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::V1OPLOCAL))))
; --> IF 
; ==>
;   CL-OPENID::ENDPOINT
; 
; note: deleting unreachable code

;     (SETF (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;             (PURI:URI CL-OPENID::ENDPOINT)
;           (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;             (CL-OPENID::MAYBE-URI CL-OPENID::OPLOCAL))
; --> PROGN SETF SB-KERNEL:%INSTANCE-SET THE 
; ==>
;   CL-OPENID:AUTHPROC
; 
; note: deleting unreachable code

;     (COND
;      (CL-OPENID::ENDPOINT
;       (SETF (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::OPLOCAL)))
;      (CL-OPENID::V1ENDPOINT
;       (SETF (CL-OPENID:PROTOCOL-VERSION CL-OPENID:AUTHPROC) (OR # '#)
;             (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::V1ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::V1OPLOCAL))))
; --> IF IF 
; ==>
;   CL-OPENID::V1ENDPOINT
; 
; note: deleting unreachable code

;     (ASSOC CL-OPENID::V1TYPE CL-OPENID::+PROTOCOL-VERSIONS+ :TEST #'EQUAL)
; ==>
;   CL-OPENID::V1TYPE
; 
; note: deleting unreachable code

;     (CDR (ASSOC CL-OPENID::V1TYPE CL-OPENID::+PROTOCOL-VERSIONS+ :TEST #'EQUAL))
; 
; note: deleting unreachable code

;     '(1 . 1)
; 
; note: deleting unreachable code

;     (SETF (CL-OPENID:PROTOCOL-VERSION CL-OPENID:AUTHPROC)
;             (OR
;              (CDR
;               (ASSOC CL-OPENID::V1TYPE CL-OPENID::+PROTOCOL-VERSIONS+ :TEST
;                      #'EQUAL))
;              '(1 . 1))
;           (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;             (PURI:URI CL-OPENID::V1ENDPOINT)
;           (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;             (CL-OPENID::MAYBE-URI CL-OPENID::V1OPLOCAL))
; --> PROGN SETF SB-KERNEL:%INSTANCE-SET THE 
; ==>
;   CL-OPENID:AUTHPROC
; 
; note: deleting unreachable code

;     (XMLS:NODE-CHILDREN CL-OPENID::PARSED)
; --> SB-KERNEL:%INSTANCE-REF 
; ==>
;   (THE XMLS:NODE CL-OPENID::PARSED)
; 
; caught WARNING:
;   Derived type of PARSED is (VALUES LIST &OPTIONAL), conflicting with its asserted type XMLS:NODE.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-openid" "src" "authproc">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10038E6173}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10038E6173}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {10038E6173}>)
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-openid" "src" "authproc">)))
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-openid" "src" "authproc">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-openid" "src" "authproc">)
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-openid" "src" "authproc">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005C27C53}>) [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 {1005C27C53}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-openid"> :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-openid">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-openid">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-openid")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-openid") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005C2256B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005BDC82B}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-openid") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-openid" "cl-openid")
23: (DEPCHECK::MAGIC "cl-openid" "cl-openid" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-dr5vFtHy/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-openid" "cl-openid" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-dr5vFtHy/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-dr5vFtHy/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   printed 23 notes

cl-openid.test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.examples". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.test". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.examples". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.test". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.examples". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/cl-openid.asd" contains definition for system "cl-openid.test". Please only define "cl-openid" and secondary systems with a name starting with "cl-openid/" (e.g. "cl-openid/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/puri/79053c86ebabe7ec8aab7ef175e13c9f3a9f0960/puri-20180424-git/puri.asd" contains definition for system "puri-tests". Please only define "puri" and secondary systems with a name starting with "puri/" (e.g. "puri/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-base64/429e68ef554c75d437f2f109d670c28fd877bf0a/cl-base64-20180424-git/cl-base64.asd" contains definition for system "cl-base64-tests". Please only define "cl-base64" and secondary systems with a name starting with "cl-base64/" (e.g. "cl-base64/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/flexi-streams/9289f0d6ee8c821e4d9d5bd5e56a95d94da1142a/flexi-streams-20180424-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.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180424-git/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl+ssl/8d84443d03c9e0fce74c30ce9708a9ea6bc1e603/cl+ssl-20180424-git/cl+ssl.asd" contains definition for system "openssl-1.1.0". Please only define "cl+ssl" and secondary systems with a name starting with "cl+ssl/" (e.g. "cl+ssl/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-garbage/8edc182c56fc03da3a83f6fb26d446c6f381abec/trivial-garbage-20180424-git/trivial-garbage.asd" contains definition for system "trivial-garbage-tests". Please only define "trivial-garbage" and secondary systems with a name starting with "trivial-garbage/" (e.g. "trivial-garbage/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/trivial-utf-8/a6eb987246e5f233c6b9c4b8b15edbbe2770d848/trivial-utf-8-20180424-git/trivial-utf-8.asd" contains definition for system "trivial-utf-8-tests". Please only define "trivial-utf-8" and secondary systems with a name starting with "trivial-utf-8/" (e.g. "trivial-utf-8/test") in that file.
WARNING: redefining IRONCLAD:MAKE-MESSAGE in DEFUN

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-openid/eff65d6d00ef69a96970ace77a4be8e858091d20/cl-openid-20180424-git/src/authproc.lisp
; in: DEFUN PERFORM-XRDS-DISCOVERY
;     #'EQUAL
; 
; note: deleting unreachable code

;     '("Type" . "xri://$xrd*($v*2.0)")
; 
; note: deleting unreachable code

;     (SETF CL-OPENID::V1PRIO CL-OPENID::SPRIO
;           CL-OPENID::V1ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;           CL-OPENID::V1OPLOCAL
;             (LET ((CL-OPENID::DELEGATE #))
;               (WHEN CL-OPENID::DELEGATE (THIRD CL-OPENID::DELEGATE)))
;           CL-OPENID::V1TYPE TYPE)
; --> PROGN SETF SETQ THE 
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (THIRD CL-OPENID::DELEGATE)
; --> CADDR CAR CDR CDR 
; ==>
;   CL-OPENID::DELEGATE
; 
; note: deleting unreachable code

;     (SETF CL-OPENID::V1PRIO CL-OPENID::SPRIO
;           CL-OPENID::V1ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;           CL-OPENID::V1OPLOCAL
;             (LET ((CL-OPENID::DELEGATE #))
;               (WHEN CL-OPENID::DELEGATE (THIRD CL-OPENID::DELEGATE)))
;           CL-OPENID::V1TYPE TYPE)
; --> PROGN SETF SETQ THE 
; ==>
;   TYPE
; 
; note: deleting unreachable code

;     (SETF CL-OPENID::PRIO CL-OPENID::SPRIO
;           CL-OPENID::ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;           CL-OPENID::OPLOCAL
;             (THIRD
;              (FIND '("LocalID" . "xri://$xrd*($v*2.0)")
;                    (XMLS:NODE-CHILDREN CL-OPENID::SERVICE) :TEST #'EQUAL :KEY
;                    #'CAR)))
; --> PROGN SETF SETQ THE 
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (PURI:URI CL-OPENID::SERVICE)
; ==>
;   CL-OPENID::SERVICE
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIORITY CL-OPENID::SERVICE)
; ==>
;   CL-OPENID::SERVICE
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::PRIO)
; ==>
;   CL-OPENID::PRIO
; 
; note: deleting unreachable code

;     (LET ((CL-OPENID::SPRIO (CL-OPENID::PRIORITY CL-OPENID::SERVICE)))
;       (WHEN
;           (OR (NULL CL-OPENID::ENDPOINT)
;               (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::PRIO))
;         (SETF CL-OPENID::PRIO CL-OPENID::SPRIO
;               CL-OPENID::ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;               CL-OPENID::OPLOCAL (THIRD #))))
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::PRIO)
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (STRING= TYPE "http://specs.openid.net/auth/2.0/server")
; ==>
;   TYPE
; 
; note: deleting unreachable code

;     (STRING= TYPE "http://specs.openid.net/auth/2.0/signon")
; ==>
;   TYPE
; 
; note: deleting unreachable code

;     #'STRING=
; 
; note: deleting unreachable code

;     (LET ((CL-OPENID::SPRIO (CL-OPENID::PRIORITY CL-OPENID::SERVICE)))
;       (WHEN
;           (OR (NULL CL-OPENID::V1ENDPOINT)
;               (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::V1PRIO))
;         (SETF CL-OPENID::V1PRIO CL-OPENID::SPRIO
;               CL-OPENID::V1ENDPOINT (PURI:URI CL-OPENID::SERVICE)
;               CL-OPENID::V1OPLOCAL
;                 (LET #
;                   #)
;               CL-OPENID::V1TYPE TYPE)))
; 
; note: deleting unreachable code

;     (CL-OPENID::PRIO< CL-OPENID::SPRIO CL-OPENID::V1PRIO)
; ==>
;   CL-OPENID::SPRIO
; 
; note: deleting unreachable code

;     (COND
;      (CL-OPENID::ENDPOINT
;       (SETF (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::OPLOCAL)))
;      (CL-OPENID::V1ENDPOINT
;       (SETF (CL-OPENID:PROTOCOL-VERSION CL-OPENID:AUTHPROC) (OR # '#)
;             (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::V1ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::V1OPLOCAL))))
; --> IF 
; ==>
;   CL-OPENID::ENDPOINT
; 
; note: deleting unreachable code

;     (SETF (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;             (PURI:URI CL-OPENID::ENDPOINT)
;           (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;             (CL-OPENID::MAYBE-URI CL-OPENID::OPLOCAL))
; --> PROGN SETF SB-KERNEL:%INSTANCE-SET THE 
; ==>
;   CL-OPENID:AUTHPROC
; 
; note: deleting unreachable code

;     (COND
;      (CL-OPENID::ENDPOINT
;       (SETF (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::OPLOCAL)))
;      (CL-OPENID::V1ENDPOINT
;       (SETF (CL-OPENID:PROTOCOL-VERSION CL-OPENID:AUTHPROC) (OR # '#)
;             (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;               (PURI:URI CL-OPENID::V1ENDPOINT)
;             (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;               (CL-OPENID::MAYBE-URI CL-OPENID::V1OPLOCAL))))
; --> IF IF 
; ==>
;   CL-OPENID::V1ENDPOINT
; 
; note: deleting unreachable code

;     (ASSOC CL-OPENID::V1TYPE CL-OPENID::+PROTOCOL-VERSIONS+ :TEST #'EQUAL)
; ==>
;   CL-OPENID::V1TYPE
; 
; note: deleting unreachable code

;     (CDR (ASSOC CL-OPENID::V1TYPE CL-OPENID::+PROTOCOL-VERSIONS+ :TEST #'EQUAL))
; 
; note: deleting unreachable code

;     '(1 . 1)
; 
; note: deleting unreachable code

;     (SETF (CL-OPENID:PROTOCOL-VERSION CL-OPENID:AUTHPROC)
;             (OR
;              (CDR
;               (ASSOC CL-OPENID::V1TYPE CL-OPENID::+PROTOCOL-VERSIONS+ :TEST
;                      #'EQUAL))
;              '(1 . 1))
;           (CL-OPENID:PROVIDER-ENDPOINT-URI CL-OPENID:AUTHPROC)
;             (PURI:URI CL-OPENID::V1ENDPOINT)
;           (CL-OPENID:OP-LOCAL-ID CL-OPENID:AUTHPROC)
;             (CL-OPENID::MAYBE-URI CL-OPENID::V1OPLOCAL))
; --> PROGN SETF SB-KERNEL:%INSTANCE-SET THE 
; ==>
;   CL-OPENID:AUTHPROC
; 
; note: deleting unreachable code

;     (XMLS:NODE-CHILDREN CL-OPENID::PARSED)
; --> SB-KERNEL:%INSTANCE-REF 
; ==>
;   (THE XMLS:NODE CL-OPENID::PARSED)
; 
; caught WARNING:
;   Derived type of PARSED is (VALUES LIST &OPTIONAL), conflicting with its asserted type XMLS:NODE.
;   See also:
;     The SBCL Manual, Node "Handling of Types"
Unhandled UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>: COMPILE-FILE-ERROR while compiling #<CL-SOURCE-FILE "cl-openid" "src" "authproc">

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006005B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1005446E73}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1005446E73}>)
2: (INVOKE-DEBUGGER #<UIOP/LISP-BUILD:COMPILE-FILE-ERROR {1005446E73}>)
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-openid" "src" "authproc">)))
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-openid" "src" "authproc">)))
5: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "cl-openid" "src" "authproc">)
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-openid" "src" "authproc">) [fast-method]
8: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005CC6FD3}>) [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 {1005CC6FD3}>) [fast-method]
11: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-openid.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 "cl-openid.test">)
13: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
14: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "cl-openid.test">) [fast-method]
15: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "cl-openid.test")
16: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
17: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-openid.test") [fast-method]
18: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005CC1F4B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
19: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
20: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005CBF4FB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "cl-openid.test") [fast-method]
22: (DEPCHECK::COMPUTE-DEPENDENCIES "cl-openid" "cl-openid.test")
23: (DEPCHECK::MAGIC "cl-openid" "cl-openid.test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-TwrzsZZ1/depcheck-win.txt")
24: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "cl-openid" "cl-openid.test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-TwrzsZZ1/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-TwrzsZZ1/depcheck-fail.txt"))
25: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
26: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
27: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
28: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 1 fatal ERROR condition
;   caught 1 WARNING condition
;   printed 23 notes