February 2009 - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/
by BKNR Commits 26 Feb '09

26 Feb '09

Revision: 4323 Author: hans URL: http://bknr.net/trac/changeset/4323 re-add usocket condition mapping U trunk/thirdparty/hunchentoot/acceptor.lisp U trunk/thirdparty/hunchentoot/headers.lisp U trunk/thirdparty/hunchentoot/request.lisp U trunk/thirdparty/hunchentoot/util.lisp Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2009-02-25 07:44:09 UTC (rev 4322) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2009-02-26 13:17:12 UTC (rev 4323) @@ -286,7 +286,8 @@ (lambda (cond) (log-message *lisp-warnings-log-level* "Warning while processing connection: ~A" cond)))) - (call-next-method))) + (with-mapped-conditions () + (call-next-method)))) (defmethod process-connection ((*acceptor* acceptor) (socket t)) (let ((*hunchentoot-stream* Modified: trunk/thirdparty/hunchentoot/headers.lisp =================================================================== --- trunk/thirdparty/hunchentoot/headers.lisp 2009-02-25 07:44:09 UTC (rev 4322) +++ trunk/thirdparty/hunchentoot/headers.lisp 2009-02-26 13:17:12 UTC (rev 4323) @@ -230,15 +230,21 @@ (start-output)) (defun read-initial-request-line (stream) - "Reads and returns the initial HTTP request line, catching permitted -errors and handling *BREAK-EVEN-WHILE-READING-REQUEST-TYPE-P*. If no -request could be read, returns NIL." + "Reads and returns the initial HTTP request line, catching permitted errors +and handling *BREAK-EVEN-WHILE-READING-REQUEST-TYPE-P*. If no request could +be read, returns NIL. At this point, both an end-of-file as well as a +timeout condition are normal. end-of-file will occur when the client has +decided to not send another request but close the connection. A timeout +indicates that the connection timeout established by Hunchentoot has expired +and we do not want to wait for another request any longer." (let ((*break-on-signals* (and *break-even-while-reading-request-type-p* *break-on-signals*))) (handler-case (let ((*current-error-message* "While reading initial request line:")) - (read-line* stream)) - ((or end-of-file #-:lispworks usocket:timeout-error) () + (with-mapped-conditions () + (read-line* stream))) + ((or end-of-file + #-:lispworks usocket:timeout-error) () nil)))) (defun get-request-data (stream) Modified: trunk/thirdparty/hunchentoot/request.lisp =================================================================== --- trunk/thirdparty/hunchentoot/request.lisp 2009-02-25 07:44:09 UTC (rev 4322) +++ trunk/thirdparty/hunchentoot/request.lisp 2009-02-26 13:17:12 UTC (rev 4323) @@ -216,37 +216,38 @@ doing." (let (*tmp-files* *headers-sent*) (unwind-protect - (let* ((*request* request)) - (multiple-value-bind (body error) - (catch 'handler-done - (handler-bind ((error - (lambda (cond) - (when *log-lisp-errors-p* - (log-message *lisp-errors-log-level* "~A" cond)) - ;; if the headers were already sent - ;; the error happens within the body - ;; and we have to close the stream - (when *headers-sent* - (setq *close-hunchentoot-stream* t)) - (throw 'handler-done - (values nil cond)))) - (warning - (lambda (cond) - (when *log-lisp-warnings-p* - (log-message *lisp-warnings-log-level* "~A" cond))))) - ;; skip dispatch if bad request - (when (eql (return-code *reply*) +http-ok+) - ;; now do the work - (funcall (acceptor-request-dispatcher *acceptor*) *request*)))) - (when error - (setf (return-code *reply*) - +http-internal-server-error+)) - (start-output :content (cond ((and error *show-lisp-errors-p*) - (format nil "<pre>~A</pre>" - (escape-for-html (format nil "~A" error)))) - (error - "An error has occured.") - (t body))))) + (with-mapped-conditions () + (let* ((*request* request)) + (multiple-value-bind (body error) + (catch 'handler-done + (handler-bind ((error + (lambda (cond) + (when *log-lisp-errors-p* + (log-message *lisp-errors-log-level* "~A" cond)) + ;; if the headers were already sent + ;; the error happens within the body + ;; and we have to close the stream + (when *headers-sent* + (setq *close-hunchentoot-stream* t)) + (throw 'handler-done + (values nil cond)))) + (warning + (lambda (cond) + (when *log-lisp-warnings-p* + (log-message *lisp-warnings-log-level* "~A" cond))))) + ;; skip dispatch if bad request + (when (eql (return-code *reply*) +http-ok+) + ;; now do the work + (funcall (acceptor-request-dispatcher *acceptor*) *request*)))) + (when error + (setf (return-code *reply*) + +http-internal-server-error+)) + (start-output :content (cond ((and error *show-lisp-errors-p*) + (format nil "<pre>~A</pre>" + (escape-for-html (format nil "~A" error)))) + (error + "An error has occured.") + (t body)))))) (dolist (path *tmp-files*) (when (and (pathnamep path) (probe-file path)) ;; the handler may have chosen to (re)move the uploaded Modified: trunk/thirdparty/hunchentoot/util.lisp =================================================================== --- trunk/thirdparty/hunchentoot/util.lisp 2009-02-25 07:44:09 UTC (rev 4322) +++ trunk/thirdparty/hunchentoot/util.lisp 2009-02-26 13:17:12 UTC (rev 4323) @@ -320,3 +320,11 @@ "Whether the current connection to the client is secure." (acceptor-ssl-p acceptor)) +(defmacro with-mapped-conditions (() &body body) + "Run BODY with usocket condition mapping in effect, i.e. platform specific network errors will be + signalled as usocket conditions. For Lispworks, no mapping is performed." + #+:lispworks + `(progn ,@body) + #-:lispworks + `(usocket:with-mapped-conditions () + ,@body)) \ No newline at end of file

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 25 Feb '09

