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