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

[bknr-cvs] hans changed deployed/bos/projects/bos/m2/m2.lisp
by BKNR Commits 26 Feb '10

26 Feb '10

Revision: 4517 Author: hans URL: http://bknr.net/trac/changeset/4517 fail gracefully when pdf cannot be read U deployed/bos/projects/bos/m2/m2.lisp Modified: deployed/bos/projects/bos/m2/m2.lisp =================================================================== --- deployed/bos/projects/bos/m2/m2.lisp 2010-02-21 13:24:29 UTC (rev 4516) +++ deployed/bos/projects/bos/m2/m2.lisp 2010-02-26 11:39:21 UTC (rev 4517) @@ -368,12 +368,16 @@ (defmethod contract-issue-cert ((contract contract) name &key address language) (when (contract-cert-issued contract) (warn "re-issuing cert for ~A" contract)) - (contract-delete-certificate-files contract) - (make-certificate contract name :address address :language language) - (when (and (equal language "de") - (not (contract-download-only-p contract))) - (make-certificate contract name :address address :language language :print t)) - (change-slot-values contract 'cert-issued t)) + (handler-case + (progn + (contract-delete-certificate-files contract) + (make-certificate contract name :address address :language language) + (when (and (equal language "de") + (not (contract-download-only-p contract))) + (make-certificate contract name :address address :language language :print t)) + (change-slot-values contract 'cert-issued t)) + (error (e) + (warn "error generating certificate: ~A" e)))) (defmethod contract-image-tiles ((contract contract)) (let (image-tiles)

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
by BKNR Commits 21 Feb '10

21 Feb '10

Revision: 4516 Author: edi URL: http://bknr.net/trac/changeset/4516 Prevent potential leaks U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/acceptor.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2010-02-21 13:14:50 UTC (rev 4515) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2010-02-21 13:24:29 UTC (rev 4516) @@ -1,3 +1,6 @@ +Prevent potential leak when closing stream (Matt Lamari, Martin Simmons) +Change some occurrences of HANDLER-CASE* to HANDLER-CASE (Hans Hübner, Allan Dee) + Version 1.1.0 2010-01-08 Architectural changes - see HANDLE-REQUEST (thanks to Andreas Fuchs and Frode Fjeld) Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2010-02-21 13:14:50 UTC (rev 4515) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2010-02-21 13:24:29 UTC (rev 4516) @@ -346,7 +346,8 @@ ;; errors that may occur while flushing and/or closing the ;; stream. (ignore-errors* - (force-output *hunchentoot-stream*) + (force-output *hunchentoot-stream*)) + (ignore-errors* (close *hunchentoot-stream* :abort t)))))) (defmethod acceptor-ssl-p ((acceptor t))

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-webdav-0.2.0/
by BKNR Commits 21 Feb '10

21 Feb '10

Revision: 4515 Author: edi URL: http://bknr.net/trac/changeset/4515 Tag cl-webdav 0.2.0 A tags/thirdparty/cl-webdav-0.2.0/

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-webdav/
by BKNR Commits 21 Feb '10

21 Feb '10