25 Feb '09

Revision: 4322 Author: edi URL: http://bknr.net/trac/changeset/4322 Fix send-cookie-p U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/cookies.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-24 13:40:22 UTC (rev 4321) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2009-02-25 07:44:09 UTC (rev 4322) @@ -1,3 +1,5 @@ +Make SEND-COOKIE-P work for pathless URIs (thanks to Tomo Matsumoto) + Version 1.0.0 2009-02-19 Use the new ("binary") version of Chunga Modified: trunk/thirdparty/drakma/cookies.lisp =================================================================== --- trunk/thirdparty/drakma/cookies.lisp 2009-02-24 13:40:22 UTC (rev 4321) +++ trunk/thirdparty/drakma/cookies.lisp 2009-02-25 07:44:09 UTC (rev 4322) @@ -111,7 +111,7 @@ (and ;; check domain (cookie-domain-matches (cookie-domain cookie) uri) ;; check path - (starts-with-p (uri-path uri) (cookie-path cookie)) + (starts-with-p (or (uri-path uri) "/") (cookie-path cookie)) ;; check expiry date (let ((expires (cookie-expires cookie))) (or (null expires)

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/cfp.xml
by BKNR Commits 24 Feb '09

24 Feb '09

Revision: 4321 Author: dverna URL: http://bknr.net/trac/changeset/4321 CfP update U trunk/projects/lisp-ecoop/website/templates/cfp.xml Modified: trunk/projects/lisp-ecoop/website/templates/cfp.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/cfp.xml 2009-02-24 10:31:19 UTC (rev 4320) +++ trunk/projects/lisp-ecoop/website/templates/cfp.xml 2009-02-24 13:40:22 UTC (rev 4321) @@ -14,10 +14,10 @@ Submission deadline: April 08, 2009 Notification of acceptance: May 08, 2009 ECOOP early registration deadline: May 20, 2009 -5th European Lisp Workshop: July 06, 2009 +6th European Lisp Workshop: July 06, 2009 Please note that registration must be done with ECOOP itself. -For more information visit http://elw.bknr.net/2009/ +For more information visit http://elw.bknr.net/2009 Contact: Didier Verna, didier(a)lrde.epita.fr @@ -31,7 +31,7 @@ Overview ======== "...Please don't assume Lisp is only useful for Animation and -Graphics, AI, Bioinformatics, B2B and E-Commerce, Data Mining, +Graphics, AI, Bio-informatics, B2B and E-Commerce, Data Mining, EDA/Semiconductor applications, Expert Systems, Finance, Intelligent Agents, Knowledge Management, Mechanical CAD, Modeling and Simulation, Natural Language, Optimization, Research, Risk Analysis, Scheduling, @@ -77,7 +77,7 @@ - Hardware Support - Efficiency / Distribution / Parallel programming - Macro-, reflective-, meta- and/or rule-based development approaches -- Protocol Metaprogramming and Libraries +- Protocol Meta-programming and Libraries - Context-Oriented, Domain-Oriented and Generative Programming @@ -85,7 +85,7 @@ ========================================= Additionally, we invite less formal talks in the form of interactive tutorial/demo/coding sessions. The purpose of these sessions is to -both demonstrate and recieve feedback on any interesting Lisp system, +both demonstrate and receive feedback on any interesting Lisp system, either stable or under development. Being less formal than technical paper presentations, it is expected that these sessions be highly interactive.

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-gd-0.5.6/
by BKNR Commits 24 Feb '09

