orthecreedence / drakma-async Goto Github PK
View Code? Open in Web Editor NEWAn asynchronous version of drakma that runs off of cl-async
An asynchronous version of drakma that runs off of cl-async
For some reason, if any http-requests are performed, the event loop hangs for 20 seconds before exiting. Example:
(ql:quickload "cl-async")
(ql:quickload "drakma-async")
(as:start-event-loop
(lambda ()
(format t "start : ~a~%" (get-internal-real-time))
(cl-async-future:attach
(drakma-async:http-request "http://quicklisp.org")
(lambda (&rest args) (format t "request-complete : ~a~%" (get-internal-real-time))))))
(format t "done : ~a~%" (get-internal-real-time))
Output:
start : 1987
request-complete : 8738
done : 28614
When sending large chunks of data, (say, a 5MB file part to S3) the connection sometimes times out while uploading because the :read-timeout
is hit.
It makes a lot of sense to disable the read timeout when sending data and re-enable it when data has been fully sent.
Investigate tcp-connect
's :write-cb
callback, determine if it gets called when ALL data is flushed to the socket from the bufferevent (good) or if it gets called in chunks (more difficult). This can be used to say "start upload, disable read timeout until :write-cb
is triggered." Or if we're chunking, we can re-enable the read-timeout
on the :write-cb
of the last chunk.
I get lots of warning and such when using drakma-async with latest cl-async like:
WARNING:
Passing event-cb as the fourth argument to tcp-ssl-connect is now deprecated. Please use the :event-cb keyword instead.
When doing das:http-request over SSL with a 0.01 second delay between requests, 0.5% of the times I get a "DNS error: -2, nodename nor servname provided, or not known". It often happens at the start of the event loop, after queuing a dozen of requests.
Need to add some tests to make sure new versions of drakma being ported over don't break.
I think this is probably drakma related?
It seems that content type is broken?
(drakma-async:http-request "https://www.fqdn.com" :additional-headers '((:mine "test")))
GET / HTTP/1.1
Host: www.fqdn.com
User-Agent: Drakma/1.3.9 (SBCL 1.1.18; Linux; 3.14.4-x86_64-linode40; http://weitz.de/drakma/)
Accept: */*
MINE: (test)
Should be
GET / HTTP/1.1
Host: www.fqdn.com
User-Agent: Drakma/1.3.9 (SBCL 1.1.18; Linux; 3.14.4-x86_64-linode40; http://weitz.de/drakma/)
Accept: */*
MINE: test
I get this:
; caught ERROR:
; READ error during COMPILE-FILE: Package LE does not exist.
It's in http-stream.lisp
http://report.quicklisp.org/2014-12-10/failure-report/drakma-async.html
Using drakma-async with latest master of cl-async, cl-async-future, blackbird I get data mixed together in requests that happen at the same time within an even loop.
I think there may be a way to perform very minimal mods to drakma:http-request
and achieve the same result using the :continuation
method. Would be worth investigating, because then future versions of drakma could be ported simply (or even automatically).
no symbol named "ALL-GET-PARAMETERS" in "DRAKMA"
[Condition of type SB-KERNEL:SIMPLE-PACKAGE-ERROR]
Restarts:
0: [CONTINUE] INTERN it.
1: [TRY-RECOMPILING] Recompile package and try loading it again
2: [RETRY] Retry loading FASL for #<CL-SOURCE-FILE "drakma-async" "package">.
3: [ACCEPT] Continue, treating loading FASL for #<CL-SOURCE-FILE "drakma-async" "package"> as having been successful.
4: [ABORT] Give up on "drakma-async"
5: [RETRY] Retry SLIME REPL evaluation request.
--more--
Backtrace:
0: (SB-IMPL::FIND-OR-MAKE-SYMBOL "ALL-GET-PARAMETERS" #<PACKAGE "DRAKMA">)
1: (SB-IMPL::IMPORT-LIST-SYMBOLS (("DRAKMA" "+KNOWN-METHODS+" "+LATIN-1+" "+REDIRECT-CODES+" "DRAKMA-DEFAULT-EXTERNAL-FORMAT" "HEADER-STREAM" "DEFAULT-PORT" "NON-DEFAULT-PORT" "USER-AGENT-STRING" "SE..
2: ((FLET SB-IMPL::THUNK :IN SB-IMPL::%DEFPACKAGE))
3: ((FLET #:WITHOUT-INTERRUPTS-BODY-566 :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
4: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-IMPL::CALL-WITH-PACKAGE-GRAPH) {7FFFF468CD3B}> #<SB-THREAD:MUTEX "Package Graph Lock" owner: #<SB-THREA..
5: (SB-IMPL::CALL-WITH-PACKAGE-GRAPH #<CLOSURE (FLET SB-IMPL::THUNK :IN SB-IMPL::%DEFPACKAGE) {7FFFF468CD8B}>)
6: (SB-IMPL::%DEFPACKAGE "DRAKMA-ASYNC" ("DAS") NIL ("HTTP-REQUEST") (("DRAKMA" "SYNTAX-ERROR")) ("CL" #1="FLEXI-STREAMS" "CL-ASYNC-FUTURE" "ALEXANDRIA" "DRAKMA" "PURI" #1# "CHUNGA") (("DRAKMA" "+KNOWN-M..
7: (SB-FASL::LOAD-FASL-GROUP #<SB-SYS:FD-STREAM for "file /home/avatar/.cache/common-lisp/sbcl-1.1.10-linux-x64/home/avatar/quicklisp/local-projects/drakma-async/package.fasl" {1003FB5AA3}>)
8: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /home/avatar/.cache/common-lisp/sbcl-1.1.10-linux-x64/home/avatar/quicklisp/local-projects/drakma-async/package.fasl" {1003FB5AA3}> NIL #<unavailabl..
9: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /home/avatar/.cache/common-lisp/sbcl-1.1.10-linux-x64/home/avatar/quicklisp/local-projects/drakma-async/package.fasl" {1003FB5AA3}> T..
10: (LOAD #P"/home/avatar/.cache/common-lisp/sbcl-1.1.10-linux-x64/home/avatar/quicklisp/local-projects/drakma-async/package.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
11: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN ASDF/LISP-ACTION:PERFORM-LISP-LOAD-FASL) {1003FB326B}> ("Overwriting already existing readtable ~S." #(#:FINALIZERS-OFF-WARNING :AS..
12: ((SB-PCL::EMF ASDF/ACTION:PERFORM) # # #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async" "package">)
13: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (ASDF/LISP-ACTION:LOAD-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async" "packa..
14: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async" "package">) [fast-method]
15: ((:METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) ((#1=#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #<ASDF/LISP-ACTION:CL-SOURCE-FILE #2="drakma-async" "package">) (#3=#<ASDF/LISP-ACTION:PREPARE-OP > . #4=#<ASDF..
16: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
17: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) ((#1=#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #<ASDF/LISP-ACTION:CL-SOURCE-FILE #2="drakma-async" "package">) (#3=#<ASDF/LISP-ACTION:PREPARE-OP > . #4=#..
18: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "drakma-async"> :VERBOSE NIL) [fast-method]
19: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "drakma-async"> :VERBOSE NIL)
20: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
21: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "drakma-async"> :VERBOSE NIL) [fast-method]
22: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # ASDF/LISP-ACTION:LOAD-OP "drakma-async" :VERBOSE NIL)
23: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
24: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10030A8BFB}> :OVERRIDE NIL)
25: (ASDF/FIND-SYSTEM::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {10030A8BFB}>)
26: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "drakma-async" :VERBOSE NIL) [fast-method]
27: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "drakma-async" :VERBOSE NIL) [fast-method]
28: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {10030A155B}>)
29: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "drakma-async" :PROMPT NIL)
30: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) # #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100308F7AB}>) [fast-method]
31: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL T)) #<QL-IMPL:SBCL {1006FDB143}> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {100308F7AB}>) [fast-me..
32: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) # :PROMPT NIL :VERBOSE NIL) [fast-method]
33: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {1003067C9B}>)
34: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QUICKLISP-CLIENT:QUICKLOAD :DRAKMA-ASYNC) #)
35: (EVAL (QUICKLISP-CLIENT:QUICKLOAD :DRAKMA-ASYNC))
36: (SWANK::EVAL-REGION "(ql:quickload :drakma-async) ..)
37: ((LAMBDA NIL :IN SWANK::REPL-EVAL))
38: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10030678EB}>)
39: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {100306780B}>)
40: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {10030677EB}>)
41: (SWANK::REPL-EVAL "(ql:quickload :drakma-async) ..)
42: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(ql:quickload :drakma-async) ..)
43: (EVAL (SWANK:LISTENER-EVAL "(ql:quickload :drakma-async) ..)
44: (SWANK:EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(ql:quickload :drakma-async) ..)
45: (SWANK::PROCESS-REQUESTS NIL)
46: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
47: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
48: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK # #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100330811B}>)
49: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/avatar/.emacs.d/elpa/slime-20130626.1151/swank-sbcl.lisp") # #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUEST..
50: (SWANK::CALL-WITH-BINDINGS ((STANDARD-OUTPUT . #1=#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {10032E28C3}>) (STANDARD-INPUT . #2=#<SWANK-BACKEND::SLIME-INPUT-STREAM {10031EF5B3}>) (TRACE-OUTPUT . #1#)..
51: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {1005B89DE3}> NIL)
52: ((FLET #:WITHOUT-INTERRUPTS-BODY-1120 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
53: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
54: ((FLET #:WITHOUT-INTERRUPTS-BODY-537 :IN SB-THREAD::CALL-WITH-MUTEX))
55: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7FFFF468EC3B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THR..
56: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD "repl-thread" RUNNING {1003300063}> #S(SB-THREAD:SEMAPHORE :NAME "Thread setup semaphore" :%COUNT 0 :WAITCOUNT 0 :MUTEX #<SB-THREAD:MU..
57: ("foreign function: call_into_lisp")
58: ("foreign function: new_thread_trampoline")
Proxying over HTTP seems to work now, but haven't tested an SSL proxy.
This breaks with HTTP connection EOF: -1: HTTP stream client peer closed connection.
(as:with-event-loop (:catch-app-errors t)
(asf:multiple-future-bind (body status headers ruri)
(drakma-async:http-request "https://auth.sovee.com/" :method :head :additional-headers '(("Connection" . "close")))
(format t "~s ~s ~s ~s" body status headers ruri)))
But this works fine
(as:with-event-loop (:catch-app-errors t)
(asf:multiple-future-bind (body status headers ruri)
(drakma:http-request "https://auth.sovee.com/" :method :head :additional-headers '(("Connection" . "close")))
(format t "~s ~s ~s ~s" body status headers ruri)))
Thanks for the excellent project! I was hoping you could recast the example in the README file in terms of your blackbird promises library, since cl-async no longer includes any of the macros referenced in the drakma-async example... the interface to blackbird seems quite different than what used to be in cl-async.
Drakma 1.3.10 has three arguments for READ-BODY, but DRAKMA-ASYNC calls it with four.
If you run a listener on port 443 (with e.g. nc -l 443
), and initiate a connection to it with drakma-async:
(as:with-event-loop ()
(drakma-async:http-request "https://localhost/"))
If you close the server immediately without sending any data, you get a fun top-level error because stream-append-bytes
is called on nil
. This happens in http-request-complete-stream
because http-stream
is set by the read callback, which never triggers if the server doesn't send data[1].
The obvious fix is to alter the finish-request
flet in http-request-complete-stream
to check if the stream is nil
before using stream-append-bytes
. However, I'm not sure whether that check should also include other things that use that stream, like calling the finish callback parameter. Doing that seems to produce a typical "No status line -- probably a network error" error, but I'm not sure I follow the http-request
code well enough to be sure it's correct.
[1] This is what happens when some server's don't like the SSL version you're offering. Older versions of cl-async could cause this problem by using the :tlsv1-client
ssl method.
Getting segaults when trying to close a stream returned from :want-stream t
I get an error when using using latest ql version and cl-async master
(as:with-event-loop ()
(bb:catcher
(bb:alet ((result (das:http-request "https://www.firma8.com/")))
(format t "result: ~s" result))
(t (e) (format t "error: ~a" e))))
Error:
There is no applicable method for the generic function
#<STANDARD-GENERIC-FUNCTION
(SETF CL-ASYNC-SSL::SOCKET-SSL-FUNCTION) (1)>
when called with arguments
(CL-ASYNC-SSL::SSL-CONNECT
#<CL-ASYNC:ASYNC-IO-STREAM {100CA7A063}>).
[Condition of type SIMPLE-ERROR]
I'm getting this error "DNS error: -2, nodename nor servname provided, or not known" when using drakma-async to send roughly 200 http request in same event loop.
What's strange is given the exact same inputs it sometimes finishes perfectly. Sometime 2 fail with above message. Sometimes 20 fail. All requests also go to same domain and url basically with slightly different query string params.
Any ideas?
I am not sure whether the problem is in das, asf, or my code, but it seems wrong that this finishes without error:
(defun test-error ()
(error 'division-by-zero))
(defun test-case ()
(as:with-event-loop (:catch-app-errors t)
(asf:attach (das:http-request "http://iki.fi/")
#'test-error))))
Readme.md advices to call the following form to start testing:
(ql:quickload :drakma-async-test)
but quicklisp does not know of a package with that name.
Right now, the entire response (and its body) have to be read into memory before finishing the future returned from http-request
. This differs from drakma in that :want-stream t
will return a chunked stream with the body waiting to be read off of it...in other words, you have control over how/when the body of the response is read, as the response comes in.
I want to implement this in drakma-async. The interface will obviously have to be different. Right now, it's behaviorally similar to drakma in that :want-stream t
returns a stream the body can be read from, but the idea is different: the http-stream
implementation requires that the entire response be read into memory before signalling the "OK!! DONE!!" and finishing the future.
Instead there should be a way to say "return once the headers have downloaded, and alert me via this callback when new body data comes in." I tried this approach before, but had issues with chunga erroring on the stream, so I want to do something new:
Implement in cl-async tcp-stream
the concept of "staging." If a stream is set to stage, data is copied off of it instead of moved off of it, and it tracks the data that's been read. You can then tell it to finalize
and all the data that was copied off will be cleared out. This way, if chunga reads something it doesn't like, the error can be caught, and the data it choked on doesn't disappear, but instead still exists for the next try.
Doesnt return, just hangs
(as:with-event-loop ()
(asf:alet* ((mine (drakma-async:http-request "https://www.dropbox.com/s/iomt7pl01qfb0s5/a.tron%20Dosiersystem%20Variante%2020130730.docx?dl=1")))
(format t "~%mine: ~s" mine)))
Works fine
(as:with-event-loop ()
(asf:alet* ((mine (drakma:http-request "https://www.dropbox.com/s/iomt7pl01qfb0s5/a.tron%20Dosiersystem%20Variante%2020130730.docx?dl=1")))
(format t "~%mine: ~s" mine)))
When using https and providing ":verify nil" I still get ssl verification error. But with regular drakma it works fine :(
http-parse seems like it could easily replace the http-stream.lisp implementation. In fact come to think of it, http-parse was started from the http-stream.lisp codebase.
http-parse is much more developed and mature at this point, and could very possibly aid in issue #5.
If SSL is done through lisp, then there's no way to inspect the incoming stream to tell if the request is complete. Might have to integrate the http-parser
closure to be inside of drakma somehow.
Otherwise, it might make sense to do SSL through libevent instead, which could be abstracted through bufferevents, and would work transparently. Might make more sense.
CL-USER> (ql:quickload :drakma-async)
To load "drakma-async":
Load 1 ASDF system:
drakma-async
; Loading "drakma-async"
[package drakma]..................................
[package drakma-async]...
failed AVER: (NULL CURRENT)
This is probably a bug in SBCL itself. (Alternatively, SBCL
might have been corrupted by bad user code, e.g. by an undefined
Lisp operation like (FMAKUNBOUND 'COMPILE), or by stray pointers
from alien code or from unsafe Lisp code; or there might be a
bug in the OS or hardware that SBCL is running on.) If it seems
to be a bug in SBCL itself, the maintainers would like to know
about it. Bug reports are welcome on the SBCL mailing lists,
which you can find at http://sbcl.sourceforge.net/.
[Condition of type SB-INT:BUG]
Restarts:
0: [RETRY] Retry compiling #<CL-SOURCE-FILE "drakma-async" "rewrite">.
1: [ACCEPT] Continue, treating compiling #<CL-SOURCE-FILE "drakma-async" "rewrite"> as having been successful.
2: [ABORT] Give up on "drakma-async"
3: [RETRY] Retry SLIME REPL evaluation request.
4: [*ABORT] Return to SLIME's top level.
5: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {1003308063}>)
Backtrace:
0: (SB-INT:BUG "~@<failed AVER: 2I_A:>" (NULL SB-C::CURRENT))
1: (SB-IMPL::%FAILED-AVER (NULL SB-C::CURRENT))
2: (SB-C::FIND-ORIGINAL-SOURCE (SB-C::ORIGINAL-SOURCE-START 377 2 3 3 1 6 0 1 23 3 1 1 2 4 13 1 2))
3: (SB-C::FIND-ERROR-CONTEXT (DRAKMA-ASYNC::UPDATE-COOKIES) NIL)
4: (SB-C::NOTE-UNDEFINED-REFERENCE DRAKMA-ASYNC::UPDATE-COOKIES :FUNCTION)
5: (SB-C::FIND-GLOBAL-FUN DRAKMA-ASYNC::UPDATE-COOKIES NIL)
6: (SB-C::FIND-FREE-FUN DRAKMA-ASYNC::UPDATE-COOKIES "shouldn't happen! (no-cmacro)")
7: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 1 {100786EBA3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:URI) DRAKMA:COOKI..
8: (SB-C::IR1-CONVERT #<SB-C::CTRAN 1 {100786EBA3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:URI) DRAKMA:COOKIE-JAR) NIL)
9: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 1 {100786EBA3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL ((DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:URI) DRAKMA:COOKIE-JA..
10: (SB-C::IR1-CONVERT-PROGN #<SB-C::CTRAN 1 {100786EBA3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (PROGN (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:URI) DRAKMA:COOKIE-J..
11: (SB-C::IR1-CONVERT #<SB-C::CTRAN 1 {100786EBA3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (PROGN (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:URI) DRAKMA:COOKIE-JAR)) N..
12: (SB-C::IR1-CONVERT-IF #<SB-C::CTRAN 3 {10078232F3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (IF DRAKMA:COOKIE-JAR (PROGN (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:U..
13: (SB-C::IR1-CONVERT #<SB-C::CTRAN 3 {10078232F3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (IF DRAKMA:COOKIE-JAR (PROGN (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:URI)..
14: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 3 {10078232F3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (WHEN DRAKMA:COOKIE-JAR (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADER..
15: (SB-C::IR1-CONVERT #<SB-C::CTRAN 3 {10078232F3}> #<SB-C::CTRAN 2 {100786EAA3}> NIL (WHEN DRAKMA:COOKIE-JAR (DRAKMA-ASYNC::UPDATE-COOKIES (DRAKMA-ASYNC::GET-COOKIES DRAKMA-ASYNC::HEADERS PURI:URI) DRAK..
16: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 4 {10078231A3}> #<SB-C::CTRAN 5 {1007822E73}> #<SB-C::LVAR 6 {1007822EA3}> ((LET ((DRAKMA-ASYNC::CONNECTIONS (DRAKMA:HEADER-VALUE :CONNECTION DRAKMA-ASYNC::..
17: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 4 {10078231A3}> #<SB-C::CTRAN 5 {1007822E73}> #<SB-C::LVAR 6 {1007822EA3}> ((LET ((DRAKMA-ASYNC::CONNECTIONS (DRAKMA:HEADER-VALUE :CONNECTION DRAKMA-ASYNC..
18: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 4 {10078231A3}> #<SB-C::CTRAN 5 {1007822E73}> #<SB-C::LVAR 6 {1007822EA3}> ((LET ((DRAKMA-ASYNC::CONNECTIONS (DRAKMA:HEADER-VALUE :CONNECTION DRAKMA-A..
19: (SB-C::IR1-CONVERT-LAMBDA-BODY ((LET ((DRAKMA-ASYNC::CONNECTIONS (DRAKMA:HEADER-VALUE :CONNECTION DRAKMA-ASYNC::HEADERS))) (WHEN DRAKMA-ASYNC::CONNECTIONS (SETQ DRAKMA-ASYNC::CONNECTIONS (DRAKMA:SPLIT..
20: ((LAMBDA (SB-C::NEXT SB-C::RESULT SB-C::POST-BINDING-LEXENV) :IN SB-C::IR1-CONVERT-LET) #<SB-C::CTRAN 7 {10078223D3}> #<SB-C::LVAR 8 {1007822403}> NIL)
21: (SB-C::%PROCESSING-DECLS NIL (#<SB-C::LAMBDA-VAR :%SOURCE-NAME DRAKMA-ASYNC::HEADERS {1007822883}> #<SB-C::LAMBDA-VAR :%SOURCE-NAME DRAKMA-ASYNC::BODY {1007822973}> #<SB-C::LAMBDA-VAR :%SOURCE-NAME DR..
22: (SB-C::IR1-CONVERT-LET #<SB-C::CTRAN 9 {1007822733}> #<SB-C::CTRAN 7 {10078223D3}> #<SB-C::LVAR 8 {1007822403}> (LET ((DRAKMA-ASYNC::HEADERS (CHUNGA:READ-HTTP-HEADERS DRAKMA-ASYNC::HTTP-STREAM DRAKMA:..
23: (SB-C::IR1-CONVERT #<SB-C::CTRAN 9 {1007822733}> #<SB-C::CTRAN 7 {10078223D3}> #<SB-C::LVAR 8 {1007822403}> (LET ((DRAKMA-ASYNC::HEADERS (CHUNGA:READ-HTTP-HEADERS DRAKMA-ASYNC::HTTP-STREAM DRAKMA:_HEA..
24: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 9 {1007822733}> #<SB-C::CTRAN 7 {10078223D3}> #<SB-C::LVAR 8 {1007822403}> ((LET ((DRAKMA-ASYNC::HEADERS (CHUNGA:READ-HTTP-HEADERS DRAKMA-ASYNC::HTTP-STREAM..
25: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 9 {1007822733}> #<SB-C::CTRAN 7 {10078223D3}> #<SB-C::LVAR 8 {1007822403}> ((LET ((DRAKMA-ASYNC::HEADERS (CHUNGA:READ-HTTP-HEADERS DRAKMA-ASYNC::HTTP-STRE..
26: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 9 {1007822733}> #<SB-C::CTRAN 7 {10078223D3}> #<SB-C::LVAR 8 {1007822403}> ((LET ((DRAKMA-ASYNC::HEADERS (CHUNGA:READ-HTTP-HEADERS DRAKMA-ASYNC::HTTP-..
27: (SB-C::IR1-CONVERT-LAMBDA-BODY ((LET ((DRAKMA-ASYNC::HEADERS (CHUNGA:READ-HTTP-HEADERS DRAKMA-ASYNC::HTTP-STREAM DRAKMA:HEADER-STREAM)) DRAKMA-ASYNC::BODY DRAKMA-ASYNC::EXTERNAL-FORMAT-BODY) (LET ((..
28: (SB-C::IR1-CONVERT-MORE #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASYNC::STATUS-TEXT..
29: (SB-C::GENERATE-OPTIONAL-DEFAULT-ENTRY #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASY..
30: (SB-C::IR1-CONVERT-HAIRY-ARGS #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASYNC::STATU..
31: (SB-C::GENERATE-OPTIONAL-DEFAULT-ENTRY #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASY..
32: (SB-C::IR1-CONVERT-HAIRY-ARGS #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASYNC::STATU..
33: (SB-C::GENERATE-OPTIONAL-DEFAULT-ENTRY #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASY..
34: (SB-C::IR1-CONVERT-HAIRY-ARGS #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME SB-C::.ANONYMOUS. :%DEBUG-NAME (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASYNC::STATU..
35: (SB-C::IR1-CONVERT-HAIRY-LAMBDA ((LET ((DRAKMA-ASYNC::HEADERS (CHUNGA:READ-HTTP-HEADERS DRAKMA-ASYNC::HTTP-STREAM DRAKMA:HEADER-STREAM)) DRAKMA-ASYNC::BODY DRAKMA-ASYNC::EXTERNAL-FORMAT-BODY) (LET (..
36: (SB-C::IR1-CONVERT-LAMBDA (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASYNC::STATUS-TEXT) &REST #1=#:G234) (DECLARE (IGNORE #1#)) (LET ((DRAKMA-ASYNC::HEADER..
37: (SB-C::FUN-NAME-LEAF (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) (DRAKMA-ASYNC::STATUS-TEXT) &REST #1=#:G234) (DECLARE (IGNORE #1#)) (LET ((DRAKMA-ASYNC::HEADERS (CH..
38: (SB-C::IR1-CONVERT-FUNCTION #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 11 {1007821983}> #<SB-C::LVAR 12 {10078219B3}> (FUNCTION (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STAT..
39: (SB-C::IR1-CONVERT #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 11 {1007821983}> #<SB-C::LVAR 12 {10078219B3}> (FUNCTION (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA-ASYNC::STATUS-CODE) ..
40: (SB-C::IR1-CONVERT-MULTIPLE-VALUE-CALL #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> (MULTIPLE-VALUE-CALL (FUNCTION (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERV..
41: (SB-C::IR1-CONVERT #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> (MULTIPLE-VALUE-CALL (FUNCTION (LAMBDA (&OPTIONAL (DRAKMA-ASYNC::SERVER-PROTOCOL) (DRAKMA..
42: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-..
43: (SB-C::IR1-CONVERT #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-CODE DRAKMA-ASYN..
44: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> ((MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-CODE..
45: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> ((MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-CO..
46: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 10 {1007820423}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> ((MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATU..
47: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 15 {10078202E3}> #<SB-C::CTRAN 13 {1007820003}> #<SB-C::LVAR 14 {1007820033}> ((MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATU..
48: (SB-C::IR1-CONVERT-LAMBDA-BODY ((MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-CODE DRAKMA-ASYNC::STATUS-TEXT) (LOOP DRAKMA-ASYNC::FOR (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-A..
49: ((LAMBDA (SB-C::NEXT SB-C::RESULT SB-C::POST-BINDING-LEXENV) :IN SB-C::IR1-CONVERT-LET) #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> NIL)
50: (SB-C::%PROCESSING-DECLS NIL (#<SB-C::LAMBDA-VAR :%SOURCE-NAME CHUNGA::_CHAR-BUFFER* :SPECVAR #<SB-C::GLOBAL-VAR :%SOURCE-NAME CHUNGA::CHAR-BUFFER :KIND :SPECIAL {10075F7BC3}> {10075F7C33}>) NIL #<S..
51: (SB-C::IR1-CONVERT-LET #<SB-C::CTRAN 18 {10075F79F3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> (LET ((CHUNGA::CHAR-BUFFER NIL)) (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCO..
52: (SB-C::IR1-CONVERT #<SB-C::CTRAN 18 {10075F79F3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> (LET ((CHUNGA::CHAR-BUFFER NIL)) (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DR..
53: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 18 {10075F79F3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-VALUE-BIND (DRAKMA-ASYN..
54: (SB-C::IR1-CONVERT #<SB-C::CTRAN 18 {10075F79F3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOC..
55: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 18 {10075F79F3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> ((CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::S..
56: (SB-C::IR1-CONVERT-BLOCK #<SB-C::CTRAN 19 {10075F77C3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-..
57: (SB-C::IR1-CONVERT #<SB-C::CTRAN 19 {10075F77C3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-VALUE-..
58: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 19 {10075F77C3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> ((BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MUL..
59: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 19 {10075F77C3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> ((BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (M..
60: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 19 {10075F77C3}> #<SB-C::CTRAN 16 {10075F7523}> #<SB-C::LVAR 17 {10075F7553}> ((BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTIC..
61: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-CODE DRAKMA-ASYNC::STA..
62: (SB-C::IR1-CONVERT-LAMBDA (LAMBDA NIL (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-CODE DRAKMA-ASYN..
63: (SB-C::FUN-NAME-LEAF (LAMBDA NIL (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MULTIPLE-VALUE-BIND (DRAKMA-ASYNC::SERVER-PROTOCOL DRAKMA-ASYNC::STATUS-CODE DRAKMA-ASYNC::ST..
64: (SB-C::IR1-CONVERT-FUNCTION #<SB-C::CTRAN 20 {10075F69B3}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> (FUNCTION (LAMBDA NIL (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-ST..
65: (SB-C::IR1-CONVERT #<SB-C::CTRAN 20 {10075F69B3}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> (FUNCTION (LAMBDA NIL (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMA..
66: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 20 {10075F69B3}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> (LAMBDA NIL (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREA..
67: (SB-C::IR1-CONVERT #<SB-C::CTRAN 20 {10075F69B3}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> (LAMBDA NIL (BLOCK DRAKMA-ASYNC:HTTP-REQUEST (CHUNGA:WITH-CHARACTER-STREAM-SEMANTICS (MUL..
68: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 23 {10075F18C3}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> ((DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CONTENT DRAKMA-ASYNC::HTTP-STREAM DRAKMA-..
69: (SB-C::IR1-CONVERT-BLOCK #<SB-C::CTRAN 24 {10075F1693}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> (BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CONTENT DRA..
70: (SB-C::IR1-CONVERT #<SB-C::CTRAN 24 {10075F1693}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> (BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CONTENT DRAKMA-AS..
71: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 24 {10075F1693}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> ((BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CONTE..
72: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 24 {10075F1693}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> ((BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CON..
73: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 24 {10075F1693}> #<SB-C::CTRAN 21 {10075F1393}> #<SB-C::LVAR 22 {10075F13C3}> ((BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC:..
74: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CONTENT DRAKMA-ASYNC::HTTP-STREAM DRAKMA-ASYNC::EXTERNAL-FORMAT-OUT) (WHEN DRAKMA-ASYNC::CONTINU..
75: (SB-C::IR1-CONVERT-HAIRY-ARGS #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME DRAKMA-ASYNC::FINISH-REQUEST :%DEBUG-NAME (LABELS DRAKMA-ASYNC::FINISH-REQUEST :IN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) :TYPE #<SB-KE..
76: (SB-C::GENERATE-OPTIONAL-DEFAULT-ENTRY #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME DRAKMA-ASYNC::FINISH-REQUEST :%DEBUG-NAME (LABELS DRAKMA-ASYNC::FINISH-REQUEST :IN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) :TYP..
77: (SB-C::IR1-CONVERT-HAIRY-ARGS #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME DRAKMA-ASYNC::FINISH-REQUEST :%DEBUG-NAME (LABELS DRAKMA-ASYNC::FINISH-REQUEST :IN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) :TYPE #<SB-KE..
78: (SB-C::IR1-CONVERT-HAIRY-LAMBDA ((BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CONTENT DRAKMA-ASYNC::HTTP-STREAM DRAKMA-ASYNC::EXTERNAL-FORMAT-OUT) (WHEN DRAKMA-ASYNC::CONTIN..
79: (SB-C::IR1-CONVERT-LAMBDA (LAMBDA (DRAKMA-ASYNC::CONTENT &OPTIONAL DRAKMA-ASYNC::CONTINUEP) (BLOCK DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA::SEND-CONTENT DRAKMA-ASYNC::CONTENT DRAKMA-ASYNC::HTTP-STREAM DR..
80: (SB-C::IR1-CONVERT-LABELS #<SB-C::CTRAN 25 {10074DC463}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> (LABELS ((DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA-ASYNC::CONTENT &OPTIONAL DRAKMA-ASY..
81: (SB-C::IR1-CONVERT #<SB-C::CTRAN 25 {10074DC463}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> (LABELS ((DRAKMA-ASYNC::FINISH-REQUEST (DRAKMA-ASYNC::CONTENT &OPTIONAL DRAKMA-ASYNC::CON..
82: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 28 {1004E8D4C3}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> ((WHEN (AND DRAKMA-ASYNC::USE-SSL (NOT STREAM)) (SETQ DRAKMA-ASYNC::HTTP-STREA..
83: ((LAMBDA (SB-C::NEXT SB-C::RESULT #:LEXENV1441) :IN SB-C::IR1-CONVERT-LABELS) #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> #)
84: (SB-C::%PROCESSING-DECLS NIL NIL (#<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME DRAKMA-ASYNC::WRITE-HTTP-LINE :%DEBUG-NAME #1=(LABELS DRAKMA-ASYNC::WRITE-HTTP-LINE :IN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) :TYP..
85: (SB-C::IR1-CONVERT-LABELS #<SB-C::CTRAN 29 {1004C2FFD3}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> (LABELS ((DRAKMA-ASYNC::WRITE-HTTP-LINE (DRAKMA-ASYNC::FMT &REST DRAKMA-ASYNC::ARG..
86: (SB-C::IR1-CONVERT #<SB-C::CTRAN 29 {1004C2FFD3}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> (LABELS ((DRAKMA-ASYNC::WRITE-HTTP-LINE (DRAKMA-ASYNC::FMT &REST DRAKMA-ASYNC::ARGS) (WHE..
87: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 30 {1004C2FE83}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> ((SETQ DRAKMA-ASYNC::HTTP-STREAM (OR STREAM (ERROR "Stream not passed into htt..
88: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 30 {1004C2FE83}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> ((SETQ DRAKMA-ASYNC::HTTP-STREAM (OR STREAM (ERROR "Stream not passed into h..
89: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 30 {1004C2FE83}> #<SB-C::CTRAN 26 {1004C2FB53}> #<SB-C::LVAR 27 {1004C2FB83}> ((SETQ DRAKMA-ASYNC::HTTP-STREAM (OR STREAM (ERROR "Stream not passed in..
90: (SB-C::IR1-CONVERT-LAMBDA-BODY ((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) (LA..
91: ((LAMBDA (SB-C::NEXT SB-C::RESULT SB-C::POST-BINDING-LEXENV) :IN SB-C::IR1-CONVERT-LET) #<SB-C::CTRAN 31 {1004C2F2C3}> #<SB-C::LVAR 32 {1004C2F2F3}> NIL)
92: (SB-C::%PROCESSING-DECLS NIL (#<SB-C::LAMBDA-VAR :%SOURCE-NAME DRAKMA-ASYNC::HOST {1004C2F3C3}> #<SB-C::LAMBDA-VAR :%SOURCE-NAME DRAKMA-ASYNC::PORT {1004C2F4B3}> #<SB-C::LAMBDA-VAR :%SOURCE-NAME DRAKM..
93: (SB-C::IR1-CONVERT-LET #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 31 {1004C2F2C3}> #<SB-C::LVAR 32 {1004C2F2F3}> (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY (FIRST DRAKMA-ASYNC::PROXY)) (..
94: (SB-C::IR1-CONVERT #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 31 {1004C2F2C3}> #<SB-C::LVAR 32 {1004C2F2F3}> (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY (FIRST DRAKMA-ASYNC::PROXY)) (PURI..
95: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 31 {1004C2F2C3}> #<SB-C::LVAR 32 {1004C2F2F3}> ((LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY (FIRST DRAKMA-ASYNC::P..
96: (SB-C::IR1-CONVERT-PROGN #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 31 {1004C2F2C3}> #<SB-C::LVAR 32 {1004C2F2F3}> (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY (FIRST DRAKMA-ASYNC::..
97: (SB-C::IR1-CONVERT #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 31 {1004C2F2C3}> #<SB-C::LVAR 32 {1004C2F2F3}> (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY (FIRST DRAKMA-ASYNC::PROXY)..
98: (SB-C::IR1-CONVERT-RETURN-FROM #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 34 {1004C2BCC3}> # (RETURN-FROM #:DROP-THRU-TAG-174 (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-A..
99: (SB-C::IR1-CONVERT #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 34 {1004C2BCC3}> #<SB-C::LVAR 35 {1004C2BCF3}> (RETURN-FROM #:DROP-THRU-TAG-174 (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::..
100: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 33 {1004C2C0B3}> #<SB-C::CTRAN 34 {1004C2BCC3}> #<SB-C::LVAR 35 {1004C2BCF3}> ((RETURN-FROM #:DROP-THRU-TAG-174 (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DR..
101: (SB-C::IR1-CONVERT-%WITHIN-CLEANUP #<SB-C::CTRAN 36 {1004C2BED3}> #<SB-C::CTRAN 34 {1004C2BCC3}> #<SB-C::LVAR 35 {1004C2BCF3}> (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT (SB-C::%UNWIND-PROTECT (SB-C::%ESC..
102: (SB-C::IR1-CONVERT #<SB-C::CTRAN 36 {1004C2BED3}> #<SB-C::CTRAN 34 {1004C2BCC3}> #<SB-C::LVAR 35 {1004C2BCF3}> (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT (SB-C::%UNWIND-PROTECT (SB-C::%ESCAPE-FUN #:EXIT-T..
103: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 36 {1004C2BED3}> #<SB-C::CTRAN 34 {1004C2BCC3}> #<SB-C::LVAR 35 {1004C2BCF3}> ((SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT (SB-C::%UNWIND-PROTECT (SB-C::%ESCAPE-..
104: (SB-C::IR1-CONVERT-BLOCK #<SB-C::CTRAN 37 {1004C23DE3}> #<SB-C::CTRAN 34 {1004C2BCC3}> #<SB-C::LVAR 35 {1004C2BCF3}> (BLOCK #1=#:EXIT-TAG-175 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT (SB-C::%UNWIND-PROT..
105: (SB-C::IR1-CONVERT #<SB-C::CTRAN 37 {1004C23DE3}> #<SB-C::CTRAN 34 {1004C2BCC3}> #<SB-C::LVAR 35 {1004C2BCF3}> (BLOCK #1=#:EXIT-TAG-175 (SB-C::%WITHIN-CLEANUP :UNWIND-PROTECT (SB-C::%UNWIND-PROTECT (S..
106: (SB-C::IR1-CONVERT-MULTIPLE-VALUE-CALL #<SB-C::CTRAN 38 {1004C23843}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (MULTIPLE-VALUE-CALL (FUNCTION (LAMBDA (&OPTIONAL (#1=#:NEXT176) (#2=..
107: (SB-C::IR1-CONVERT #<SB-C::CTRAN 38 {1004C23843}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (MULTIPLE-VALUE-CALL (FUNCTION (LAMBDA (&OPTIONAL (#1=#:NEXT176) (#2=#:START177) (#3=#:CO..
108: (SB-C::IR1-CONVERT-GLOBAL-FUNCTOID #<SB-C::CTRAN 38 {1004C23843}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (MULTIPLE-VALUE-BIND (#1=#:NEXT176 #2=#:START177 #3=#:COUNT178) (BLOCK #4..
109: (SB-C::IR1-CONVERT #<SB-C::CTRAN 38 {1004C23843}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (MULTIPLE-VALUE-BIND (#1=#:NEXT176 #2=#:START177 #3=#:COUNT178) (BLOCK #4=#:EXIT-TAG-175 ..
110: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 38 {1004C23843}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> ((MULTIPLE-VALUE-BIND (#1=#:NEXT176 #2=#:START177 #3=#:COUNT178) (BLOCK #4=#:E..
111: (SB-C::IR1-CONVERT-BLOCK #<SB-C::CTRAN 41 {1004C23613}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (BLOCK #1=#:DROP-THRU-TAG-174 (MULTIPLE-VALUE-BIND (#2=#:NEXT176 #3=#:START177 #4=#..
112: (SB-C::IR1-CONVERT #<SB-C::CTRAN 41 {1004C23613}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (BLOCK #1=#:DROP-THRU-TAG-174 (MULTIPLE-VALUE-BIND (#2=#:NEXT176 #3=#:START177 #4=#:COUNT..
113: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 41 {1004C23613}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> ((BLOCK #1=#:DROP-THRU-TAG-174 (MULTIPLE-VALUE-BIND (#2=#:NEXT176 #3=#:START17..
114: (SB-C::IR1-CONVERT-FBINDINGS #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (#<SB-C::CLAMBDA :%SOURCE-NAME #1=#:CLEANUP-FUN-173 :%DEBUG-NAME (FLET #1# :IN ..
115: ((LAMBDA (SB-C::NEXT SB-C::RESULT #:LEXENV1392) :IN SB-C::IR1-CONVERT-FLET) #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> #)
116: (SB-C::%PROCESSING-DECLS ((DECLARE (DYNAMIC-EXTENT (FUNCTION #:CLEANUP-FUN-173)))) NIL (#<SB-C::CLAMBDA :%SOURCE-NAME #1=#:CLEANUP-FUN-173 :%DEBUG-NAME (FLET #1# :IN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) ..
117: (SB-C::IR1-CONVERT-FLET #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (FLET ((#1=#:CLEANUP-FUN-173 NIL (WHEN NIL NIL) NIL)) (DECLARE (DYNAMIC-EXTENT (FUNC..
118: (SB-C::IR1-CONVERT #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (FLET ((#1=#:CLEANUP-FUN-173 NIL (WHEN NIL NIL) NIL)) (DECLARE (DYNAMIC-EXTENT (FUNCTION ..
119: (SB-C::IR1-CONVERT-UNWIND-PROTECT #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (UNWIND-PROTECT (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PR..
120: (SB-C::IR1-CONVERT #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> (UNWIND-PROTECT (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY (FIRST DRAK..
121: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> ((UNWIND-PROTECT (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY..
122: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> ((UNWIND-PROTECT (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PRO..
123: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 42 {1004C1FC13}> #<SB-C::CTRAN 39 {1004C1F883}> #<SB-C::LVAR 40 {1004C1F8B3}> ((UNWIND-PROTECT (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC:..
124: (SB-C::IR1-CONVERT-LAMBDA-BODY ((UNWIND-PROTECT (PROGN (LET ((DRAKMA-ASYNC::HOST (OR (AND DRAKMA-ASYNC::PROXY (FIRST DRAKMA-ASYNC::PROXY)) (PURI:URI-HOST PURI:URI))) (DRAKMA-ASYNC::PORT (COND (DRAKMA-..
125: ((LAMBDA (SB-C::NEXT SB-C::RESULT SB-C::POST-BINDING-LEXENV) :IN SB-C::IR1-CONVERT-LET) #<SB-C::CTRAN 43 {1004BBF063}> #<SB-C::LVAR 44 {1004BBF093}> NIL)
126: (SB-C::%PROCESSING-DECLS NIL (#<SB-C::LAMBDA-VAR :%SOURCE-NAME DRAKMA-ASYNC::PROXYING-HTTPS-P {1004C1F033}> #<SB-C::LAMBDA-VAR :%SOURCE-NAME DRAKMA-ASYNC::HTTP-STREAM {1004C1F123}> #<SB-C::LAMBDA-VAR ..
127: (SB-C::IR1-CONVERT-LET #<SB-C::CTRAN 45 {1004BC45F3}> #<SB-C::CTRAN 43 {1004BBF063}> #<SB-C::LVAR 44 {1004BBF093}> (LET ((DRAKMA-ASYNC::PROXYING-HTTPS-P (AND DRAKMA-ASYNC::PROXY (NOT STREAM) (EQ :HTTP..
128: (SB-C::IR1-CONVERT #<SB-C::CTRAN 45 {1004BC45F3}> #<SB-C::CTRAN 43 {1004BBF063}> #<SB-C::LVAR 44 {1004BBF093}> (LET ((DRAKMA-ASYNC::PROXYING-HTTPS-P (AND DRAKMA-ASYNC::PROXY (NOT STREAM) (EQ :HTTPS (P..
129: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 46 {1004BBF4E3}> #<SB-C::CTRAN 43 {1004BBF063}> #<SB-C::LVAR 44 {1004BBF093}> ((WHEN (AND DRAKMA-ASYNC::FILE-PARAMETERS-P (NOT (EQ METHOD :POST))) (DRAKMA:P..
130: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 46 {1004BBF4E3}> #<SB-C::CTRAN 43 {1004BBF063}> #<SB-C::LVAR 44 {1004BBF093}> ((WHEN (AND DRAKMA-ASYNC::FILE-PARAMETERS-P (NOT (EQ METHOD :POST))) (DRAKMA..
131: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 46 {1004BBF4E3}> #<SB-C::CTRAN 43 {1004BBF063}> #<SB-C::LVAR 44 {1004BBF093}> ((WHEN (AND DRAKMA-ASYNC::FILE-PARAMETERS-P (NOT (EQ METHOD :POST))) (DR..
132: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 47 {1004BBF3A3}> #<SB-C::CTRAN 43 {1004BBF063}> #<SB-C::LVAR 44 {1004BBF093}> ((WHEN (AND DRAKMA-ASYNC::FILE-PARAMETERS-P (NOT (EQ METHOD :POST))) (DR..
133: (SB-C::IR1-CONVERT-LAMBDA-BODY ((WHEN (AND DRAKMA-ASYNC::FILE-PARAMETERS-P (NOT (EQ METHOD :POST))) (DRAKMA:PARAMETER-ERROR "Don't know how to handle parameters in ~S, as this is not a POST request." ..
134: ((LAMBDA (SB-C::NEXT SB-C::RESULT SB-C::POST-BINDING-LEXENV) :IN SB-C::IR1-CONVERT-LET) #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> NIL)
135: (SB-C::%PROCESSING-DECLS NIL (#<SB-C::LAMBDA-VAR :%SOURCE-NAME FLEXI-STREAMS:DEFAULT-EOL-STYLE :SPECVAR #<SB-C::GLOBAL-VAR :%SOURCE-NAME FLEXI-STREAMS:DEFAULT-EOL-STYLE :KIND :SPECIAL {1004BBE973}..
136: (SB-C::IR1-CONVERT-LET #<SB-C::CTRAN 50 {1004BBBB83}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> (LET ((FLEXI-STREAMS:DEFAULT-EOL-STYLE :LF) (DRAKMA-ASYNC::FILE-PARAMETERS-P (FIND-..
137: (SB-C::IR1-CONVERT #<SB-C::CTRAN 50 {1004BBBB83}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> (LET ((FLEXI-STREAMS:DEFAULT-EOL-STYLE :LF) (DRAKMA-ASYNC::FILE-PARAMETERS-P (FIND-IF-N..
138: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 51 {1004827D03}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> ((UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (F..
139: (SB-C::IR1-CONVERT-BLOCK #<SB-C::CTRAN 52 {1004827AD3}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> (BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUO..
140: (SB-C::IR1-CONVERT #<SB-C::CTRAN 52 {1004827AD3}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> (BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:H..
141: (SB-C::IR1-CONVERT-PROGN-BODY #<SB-C::CTRAN 52 {1004827AD3}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCO..
142: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 52 {1004827AD3}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
143: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 52 {1004827AD3}> #<SB-C::CTRAN 48 {1004827803}> #<SB-C::LVAR 49 {1004827833}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
144: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
145: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 53 {10048274A3}> #<SB-C::CTRAN 54 {10048271D3}> #<SB-C::LVAR 55 {1004827203}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
146: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 53 {10048274A3}> #<SB-C::CTRAN 54 {10048271D3}> #<SB-C::LVAR 55 {1004827203}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
147: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
148: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 56 {1004826E63}> #<SB-C::CTRAN 57 {1004826B93}> #<SB-C::LVAR 58 {1004826BC3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
149: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 56 {1004826E63}> #<SB-C::CTRAN 57 {1004826B93}> #<SB-C::LVAR 58 {1004826BC3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
150: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
151: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 59 {1004826813}> #<SB-C::CTRAN 60 {1004826543}> #<SB-C::LVAR 61 {1004826573}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
152: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 59 {1004826813}> #<SB-C::CTRAN 60 {1004826543}> #<SB-C::LVAR 61 {1004826573}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
153: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
154: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 62 {10048261B3}> #<SB-C::CTRAN 63 {1004825EE3}> #<SB-C::LVAR 64 {1004825F13}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
155: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 62 {10048261B3}> #<SB-C::CTRAN 63 {1004825EE3}> #<SB-C::LVAR 64 {1004825F13}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
156: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
157: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 65 {1004825B43}> #<SB-C::CTRAN 66 {1004825873}> #<SB-C::LVAR 67 {10048258A3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
158: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 65 {1004825B43}> #<SB-C::CTRAN 66 {1004825873}> #<SB-C::LVAR 67 {10048258A3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
159: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
160: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 68 {10048254C3}> #<SB-C::CTRAN 69 {10048251F3}> #<SB-C::LVAR 70 {1004825223}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
161: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 68 {10048254C3}> #<SB-C::CTRAN 69 {10048251F3}> #<SB-C::LVAR 70 {1004825223}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
162: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
163: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 71 {1004824E33}> #<SB-C::CTRAN 72 {1004824B63}> #<SB-C::LVAR 73 {1004824B93}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
164: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 71 {1004824E33}> #<SB-C::CTRAN 72 {1004824B63}> #<SB-C::LVAR 73 {1004824B93}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
165: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
166: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 74 {1004824793}> #<SB-C::CTRAN 75 {10048244C3}> #<SB-C::LVAR 76 {10048244F3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
167: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 74 {1004824793}> #<SB-C::CTRAN 75 {10048244C3}> #<SB-C::LVAR 76 {10048244F3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
168: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
169: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 77 {10048240E3}> #<SB-C::CTRAN 78 {1004823E13}> #<SB-C::LVAR 79 {1004823E43}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
170: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 77 {10048240E3}> #<SB-C::CTRAN 78 {1004823E13}> #<SB-C::LVAR 79 {1004823E43}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
171: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
172: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 80 {1004823A23}> #<SB-C::CTRAN 81 {1004823753}> #<SB-C::LVAR 82 {1004823783}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
173: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 80 {1004823A23}> #<SB-C::CTRAN 81 {1004823753}> #<SB-C::LVAR 82 {1004823783}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
174: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
175: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 83 {1004823353}> #<SB-C::CTRAN 84 {1004823083}> #<SB-C::LVAR 85 {10048230B3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
176: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 83 {1004823353}> #<SB-C::CTRAN 84 {1004823083}> #<SB-C::LVAR 85 {10048230B3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
177: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
178: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 86 {1004822C73}> #<SB-C::CTRAN 87 {10048229A3}> #<SB-C::LVAR 88 {10048229D3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
179: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 86 {1004822C73}> #<SB-C::CTRAN 87 {10048229A3}> #<SB-C::LVAR 88 {10048229D3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
180: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
181: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 89 {1004822583}> #<SB-C::CTRAN 90 {10048222B3}> #<SB-C::LVAR 91 {10048222E3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
182: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 89 {1004822583}> #<SB-C::CTRAN 90 {10048222B3}> #<SB-C::LVAR 91 {10048222E3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
183: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
184: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 92 {1004821E93}> #<SB-C::CTRAN 93 {1004821BC3}> #<SB-C::LVAR 94 {1004821BF3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
185: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 92 {1004821E93}> #<SB-C::CTRAN 93 {1004821BC3}> #<SB-C::LVAR 94 {1004821BF3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
186: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
187: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 95 {10048217A3}> #<SB-C::CTRAN 96 {10048214D3}> #<SB-C::LVAR 97 {1004821503}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTO..
188: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 95 {10048217A3}> #<SB-C::CTRAN 96 {10048214D3}> #<SB-C::LVAR 97 {1004821503}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::P..
189: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
190: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 98 {10048210B3}> #<SB-C::CTRAN 99 {1004820DE3}> #<SB-C::LVAR 100 {1004820E13}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROT..
191: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 98 {10048210B3}> #<SB-C::CTRAN 99 {1004820DE3}> #<SB-C::LVAR 100 {1004820E13}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::..
192: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
193: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 101 {10048209C3}> #<SB-C::CTRAN 102 {10048206F3}> #<SB-C::LVAR 103 {1004820723}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
194: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 101 {10048209C3}> #<SB-C::CTRAN 102 {10048206F3}> #<SB-C::LVAR 103 {1004820723}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
195: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
196: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 104 {10048202D3}> #<SB-C::CTRAN 105 {1004820003}> #<SB-C::LVAR 106 {1004820033}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
197: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 104 {10048202D3}> #<SB-C::CTRAN 105 {1004820003}> #<SB-C::LVAR 106 {1004820033}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
198: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
199: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 107 {1004767BD3}> #<SB-C::CTRAN 108 {1004767903}> #<SB-C::LVAR 109 {1004767933}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
200: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 107 {1004767BD3}> #<SB-C::CTRAN 108 {1004767903}> #<SB-C::LVAR 109 {1004767933}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
201: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
202: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 110 {10047674E3}> #<SB-C::CTRAN 111 {1004767213}> #<SB-C::LVAR 112 {1004767243}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
203: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 110 {10047674E3}> #<SB-C::CTRAN 111 {1004767213}> #<SB-C::LVAR 112 {1004767243}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
204: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
205: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 113 {1004766DF3}> #<SB-C::CTRAN 114 {1004766B23}> #<SB-C::LVAR 115 {1004766B53}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
206: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 113 {1004766DF3}> #<SB-C::CTRAN 114 {1004766B23}> #<SB-C::LVAR 115 {1004766B53}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
207: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
208: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 116 {1004766703}> #<SB-C::CTRAN 117 {1004766433}> #<SB-C::LVAR 118 {1004766463}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
209: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 116 {1004766703}> #<SB-C::CTRAN 117 {1004766433}> #<SB-C::LVAR 118 {1004766463}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
210: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
211: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 119 {1004766013}> #<SB-C::CTRAN 120 {1004765D43}> #<SB-C::LVAR 121 {1004765D73}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
212: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 119 {1004766013}> #<SB-C::CTRAN 120 {1004765D43}> #<SB-C::LVAR 121 {1004765D73}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
213: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
214: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 122 {1004765923}> #<SB-C::CTRAN 123 {1004765653}> #<SB-C::LVAR 124 {1004765683}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
215: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 122 {1004765923}> #<SB-C::CTRAN 123 {1004765653}> #<SB-C::LVAR 124 {1004765683}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
216: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
217: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 125 {1004765233}> #<SB-C::CTRAN 126 {1004764F63}> #<SB-C::LVAR 127 {1004764F93}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
218: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 125 {1004765233}> #<SB-C::CTRAN 126 {1004764F63}> #<SB-C::LVAR 127 {1004764F93}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
219: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
220: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 128 {1004764B43}> #<SB-C::CTRAN 129 {1004764873}> #<SB-C::LVAR 130 {10047648A3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
221: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 128 {1004764B43}> #<SB-C::CTRAN 129 {1004764873}> #<SB-C::LVAR 130 {10047648A3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
222: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
223: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 131 {1004764453}> #<SB-C::CTRAN 132 {1004764183}> #<SB-C::LVAR 133 {10047641B3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
224: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 131 {1004764453}> #<SB-C::CTRAN 132 {1004764183}> #<SB-C::LVAR 133 {10047641B3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
225: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
226: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 134 {1004763D63}> #<SB-C::CTRAN 135 {1004763A93}> #<SB-C::LVAR 136 {1004763AC3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
227: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 134 {1004763D63}> #<SB-C::CTRAN 135 {1004763A93}> #<SB-C::LVAR 136 {1004763AC3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
228: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
229: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 137 {1004763673}> #<SB-C::CTRAN 138 {10047633A3}> #<SB-C::LVAR 139 {10047633D3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
230: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 137 {1004763673}> #<SB-C::CTRAN 138 {10047633A3}> #<SB-C::LVAR 139 {10047633D3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
231: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
232: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 140 {1004762F83}> #<SB-C::CTRAN 141 {1004762CB3}> #<SB-C::LVAR 142 {1004762CE3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
233: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 140 {1004762F83}> #<SB-C::CTRAN 141 {1004762CB3}> #<SB-C::LVAR 142 {1004762CE3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
234: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
235: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 143 {1004762893}> #<SB-C::CTRAN 144 {10047625C3}> #<SB-C::LVAR 145 {10047625F3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
236: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 143 {1004762893}> #<SB-C::CTRAN 144 {10047625C3}> #<SB-C::LVAR 145 {10047625F3}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
237: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
238: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 146 {10047621A3}> #<SB-C::CTRAN 147 {1004761ED3}> #<SB-C::LVAR 148 {1004761F03}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
239: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 146 {10047621A3}> #<SB-C::CTRAN 147 {1004761ED3}> #<SB-C::LVAR 148 {1004761F03}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
240: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
241: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 149 {1004761AB3}> #<SB-C::CTRAN 150 {10047617E3}> #<SB-C::LVAR 151 {1004761813}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
242: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 149 {1004761AB3}> #<SB-C::CTRAN 150 {10047617E3}> #<SB-C::LVAR 151 {1004761813}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
243: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
244: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 152 {10047613C3}> #<SB-C::CTRAN 153 {10047610F3}> #<SB-C::LVAR 154 {1004761123}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
245: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 152 {10047613C3}> #<SB-C::CTRAN 153 {10047610F3}> #<SB-C::LVAR 154 {1004761123}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
246: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
247: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 155 {1004760CD3}> #<SB-C::CTRAN 156 {1004760A03}> #<SB-C::LVAR 157 {1004760A33}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
248: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 155 {1004760CD3}> #<SB-C::CTRAN 156 {1004760A03}> #<SB-C::LVAR 157 {1004760A33}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
249: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
250: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 158 {10047605E3}> #<SB-C::CTRAN 159 {1004760313}> #<SB-C::LVAR 160 {1004760343}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
251: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 158 {10047605E3}> #<SB-C::CTRAN 159 {1004760313}> #<SB-C::LVAR 160 {1004760343}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
252: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
253: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 161 {100475FEE3}> #<SB-C::CTRAN 162 {100475FC13}> #<SB-C::LVAR 163 {100475FC43}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
254: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 161 {100475FEE3}> #<SB-C::CTRAN 162 {100475FC13}> #<SB-C::LVAR 163 {100475FC43}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
255: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
256: (SB-C::IR1-CONVERT-AUX-BINDINGS #<SB-C::CTRAN 164 {100475F7F3}> #<SB-C::CTRAN 165 {100475ED53}> #<SB-C::LVAR 166 {100475ED83}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PR..
257: (SB-C::IR1-CONVERT-SPECIAL-BINDINGS #<SB-C::CTRAN 164 {100475F7F3}> #<SB-C::CTRAN 165 {100475ED53}> #<SB-C::LVAR 166 {100475ED83}> ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC..
258: (SB-C::IR1-CONVERT-LAMBDA-BODY ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know ho..
259: (SB-C::IR1-CONVERT-MORE #<SB-C::OPTIONAL-DISPATCH :%SOURCE-NAME DRAKMA-ASYNC::HTTP-REQUEST-ASYNC :%DEBUG-NAME NIL :TYPE #<SB-KERNEL:BUILT-IN-CLASSOID FUNCTION (read-only)> :WHERE-FROM :DEFINED :ARGLIS..
260: (SB-C::IR1-CONVERT-HAIRY-LAMBDA ((BLOCK DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (UNLESS (MEMBER DRAKMA-ASYNC::PROTOCOL (QUOTE (:HTTP/1.0 :HTTP/1.1)) :TEST (FUNCTION EQ)) (DRAKMA:PARAMETER-ERROR "Don't know h..
261: (SB-C::IR1-CONVERT-LAMBDA (LAMBDA (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-AS..
262: (SB-C::IR1-CONVERT-LAMBDALIKE (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 DRA..
263: (SB-C::MAKE-FUNCTIONAL-FROM-TOPLEVEL-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:..
264: (SB-C::%COMPILE (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::CER..
265: (SB-C::FOPCOMPILE-FUNCTION (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..
266: (SB-C::FOPCOMPILE (SB-IMPL::%DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (SB-INT:NAMED-LAMBDA DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY (DRAKMA-ASYNC::PROTOCOL :HTTP/..
267: (SB-C::CONVERT-AND-MAYBE-COMPILE (SB-IMPL::%DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (SB-INT:NAMED-LAMBDA DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY (DRAKMA-ASYNC::..
268: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (SB-IMPL::%DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (SB-INT:NAMED-LAMBDA DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-A..
269: (SB-C::PROCESS-TOPLEVEL-FORM (SB-IMPL::%DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (SB-INT:NAMED-LAMBDA DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY (DRAKMA-ASYNC::PROT..
270: (SB-C::PROCESS-TOPLEVEL-PROGN ((SB-IMPL::%DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (SB-INT:NAMED-LAMBDA DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY (DRAKMA-ASYNC::PR..
271: (SB-C::PROCESS-TOPLEVEL-FORM (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (SB-INT:NAMED-LAMBDA DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA..
272: (SB-C::PROCESS-TOPLEVEL-PROGN ((EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (QUOTE NIL) T)) (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN (QUOT..
273: (SB-C::PROCESS-TOPLEVEL-FORM (PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN (QUOTE DRAKMA-ASYNC::HTTP-REQUEST-ASYNC) (QUOTE NIL) T)) (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFUN ..
274: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (DEFUN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY (DRAKMA-ASYNC::PROTOCOL :HTTP/1.1) (METHOD :GET) DRAKMA-..
275: (SB-C::PROCESS-TOPLEVEL-FORM (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::CERT..
276: ((FLET SB-C::DEFAULT-PROCESSOR :IN SB-C::PROCESS-TOPLEVEL-FORM) (DRAKMA-ASYNC::REWRITE-HTTP-REQUEST (DEFUN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY (DRAKMA-ASYNC::PROTO..
277: (SB-C::PROCESS-TOPLEVEL-FORM (DRAKMA-ASYNC::REWRITE-HTTP-REQUEST (DEFUN DRAKMA-ASYNC::HTTP-REQUEST-ASYNC (PURI:URI &REST DRAKMA-ASYNC::ARGS &KEY (DRAKMA-ASYNC::PROTOCOL :HTTP/1.1) (METHOD :GET) DRAKMA..
278: (SB-C::SUB-SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
279: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE))
280: ((FLET #:WITHOUT-INTERRUPTS-BODY-566 :IN SB-THREAD::CALL-WITH-RECURSIVE-LOCK))
281: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK :IN SB-C::SUB-COMPILE-FILE) {7FFFF468CBDB}> #<SB-THREAD:MUTEX "World Lock" owner: #<SB-THREAD:THREAD "repl-thr..
282: ((LAMBDA NIL :IN SB-C::SUB-COMPILE-FILE))
283: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
284: (SB-C::SUB-COMPILE-FILE #<SB-C::SOURCE-INFO >)
285: (COMPILE-FILE #P"/home/avatar/quicklisp/local-projects/drakma-async/rewrite.lisp" :OUTPUT-FILE #P"/home/avatar/.cache/common-lisp/sbcl-1.1.10-linux-x64/home/avatar/quicklisp/local-projects/drakma-asyn..
286: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {1003E4D2FB}> NIL)
287: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/avatar/quicklisp/local-projects/drakma-async/rewrite.lisp" :OUTPUT-FILE #P"/home/avatar/.cache/common-lisp/sbcl-1.1.10-linux-x64/home/avatar/quicklisp/local-pro..
288: (UIOP/UTILITY:CALL-WITH-MUFFLED-CONDITIONS #<CLOSURE (LAMBDA NIL :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) {1003E4C9FB}> NIL)
289: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async" "rewrite">)
290: ((SB-PCL::EMF ASDF/ACTION:PERFORM) # # #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async" "rewrite">)
291: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "drakma-async" "rewrite">) [fast-method]
292: ((:METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #2=#<ASDF/SYSTEM:SYSTEM #3="cl-base64">) (#1# . #4=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #3# "package">) (#5=#<ASDF/LISP-ACT..
293: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT))
294: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #2=#<ASDF/SYSTEM:SYSTEM #3="cl-base64">) (#1# . #4=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #3# "package">) (#5=#<ASDF/LIS..
295: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "drakma-async"> :VERBOSE NIL) [fast-method]
296: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "drakma-async"> :VERBOSE NIL)
297: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
298: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "drakma-async"> :VERBOSE NIL) [fast-method]
299: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) # # ASDF/LISP-ACTION:LOAD-OP "drakma-async" :VERBOSE NIL)
300: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE))
301: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1007AD267B}> :OVERRIDE NIL)
302: (ASDF/FIND-SYSTEM::CALL-WITH-SYSTEM-DEFINITIONS #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {1007AD267B}>)
303: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "drakma-async" :VERBOSE NIL) [fast-method]
304: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "drakma-async" :VERBOSE NIL) [fast-method]
305: (QUICKLISP-CLIENT::CALL-WITH-MACROEXPAND-PROGRESS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT::APPLY-LOAD-STRATEGY) {1007ACB81B}>)
306: (QUICKLISP-CLIENT::AUTOLOAD-SYSTEM-AND-DEPENDENCIES "drakma-async" :PROMPT NIL)
307: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION (T T)) # #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1007AA030B}>) [fast-method]
308: ((:METHOD QL-IMPL-UTIL::%CALL-WITH-QUIET-COMPILATION :AROUND (QL-IMPL:SBCL T)) #<QL-IMPL:SBCL {1006FE5223}> #<CLOSURE (FLET QUICKLISP-CLIENT::QL :IN QUICKLISP-CLIENT:QUICKLOAD) {1007AA030B}>) [fast-me..
309: ((:METHOD QUICKLISP-CLIENT:QUICKLOAD (T)) # :PROMPT NIL :VERBOSE NIL) [fast-method]
310: (QL-DIST::CALL-WITH-CONSISTENT-DISTS #<CLOSURE (LAMBDA NIL :IN QUICKLISP-CLIENT:QUICKLOAD) {1007A9525B}>)
311: (SB-INT:SIMPLE-EVAL-IN-LEXENV (QUICKLISP-CLIENT:QUICKLOAD :DRAKMA-ASYNC) #)
312: (EVAL (QUICKLISP-CLIENT:QUICKLOAD :DRAKMA-ASYNC))
313: (SWANK::EVAL-REGION "(ql:quickload :drakma-async) ..)
314: ((LAMBDA NIL :IN SWANK::REPL-EVAL))
315: (SWANK::TRACK-PACKAGE #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {1007A94E0B}>)
316: (SWANK::CALL-WITH-RETRY-RESTART "Retry SLIME REPL evaluation request." #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {1007A94D2B}>)
317: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<CLOSURE (LAMBDA NIL :IN SWANK::REPL-EVAL) {1007A94D0B}>)
318: (SWANK::REPL-EVAL "(ql:quickload :drakma-async) ..)
319: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(ql:quickload :drakma-async) ..)
320: (EVAL (SWANK:LISTENER-EVAL "(ql:quickload :drakma-async) ..)
321: (SWANK:EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(ql:quickload :drakma-async) ..)
322: (SWANK::PROCESS-REQUESTS NIL)
323: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
324: ((LAMBDA NIL :IN SWANK::HANDLE-REQUESTS))
325: (SWANK-BACKEND::CALL-WITH-BREAK-HOOK # #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUESTS) {100331011B}>)
326: ((FLET SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/avatar/.emacs.d/elpa/slime-20130626.1151/swank-sbcl.lisp") # #<CLOSURE (LAMBDA NIL :IN SWANK::HANDLE-REQUEST..
327: (SWANK::CALL-WITH-BINDINGS ((STANDARD-OUTPUT . #1=#<SWANK-BACKEND::SLIME-OUTPUT-STREAM {10032EA8C3}>) (STANDARD-INPUT . #2=#<SWANK-BACKEND::SLIME-INPUT-STREAM {10034E8483}>) (TRACE-OUTPUT . #1#)..
328: (SWANK::HANDLE-REQUESTS #<SWANK::MULTITHREADED-CONNECTION {1005B81DE3}> NIL)
329: ((FLET #:WITHOUT-INTERRUPTS-BODY-1120 :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
330: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE))
331: ((FLET #:WITHOUT-INTERRUPTS-BODY-537 :IN SB-THREAD::CALL-WITH-MUTEX))
332: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE) {7FFFF468EC3B}> #<SB-THREAD:MUTEX "thread result lock" owner: #<SB-THREAD:THR..
333: (SB-THREAD::INITIAL-THREAD-FUNCTION-TRAMPOLINE #<SB-THREAD:THREAD "repl-thread" RUNNING {1003308063}> #S(SB-THREAD:SEMAPHORE :NAME "Thread setup semaphore" :%COUNT 0 :WAITCOUNT 0 :MUTEX #<SB-THREAD:MU..
334: ("foreign function: call_into_lisp")
335: ("foreign function: new_thread_trampoline")
When trying to use cookies with drakma async it fails with undefined method send-cookie-p
(as:with-event-loop (:catch-app-errors t)
(asf:alet ((mine (drakma-async:http-request "http://www.fqdn.com"
:cookie-jar (make-instance 'drakma:cookie-jar
:cookies (list (make-instance 'drakma:cookie
:domain ".fqdn.com"
:name "test"
:value "1"))))))
(format t "data: ~a" mine)))
;; Evaluation aborted on #<UNDEFINED-FUNCTION SEND-COOKIE-P {10038463E3}>.
Whereas this works
(drakma:http-request "http://www.fqdn.com"
:cookie-jar (make-instance 'drakma:cookie-jar
:cookies (list (make-instance 'drakma:cookie
:domain ".fqdn.com"
:name "test"
:value "1"))))
(as:with-event-loop ()
(asf:alet ((mine (drakma-async:http-request "http://www.sonosite.com" :method :head :additional-headers '(("Connection" . "close")))))
(format t "~%mine: ~s" mine)))
gives HTTP connection EOF: -1: HTTP stream client peer closed connection.
But this works
(as:with-event-loop ()
(asf:alet ((mine (drakma:http-request "http://www.sonosite.com" :method :head :additional-headers '(("Connection" . "close")))))
(format t "~%mine: ~s" mine)))
But so do this, so I have no clue what to think.
(as:with-event-loop ()
(asf:alet ((mine (drakma-async:http-request "http://www.google.com" :method :head :additional-headers '(("Connection" . "close")))))
(format t "~%mine: ~s" mine)))
Its like www.sonosite.com does something strange that regular drakma handle, but drakma-async cant?
Hello Orthecreedence,
first of all thanks a lot for your CL libraries - seriously cool stuff, very impressive.
Might be a miss-understanding on my side, but you're passing a hard-coded :external-format :latin-1
when calling http-stream
in http-request
. Given that http-request
already has a gozillion keyword arguments, one more wouldn't hurt and it could happen quite easy that latin-1
is not sufficient.
Would be nice if you could check.
Regards, Frank
Btw.: greetings to Christina ;)
Thanks for the updated example in the README file. Unfortunately, on my system which is running sbcl 1.2.7 and the current quicklisp versions of drakma-async and cl-async, but blackbird from your github on the master branch, I am seeing an error compiling this code:
(defun my-http-request ()
(catcher
(multiple-promise-bind (body status headers)
(das:http-request "https://www.google.com/")
(format t "Status: ~a~%" status)
(format t "Headers: ~s~%" headers)
(format t "Body: ~a~%" (if (stringp body) body (babel:octets-to-string body))))
(http-eof ()
(format t "Server hung up unexpectedly =[~%"))
(error (e)
(format t "Error: ~a~%" e))))`
which produces:
cd /home/fade/SourceCode/lisp/blinkenlights/
2 compiler notes:
blinkenlights.lisp:8:3:
error:
NIL names a defined constant, and cannot be used as a local variable.
--> BLACKBIRD-BASE:DO-CATCH LAMBDA FUNCTION MULTIPLE-VALUE-PROG1 PROGN
--> TYPECASE LET COND IF PROGN
==>
(LET ((NIL BLACKBIRD-BASE::E))
(FORMAT T "Server hung up unexpectedly =[~%"))
style-warning:
undefined type: HTTP-EOF
--> BLACKBIRD-BASE:DO-CATCH LAMBDA FUNCTION MULTIPLE-VALUE-PROG1 PROGN
--> TYPECASE LET COND IF
==>
(TYPEP #:G5 'BLINKENLIGHTS::HTTP-EOF)
Compilation failed.
I am defining a system:
(asdf:defsystem #:blinkenlights
:description "Describe blinkenlights here"
:author "Brian O'Reilly <[email protected]>"
:license "LLGPL"
:depends-on (#:blackbird
#:cl-async
#:drakma-async)
:serial t
:components ((:file "package")
(:file "blinkenlights")))
and this package:
(defpackage #:blinkenlights
(:use #:cl
#:blackbird
#:cl-async))
... which seems to be about as simple as it can be made. I'm probably missing something that's obvious to you, but practically invisible to me. Suggestions?
When I do
(as:with-event-loop (:catch-app-errors t)
(asf:alet ((mine (drakma-async:http-request "https://23.92.28.184" :preserve-uri t)))
(format t "~%data: ~a" mine)))
I get
SSL connection error: 336031996: error:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol `
But if I do normal drakma it works
(as:with-event-loop (:catch-app-errors t)
(asf:alet ((mine (drakma:http-request "https://23.92.28.184" :preserve-uri t)))
(format t "~%data: ~a" mine)))
Any ideas?
One thing I haven't tested is proxy communication. I want to test requesting over a proxy, redirecting over a proxy, and SSL over a proxy.
The error message: http://paste.lisp.org/display/313653
Running on SBCL, (lisp-implementation-version) ;=> 1.1.18
Using drakma with like the following
(drakma:http-request "http://www.translationadmin.com" :preserve-uri t :additional-headers '((:accept . "text/html")))
I get the following for the 4th value, which is correct
#<PURI:URI http://www.translationadmin.com/login>
But if I use drakma async with the following
(as:with-event-loop (:catch-app-errors t)
(asf:multiple-future-bind (nil nil nil d)
(drakma-async:http-request "http://www.translationadmin.com" :preserve-uri t :additional-headers '((:accept . "text/html")))
(format t "~s" d)))
I get this which isnt correct :(
#<PURI:URI http://www.translationadmin.com/>
A declarative, efficient, and flexible JavaScript library for building user interfaces.
๐ Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
An Open Source Machine Learning Framework for Everyone
The Web framework for perfectionists with deadlines.
A PHP framework for web artisans
Bring data to life with SVG, Canvas and HTML. ๐๐๐
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
Some thing interesting about web. New door for the world.
A server is a program made to process requests and deliver data to clients.
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
Some thing interesting about visualization, use data art
Some thing interesting about game, make everyone happy.
We are working to build community through open source technology. NB: members must have two-factor auth.
Open source projects and samples from Microsoft.
Google โค๏ธ Open Source for everyone.
Alibaba Open Source for everyone
Data-Driven Documents codes.
China tencent open source team.