Revision: 4514 Author: edi URL: http://bknr.net/trac/changeset/4514 More compatibility fixes from Matthew Prepare for 0.2.0 release U trunk/thirdparty/cl-webdav/CHANGELOG.txt U trunk/thirdparty/cl-webdav/authorized-file-resources.lisp U trunk/thirdparty/cl-webdav/cl-webdav.asd U trunk/thirdparty/cl-webdav/doc/index.html U trunk/thirdparty/cl-webdav/file-resources.lisp U trunk/thirdparty/cl-webdav/handlers.lisp U trunk/thirdparty/cl-webdav/packages.lisp U trunk/thirdparty/cl-webdav/properties.lisp U trunk/thirdparty/cl-webdav/resources.lisp U trunk/thirdparty/cl-webdav/specials.lisp U trunk/thirdparty/cl-webdav/util.lisp U trunk/thirdparty/cl-webdav/xml.lisp Modified: trunk/thirdparty/cl-webdav/CHANGELOG.txt =================================================================== --- trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,3 +1,5 @@ +Version 0.2.0 +2010-02-21 Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon, Matthew Curry, and Ralf Mattes) Version 0.1.2 Modified: trunk/thirdparty/cl-webdav/authorized-file-resources.lisp =================================================================== --- trunk/thirdparty/cl-webdav/authorized-file-resources.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/authorized-file-resources.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/authorized-file-resources.lisp,v 1.7 2007/04/18 19:21:00 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/cl-webdav.asd =================================================================== --- trunk/thirdparty/cl-webdav/cl-webdav.asd 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/cl-webdav.asd 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/cl-webdav.asd,v 1.7 2007/10/21 21:20:56 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -29,7 +29,7 @@ (asdf:defsystem :cl-webdav :serial t - :version "0.1.2" + :version "0.2.0" :components ((:file "packages") (:file "specials") (:file "util") Modified: trunk/thirdparty/cl-webdav/doc/index.html =================================================================== --- trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/doc/index.html 2010-02-21 13:14:21 UTC (rev 4514) @@ -74,13 +74,13 @@ <br> <br><h3><a class=none name="download">Download and installation</a></h3> CL-WEBDAV together with this documentation can be downloaded -from <a -href="http://weitz.de/files/cl-webdav.tar.gz">http://weitz.de/files/cl-webdav.tar.gz</a>. The -current version is 0.1.2. It depends +from <a href="http://weitz.de/files/cl-webdav.tar.gz">http://weitz.de/files/cl-webdav.tar.gz</a>. The +current version is 0.2.0. It depends on <a href="http://common-lisp.net/project/cxml/">Closure XML</a>, <a href="http://weitz.de/cl-fad/">CL-FAD</a>, -and <a href="http://weitz.de/hunchentoot/">Hunchentoot</a>, and can be -compiled and loaded with <a href="http://www.cliki.net/asdf">ASDF</a>. +and <a href="http://weitz.de/hunchentoot/">Hunchentoot</a> (version +1.1.0 or higher), and can be compiled and loaded +with <a href="http://www.cliki.net/asdf">ASDF</a>. <p> A <a href="http://www.selenic.com/mercurial/wiki/">Mercurial</a> repository of older versions is available Modified: trunk/thirdparty/cl-webdav/file-resources.lisp =================================================================== --- trunk/thirdparty/cl-webdav/file-resources.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/file-resources.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/file-resources.lisp,v 1.7 2007/04/18 19:21:00 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/handlers.lisp =================================================================== --- trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/handlers.lisp,v 1.13 2007/05/19 22:34:35 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -176,7 +176,7 @@ (setf (header-out :content-language) content-language)) (handle-if-modified-since write-date) (when (equal etag (header-in* :if-none-match)) - (setf (return-code) +http-not-modified+) + (setf (return-code*) +http-not-modified+) (abort-request-handler)) (setf (header-out :last-modified) (rfc-1123-date write-date) (content-length*) (resource-length resource)) Modified: trunk/thirdparty/cl-webdav/packages.lisp =================================================================== --- trunk/thirdparty/cl-webdav/packages.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/packages.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/packages.lisp,v 1.16 2007/04/18 19:49:32 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/properties.lisp =================================================================== --- trunk/thirdparty/cl-webdav/properties.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/properties.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/properties.lisp,v 1.9 2008/06/25 08:04:25 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/resources.lisp =================================================================== --- trunk/thirdparty/cl-webdav/resources.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/resources.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/resources.lisp,v 1.12 2007/04/18 19:21:00 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/specials.lisp =================================================================== --- trunk/thirdparty/cl-webdav/specials.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/specials.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/specials.lisp,v 1.10 2008/06/25 08:02:17 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/util.lisp =================================================================== --- trunk/thirdparty/cl-webdav/util.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/util.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/util.lisp,v 1.3 2007/04/17 07:42:08 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -36,7 +36,7 @@ `(defun ,name () ,(format nil "Sets RETURN-CODE to ~A and then calls ABORT-REQUEST-HANDLER." return-code) - (setf (return-code) ,return-code) + (setf (return-code*) ,return-code) (abort-request-handler))) (define-return-code-shortcut not-implemented +http-not-implemented+) Modified: trunk/thirdparty/cl-webdav/xml.lisp =================================================================== --- trunk/thirdparty/cl-webdav/xml.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/xml.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/xml.lisp,v 1.10 2007/10/21 21:20:56 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-webdav/
by BKNR Commits 18 Feb '10

