drakma-async

SBCL 1.4.4 / ASDF 3.3.1

drakma-async-test

WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/cl-async.asd" contains definition for system "cl-async-base". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/cl-async.asd" contains definition for system "cl-async-util". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-ppcre/3d57f1e446e4894097acebf36d52978ddaa62531/cl-ppcre-20180205-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/flexi-streams/d08cfa551a2f185431304236cd56db2fbb98b864/flexi-streams-20180205-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/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-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-20180205-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/split-sequence/6bf91fd8e42f64c90d6658cbe89556e4ed08c84f/split-sequence-1.2/split-sequence.asd" contains definition for system "split-sequence-tests". Please only define "split-sequence" and secondary systems with a name starting with "split-sequence/" (e.g. "split-sequence/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl+ssl/fa8185379e05f4a8a1100cfb7594235030d5013a/cl+ssl-20180205-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-20180205-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/eos/bbfeefe9f70dd744142060ef1e96f85092bfdef7/eos-20180205-git/eos.asd" contains definition for system "eos-tests". Please only define "eos" and secondary systems with a name starting with "eos/" (e.g. "eos/test") in that file.

; file: /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-libuv/7970db5e2d189776107f31c1ac1cad86993c9f48/cl-libuv-20180205-git/grovel.processed-grovel-file
; in: DEFCSTRUCT (SOCKADDR-IN :SIZE 16)
;     (CFFI:DEFCSTRUCT (LIBUV::SOCKADDR-IN :SIZE 16)
;       (LIBUV::SIN-FAMILY :SHORT :OFFSET 0)
;       (LIBUV::SIN-PORT :UNSIGNED-SHORT :OFFSET 2)
;       (LIBUV::SIN-ADDR LIBUV::IN-ADDR :OFFSET 4)
;       (LIBUV::SIN-ZERO :CHAR :COUNT 8 :OFFSET 8))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'LIBUV::SOCKADDR-IN
;                                           '(:CLASS LIBUV::SOCKADDR-IN-TCLASS
;                                             :SIZE 16)
;                                           '((LIBUV::SIN-FAMILY :SHORT :OFFSET
;                                              0)
;                                             (LIBUV::SIN-PORT :UNSIGNED-SHORT
;                                              :OFFSET 2)
;                                             (LIBUV::SIN-ADDR LIBUV::IN-ADDR
;                                              :OFFSET 4)
;                                             (LIBUV::SIN-ZERO :CHAR :COUNT 8
;                                              :OFFSET 8)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.

; file: /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-libuv/7970db5e2d189776107f31c1ac1cad86993c9f48/cl-libuv-20180205-git/grovel.processed-grovel-file
; in: DEFCSTRUCT (SOCKADDR-IN6 :SIZE 28)
;     (CFFI:DEFCSTRUCT (LIBUV::SOCKADDR-IN6 :SIZE 28)
;       (LIBUV::SIN6-FAMILY :UINT16 :OFFSET 0)
;       (LIBUV::SIN6-PORT :UINT16 :OFFSET 2)
;       (LIBUV::SIN6-FLOWINFO :UINT32 :OFFSET 4)
;       (LIBUV::SIN6-ADDR LIBUV::IN6-ADDR :OFFSET 8)
;       (LIBUV::SIN6-SCOPE-ID :UINT32 :OFFSET 24))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'LIBUV::SOCKADDR-IN6
;                                           '(:CLASS LIBUV::SOCKADDR-IN6-TCLASS
;                                             :SIZE 28)
;                                           '((LIBUV::SIN6-FAMILY :UINT16 :OFFSET
;                                              0)
;                                             (LIBUV::SIN6-PORT :UINT16 :OFFSET
;                                              2)
;                                             (LIBUV::SIN6-FLOWINFO :UINT32
;                                              :OFFSET 4)
;                                             (LIBUV::SIN6-ADDR LIBUV::IN6-ADDR
;                                              :OFFSET 8)
;                                             (LIBUV::SIN6-SCOPE-ID :UINT32
;                                              :OFFSET 24)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.

; file: /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-libuv/7970db5e2d189776107f31c1ac1cad86993c9f48/cl-libuv-20180205-git/grovel.processed-grovel-file
; in: DEFCSTRUCT (UV-STAT-T :SIZE 160)
;     (CFFI:DEFCSTRUCT (LIBUV::UV-STAT-T :SIZE 160)
;       (LIBUV::ST-DEV LIBUV::UINT64-T :OFFSET 0)
;       (LIBUV::ST-MODE LIBUV::UINT64-T :OFFSET 8)
;       (LIBUV::ST-NLINK LIBUV::UINT64-T :OFFSET 16)
;       (LIBUV::ST-UID LIBUV::UINT64-T :OFFSET 24)
;       (LIBUV::ST-GID LIBUV::UINT64-T :OFFSET 32)
;       (LIBUV::ST-RDEV LIBUV::UINT64-T :OFFSET 40)
;       (LIBUV::ST-INO LIBUV::UINT64-T :OFFSET 48)
;       (LIBUV::ST-SIZE LIBUV::UINT64-T :OFFSET 56)
;       (LIBUV::ST-BLKSIZE LIBUV::UINT64-T :OFFSET 64)
;       (LIBUV::ST-BLOCKS LIBUV::UINT64-T :OFFSET 72)
;       ...)
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'LIBUV::UV-STAT-T
;                                           '(:CLASS LIBUV::UV-STAT-T-TCLASS
;                                             :SIZE 160)
;                                           '((LIBUV::ST-DEV LIBUV::UINT64-T
;                                              :OFFSET 0)
;                                             (LIBUV::ST-MODE LIBUV::UINT64-T
;                                              :OFFSET 8)
;                                             (LIBUV::ST-NLINK LIBUV::UINT64-T
;                                              :OFFSET 16)
;                                             (LIBUV::ST-UID LIBUV::UINT64-T
;                                              :OFFSET 24)
;                                             (LIBUV::ST-GID LIBUV::UINT64-T
;                                              :OFFSET 32)
;                                             (LIBUV::ST-RDEV LIBUV::UINT64-T
;                                              :OFFSET 40)
;                                             (LIBUV::ST-INO LIBUV::UINT64-T
;                                              :OFFSET 48)
;                                             (LIBUV::ST-SIZE LIBUV::UINT64-T
;                                              :OFFSET 56)
;                                             (LIBUV::ST-BLKSIZE LIBUV::UINT64-T
;                                              :OFFSET 64)
;                                             (LIBUV::ST-BLOCKS LIBUV::UINT64-T
;                                              :OFFSET 72)
;                                             (LIBUV::ST-FLAGS LIBUV::UINT64-T
;                                              :OFFSET 80)
;                                             (LIBUV::ST-GEN LIBUV::UINT64-T
;                                              :OFFSET 88)
;                                             ...))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.

