[bknr-cvs] edi changed trunk/thirdparty/drakma/ - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

28 Sep 2010

Revision: 4614
Author: edi
URL: http://bknr.net/trac/changeset/4614
Don't funcall keywords
U   trunk/thirdparty/drakma/CHANGELOG.txt
U   trunk/thirdparty/drakma/request.lisp
Modified: trunk/thirdparty/drakma/CHANGELOG.txt
===================================================================

--- trunk/thirdparty/drakma/CHANGELOG.txt	2010-09-17 14:31:09 UTC (rev 4613)
+++ trunk/thirdparty/drakma/CHANGELOG.txt	2010-09-28 16:16:38 UTC (rev 4614)
@@ -1,3 +1,5 @@
+Don't funcall symbols that aren't FBOUNDP (Faré Rideau)
+
 Version 1.2.3
 2010-08-05
 Fix UPDATE-COOKIES (Vsevolod Dyomkin)
Modified: trunk/thirdparty/drakma/request.lisp
===================================================================
--- trunk/thirdparty/drakma/request.lisp	2010-09-17 14:31:09 UTC (rev 4613)
+++ trunk/thirdparty/drakma/request.lisp	2010-09-28 16:16:38 UTC (rev 4614)
@@ -570,7 +570,9 @@
                 (write-header "Connection" "close"))
               (loop for (name . value) in additional-headers
                     do (write-header name "~A"
-                                     (cond ((or (functionp value) (symbolp value))
+                                     (cond ((or (functionp value)
+                                                (and (symbolp value)
+                                                     (fboundp value)))
                                             (funcall value))
                                            (t value))))
               (when content

    