18 Feb '10

Revision: 4513 Author: edi URL: http://bknr.net/trac/changeset/4513 Doc patch from Ralf Mattes U trunk/thirdparty/cl-webdav/CHANGELOG.txt U trunk/thirdparty/cl-webdav/doc/index.html Modified: trunk/thirdparty/cl-webdav/CHANGELOG.txt =================================================================== --- trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-18 11:02:41 UTC (rev 4512) +++ trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-18 13:07:34 UTC (rev 4513) @@ -1,4 +1,4 @@ -Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon and Matthew Curry) +Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon, Matthew Curry, and Ralf Mattes) Version 0.1.2 2007-10-21 Modified: trunk/thirdparty/cl-webdav/doc/index.html =================================================================== --- trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 11:02:41 UTC (rev 4512) +++ trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 13:07:34 UTC (rev 4513) @@ -97,6 +97,7 @@ (#<Closure ((METHOD CL-WEBDAV:CREATE-DAV-DISPATCHER (SYMBOL)) . 1) 200B8992> HUNCHENTOOT:DEFAULT-DISPATCHER) CL-USER 2 > (<a href="http://weitz.de/hunchentoot/#start-server" class=noborder>tbnl:start-server</a> :port 4242) +CL-USER 2 > (<a href="http://weitz.de/hunchentoot/#start" class=noborder>hunchentoot:start</a> (make-instance <a class="noborder" href="http://weitz.de/hunchentoot/#acceptor">'hunchentoot:acceptor</a> :port 4242)) #<HUNCHENTOOT::SERVER 200BCBCF> </pre>

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-webdav/
by BKNR Commits 18 Feb '10

18 Feb '10

