From bknr at bknr.net Tue Feb 16 21:14:38 2010 From: bknr at bknr.net (BKNR Commits) Date: Tue, 16 Feb 2010 22:14:38 +0100 Subject: [bknr-cvs] hans changed deployed/quickhoney/ Message-ID: 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. From bknr at bknr.net Wed Feb 17 06:12:44 2010 From: bknr at bknr.net (BKNR Commits) Date: Wed, 17 Feb 2010 07:12:44 +0100 Subject: [bknr-cvs] hans changed trunk/thirdparty/hunchentoot/ Message-ID: 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." From bknr at bknr.net Thu Feb 18 11:02:42 2010 From: bknr at bknr.net (BKNR Commits) Date: Thu, 18 Feb 2010 12:02:42 +0100 Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-webdav/ Message-ID: 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 DOCUMENTATION-TEMPLATE.

-$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 $

BACK TO MY HOMEPAGE 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 From bknr at bknr.net Thu Feb 18 13:07:34 2010 From: bknr at bknr.net (BKNR Commits) Date: Thu, 18 Feb 2010 14:07:34 +0100 Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-webdav/ Message-ID: 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 > (tbnl:start-server :port 4242) +CL-USER 2 > (hunchentoot:start (make-instance 'hunchentoot:acceptor :port 4242)) #<HUNCHENTOOT::SERVER 200BCBCF> From bknr at bknr.net Sun Feb 21 13:14:22 2010 From: bknr at bknr.net (BKNR Commits) Date: Sun, 21 Feb 2010 14:14:22 +0100 Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-webdav/ Message-ID: 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 @@
 

Download and installation

CL-WEBDAV together with this documentation can be downloaded -from http://weitz.de/files/cl-webdav.tar.gz. The -current version is 0.1.2. It depends +from http://weitz.de/files/cl-webdav.tar.gz. The +current version is 0.2.0. It depends on Closure XML, CL-FAD, -and Hunchentoot, and can be -compiled and loaded with ASDF. +and Hunchentoot (version +1.1.0 or higher), and can be compiled and loaded +with ASDF.

A Mercurial 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 From bknr at bknr.net Sun Feb 21 13:14:50 2010 From: bknr at bknr.net (BKNR Commits) Date: Sun, 21 Feb 2010 14:14:50 +0100 Subject: [bknr-cvs] edi changed tags/thirdparty/cl-webdav-0.2.0/ Message-ID: 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/ From bknr at bknr.net Sun Feb 21 13:24:29 2010 From: bknr at bknr.net (BKNR Commits) Date: Sun, 21 Feb 2010 14:24:29 +0100 Subject: [bknr-cvs] edi changed trunk/thirdparty/hunchentoot/ Message-ID: 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)) From bknr at bknr.net Fri Feb 26 11:39:22 2010 From: bknr at bknr.net (BKNR Commits) Date: Fri, 26 Feb 2010 12:39:22 +0100 Subject: [bknr-cvs] hans changed deployed/bos/projects/bos/m2/m2.lisp Message-ID: 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)