[version 0.9.0
ediware**20070630050014] {
hunk ./CHANGELOG.txt 1
+Version 0.9.0
+2007-06-30
+Added reason phrase to return values (patch by Holger Dürer)
+
hunk ./doc/index.html 102
-Here's an example session with Drakma which demonstrates some of its
+Here's an example session with Drakma 0.3.0 which demonstrates some of its
hunk ./doc/index.html 642
-The current version is 0.8.0. Drakma can be installed
+The current version is 0.9.0. Drakma can be installed
hunk ./doc/index.html 713
-
+
hunk ./doc/index.html 717
-uri
is where the request is sent to, and it is
-either a string denoting
+uri
is where the
+request is sent to, and it is either a string denoting
hunk ./doc/index.html 724
-'https'. The function returns six values - the body of the
+'https'. The function returns seven values - the body of the
hunk ./doc/index.html 737
-from, and
+from,
hunk ./doc/index.html 741
-which you can usually ignore).
+which you can usually ignore), and finally the reason phrase from the
+status line as a string.
hunk ./doc/index.html 1402
-$Header: /usr/local/cvsrep/drakma/doc/index.html,v 1.72 2007/06/25 10:25:17 edi Exp $
+$Header: /usr/local/cvsrep/drakma/doc/index.html,v 1.73 2007/06/29 23:15:58 edi Exp $
hunk ./drakma.asd 2
-;;; $Header: /usr/local/cvsrep/drakma/drakma.asd,v 1.35 2007/06/25 10:25:15 edi Exp $
+;;; $Header: /usr/local/cvsrep/drakma/drakma.asd,v 1.36 2007/06/29 23:15:56 edi Exp $
hunk ./drakma.asd 37
-(defvar *drakma-version-string* "0.8.0"
+(defvar *drakma-version-string* "0.9.0"
hunk ./read.lisp 2
-;;; $Header: /usr/local/cvsrep/drakma/read.lisp,v 1.13 2007/01/01 23:45:55 edi Exp $
+;;; $Header: /usr/local/cvsrep/drakma/read.lisp,v 1.14 2007/06/29 23:15:56 edi Exp $
hunk ./read.lisp 58
- (and second-space-pos (subseq line second-space-pos)))))
+ (and second-space-pos (subseq line (1+ second-space-pos))))))
hunk ./read.lisp 128
+
hunk ./request.lisp 2
-;;; $Header: /usr/local/cvsrep/drakma/request.lisp,v 1.44 2007/06/17 20:43:59 edi Exp $
+;;; $Header: /usr/local/cvsrep/drakma/request.lisp,v 1.45 2007/06/29 23:15:56 edi Exp $
hunk ./request.lisp 171
- "Sends an 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 URI must be `http' or `https'. The function returns
-SIX values - the body of the reply \(but see below), the status
-code as an integer, an alist of the headers sent by the server
-where for each element the car \(the name of the header) is a
-keyword and the cdr \(the value of the header) is a string, the
-URI the reply comes from \(which might be different from the URI
-the request was sent to in case of redirects), the stream the
-reply was read from, and a generalized boolean which denotes
-whether the stream should be closed \(and which you can usually
-ignore).
+ "Sends an 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 URI
+must be `http' or `https'. The function returns SEVEN values - the
+body of the reply \(but see below), the status code as an integer, an
+alist of the headers sent by the server where for each element the car
+\(the name of the header) is a keyword and the cdr \(the value of the
+header) is a string, the URI the reply comes from \(which might be
+different from the URI the request was sent to in case of redirects),
+the stream the reply was read from, a generalized boolean which
+denotes whether the stream should be closed \(and which you can
+usually ignore), and finally the reason phrase from the status line as
+a string.
hunk ./request.lisp 515
- (multiple-value-bind (server-protocol status-code)
+ (multiple-value-bind (server-protocol status-code status-text)
hunk ./request.lisp 517
- (loop for (server-protocol status-code nil)
+ (loop for (server-protocol status-code status-text)
hunk ./request.lisp 523
- finally (return (values server-protocol status-code)))
+ finally (return (values server-protocol status-code status-text)))
hunk ./request.lisp 634
- must-close)))))
+ must-close
+ status-text)))))
}