Revision: 4512 Author: edi URL: http://bknr.net/trac/changeset/4512 Changes from Matthew Curry (finally...) D trunk/thirdparty/cl-webdav/doc/CVS/ U trunk/thirdparty/cl-webdav/doc/index.html U trunk/thirdparty/cl-webdav/handlers.lisp U trunk/thirdparty/cl-webdav/resources.lisp Modified: trunk/thirdparty/cl-webdav/doc/index.html =================================================================== --- trunk/thirdparty/cl-webdav/doc/index.html 2010-02-17 06:12:43 UTC (rev 4511) +++ trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 11:02:41 UTC (rev 4512) @@ -1194,7 +1194,7 @@ This documentation was prepared with <a href="http://weitz.de/documentation-template/">DOCUMENTATION-TEMPLATE</a>. </p> <p> -$Header: /usr/local/cvsrep/cl-webdav/doc/index.html,v 1.18 2007/10/21 21:20:59 edi Exp $ +$Header: /usr/local/cvsrep/cl-webdav/doc/index.html,v 1.20 2009/02/17 20:17:30 edi Exp $ <p><a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a> </body> Modified: trunk/thirdparty/cl-webdav/handlers.lisp =================================================================== --- trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-17 06:12:43 UTC (rev 4511) +++ trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-18 11:02:41 UTC (rev 4512) @@ -102,8 +102,8 @@ (not-found)) (multiple-value-bind (properties propname) (parse-propfind (raw-post-data :force-binary t)) - (setf (content-type) "text/xml; charset=utf-8" - (return-code) +http-multi-status+) + (setf (content-type*) "text/xml; charset=utf-8" + (return-code*) +http-multi-status+) (let ((result ;; loop through the resource and its descendants until ;; depth limit is reached @@ -145,8 +145,8 @@ (push (cons +http-conflict+ property) results)) (t (funcall property-handler resource property) (push (cons +http-ok+ property) results)))))) - (setf (content-type) "text/xml; charset=utf-8" - (return-code) +http-multi-status+) + (setf (content-type*) "text/xml; charset=utf-8" + (return-code*) +http-multi-status+) (serialize-xmls-node (dav-node "multistatus" (apply #'dav-node "response" @@ -169,7 +169,7 @@ (let ((etag (resource-etag resource)) (write-date (resource-write-date resource)) (content-language (resource-content-language resource))) - (setf (content-type) (resource-content-type resource)) + (setf (content-type*) (resource-content-type resource)) (when etag (setf (header-out :etag) etag)) (when content-language @@ -179,7 +179,7 @@ (setf (return-code) +http-not-modified+) (abort-request-handler)) (setf (header-out :last-modified) (rfc-1123-date write-date) - (content-length) (resource-length resource)) + (content-length*) (resource-length resource)) (unless head-request-p (send-content resource (send-headers)))))) @@ -196,10 +196,10 @@ response will be generated and DEFAULT-RETURN-CODE will be used instead." (unless results - (setf (return-code) default-return-code) + (setf (return-code*) default-return-code) (abort-request-handler)) - (setf (content-type) "text/xml; charset=utf-8" - (return-code) +http-multi-status+) + (setf (content-type*) "text/xml; charset=utf-8" + (return-code*) +http-multi-status+) ;; use a hash table to group by status code (let ((status-hash (make-hash-table))) (loop for (status . resource) in results @@ -295,8 +295,8 @@ (failed-dependency))) (let ((results (copy-or-move-resource* source destination movep depth-value))) (cond (results (multi-status results)) - (destination-exists (setf (return-code) +http-no-content+ - (content-type) nil) + (destination-exists (setf (return-code*) +http-no-content+ + (content-type*) nil) nil) (t (resource-created destination)))))))) @@ -322,7 +322,7 @@ (error (condition) (warn "While trying to create collection ~S: ~A" (resource-script-name resource) condition) - (setf (return-code) +http-internal-server-error+)) + (setf (return-code*) +http-internal-server-error+)) (:no-error (&rest args) (declare (ignore args)) (resource-created resource))))) \ No newline at end of file Modified: trunk/thirdparty/cl-webdav/resources.lisp =================================================================== --- trunk/thirdparty/cl-webdav/resources.lisp 2010-02-17 06:12:43 UTC (rev 4511) +++ trunk/thirdparty/cl-webdav/resources.lisp 2010-02-18 11:02:41 UTC (rev 4512) @@ -204,9 +204,9 @@ method if you're sitting behind a proxy.") (:method (resource) (format nil "http~:[~;s~]://~A~@[:~A~]/" - (ssl-p) - (ppcre:regex-replace ":\\d+$" (host) "") - (server-port)))) + (acceptor-ssl-p *acceptor*) + (ppcre:regex-replace ":\\d+$" (acceptor-address *acceptor*) "") + (acceptor-port *acceptor*)))) (defgeneric get-dead-properties (resource) (:documentation "This function must return all dead properties @@ -399,9 +399,9 @@ "Utility function which sets up Hunchentoot's *REPLY* object for a +HTTP-CREATED+ response corresponding to the newly-created resource RESOURCE." - (setf (content-type) (get-content-type resource) + (setf (content-type*) (get-content-type resource) (header-out :location) (resource-script-name resource) - (return-code) +http-created+) + (return-code*) +http-created+) (let ((etag (resource-etag resource)) (content-language (resource-content-language resource))) (when etag

1 0

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

17 Feb '10