; file: /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/cl-libuv/7970db5e2d189776107f31c1ac1cad86993c9f48/cl-libuv-20180205-git/grovel.processed-grovel-file
; in: DEFCSTRUCT (UV-FS-S :SIZE 440)
;     (CFFI:DEFCSTRUCT (LIBUV::UV-FS-S :SIZE 440)
;       (LIBUV::DATA :POINTER :OFFSET 0)
;       (TYPE LIBUV::UV-REQ-TYPE :OFFSET 8)
;       (LIBUV::FS_TYPE LIBUV::UV-FS-TYPE :OFFSET 64)
;       (LOOP :POINTER :OFFSET 72)
;       (LIBUV::CB :POINTER :OFFSET 80)
;       (LIBUV::RESULT LIBUV::SSIZE-T :OFFSET 88)
;       (LIBUV::PTR :POINTER :OFFSET 96)
;       (LIBUV::PATH :STRING :OFFSET 104)
;       (LIBUV::STATBUF LIBUV::UV-STAT-T :OFFSET 112))
; --> EVAL-WHEN 
; ==>
;   (CFFI::NOTICE-FOREIGN-STRUCT-DEFINITION 'LIBUV::UV-FS-S
;                                           '(:CLASS LIBUV::UV-FS-S-TCLASS :SIZE
;                                             440)
;                                           '((LIBUV::DATA :POINTER :OFFSET 0)
;                                             (TYPE LIBUV::UV-REQ-TYPE :OFFSET 8)
;                                             (LIBUV::FS_TYPE LIBUV::UV-FS-TYPE
;                                              :OFFSET 64)
;                                             (LOOP :POINTER :OFFSET 72)
;                                             (LIBUV::CB :POINTER :OFFSET 80)
;                                             (LIBUV::RESULT LIBUV::SSIZE-T
;                                              :OFFSET 88)
;                                             (LIBUV::PTR :POINTER :OFFSET 96)
;                                             (LIBUV::PATH :STRING :OFFSET 104)
;                                             (LIBUV::STATBUF LIBUV::UV-STAT-T
;                                              :OFFSET 112)))
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
; 
; caught STYLE-WARNING:
;   bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
WARNING: Lisp compilation had style-warnings while compiling #<GROVEL-FILE "cl-libuv" "grovel">
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN-ADDR)) or (:STRUCT IN-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT IN6-ADDR)) or (:STRUCT IN6-ADDR) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-TIMESPEC-T)) or (:STRUCT UV-TIMESPEC-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
WARNING: bare references to struct types are deprecated. Please use (:POINTER (:STRUCT UV-STAT-T)) or (:STRUCT UV-STAT-T) instead.
STYLE-WARNING: Undefined alien: "uv_pipe_getpeername"
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/cl-async.asd" contains definition for system "cl-async-base". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/cl-async.asd" contains definition for system "cl-async-util". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/vom/4618a41b412c27f8a543c70bef09b49d68d9b1f7/vom-20180205-git/vom.lisp
; in: DEFUN DO-LOG
;     (FUNCALL VOM:*LOG-FORMATTER* VOM::FORMAT-STR VOM::LEVEL-STR
;              VOM::PACKAGE-KEYWORD VOM::ARGS)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN VOM:*LOG-FORMATTER*)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

;     (FUNCALL VOM:*LOG-HOOK* VOM::LOG-LEVEL VOM::PACKAGE-KEYWORD
;              VOM::PACKAGE-LEVEL-VALUE)
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN VOM:*LOG-HOOK*)
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

;     (<= VOM::LOG-LEVEL VOM::PACKAGE-LEVEL-VALUE)
; --> OR LET IF = IF 
; ==>
;   (= SB-C::X SB-C::Y)
; 
; note: unable to open code because: The operands might not be the same type.