24 Feb '09

Revision: 4320 Author: edi URL: http://bknr.net/trac/changeset/4320 Tag current CL-GD version A tags/thirdparty/cl-gd-0.5.6/ Copied: tags/thirdparty/cl-gd-0.5.6 (from rev 4319, trunk/thirdparty/cl-gd)

1 0

[bknr-cvs] hans changed trunk/bknr/web/src/web/handlers.lisp
by BKNR Commits 24 Feb '09

24 Feb '09

Revision: 4319 Author: hans URL: http://bknr.net/trac/changeset/4319 If redirection target does not begin with a slash, only warn. U trunk/bknr/web/src/web/handlers.lisp Modified: trunk/bknr/web/src/web/handlers.lisp =================================================================== --- trunk/bknr/web/src/web/handlers.lisp 2009-02-24 10:27:56 UTC (rev 4318) +++ trunk/bknr/web/src/web/handlers.lisp 2009-02-24 10:29:08 UTC (rev 4319) @@ -377,9 +377,8 @@ ((to :initarg :to :reader redirect-handler-to :documentation "url to redirect to"))) (defmethod initialize-instance :after ((handler redirect-handler) &key to) - (assert (equal #\/ (aref to 0)) - () "path ~S provided as target to redirect-handler does not begin with a slash" - to)) + (unless (equal #\/ (aref to 0)) + (warn "path ~S provided as target to redirect-handler does not begin with a slash" to))) (defmethod handle ((page-handler redirect-handler)) (redirect (redirect-handler-to page-handler)))

1 0