Revision: 4511 Author: hans URL: http://bknr.net/trac/changeset/4511 Replace some uses of HANDLER-CASE* with HANDLER-CASE. These are catching specific error conditions which are internal to Hunchentoot and not relevant to a user who is debugging his own handlers. Reported by Allan Dee. U trunk/thirdparty/hunchentoot/acceptor.lisp U trunk/thirdparty/hunchentoot/headers.lisp U trunk/thirdparty/hunchentoot/request.lisp Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2010-02-16 21:14:38 UTC (rev 4510) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2010-02-17 06:12:43 UTC (rev 4511) @@ -375,7 +375,7 @@ (return)) (when (usocket:wait-for-input listener :ready-only t :timeout +new-connection-wait-time+) (when-let (client-connection - (handler-case* (usocket:socket-accept listener) + (handler-case (usocket:socket-accept listener) ;; ignore condition (usocket:connection-aborted-error ()))) (set-timeouts client-connection Modified: trunk/thirdparty/hunchentoot/headers.lisp =================================================================== --- trunk/thirdparty/hunchentoot/headers.lisp 2010-02-16 21:14:38 UTC (rev 4510) +++ trunk/thirdparty/hunchentoot/headers.lisp 2010-02-17 06:12:43 UTC (rev 4511) @@ -238,7 +238,7 @@ to close the connection instead, a timeout indicates that the connection timeout established by Hunchentoot has expired and we do not want to wait for another request any longer." - (handler-case* + (handler-case (let ((*current-error-message* "While reading initial request line:")) (with-mapped-conditions () (read-line* stream))) Modified: trunk/thirdparty/hunchentoot/request.lisp =================================================================== --- trunk/thirdparty/hunchentoot/request.lisp 2010-02-16 21:14:38 UTC (rev 4510) +++ trunk/thirdparty/hunchentoot/request.lisp 2010-02-17 06:12:43 UTC (rev 4511) @@ -283,7 +283,7 @@ (parse-content-type (header-in :content-type request)) (let ((external-format (or external-format (when charset - (handler-case* + (handler-case (make-external-format charset :eol-style :lf) (error () (hunchentoot-warn "Ignoring ~ @@ -467,7 +467,7 @@ returned." (when content-type (when-let (charset (nth-value 2 (parse-content-type content-type))) - (handler-case* + (handler-case (make-external-format (as-keyword charset) :eol-style :lf) (error () (hunchentoot-warn "Invalid character set ~S in request has been ignored."

1 0

[bknr-cvs] hans changed deployed/quickhoney/
by BKNR Commits 16 Feb '10

16 Feb '10

Revision: 4510 Author: hans URL: http://bknr.net/trac/changeset/4510 some minor fixes U deployed/quickhoney/bknr/datastore/src/utils/utils.lisp U deployed/quickhoney/bknr/web/src/web/menu.lisp U deployed/quickhoney/libraries/yason/yason.asd Modified: deployed/quickhoney/bknr/datastore/src/utils/utils.lisp =================================================================== --- deployed/quickhoney/bknr/datastore/src/utils/utils.lisp 2010-02-08 20:24:25 UTC (rev 4509) +++ deployed/quickhoney/bknr/datastore/src/utils/utils.lisp 2010-02-16 21:14:38 UTC (rev 4510) @@ -6,7 +6,7 @@ ,@(when doc (list doc)))) ;;; date format -;; Zeitzone fÃŒr Mail-Zeitstempel +;; Zeitzone fuer Mail-Zeitstempel (defparameter *mail-timezone* "+0100") (defun format-date-time (&optional universal-time &key stream Modified: deployed/quickhoney/bknr/web/src/web/menu.lisp =================================================================== --- deployed/quickhoney/bknr/web/src/web/menu.lisp 2010-02-08 20:24:25 UTC (rev 4509) +++ deployed/quickhoney/bknr/web/src/web/menu.lisp 2010-02-16 21:14:38 UTC (rev 4510) @@ -43,8 +43,7 @@ (declare (ignore menu-name)) (let* ((menu (bknr.impex:parse-xml-file #+cmu (ext:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - #+sbcl (sb-int:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - #-(or cmu sbcl) (namestring (probe-file (merge-pathnames config *default-pathname-defaults*))) + #-cmu (namestring (probe-file (merge-pathnames config *default-pathname-defaults*))) *menu-def-classes*))) (html ((:div :class container-class) Modified: deployed/quickhoney/libraries/yason/yason.asd =================================================================== --- deployed/quickhoney/libraries/yason/yason.asd 2010-02-08 20:24:25 UTC (rev 4509) +++ deployed/quickhoney/libraries/yason/yason.asd 2010-02-16 21:14:38 UTC (rev 4510) @@ -1,6 +1,6 @@ ;; This file is part of yason, a Common Lisp JSON parser/encoder ;; -;; Copyright (c) 2008 Hans Hübner +;; Copyright (c) 2008 Hans Huebner ;; All rights reserved. ;; ;; Please see the file LICENSE in the distribution.

1 0