; --> OR LET < IF 
; ==>
;   (< SB-C::X SB-C::Y)
; 
; note: forced to do GENERIC-< (cost 10)
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a INTEGER, not a COMMON-LISP:FIXNUM.
;       The second argument is a COMMON-LISP:REAL, not a COMMON-LISP:FIXNUM.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/cl-async.asd" contains definition for system "cl-async-base". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: System definition file #P"/home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/cl-async.asd" contains definition for system "cl-async-util". Please only define "cl-async" and secondary systems with a name starting with "cl-async/" (e.g. "cl-async/test") in that file.
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-base") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util" "src/util/helpers"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-util" "src/util/package") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/src/util/helpers.lisp
; in: DECLAIM (INLINE WRITE-TO-BUFFER)
;     (DECLAIM (INLINE CL-ASYNC-UTIL:WRITE-TO-BUFFER))
; --> EVAL-WHEN 
; ==>
;   (SB-C::%PROCLAIM '(INLINE CL-ASYNC-UTIL:WRITE-TO-BUFFER)
;                    (SB-C:SOURCE-LOCATION))
; 
; caught STYLE-WARNING:
;   Proclaiming CL-ASYNC-UTIL:WRITE-TO-BUFFER to be INLINE, but 1 call to it was previously compiled. A declaration of NOTINLINE at the call site will eliminate this warning, as will proclaiming and defining the function before its first potential use.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async-util" "src/util/helpers">
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util" "src/util/foreign"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-util" "src/util/helpers") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/src/util/foreign.lisp
; in: DEFUN ADDRINFO-TO-STRING
;     (LET* ((TYPE 'LIBUV:ADDRINFO)
;            (CL-ASYNC-UTIL::FAMILY
;             (LIBUV.ACCESSORS:ADDRINFO-AI-FAMILY CL-ASYNC-UTIL::ADDRINFO))
;            (CL-ASYNC-UTIL::ERR NIL))
;       (CFFI:WITH-FOREIGN-OBJECT (CL-ASYNC-UTIL::BUF :UNSIGNED-CHAR 128)
;         (LET ((CL-ASYNC-UTIL::AI-ADDR #))
;           (IF (CFFI-SYS:NULL-POINTER-P CL-ASYNC-UTIL::AI-ADDR)
;               (ERROR
;                "the addrinfo->ai_addr object was null (stinks of a memory alignment issue)")
;               (COND # # #)))
;         (VALUES (CFFI:FOREIGN-STRING-TO-LISP CL-ASYNC-UTIL::BUF)
;                 CL-ASYNC-UTIL::FAMILY CL-ASYNC-UTIL::ERR)))
; 
; caught STYLE-WARNING:
;   The variable TYPE is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async-util" "src/util/foreign">
STYLE-WARNING: Undefined alien: "ioctlsocket"
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async-util" "src/util/error"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-util" "src/util/foreign") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/src/util/error.lisp
; in: DEFMACRO CATCH-APP-ERRORS
;     (ALEXANDRIA.0.DEV:WITH-GENSYMS (CL-ASYNC-UTIL::EVCB CL-ASYNC-UTIL::ERR
;                                     CL-ASYNC-UTIL::LAST-ERR
;                                     CL-ASYNC-UTIL::THUNK-FN
;                                     CL-ASYNC-UTIL::CONTINUE-FN CL-ASYNC-UTIL::BLK)
;       `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL))
;          (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN #
;                     #)
;                   (,CL-ASYNC-UTIL::THUNK-FN #
;                     #))
;            (BLOCK ,CL-ASYNC-UTIL::BLK
;              (HANDLER-BIND #
;                #)))))
; ==>
;   (LET ((CL-ASYNC-UTIL::EVCB (GENSYM "EVCB"))
;         (CL-ASYNC-UTIL::ERR (GENSYM "ERR"))
;         (CL-ASYNC-UTIL::LAST-ERR (GENSYM "LAST-ERR"))
;         (CL-ASYNC-UTIL::THUNK-FN (GENSYM "THUNK-FN"))
;         (CL-ASYNC-UTIL::CONTINUE-FN (GENSYM "CONTINUE-FN"))
;         (CL-ASYNC-UTIL::BLK (GENSYM "BLK")))
;     `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL))
;        (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN #
;                   #)
;                 (,CL-ASYNC-UTIL::THUNK-FN #
;                   #))
;          (BLOCK ,CL-ASYNC-UTIL::BLK
;            (HANDLER-BIND #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable EVCB is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/src/util/error.lisp
; in: DEFMACRO CATCH-APP-ERRORS
;     (ALEXANDRIA.0.DEV:WITH-GENSYMS (CL-ASYNC-UTIL::EVCB CL-ASYNC-UTIL::ERR
;                                     CL-ASYNC-UTIL::LAST-ERR
;                                     CL-ASYNC-UTIL::THUNK-FN
;                                     CL-ASYNC-UTIL::CONTINUE-FN CL-ASYNC-UTIL::BLK)
;       `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL))
;          (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN #
;                     #)
;                   (,CL-ASYNC-UTIL::THUNK-FN #
;                     #))
;            (BLOCK ,CL-ASYNC-UTIL::BLK
;              (HANDLER-BIND #
;                #)))))
; ==>
;   (LET ((CL-ASYNC-UTIL::EVCB (GENSYM "EVCB"))
;         (CL-ASYNC-UTIL::ERR (GENSYM "ERR"))
;         (CL-ASYNC-UTIL::LAST-ERR (GENSYM "LAST-ERR"))
;         (CL-ASYNC-UTIL::THUNK-FN (GENSYM "THUNK-FN"))
;         (CL-ASYNC-UTIL::CONTINUE-FN (GENSYM "CONTINUE-FN"))
;         (CL-ASYNC-UTIL::BLK (GENSYM "BLK")))
;     `(LET ((CL-ASYNC-UTIL::*EVCB-ERR* 'NIL) (,CL-ASYNC-UTIL::LAST-ERR NIL))
;        (LABELS ((,CL-ASYNC-UTIL::CONTINUE-FN #
;                   #)
;                 (,CL-ASYNC-UTIL::THUNK-FN #
;                   #))
;          (BLOCK ,CL-ASYNC-UTIL::BLK
;            (HANDLER-BIND #
;              #)))))
; 
; caught STYLE-WARNING:
;   The variable EVCB is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async-util" "src/util/error">
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async"), but dependency (ASDF/LISP-ACTION:LOAD-OP "cl-async-base") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:PREPARE-OP "cl-async"), but dependency (ASDF/FIND-SYSTEM:DEFINE-OP "cl-async") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/src/streamish.lisp
; in: DEFUN WRITE-TO-UVSTREAM
;     (DEFUN CL-ASYNC::WRITE-TO-UVSTREAM
;            (CL-ASYNC::UVSTREAM CL-ASYNC::DATA &KEY CL-ASYNC::START CL-ASYNC::END)
;       "Util function to write data directly to a uv stream object."
;       (LET* ((CL-ASYNC::BUFSIZE (LENGTH CL-ASYNC::DATA))
;              (CL-ASYNC::BUFFER
;               (STATIC-VECTORS:MAKE-STATIC-VECTOR CL-ASYNC::BUFSIZE)))
;         (REPLACE CL-ASYNC::BUFFER CL-ASYNC::DATA)
;         (LET ((CL-ASYNC::REQ #) (CL-ASYNC::BUF #))
;           (LET (#)
;             (LIBUV:FREE-UV-BUF CL-ASYNC::BUF)
;             (UNLESS # #)
;             (CL-ASYNC-UTIL:ATTACH-DATA-TO-POINTER CL-ASYNC::REQ #)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA CL-ASYNC::WRITE-TO-UVSTREAM
;         (CL-ASYNC::UVSTREAM CL-ASYNC::DATA &KEY CL-ASYNC::START CL-ASYNC::END)
;       "Util function to write data directly to a uv stream object."
;       (BLOCK CL-ASYNC::WRITE-TO-UVSTREAM
;         (LET* ((CL-ASYNC::BUFSIZE #) (CL-ASYNC::BUFFER #))
;           (REPLACE CL-ASYNC::BUFFER CL-ASYNC::DATA)
;           (LET (# #)
;             (LET #
;               #
;               #
;               #)))))
; 
; caught STYLE-WARNING:
;   The variable START is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable END is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async" "src" "streamish">
WARNING: redefining CL-ASYNC:STREAMISH in DEFGENERIC
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:SOCKET-CLOSED
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-EOF
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-INFO
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-ERROR
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-RESET
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-TIMEOUT
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-REFUSED
WARNING: redefining DEFTYPE type to be a class: CL-ASYNC:TCP-ACCEPT-ERROR

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/src/signal.lisp
; in: DEFINE-C-CALLBACK SIGNAL-CB
;     (LET* ((CL-ASYNC::CALLBACKS (CL-ASYNC-UTIL:GET-CALLBACKS CL-ASYNC::WATCHER))
;            (CL-ASYNC::SIGNAL-CB (GETF CL-ASYNC::CALLBACKS :SIGNAL-CB))
;            (CL-ASYNC::EVENT-CB (GETF CL-ASYNC::CALLBACKS :EVENT-CB))
;            (CL-ASYNC::SIG-DATA
;             (CL-ASYNC-UTIL:DEREF-DATA-FROM-POINTER CL-ASYNC::WATCHER))
;            (CL-ASYNC::EV (GETF CL-ASYNC::SIG-DATA :EV)))
;       (CL-ASYNC-UTIL:CATCH-APP-ERRORS CL-ASYNC::EVENT-CB
;         (FUNCALL CL-ASYNC::SIGNAL-CB CL-ASYNC::SIGNO)))
; 
; caught STYLE-WARNING:
;   The variable EV is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async" "src" "signal">
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:COMPILE-OP "cl-async"), but dependency (ASDF/FIND-SYSTEM:DEFINE-OP "cl-async") wasn't done yet!
WARNING: Computing just-done stamp in plan NIL for action (ASDF/LISP-ACTION:LOAD-OP "cl-async"), but dependency (ASDF/FIND-SYSTEM:DEFINE-OP "cl-async") wasn't done yet!

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/cl-async/4e15989f49b4581754ed899883e2c32b2829b6d4/cl-async-20180205-git/src/ssl/package.lisp
; in: EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL)
;     (CFFI:USE-FOREIGN-LIBRARY CL-ASYNC-SSL::LIBSSL)
; ==>
;   (CFFI:LOAD-FOREIGN-LIBRARY 'CL-ASYNC-SSL::LIBSSL)
; 
; caught STYLE-WARNING:
;   Undefined alien: "uv_pipe_getpeername"
; 
; caught STYLE-WARNING:
;   Undefined alien: "ioctlsocket"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "cl-async-ssl" "src/ssl/package">
STYLE-WARNING: Undefined alien: "uv_pipe_getpeername"
STYLE-WARNING: Undefined alien: "ioctlsocket"
STYLE-WARNING: Undefined alien: "uv_pipe_getpeername"
STYLE-WARNING: Undefined alien: "ioctlsocket"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFMETHOD POSITION-CHAR (T STRING T T)
;     (CHAR STRING PURI::I)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX)
; 
; note: unable to optimize due to type uncertainty: The first argument is a STRING, not a SIMPLE-STRING.
; 
; note: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a STRING, not a SIMPLE-ARRAY.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN PARSE-URI
;     (FUNCALL
;      (CASE PURI::*CURRENT-CASE-MODE*
;        ((:CASE-INSENSITIVE-UPPER :CASE-SENSITIVE-UPPER) #'STRING-UPCASE)
;        ((:CASE-INSENSITIVE-LOWER :CASE-SENSITIVE-LOWER) #'STRING-DOWNCASE))
;      (PURI::DECODE-ESCAPED-ENCODING PURI::SCHEME PURI::ESCAPE))
; --> SB-C::%FUNCALL THE 
; ==>
;   (SB-KERNEL:%COERCE-CALLABLE-TO-FUN
;    (CASE PURI::*CURRENT-CASE-MODE*
;      ((:CASE-INSENSITIVE-UPPER :CASE-SENSITIVE-UPPER) #'STRING-UPCASE)
;      ((:CASE-INSENSITIVE-LOWER :CASE-SENSITIVE-LOWER) #'STRING-DOWNCASE)))
; 
; note: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function

;     (PLUSP PURI::PORT)
; ==>
;   (> PURI::PORT 0)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a FLOAT.

;     (STRING= "" PURI::PATH)
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (STRING= "/" PURI::PATH)
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (PLUSP PURI::PORT)
; ==>
;   (> PURI::PORT 0)
; 
; note: forced to do GENERIC-> (cost 10)
;       unable to do inline fixnum comparison (cost 3) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       unable to do inline fixnum comparison (cost 4) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN PARSE-URI-STRING
;     (LENGTH STRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR STRING PURI::START)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (SUBSEQ STRING PURI::SINDEX PURI::START)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (PURI::FAILURE (&OPTIONAL PURI::WHY)
;      (PURI::.PARSE-ERROR "illegal URI: ~s [~d]~@[: ~a~]" STRING PURI::STATE
;       PURI::WHY))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

;     (PURI::IMPOSSIBLE NIL
;      (PURI::.PARSE-ERROR "impossible state: ~d [~s]" PURI::STATE STRING))
; 
; note: Return type not fixed values, so can't use known return convention:
;   *

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN ESCAPE-P
;     (LENGTH STRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR STRING PURI::I)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN PARSE-PATH
;     (STRING= "" (CAR PURI::XPATH-LIST))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (STRING= "" (CAR PURI::PL))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN DECODE-ESCAPED-ENCODING
;     (LENGTH STRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (COPY-SEQ STRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.

;     (= PURI::I MAX)
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a FLOAT.
; 
; note: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (OR (COMPLEX SINGLE-FLOAT) (COMPLEX DOUBLE-FLOAT)).
; 
; note: unable to open code because: The operands might not be the same type.

;     (CHAR STRING PURI::I)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (CHAR STRING (INCF PURI::I))
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (1+ PURI::I)
; ==>
;   (+ PURI::I 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (1+ PURI::NEW-I)
; ==>
;   (+ PURI::NEW-I 1)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (1+ PURI::I)
; ==>
;   (+ PURI::I 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

;     (1+ PURI::NEW-I)
; ==>
;   (+ PURI::NEW-I 1)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN RENDER-URI
;     (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URI))
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "~a"
;               (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (PRINC SB-FORMAT::FORMAT-ARG1 STREAM))
;             NIL)
;           #:G177)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN RENDER-URN
;     (FORMAT STREAM "~a" (PURI::URI-STRING PURI:URN))
; ==>
;   (FORMAT SB-C::DEST
;           (SB-INT:NAMED-LAMBDA "~a"
;               (STREAM SB-FORMAT::FORMAT-ARG1 &REST SB-FORMAT::ARGS)
;             (DECLARE (IGNORABLE STREAM SB-FORMAT::ARGS))
;             (BLOCK NIL (PRINC SB-FORMAT::FORMAT-ARG1 STREAM))
;             NIL)
;           #:G80)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a STREAM.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a (MEMBER T).
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR BOOLEAN STREAM (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING), not a NULL.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN ENCODE-ESCAPED-ENCODING
;     (LENGTH STRING)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (INCF PURI::NEW-I)
; --> SETQ THE 
; ==>
;   (+ 1 PURI::NEW-I)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (CHAR STRING PURI::I)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (INCF PURI::NEW-I)
; --> SETQ THE 
; ==>
;   (+ 1 PURI::NEW-I)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (ELT PURI::*ESCAPED-ENCODING* PURI::Q)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

;     (INCF PURI::NEW-I)
; --> SETQ THE 
; ==>
;   (+ 1 PURI::NEW-I)
; 
; note: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL.

;     (ELT PURI::*ESCAPED-ENCODING* PURI::R)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST.

;     (INCF PURI::NEW-I)
; --> SETQ THE 
; ==>
;   (+ 1 PURI::NEW-I)
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.
; 
; note: forced to do GENERIC-+ (cost 10)
;       unable to do inline fixnum arithmetic (cost 1) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       unable to do inline fixnum arithmetic (cost 2) because:
;       The first argument is a NUMBER, not a FIXNUM.
;       The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T).
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFMETHOD MERGE-URIS (URI URI)
;     (STRING= PURI::A
;              (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B PURI::ELSE
;                         (CAR PURI::B)))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.

;     (STRING= "." (CAR LAST))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (STRING= "." (CAAR LAST))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (STRING= ".."
;              (LET ((PURI::L (CAR #)))
;                (PURI::IF* (ATOM PURI::L) PURI::THEN PURI::L PURI::ELSE
;                           (CAR PURI::L))))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.

;     (POSITION ".." PURI::NPL :TEST
;               #'(LAMBDA (PURI::A PURI::B)
;                   (STRING= PURI::A
;                            (PURI::IF* (ATOM PURI::B) PURI::THEN PURI::B
;                                       PURI::ELSE (CAR PURI::B)))))
; 
; note: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR).

;     (STRING= PURI::A PURI::B)
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFMETHOD URI= (URI URI)
;     (STRING= (PURI:URI-PATH PURI::URI1) (PURI:URI-PATH PURI::URI2))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.

;     (STRING= (PURI:URI-QUERY PURI::URI1) (PURI:URI-QUERY PURI::URI2))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.

;     (STRING= (PURI:URI-FRAGMENT PURI::URI1) (PURI:URI-FRAGMENT PURI::URI2))
; ==>
;   (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1
;                       SB-C::START2 SB-C::END2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a STRING.
; 
; note: unable to optimize due to type uncertainty: The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING.

;     (EQL (OR (PURI:URI-PORT PURI::URI1) PURI::DEFAULT-PORT)
;          (OR (PURI:URI-PORT PURI::URI2) PURI::DEFAULT-PORT))
; 
; note: forced to do GENERIC-EQL (cost 10)
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a T, not a DOUBLE-FLOAT.
;       The second argument is a T, not a DOUBLE-FLOAT.
;       unable to do inline float comparison (cost 4) because:
;       The first argument is a T, not a SINGLE-FLOAT.
;       The second argument is a T, not a SINGLE-FLOAT.
;       etc.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/puri/7e3394cbc337b808a0ecbbedfebe1b5f21f5f46c/puri-20180205-git/src.lisp
; in: DEFUN URN-NSS-EQUAL
;     (LENGTH PURI::NSS1)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (LENGTH PURI::NSS2)
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)).
; 
; note: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR.

;     (CHAR PURI::NSS1 PURI::I)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (CHAR PURI::NSS2 PURI::I)
; --> AREF 
; ==>
;   (SB-KERNEL:HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS ARRAY SB-INT:INDEX)
; 
; note: unable to optimize because: Upgraded element type of array is not known at compile time.

;     (CHAR-NOT-EQUAL PURI::C1 PURI::C2)
; --> IF CHAR-EQUAL 
; ==>
;   (SB-INT:TWO-ARG-CHAR-EQUAL PURI::C1 PURI::C2)
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR.
; 
; note: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR.The second argument is a CHARACTER, not a BASE-CHAR.
STYLE-WARNING: Undefined alien: "uv_pipe_getpeername"
STYLE-WARNING: Undefined alien: "ioctlsocket"

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/drakma/09fe3203168ca4b57da8e5c6e41391c0d15f57a2/drakma-v2.0.4/util.lisp
; in: DEFUN USER-AGENT-STRING
;     (OR (LISP-IMPLEMENTATION-TYPE) "Common Lisp")
; --> LET IF 
; ==>
;   "Common Lisp"
; 
; note: deleting unreachable code

;     (OR (LISP-IMPLEMENTATION-VERSION) "")
; --> LET IF 
; ==>
;   ""
; 
; note: deleting unreachable code

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/drakma/09fe3203168ca4b57da8e5c6e41391c0d15f57a2/drakma-v2.0.4/util.lisp
; in: DEFUN INTERPRET-AS-TIME-ZONE
;     (CL-PPCRE:REGISTER-GROUPS-BIND (DRAKMA::SIGN DRAKMA::HOURS DRAKMA::MINUTES)
;         ("(?:GMT|)\\s*([+-]?)(\\d\\d):?(\\d\\d)" STRING)
;       (*
;        (IF (EQUAL DRAKMA::SIGN "-")
;            1
;            -1)
;        (+ (PARSE-INTEGER DRAKMA::HOURS) (/ (PARSE-INTEGER DRAKMA::MINUTES) 60))))
; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION WHEN IF LET* LET IF 
; ==>
;   NIL
; 
; caught STYLE-WARNING:
;   This is not a STRING:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
; 
; caught STYLE-WARNING:
;   This is not a STRING:
;    NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "drakma" "util">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/rewrite.lisp
; in: DEFMACRO REWRITE-HTTP-REQUEST
;     (LAMBDA (DRAKMA-ASYNC::FORM) '(DRAKMA-ASYNC::USE-SSL NIL))
; ==>
;   #'(LAMBDA (DRAKMA-ASYNC::FORM) '(DRAKMA-ASYNC::USE-SSL NIL))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/rewrite.lisp
; in: DEFMACRO REWRITE-HTTP-REQUEST
;     (LAMBDA (DRAKMA-ASYNC::FORM) '(DRAKMA-ASYNC::USE-SSL NIL))
; ==>
;   #'(LAMBDA (DRAKMA-ASYNC::FORM) '(DRAKMA-ASYNC::USE-SSL NIL))
; 
; caught STYLE-WARNING:
;   The variable FORM is defined but never used.

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/rewrite.lisp
; in: DEFUN HTTP-REQUEST-ASYNC
;     (DEFUN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC
;            (PURI:URI
;             &REST DRAKMA-ASYNC::ARGS
;             &KEY (DRAKMA-ASYNC::PROTOCOL :HTTP/1.1) (METHOD :GET)
;             DRAKMA-ASYNC::FORCE-SSL DRAKMA-ASYNC::CERTIFICATE DRAKMA-ASYNC::KEY
;             DRAKMA-ASYNC::CERTIFICATE-PASSWORD DRAKMA-ASYNC::VERIFY
;             DRAKMA-ASYNC::MAX-DEPTH ...)
;       #<(SIMPLE-ARRAY CHARACTER
;          (12548)) Sends a HTTP request to a web server and returns its reply.  URI
;   is where the request is sent to, and it is either a string denoting a
;   uniform resource identifier or a PURI:URI object.  The scheme of ... {10056B800F}>
;       (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL '(:HTTP/1.0 :HTTP/1.1) :TEST #'EQ)
;         (DRAKMA:PARAMETER-ERROR "Don't know how to handle protocol ~S."
;                                 DRAKMA-ASYNC::PROTOCOL))
;       (SETQ PURI:URI (COND (# #) (T #)))
;       (UNLESS (MEMBER METHOD DRAKMA::+KNOWN-METHODS+ :TEST #'EQ)
;         (DRAKMA:PARAMETER-ERROR "Don't know how to handle method ~S." METHOD))
;       (UNLESS (MEMBER (PURI:URI-SCHEME PURI:URI) '(:HTTP :HTTPS) :TEST #'EQ)
;         (DRAKMA:PARAMETER-ERROR "Don't know how to handle scheme ~S."
;                                 (PURI:URI-SCHEME PURI:URI)))
;       (WHEN (AND CLOSE DRAKMA-ASYNC::KEEP-ALIVE)
;         (DRAKMA:PARAMETER-ERROR "CLOSE and KEEP-ALIVE must not be both true."))
;       (WHEN (AND DRAKMA-ASYNC::FORM-DATA (NOT (MEMBER METHOD '# :TEST #'EQ)))
;         (DRAKMA:PARAMETER-ERROR
;          "FORM-DATA only makes sense with POST requests."))
;       (WHEN DRAKMA-ASYNC::RANGE
;         (UNLESS
;             (AND (LISTP DRAKMA-ASYNC::RANGE) (INTEGERP #) (INTEGERP #) (<= # #))
;           (DRAKMA:PARAMETER-ERROR
;            "RANGE parameter must be specified as list of two integers, with the second larger or equal to the first")))
;       (WHEN DRAKMA-ASYNC::REAL-HOST
;         (SETQ DRAKMA-ASYNC::PROXY DRAKMA-ASYNC::REAL-HOST))
;       ...)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA DRAKMA-ASYNC::HTTP-REQUEST-ASYNC
;         (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY
;                   (DRAKMA-ASYNC::PROTOCOL :HTTP/1.1) (METHOD :GET)
;                   DRAKMA-ASYNC::FORCE-SSL DRAKMA-ASYNC::CERTIFICATE
;                   DRAKMA-ASYNC::KEY DRAKMA-ASYNC::CERTIFICATE-PASSWORD
;                   DRAKMA-ASYNC::VERIFY DRAKMA-ASYNC::MAX-DEPTH ...)
;       #<(SIMPLE-ARRAY CHARACTER
;          (12548)) Sends a HTTP request to a web server and returns its reply.  URI
; is where the request is sent to, and it is either a string denoting a
; uniform resource identifier or a PURI:URI object.  The scheme of ... {10056B800F}>
;       (BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC
;         (UNLESS
;             (MEMBER DRAKMA-ASYNC::PROTOCOL '(:HTTP/1.0 :HTTP/1.1) :TEST #'EQ)
;           (DRAKMA:PARAMETER-ERROR "Don't know how to handle protocol ~S."
;                                   DRAKMA-ASYNC::PROTOCOL))
;         (SETQ PURI:URI (COND # #))
;         (UNLESS (MEMBER METHOD DRAKMA::+KNOWN-METHODS+ :TEST #'EQ)
;           (DRAKMA:PARAMETER-ERROR "Don't know how to handle method ~S."
;                                   METHOD))
;         (UNLESS (MEMBER (PURI:URI-SCHEME PURI:URI) '(:HTTP :HTTPS) :TEST #'EQ)
;           (DRAKMA:PARAMETER-ERROR "Don't know how to handle scheme ~S."
;                                   (PURI:URI-SCHEME PURI:URI)))
;         (WHEN (AND CLOSE DRAKMA-ASYNC::KEEP-ALIVE)
;           (DRAKMA:PARAMETER-ERROR
;            "CLOSE and KEEP-ALIVE must not be both true."))
;         (WHEN (AND DRAKMA-ASYNC::FORM-DATA (NOT #))
;           (DRAKMA:PARAMETER-ERROR
;            "FORM-DATA only makes sense with POST requests."))
;         (WHEN DRAKMA-ASYNC::RANGE
;           (UNLESS (AND # # # #)
;             (DRAKMA:PARAMETER-ERROR
;              "RANGE parameter must be specified as list of two integers, with the second larger or equal to the first")))
;         (WHEN DRAKMA-ASYNC::REAL-HOST
;           (SETQ DRAKMA-ASYNC::PROXY DRAKMA-ASYNC::REAL-HOST))
;         (WHEN DRAKMA-ASYNC::PROXY (WHEN (ATOM DRAKMA-ASYNC::PROXY) (SETQ #)))
;         (WHEN
;             (MEMBER (PURI:URI-HOST PURI:URI) DRAKMA-ASYNC::NO-PROXY-DOMAINS
;                     :TEST #'STRING=)
;           (SETQ DRAKMA-ASYNC::PROXY 'NIL))
;         ...))
; 
; caught STYLE-WARNING:
;   The variable CONNECTION-TIMEOUT is defined but never used.

;     (LET ((DRAKMA-ASYNC::HOST
;            (OR (AND DRAKMA-ASYNC::PROXY #) (PURI:URI-HOST PURI:URI)))
;           (DRAKMA-ASYNC::PORT (COND (DRAKMA-ASYNC::PROXY #) (#) (T #)))
;           (DRAKMA-ASYNC::USE-SSL NIL))
;       (SETQ DRAKMA-ASYNC::HTTP-STREAM
;               (OR STREAM
;                   (ERROR
;                    "Stream not passed into http-request-async (required)."))
;             DRAKMA-ASYNC::RAW-HTTP-STREAM DRAKMA-ASYNC::HTTP-STREAM)
;       (LABELS ((DRAKMA-ASYNC::WRITE-HTTP-LINE
;                    (DRAKMA-ASYNC::FMT &REST DRAKMA-ASYNC::ARGS)
;                  (WHEN DRAKMA:*HEADER-STREAM* #)
;                  (FORMAT DRAKMA-ASYNC::HTTP-STREAM "~?~C~C" DRAKMA-ASYNC::FMT
;                          DRAKMA-ASYNC::ARGS #\Return #\Newline))
;                (DRAKMA-ASYNC::WRITE-HEADER
;                    (DRAKMA-ASYNC::NAME DRAKMA-ASYNC::VALUE-FMT
;                     &REST DRAKMA-ASYNC::VALUE-ARGS)
;                  (DRAKMA-ASYNC::WRITE-HTTP-LINE "~A: ~?" DRAKMA-ASYNC::NAME
;                   DRAKMA-ASYNC::VALUE-FMT DRAKMA-ASYNC::VALUE-ARGS))
;                (DRAKMA-ASYNC::WRAP-STREAM (DRAKMA-ASYNC::HTTP-STREAM)
;                  (FLEXI-STREAMS:MAKE-FLEXI-STREAM # :EXTERNAL-FORMAT
;                                                   DRAKMA::+LATIN-1+)))
;         (WHEN (AND DRAKMA-ASYNC::USE-SSL (NOT STREAM))
;           (SETQ DRAKMA-ASYNC::HTTP-STREAM #))
;         (COND (STREAM (SETF #)) (T (SETQ #)))
;         (WHEN DRAKMA-ASYNC::PROXYING-HTTPS-P
;           (DRAKMA-ASYNC::WRITE-HTTP-LINE "CONNECT ~A:~:[443~;~:*~A~] HTTP/1.1"
;            (PURI:URI-HOST PURI:URI) (PURI:URI-PORT PURI:URI))
;           (DRAKMA-ASYNC::WRITE-HTTP-LINE "Host: ~A:~:[443~;~:*~A~]"
;            (OR DRAKMA-ASYNC::VHOST #) (PURI:URI-PORT PURI:URI))
;           (DRAKMA-ASYNC::WRITE-HTTP-LINE "")
;           (FORCE-OUTPUT DRAKMA-ASYNC::HTTP-STREAM)
;           (UNLESS (EQL # 200)
;             (ERROR "Unable to establish HTTPS tunnel through proxy."))
;           (CHUNGA:READ-LINE* DRAKMA-ASYNC::HTTP-STREAM)
;           (SETQ DRAKMA-ASYNC::HTTP-STREAM #))
;         (ALEXANDRIA.0.DEV:WHEN-LET (DRAKMA-ASYNC::ALL-GET-PARAMETERS (AND # #))
;           (SETF # #))
;         (WHEN (EQ METHOD :OPTIONS*)
;           (SETF METHOD :OPTIONS
;                 # "*"
;                 # NIL))
;         (DRAKMA-ASYNC::WRITE-HTTP-LINE "~A ~A ~A" (STRING-UPCASE METHOD)
;          (IF (AND DRAKMA-ASYNC::PRESERVE-URI #)
;              (DRAKMA::TRIVIAL-URI-PATH DRAKMA-ASYNC::UNPARSED-URI)
;              (PURI:RENDER-URI # NIL))
;          (STRING-UPCASE DRAKMA-ASYNC::PROTOCOL))
;         (DRAKMA-ASYNC::WRITE-HEADER "Host" "~A~@[:~A~]"
;          (OR DRAKMA-ASYNC::VHOST (PURI:URI-HOST PURI:URI))
;          (DRAKMA::NON-DEFAULT-PORT PURI:URI))
;         (WHEN DRAKMA-ASYNC::USER-AGENT
;           (DRAKMA-ASYNC::WRITE-HEADER "User-Agent" "~A"
;            (DRAKMA::USER-AGENT-STRING DRAKMA-ASYNC::USER-AGENT)))
;         (WHEN DRAKMA-ASYNC::BASIC-AUTHORIZATION
;           (DRAKMA-ASYNC::WRITE-HEADER "Authorization" "Basic ~A"
;            (CL-BASE64:STRING-TO-BASE64-STRING #)))
;         (WHEN (AND DRAKMA-ASYNC::PROXY DRAKMA-ASYNC::PROXY-BASIC-AUTHORIZATION)
;           (DRAKMA-ASYNC::WRITE-HEADER "Proxy-Authorization" "Basic ~A"
;            (CL-BASE64:STRING-TO-BASE64-STRING #)))
;         ...))
; 
; caught STYLE-WARNING:
;   The variable HOST is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PORT is defined but never used.

;     (NOT STREAM)
; --> IF 
; ==>
;   STREAM
; 
; note: deleting unreachable code

;     (DRAKMA::MAKE-SSL-STREAM DRAKMA-ASYNC::HTTP-STREAM :CERTIFICATE
;                              DRAKMA-ASYNC::CERTIFICATE :KEY DRAKMA-ASYNC::KEY
;                              :CERTIFICATE-PASSWORD
;                              DRAKMA-ASYNC::CERTIFICATE-PASSWORD :VERIFY
;                              DRAKMA-ASYNC::VERIFY :MAX-DEPTH
;                              DRAKMA-ASYNC::MAX-DEPTH ...)
; ==>
;   DRAKMA-ASYNC::HTTP-STREAM
; 
; note: deleting unreachable code

;     (DRAKMA-ASYNC::WRAP-STREAM DRAKMA-ASYNC::HTTP-STREAM)
; ==>
;   DRAKMA-ASYNC::HTTP-STREAM
; 
; note: deleting unreachable code
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "drakma-async" "rewrite">

; file: /home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/drakma.lisp
; in: DEFUN HTTP-REQUEST
;     (DEFUN DRAKMA-ASYNC:HTTP-REQUEST
;            (PURI:URI
;             &REST DRAKMA-ASYNC::ARGS
;             &KEY (DRAKMA-ASYNC::PROTOCOL :HTTP/1.1) (METHOD :GET)
;             DRAKMA-ASYNC::FORCE-SSL DRAKMA-ASYNC::CERTIFICATE DRAKMA-ASYNC::KEY
;             DRAKMA-ASYNC::CERTIFICATE-PASSWORD DRAKMA-ASYNC::VERIFY
;             DRAKMA-ASYNC::MAX-DEPTH ...)
;       #<(SIMPLE-ARRAY CHARACTER
;          (592)) This function wraps drakma's new http-request-async function so you don't
;      have to deal with the intricacies. For full documentation on this function,
;      refer to the docs for drakma:http-request; t... {1006E15C7F}>
;       (REMF DRAKMA-ASYNC::ARGS :READ-TIMEOUT)
;       (REMF DRAKMA-ASYNC::ARGS :WRITE-TIMEOUT)
;       (LET* ((CL-ASYNC-FUTURE:FUTURE (CL-ASYNC-FUTURE:MAKE-FUTURE))
;              (DRAKMA-ASYNC::FINISH-CB NIL)
;              (DRAKMA-ASYNC::PARSED-URI (PURI:PARSE-URI PURI:URI))
;              (DRAKMA-ASYNC::PROXYING-HTTPS-P (AND DRAKMA-ASYNC::PROXY # #))
;              (DRAKMA-ASYNC::USE-SSL (AND # #))
;              (DRAKMA-ASYNC::PROXY (WHEN DRAKMA-ASYNC::PROXY #))
;              (DRAKMA-ASYNC::HOST
;               (IF DRAKMA-ASYNC::PROXY
;                   #
;                   #))
;              (DRAKMA-ASYNC::PORT
;               (IF DRAKMA-ASYNC::PROXY
;                   #
;                   #))
;              (STREAM
;               (DRAKMA-ASYNC::HTTP-REQUEST-COMPLETE-STREAM DRAKMA-ASYNC::HOST
;                                                           DRAKMA-ASYNC::PORT # #
;                                                           :STREAM STREAM
;                                                           :READ-TIMEOUT
;                                                           DRAKMA-ASYNC::READ-TIMEOUT
;                                                           :WRITE-TIMEOUT
;                                                           DRAKMA-ASYNC::WRITE-TIMEOUT
;                                                           :SSL ...))
;              (DRAKMA-ASYNC::HTTP-STREAM
;               (FLEXI-STREAMS:MAKE-FLEXI-STREAM # :EXTERNAL-FORMAT
;                                                DRAKMA-ASYNC::EXTERNAL-FORMAT-IN))
;              (DRAKMA-ASYNC::REQ-CB (APPLY 'DRAKMA-ASYNC::HTTP-REQUEST-ASYNC #))
;              (DRAKMA-ASYNC::CONTINUE-CB (WHEN # DRAKMA-ASYNC::REQ-CB)))
;         (SETF DRAKMA-ASYNC::FINISH-CB (LAMBDA # #))
;         (IF (EQ DRAKMA-ASYNC::CONTENT :CONTINUATION)
;             (LAMBDA (DRAKMA-ASYNC::DATA &OPTIONAL DRAKMA-ASYNC::CONTINUEP)
;               (FUNCALL DRAKMA-ASYNC::CONTINUE-CB DRAKMA-ASYNC::DATA
;                        DRAKMA-ASYNC::CONTINUEP)
;               CL-ASYNC-FUTURE:FUTURE)
;             CL-ASYNC-FUTURE:FUTURE)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA 
; ==>
;   #'(SB-INT:NAMED-LAMBDA DRAKMA-ASYNC:HTTP-REQUEST
;         (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY
;                   (DRAKMA-ASYNC::PROTOCOL :HTTP/1.1) (METHOD :GET)
;                   DRAKMA-ASYNC::FORCE-SSL DRAKMA-ASYNC::CERTIFICATE
;                   DRAKMA-ASYNC::KEY DRAKMA-ASYNC::CERTIFICATE-PASSWORD
;                   DRAKMA-ASYNC::VERIFY DRAKMA-ASYNC::MAX-DEPTH ...)
;       #<(SIMPLE-ARRAY CHARACTER
;          (592)) This function wraps drakma's new http-request-async function so you don't
;    have to deal with the intricacies. For full documentation on this function,
;    refer to the docs for drakma:http-request; t... {1006E15C7F}>
;       (BLOCK DRAKMA-ASYNC:HTTP-REQUEST
;         (REMF DRAKMA-ASYNC::ARGS :READ-TIMEOUT)
;         (REMF DRAKMA-ASYNC::ARGS :WRITE-TIMEOUT)
;         (LET* ((CL-ASYNC-FUTURE:FUTURE #)
;                (DRAKMA-ASYNC::FINISH-CB NIL)
;                (DRAKMA-ASYNC::PARSED-URI #)
;                (DRAKMA-ASYNC::PROXYING-HTTPS-P #)
;                (DRAKMA-ASYNC::USE-SSL #)
;                (DRAKMA-ASYNC::PROXY #)
;                (DRAKMA-ASYNC::HOST #)
;                (DRAKMA-ASYNC::PORT #)
;                (STREAM #)
;                (DRAKMA-ASYNC::HTTP-STREAM #)
;                (DRAKMA-ASYNC::REQ-CB #)
;                (DRAKMA-ASYNC::CONTINUE-CB #))
;           (SETF DRAKMA-ASYNC::FINISH-CB #)
;           (IF (EQ DRAKMA-ASYNC::CONTENT :CONTINUATION)
;               (LAMBDA # # CL-ASYNC-FUTURE:FUTURE)
;               CL-ASYNC-FUTURE:FUTURE))))
; 
; caught STYLE-WARNING:
;   The variable PROTOCOL is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable METHOD is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CERTIFICATE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable KEY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CERTIFICATE-PASSWORD is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VERIFY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable MAX-DEPTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CA-FILE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CA-DIRECTORY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PARAMETERS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable URL-ENCODER is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CONTENT-TYPE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CONTENT-LENGTH is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable CONTENT-LENGTH-PROVIDED-P is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FORM-DATA is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable COOKIE-JAR is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable BASIC-AUTHORIZATION is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable USER-AGENT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ACCEPT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable RANGE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PROXY-BASIC-AUTHORIZATION is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable REAL-HOST is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable VHOST is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable ADDITIONAL-HEADERS is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable REDIRECT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable AUTO-REFERER is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable KEEP-ALIVE is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable EXTERNAL-FORMAT-OUT is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable FORCE-BINARY is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable PRESERVE-URI is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable WRITE-TIMEOUT-PROVIDED-P is defined but never used.
; 
; caught STYLE-WARNING:
;   The variable UNPARSED-URI is defined but never used.
WARNING: Lisp compilation had style-warnings while compiling #<CL-SOURCE-FILE "drakma-async" "drakma">
Unhandled NAME-CONFLICT in thread #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>: USE-PACKAGE #<PACKAGE "CL-ASYNC-FUTURE"> causes name-conflicts in #<PACKAGE "DRAKMA-ASYNC-TEST"> between the following symbols: BLACKBIRD-BASE:*DEBUG-ON-ERROR*, EOS:*DEBUG-ON-ERROR*
See also:
  The ANSI Standard, Section 11.1.1.2.5

Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>
0: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<NAME-CONFLICT {100B97F463}> #<unused argument> :QUIT T)
1: (SB-DEBUG::RUN-HOOK *INVOKE-DEBUGGER-HOOK* #<NAME-CONFLICT {100B97F463}>)
2: (INVOKE-DEBUGGER #<NAME-CONFLICT {100B97F463}>)
3: (ERROR #<NAME-CONFLICT {100B97F463}>)
4: (SB-KERNEL:WITH-SIMPLE-CONDITION-RESTARTS ERROR NIL NAME-CONFLICT :PACKAGE #<PACKAGE "DRAKMA-ASYNC-TEST"> :SYMBOLS (BLACKBIRD-BASE:*DEBUG-ON-ERROR* EOS:*DEBUG-ON-ERROR*) :FUNCTION USE-PACKAGE :DATUM #<PACKAGE "CL-ASYNC-FUTURE">)
5: (NAME-CONFLICT #<PACKAGE "DRAKMA-ASYNC-TEST"> USE-PACKAGE #<PACKAGE "CL-ASYNC-FUTURE"> BLACKBIRD-BASE:*DEBUG-ON-ERROR* EOS:*DEBUG-ON-ERROR*)
6: ((FLET SB-IMPL::THUNK :IN USE-PACKAGE))
7: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
8: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-IMPL::CALL-WITH-PACKAGE-GRAPH) {7FFFF6DA5A1B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>> T NIL)
9: (SB-IMPL::CALL-WITH-PACKAGE-GRAPH #<CLOSURE (FLET SB-IMPL::THUNK :IN USE-PACKAGE) {7FFFF6DA5A5B}>)
10: (USE-PACKAGE (#<PACKAGE "COMMON-LISP"> #<PACKAGE "EOS"> #<PACKAGE "CL-ASYNC-BASE"> #<PACKAGE "CL-ASYNC-UTIL"> #<PACKAGE "DRAKMA-ASYNC"> #<PACKAGE "CL-ASYNC-FUTURE">) #<PACKAGE "DRAKMA-ASYNC-TEST">)
11: (SB-IMPL::UPDATE-PACKAGE #<PACKAGE "DRAKMA-ASYNC-TEST"> NIL #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/test/drakma.lisp" :INDICES 32769) NIL NIL (#<PACKAGE "COMMON-LISP"> #<PACKAGE "EOS"> #<PACKAGE "CL-ASYNC-BASE"> #<PACKAGE "CL-ASYNC-UTIL"> #<PACKAGE "DRAKMA-ASYNC"> #<PACKAGE "CL-ASYNC-FUTURE">) NIL NIL ("RUN-TESTS") ("DRAKMA-ASYNC-TEST") NIL NIL NIL)
12: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
13: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-IMPL::CALL-WITH-PACKAGE-GRAPH) {7FFFF6DA5D2B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>> T NIL)
14: (SB-IMPL::CALL-WITH-PACKAGE-GRAPH #<CLOSURE (FLET SB-IMPL::THUNK :IN SB-IMPL::%DEFPACKAGE) {7FFFF6DA5D6B}>)
15: (SB-IMPL::%DEFPACKAGE "DRAKMA-ASYNC-TEST" NIL NIL NIL NIL ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE") NIL NIL ("RUN-TESTS") ("DRAKMA-ASYNC-TEST") NIL NIL #S(SB-C:DEFINITION-SOURCE-LOCATION :NAMESTRING "/home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/test/drakma.lisp" :INDICES 32769) NIL)
16: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...) #<NULL-LEXENV>)
17: (SB-INT:SIMPLE-EVAL-IN-LEXENV (PROGN (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...)) #<NULL-LEXENV>)
18: (EVAL-TLF (PROGN (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...)) 0 #<NULL-LEXENV>)
19: ((FLET SB-C::FROB :IN SB-C::EVAL-COMPILE-TOPLEVEL))
20: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...))
21: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...)) SB-C::ORIGINAL-SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
22: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...)) ((EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...)) SB-C::ORIGINAL-SOURCE-START 0 0) (:COMPILE-TOPLEVEL))
23: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPACKAGE #1="DRAKMA-ASYNC-TEST" (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE NIL) (QUOTE ("CL" "EOS" "CL-ASYNC-BASE" "CL-ASYNC-UTIL" "DRAKMA-ASYNC" "CL-ASYNC-FUTURE")) (QUOTE NIL) (QUOTE NIL) (QUOTE ("RUN-TESTS")) (QUOTE (#1#)) (QUOTE NIL) ...)) (SB-C::ORIGINAL-SOURCE-START 0 0) NIL)
24: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (DEFPACKAGE :DRAKMA-ASYNC-TEST (:USE :CL :EOS :CL-ASYNC-BASE :CL-ASYNC-UTIL :DRAKMA-ASYNC :CL-ASYNC-FUTURE) (:EXPORT #:RUN-TESTS)))
25: (SB-C::PROCESS-TOPLEVEL-FORM (DEFPACKAGE :DRAKMA-ASYNC-TEST (:USE :CL :EOS :CL-ASYNC-BASE :CL-ASYNC-UTIL :DRAKMA-ASYNC :CL-ASYNC-FUTURE) (:EXPORT #:RUN-TESTS)) (SB-C::ORIGINAL-SOURCE-START 0 0) NIL)
26: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-SUB-COMPILE-FILE) (DEFPACKAGE :DRAKMA-ASYNC-TEST (:USE :CL :EOS :CL-ASYNC-BASE :CL-ASYNC-UTIL :DRAKMA-ASYNC :CL-ASYNC-FUTURE) (:EXPORT #:RUN-TESTS)) :CURRENT-INDEX 0)
27: (SB-C::%DO-FORMS-FROM-INFO #<FUNCTION (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-C::SUB-SUB-COMPILE-FILE) {22248C2B}> #<SB-C::SOURCE-INFO {100B974253}> SB-C::INPUT-ERROR-IN-COMPILE-FILE)
28: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {100B974253}>)
29: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
30: ((FLET "WITHOUT-INTERRUPTS-BODY-29" :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
31: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7FFFF6DA66DB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "main thread" RUNNING {10006105B3}>> T NIL)
32: ((LAMBDA NIL :IN SB-C::SUB-COMPILE-FILE))
33: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
34: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO {100B974253}>)
35: (COMPILE-FILE #P"/home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/test/drakma.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (217)) /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/test/drakma... {100B9E23FF}> :VERBOSE NIL :PRINT NIL :EXTERNAL-FORMAT :UTF-8 :TRACE-FILE NIL :BLOCK-COMPILE NIL :EMIT-CFASL NIL)
36: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100B97174B}> NIL)
37: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/test/drakma.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100B970FBB}>)
38: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/test/drakma.lisp" :OUTPUT-FILE #P#<(SIMPLE-ARRAY CHARACTER (205)) /home/quicklisp/.cache/common-lisp/sbcl-1.4.4-linux-x64/home/quicklisp/quicklisp-controller/dist/build-cache/drakma-async/c4cf9dcbc5a295bbf3187ef39e9b391155f36392/drakma-async-20180205-git/test/drakma... {100B9EE95F}> :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE NIL)
39: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async-test" "test" "drakma">)
40: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async-test" "test" "drakma">)
41: ((LAMBDA NIL :IN ASDF/ACTION:CALL-WHILE-VISITING-ACTION))
42: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async-test" "test" "drakma">) [fast-method]
43: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B23723}>) [fast-method]
44: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
45: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {1005B23723}>) [fast-method]
46: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "drakma-async-test"> :PLAN-CLASS NIL :PLAN-OPTIONS NIL) [fast-method]
47: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "drakma-async-test">)
48: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
49: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP > #<ASDF/SYSTEM:SYSTEM "drakma-async-test">) [fast-method]
50: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "drakma-async-test")
51: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
52: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "drakma-async-test") [fast-method]
53: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005B1C60B}> :OVERRIDE T :KEY NIL :OVERRIDE-CACHE T :OVERRIDE-FORCING NIL)
54: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
55: (ASDF/SESSION:CALL-WITH-ASDF-SESSION #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1005AD99DB}> :OVERRIDE NIL :KEY NIL :OVERRIDE-CACHE NIL :OVERRIDE-FORCING NIL)
56: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "drakma-async-test") [fast-method]
57: (DEPCHECK::COMPUTE-DEPENDENCIES "drakma-async-test" "drakma-async-test")
58: (DEPCHECK::MAGIC "drakma-async-test" "drakma-async-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DpKStKBW/depcheck-win.txt")
59: (DEPCHECK::MAIN ("depcheck" "/home/quicklisp/quicklisp-controller/dist/system-file-index" "drakma-async-test" "drakma-async-test" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DpKStKBW/depcheck-win.txt" "/home/quicklisp/quicklisp-controller/tmp/anonymous/anonymous-DpKStKBW/depcheck-fail.txt"))
60: ((LAMBDA NIL :IN "/home/quicklisp/src/quicklisp-controller/dumper-2SKVI5f7.lisp"))
61: ((FLET SB-UNIX::BODY :IN SAVE-LISP-AND-DIE))
62: ((FLET "WITHOUT-INTERRUPTS-BODY-36" :IN SAVE-LISP-AND-DIE))
63: ((LABELS SB-IMPL::RESTART-LISP :IN SAVE-LISP-AND-DIE))

unhandled condition in --disable-debugger mode, quitting
; 
; compilation unit aborted
;   caught 2 fatal ERROR conditions
;   caught 76 STYLE-WARNING conditions
;   printed 90 notes