[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/
by BKNR Commits 24 Feb '09

24 Feb '09

Revision: 4318 Author: hans URL: http://bknr.net/trac/changeset/4318 Fix loading, / redirection. U trunk/projects/lisp-ecoop/src/load.lisp U trunk/projects/lisp-ecoop/src/webserver.lisp Modified: trunk/projects/lisp-ecoop/src/load.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/load.lisp 2009-02-23 17:24:33 UTC (rev 4317) +++ trunk/projects/lisp-ecoop/src/load.lisp 2009-02-24 10:27:56 UTC (rev 4318) @@ -5,7 +5,7 @@ #+sbcl (require 'sb-posix) #+sbcl (assert (eql sb-impl::*default-external-format* :utf-8)) -(load (compile-file "../../../thirdparty/asdf/asdf.lisp")) +(load "../../../thirdparty/asdf/asdf.fasl") (defun setup-registry () (format t "; setting up ASDF registry, please be patient...") @@ -20,7 +20,11 @@ (setup-registry) (push :cl-gd-gif *features*) +(asdf:oos 'asdf:load-op :cffi) +(cffi:load-foreign-library "../../../thirdparty/cl-gd/cl-gd-glue.so") +(format t "~&; loaded cl-gd-glue.so~%") + (asdf:oos 'asdf:load-op :lisp-ecoop) (asdf:oos 'asdf:load-op :swank) Modified: trunk/projects/lisp-ecoop/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/webserver.lisp 2009-02-23 17:24:33 UTC (rev 4317) +++ trunk/projects/lisp-ecoop/src/webserver.lisp 2009-02-24 10:27:56 UTC (rev 4318) @@ -24,7 +24,7 @@ mailinglist mailinglist-registration participants schedule - ("/" redirect-handler :to "/home") + ("/" redirect-handler :to "http://elw2009.bknr.net/home") ("/static" directory-handler :destination ,(probe-file (merge-pathnames #p"static/" *website-directory*)))) :admin-navigation nil

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/toplevel.xml
by BKNR Commits 23 Feb '09

23 Feb '09

Revision: 4317 Author: dverna URL: http://bknr.net/trac/changeset/4317 Update toplevel U trunk/projects/lisp-ecoop/website/templates/toplevel.xml Modified: trunk/projects/lisp-ecoop/website/templates/toplevel.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/toplevel.xml 2009-02-23 16:55:27 UTC (rev 4316) +++ trunk/projects/lisp-ecoop/website/templates/toplevel.xml 2009-02-23 17:24:33 UTC (rev 4317) @@ -7,16 +7,16 @@ xmlns:bknr="http://bknr.net" xmlns:menu="http://bknr.net/menu"> <head> - <title>LISP-ECOOP08 - $(title)</title> + <title>ELW 2009 - $(title)</title> <link rel="stylesheet" type="text/css" href="$(base)static/styles.css" /> <script src="$(base)static/javascript.js" language="javascript" type="text/javascript"> </script> </head> <body> <div id="banner"> - <div id="title">5th European Lisp Workshop</div> - <div id="subtitle">Co-located with <a href="http://2008.ecoop.org/" -target="_new">ECOOP 2008</a><br />July 07 - Paphos, Cyprus</div> + <div id="title">6th European Lisp Workshop</div> + <div id="subtitle">Co-located with <a href="http://2009.ecoop.org/" +target="_new">ECOOP 2009</a><br />July 06 - Genova, Italy</div> <div id="logo"> <a href="http://bknr.net/" target="_new"> <img width="57" height="20" alt="BKNR Logo" src="$(base)image/bknr-logo/thumbnail,,57,20" border="0" /> @@ -41,11 +41,11 @@ <div id="login"> <lisp-ecoop:login-widget /> </div> - <div class="site-menu"> - <div class="site-menu-inactive"> - <a href="http://elw.bknr.net/">ELW Home</a> - </div> - </div> + <div class="site-menu"> + <div class="site-menu-inactive"> + <a href="http://elw.bknr.net/">ELW Home</a> + </div> + </div> </div> <div id="content"> <bknr:tag-body />

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/news.xml
by BKNR Commits 23 Feb '09

23 Feb '09

Revision: 4316 Author: dverna URL: http://bknr.net/trac/changeset/4316 Update the news page U trunk/projects/lisp-ecoop/website/templates/news.xml Modified: trunk/projects/lisp-ecoop/website/templates/news.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/news.xml 2009-02-23 16:53:08 UTC (rev 4315) +++ trunk/projects/lisp-ecoop/website/templates/news.xml 2009-02-23 16:55:27 UTC (rev 4316) @@ -39,7 +39,8 @@ <ul> <li> This year, and for the first time, the workshop proceedings will be - published in the ACM Digital Library. + published in the ACM Digital Library. Also, the workshop will feature + interactive tutorial/demo/coding sessions. </li> <li>Launched the workshop website.</li> </ul>

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/
by BKNR Commits 23 Feb '09

23 Feb '09

Revision: 4315 Author: dverna URL: http://bknr.net/trac/changeset/4315 Misc fixes in homepage and headers U trunk/projects/lisp-ecoop/website/templates/home.xml U trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl Modified: trunk/projects/lisp-ecoop/website/templates/home.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/home.xml 2009-02-23 16:49:20 UTC (rev 4314) +++ trunk/projects/lisp-ecoop/website/templates/home.xml 2009-02-23 16:53:08 UTC (rev 4315) @@ -3,7 +3,7 @@ <lisp-ecoop:page name="home" xmlns:lisp-ecoop="http://elw.bknr.net/"> -<h1>5th European Lisp Workshop</h1> +<h1>6th European Lisp Workshop</h1> <p>July 06 - Genova, Italy - co-located with ECOOP 2009</p> @@ -37,6 +37,9 @@ This year, and for the first time, the workshop proceedings will be published in the ACM Digital Library. </li> + <li> + Also, the workshop will feature interactive tutorial/demo/coding sessions. + </li>  <!-- <li> Modified: trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl =================================================================== --- trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl 2009-02-23 16:49:20 UTC (rev 4314) +++ trunk/projects/lisp-ecoop/website/templates/lisp-ecoop.xsl 2009-02-23 16:53:08 UTC (rev 4315) @@ -14,15 +14,15 @@ <html xmlns="http://www.w3.org/1999/xhtml"> <head> - <title>European Lisp Workshop 2008 - $(title)</title> + <title>European Lisp Workshop 2009 - $(title)</title> <link rel="stylesheet" type="text/css" href="../static/styles.css" /> <script src="../static/javascript.js" language="javascript" type="text/javascript"> </script> </head> <body> <div id="banner"> - <div id="title">5th European Lisp Workshop</div> - <div id="subtitle">Co-located with <a href="http://2008.ecoop.org/" - target="_new">ECOOP 2008</a><br />July 07 - Paphos, Cyprus</div> + <div id="title">6th European Lisp Workshop</div> + <div id="subtitle">Co-located with <a href="http://2009.ecoop.org/" + target="_new">ECOOP 2009</a><br />July 06 - Genova, Italy</div> <div id="logo"> <a href="http://bknr.net/" target="_new"> <img width="57" height="20" alt="BKNR Logo" src="/static/bknr-logo.png" border="0" />

1 0

[bknr-cvs] dverna changed trunk/projects/lisp-ecoop/website/templates/contact.xml
by BKNR Commits 23 Feb '09

23 Feb '09

Revision: 4314 Author: dverna URL: http://bknr.net/trac/changeset/4314 Link to Charlotte's website U trunk/projects/lisp-ecoop/website/templates/contact.xml Modified: trunk/projects/lisp-ecoop/website/templates/contact.xml =================================================================== --- trunk/projects/lisp-ecoop/website/templates/contact.xml 2009-02-23 16:47:25 UTC (rev 4313) +++ trunk/projects/lisp-ecoop/website/templates/contact.xml 2009-02-23 16:49:20 UTC (rev 4314) @@ -13,7 +13,8 @@ EPITA Research and Development Laboratory, Paris, France (contact organizer) </li> <li> - Charlotte Herzeel, Programming Technology Lab, Vrije Universiteit, Brussel, + <a href="http://prog.vub.ac.be/~cherzeel/">Charlotte Herzeel</a>, + Programming Technology Lab, Vrije Universiteit, Brussel, Belgium </li> <li>

1 0