From bknr at bknr.net  Mon Mar  2 09:59:51 2009
From: bknr at bknr.net (BKNR Commits)
Date: Mon, 02 Mar 2009 10:59:51 +0100
Subject: [bknr-cvs] hans changed
	trunk/projects/lisp-ecoop/website/templates/toplevel.xml
Message-ID: <E1Le4wB-000MVy-5B@paracetamol.bknr.net>

Revision: 4324
Author: hans
URL: http://bknr.net/trac/changeset/4324

change BKNR logo URL to be valid
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-26 13:17:12 UTC (rev 4323)
+++ trunk/projects/lisp-ecoop/website/templates/toplevel.xml	2009-03-02 09:59:50 UTC (rev 4324)
@@ -19,7 +19,7 @@
 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" />
+	  <img width="57" height="20" alt="BKNR Logo" src="http://elw.bknr.net/static/bknr-logo.png" border="0" />
 	</a>
       </div>
     </div>




From bknr at bknr.net  Mon Mar  2 17:19:33 2009
From: bknr at bknr.net (BKNR Commits)
Date: Mon, 02 Mar 2009 18:19:33 +0100
Subject: [bknr-cvs] dverna changed
	trunk/projects/lisp-ecoop/website/templates/cfp.xml
Message-ID: <E1LeBnh-000NbM-N9@paracetamol.bknr.net>

Revision: 4325
Author: dverna
URL: http://bknr.net/trac/changeset/4325

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-03-02 09:59:50 UTC (rev 4324)
+++ trunk/projects/lisp-ecoop/website/templates/cfp.xml	2009-03-02 17:19:33 UTC (rev 4325)
@@ -107,6 +107,13 @@
   pages) describing the involved library or application, and the
   subject of the session.
 
+Papers (both long and short) should be formatted following the ACM
+SIGS guidelines (see
+http://www.acm.org/sigs/publications/proceedings-templates) and
+include ACM classification categories and terms (see
+http://www.acm.org/about/class/1998). Authors will later be required
+to sign an ACM copyright form.
+
 Submissions should be mailed as PDF to Didier Verna
 (didier at lrde.epita.fr) before the submission deadline.
 




From bknr at bknr.net  Tue Mar  3 21:36:05 2009
From: bknr at bknr.net (BKNR Commits)
Date: Tue, 03 Mar 2009 22:36:05 +0100
Subject: [bknr-cvs] hans changed trunk/bknr/web/src/web/web-macros.lisp
Message-ID: <E1LecHV-00026P-PI@paracetamol.bknr.net>

Revision: 4326
Author: hans
URL: http://bknr.net/trac/changeset/4326

Add xmlns keyword argument to WITH-XML-RESPONSE macro

U   trunk/bknr/web/src/web/web-macros.lisp

Modified: trunk/bknr/web/src/web/web-macros.lisp
===================================================================
--- trunk/bknr/web/src/web/web-macros.lisp	2009-03-02 17:19:33 UTC (rev 4325)
+++ trunk/bknr/web/src/web/web-macros.lisp	2009-03-03 21:36:05 UTC (rev 4326)
@@ -104,7 +104,7 @@
 
 (defvar *xml-sink*)
 
-(defmacro with-xml-response ((&key (content-type "text/xml; charset=utf-8") root-element xsl-stylesheet-name)
+(defmacro with-xml-response ((&key (content-type "text/xml; charset=utf-8") root-element xsl-stylesheet-name xmlns)
                              &body body)
   `(with-http-response (:content-type ,content-type)
      (with-query-params (download)
@@ -114,10 +114,12 @@
      (with-output-to-string (s)
        (let ((*xml-sink* (cxml:make-character-stream-sink s :canonical nil)))
          (cxml:with-xml-output *xml-sink*
-           ,(when xsl-stylesheet-name
-                  `(sax:processing-instruction *xml-sink* "xml-stylesheet"
-                                               ,(format nil "type=\"text/xsl\" href=\"~A\"" xsl-stylesheet-name)))
+           ,@(when xsl-stylesheet-name
+                  `((sax:processing-instruction *xml-sink* "xml-stylesheet"
+                                                ,(format nil "type=\"text/xsl\" href=\"~A\"" xsl-stylesheet-name))))
            ,(if root-element
                 `(cxml:with-element ,root-element
+                   ,@(when xmlns
+                           `((attribute "xmlns" ,xmlns)))
                    , at body)
                 `(progn , at body)))))))
\ No newline at end of file




From bknr at bknr.net  Tue Mar  3 22:02:12 2009
From: bknr at bknr.net (BKNR Commits)
Date: Tue, 03 Mar 2009 23:02:12 +0100
Subject: [bknr-cvs] hans changed trunk/projects/bos/web/kml-
Message-ID: <E1Lecgm-0002JY-Ep@paracetamol.bknr.net>

Revision: 4327
Author: hans
URL: http://bknr.net/trac/changeset/4327

changes to make generated kml conform to the XML schema
U   trunk/projects/bos/web/kml-handlers.lisp
U   trunk/projects/bos/web/kml-utils.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2009-03-03 21:36:05 UTC (rev 4326)
+++ trunk/projects/bos/web/kml-handlers.lisp	2009-03-03 22:02:12 UTC (rev 4327)
@@ -229,12 +229,12 @@
             (with-element "longitude" (text "116.975859"))
             (with-element "latitude" (text "-1.044691"))
             (with-element "altitude" (text "0"))
-            (with-element "range" (text "11000"))
+            (with-element "heading" (text "0"))
             (with-element "tilt" (text "0"))
-            (with-element "heading" (text "0")))
+            (with-element "range" (text "11000")))
           (with-element "Folder"
-            (attribute "name" (dictionary-entry "Sat-Images" lang))
-            (attribute "open" "1")
+            (with-element "name" (text (dictionary-entry "Sat-Images" lang)))
+            (with-element "open" (text "1"))
             (dolist (sat-layer (sort (copy-list (class-instances 'sat-layer))
                                      #'< :key #'year))
               (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer))

Modified: trunk/projects/bos/web/kml-utils.lisp
===================================================================
--- trunk/projects/bos/web/kml-utils.lisp	2009-03-03 21:36:05 UTC (rev 4326)
+++ trunk/projects/bos/web/kml-utils.lisp	2009-03-03 22:02:12 UTC (rev 4327)
@@ -281,10 +281,10 @@
   ;; http-query could be added to &key args
   (with-element "NetworkLink"
     (when name (with-element "name" (text name)))
+    (when hide-children
+      (kml-hide-children-style))
     (when rect (kml-region rect lod))
     (when look-at (funcall look-at))
-    (when hide-children
-      (kml-hide-children-style))
     (when fly-to-view (with-element "flyToView" (text "1")))
     (kml-link href :refresh-on-region (and rect t))))
 




From bknr at bknr.net  Tue Mar  3 22:22:50 2009
From: bknr at bknr.net (BKNR Commits)
Date: Tue, 03 Mar 2009 23:22:50 +0100
Subject: [bknr-cvs] hans changed trunk/projects/bos/web/kml-handlers.lisp
Message-ID: <E1Led0k-0002Mn-NG@paracetamol.bknr.net>

Revision: 4328
Author: hans
URL: http://bknr.net/trac/changeset/4328

Add xmlns to generated kml

U   trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2009-03-03 22:02:12 UTC (rev 4327)
+++ trunk/projects/bos/web/kml-handlers.lisp	2009-03-03 22:22:50 UTC (rev 4328)
@@ -218,7 +218,7 @@
         (contract (when sponsor (first (sponsor-contracts sponsor)))))
     ;; only the first contract of SPONSOR will be shown
     (with-xml-response (:content-type #+nil "text/xml" "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                      :root-element "kml")
+                                      :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
       (with-query-params ((lang "en"))
         (with-element "Document"
           (with-element "name" (text "BOS"))
@@ -293,7 +293,7 @@
     (setf (hunchentoot:header-out :last-modified)
           (hunchentoot:rfc-1123-date timestamp))
     (with-xml-response (:content-type "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                      :root-element "kml")
+                                      :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
       (with-query-params ((lang "en"))
         (with-element "Document"
           (with-element "name" (text "Country-Stats"))          
@@ -348,7 +348,7 @@
 (defmethod handle-object ((handler look-at-allocation-area-handler)
                           (area allocation-area))
   (with-xml-response (:content-type "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                    :root-element "kml")
+                                    :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
     (with-element "Document"
       (with-element "name" (text (format nil "allocation-area ~D" (store-object-id area))))
       (kml-region (make-rectangle2 (allocation-area-bounding-box2 area))




From bknr at bknr.net  Tue Mar  3 22:27:55 2009
From: bknr at bknr.net (BKNR Commits)
Date: Tue, 03 Mar 2009 23:27:55 +0100
Subject: [bknr-cvs] hans changed trunk/bknr/web/src/web/web-macros.lisp
Message-ID: <E1Led5f-0002OC-Ou@paracetamol.bknr.net>

Revision: 4329
Author: hans
URL: http://bknr.net/trac/changeset/4329

Add namespace qualifier.

U   trunk/bknr/web/src/web/web-macros.lisp

Modified: trunk/bknr/web/src/web/web-macros.lisp
===================================================================
--- trunk/bknr/web/src/web/web-macros.lisp	2009-03-03 22:22:50 UTC (rev 4328)
+++ trunk/bknr/web/src/web/web-macros.lisp	2009-03-03 22:27:55 UTC (rev 4329)
@@ -120,6 +120,6 @@
            ,(if root-element
                 `(cxml:with-element ,root-element
                    ,@(when xmlns
-                           `((attribute "xmlns" ,xmlns)))
+                           `((cxml:attribute "xmlns" ,xmlns)))
                    , at body)
                 `(progn , at body)))))))
\ No newline at end of file




From bknr at bknr.net  Tue Mar  3 22:37:01 2009
From: bknr at bknr.net (BKNR Commits)
Date: Tue, 03 Mar 2009 23:37:01 +0100
Subject: [bknr-cvs] hans changed deployed/bos/
Message-ID: <E1LedET-0002Q7-Fh@paracetamol.bknr.net>

Revision: 4330
Author: hans
URL: http://bknr.net/trac/changeset/4330

merge kml changes
U   deployed/bos/bknr/web/src/web/web-macros.lisp
U   deployed/bos/projects/bos/web/kml-handlers.lisp
U   deployed/bos/projects/bos/web/kml-utils.lisp

Modified: deployed/bos/bknr/web/src/web/web-macros.lisp
===================================================================
--- deployed/bos/bknr/web/src/web/web-macros.lisp	2009-03-03 22:27:55 UTC (rev 4329)
+++ deployed/bos/bknr/web/src/web/web-macros.lisp	2009-03-03 22:37:01 UTC (rev 4330)
@@ -104,7 +104,7 @@
 
 (defvar *xml-sink*)
 
-(defmacro with-xml-response ((&key (content-type "text/xml; charset=utf-8") root-element xsl-stylesheet-name)
+(defmacro with-xml-response ((&key (content-type "text/xml; charset=utf-8") root-element xsl-stylesheet-name xmlns)
                              &body body)
   `(with-http-response (:content-type ,content-type)
      (with-query-params (download)
@@ -114,10 +114,12 @@
      (with-output-to-string (s)
        (let ((*xml-sink* (cxml:make-character-stream-sink s :canonical nil)))
          (cxml:with-xml-output *xml-sink*
-           ,(when xsl-stylesheet-name
-                  `(sax:processing-instruction *xml-sink* "xml-stylesheet"
-                                               ,(format nil "type=\"text/xsl\" href=\"~A\"" xsl-stylesheet-name)))
+           ,@(when xsl-stylesheet-name
+                  `((sax:processing-instruction *xml-sink* "xml-stylesheet"
+                                                ,(format nil "type=\"text/xsl\" href=\"~A\"" xsl-stylesheet-name))))
            ,(if root-element
                 `(cxml:with-element ,root-element
+                   ,@(when xmlns
+                           `((cxml:attribute "xmlns" ,xmlns)))
                    , at body)
                 `(progn , at body)))))))
\ No newline at end of file

Modified: deployed/bos/projects/bos/web/kml-handlers.lisp
===================================================================
--- deployed/bos/projects/bos/web/kml-handlers.lisp	2009-03-03 22:27:55 UTC (rev 4329)
+++ deployed/bos/projects/bos/web/kml-handlers.lisp	2009-03-03 22:37:01 UTC (rev 4330)
@@ -218,7 +218,7 @@
         (contract (when sponsor (first (sponsor-contracts sponsor)))))
     ;; only the first contract of SPONSOR will be shown
     (with-xml-response (:content-type #+nil "text/xml" "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                      :root-element "kml")
+                                      :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
       (with-query-params ((lang "en"))
         (with-element "Document"
           (with-element "name" (text "BOS"))
@@ -229,12 +229,12 @@
             (with-element "longitude" (text "116.975859"))
             (with-element "latitude" (text "-1.044691"))
             (with-element "altitude" (text "0"))
-            (with-element "range" (text "11000"))
+            (with-element "heading" (text "0"))
             (with-element "tilt" (text "0"))
-            (with-element "heading" (text "0")))
+            (with-element "range" (text "11000")))
           (with-element "Folder"
-            (attribute "name" (dictionary-entry "Sat-Images" lang))
-            (attribute "open" "1")
+            (with-element "name" (text (dictionary-entry "Sat-Images" lang)))
+            (with-element "open" (text "1"))
             (dolist (sat-layer (sort (copy-list (class-instances 'sat-layer))
                                      #'< :key #'year))
               (kml-network-link (format nil "http://~a/sat-root-kml?name=~A" (website-host) (name sat-layer))
@@ -293,7 +293,7 @@
     (setf (hunchentoot:header-out :last-modified)
           (hunchentoot:rfc-1123-date timestamp))
     (with-xml-response (:content-type "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                      :root-element "kml")
+                                      :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
       (with-query-params ((lang "en"))
         (with-element "Document"
           (with-element "name" (text "Country-Stats"))          
@@ -348,7 +348,7 @@
 (defmethod handle-object ((handler look-at-allocation-area-handler)
                           (area allocation-area))
   (with-xml-response (:content-type "application/vnd.google-earth.kml+xml; charset=utf-8"
-                                    :root-element "kml")
+                                    :root-element "kml" :xmlns "http://www.opengis.net/kml/2.2")
     (with-element "Document"
       (with-element "name" (text (format nil "allocation-area ~D" (store-object-id area))))
       (kml-region (make-rectangle2 (allocation-area-bounding-box2 area))

Modified: deployed/bos/projects/bos/web/kml-utils.lisp
===================================================================
--- deployed/bos/projects/bos/web/kml-utils.lisp	2009-03-03 22:27:55 UTC (rev 4329)
+++ deployed/bos/projects/bos/web/kml-utils.lisp	2009-03-03 22:37:01 UTC (rev 4330)
@@ -281,10 +281,10 @@
   ;; http-query could be added to &key args
   (with-element "NetworkLink"
     (when name (with-element "name" (text name)))
+    (when hide-children
+      (kml-hide-children-style))
     (when rect (kml-region rect lod))
     (when look-at (funcall look-at))
-    (when hide-children
-      (kml-hide-children-style))
     (when fly-to-view (with-element "flyToView" (text "1")))
     (kml-link href :refresh-on-region (and rect t))))
 




From bknr at bknr.net  Thu Mar  5 10:04:29 2009
From: bknr at bknr.net (BKNR Commits)
Date: Thu, 05 Mar 2009 11:04:29 +0100
Subject: [bknr-cvs] hans changed
	deployed/bos/projects/bos/web/kml-handlers.lisp
Message-ID: <E1LfARJ-0006ax-EE@paracetamol.bknr.net>

Revision: 4331
Author: hans
URL: http://bknr.net/trac/changeset/4331

fix namespace url replacement, add correction function for existing data
U   deployed/bos/projects/bos/web/kml-handlers.lisp

Modified: deployed/bos/projects/bos/web/kml-handlers.lisp
===================================================================
--- deployed/bos/projects/bos/web/kml-handlers.lisp	2009-03-03 22:37:01 UTC (rev 4330)
+++ deployed/bos/projects/bos/web/kml-handlers.lisp	2009-03-05 10:04:28 UTC (rev 4331)
@@ -89,7 +89,7 @@
 
 (defun replace-all-url-hosts (string new-host)
   "Replaces all hostnames in STRING by NEW-HOST."
-  (ppcre:regex-replace-all #?r"((?:https?|ftp)://)\w+(?:\.\w+)*(?::\d+)?" string #?r"\1${new-host}"))
+  (ppcre:regex-replace-all #?r"(?<!xmlns=[\"'])((?:https?|ftp)://)\w+(?:\.\w+)*(?::\d+)?" string #?r"\1${new-host}"))
 
 (defun replace-lang-query-params (string new-lang)
   (ppcre:regex-replace-all #?r"(?i)(lang=)[a-z]{2,2}" string #?r"\1${new-lang}"))
@@ -267,9 +267,9 @@
                                          (with-element "longitude" (text "8.297592139883164"))
                                          (with-element "latitude" (text "49.89989439494514"))
                                          (with-element "altitude" (text "0"))
-                                         (with-element "range" (text "5400715.913126094"))
+                                         (with-element "heading" (text "0"))
                                          (with-element "tilt" (text "0"))
-                                         (with-element "heading" (text "0"))))))))))
+                                         (with-element "range" (text "5400715.913126094"))))))))))
 
 (defmethod handle-object ((handler kml-root-dynamic-handler) (object sponsor))
   (write-root-kml handler object))
@@ -353,3 +353,11 @@
       (with-element "name" (text (format nil "allocation-area ~D" (store-object-id area))))
       (kml-region (make-rectangle2 (allocation-area-bounding-box2 area))
                   nil))))
+
+(defun fix-xmlns ()
+  (with-transaction (:update-kml)
+    (dolist (kml-root (class-instances 'kml-root-data))
+      (with-slots (kml-string) kml-root
+        (setf kml-string (cl-ppcre:regex-replace-all "http://earth.google.com/kml/2.2"
+                                                     kml-string
+                                                     "http://www.opengis.net/kml/2.2"))))))
\ No newline at end of file




From bknr at bknr.net  Thu Mar  5 10:06:27 2009
From: bknr at bknr.net (BKNR Commits)
Date: Thu, 05 Mar 2009 11:06:27 +0100
Subject: [bknr-cvs] hans changed trunk/projects/bos/web/kml-handlers.lisp
Message-ID: <E1LfATD-0006cI-1m@paracetamol.bknr.net>

Revision: 4332
Author: hans
URL: http://bknr.net/trac/changeset/4332

pull r4331 from bos deployed branch
U   trunk/projects/bos/web/kml-handlers.lisp

Modified: trunk/projects/bos/web/kml-handlers.lisp
===================================================================
--- trunk/projects/bos/web/kml-handlers.lisp	2009-03-05 10:04:28 UTC (rev 4331)
+++ trunk/projects/bos/web/kml-handlers.lisp	2009-03-05 10:06:27 UTC (rev 4332)
@@ -89,7 +89,7 @@
 
 (defun replace-all-url-hosts (string new-host)
   "Replaces all hostnames in STRING by NEW-HOST."
-  (ppcre:regex-replace-all #?r"((?:https?|ftp)://)\w+(?:\.\w+)*(?::\d+)?" string #?r"\1${new-host}"))
+  (ppcre:regex-replace-all #?r"(?<!xmlns=[\"'])((?:https?|ftp)://)\w+(?:\.\w+)*(?::\d+)?" string #?r"\1${new-host}"))
 
 (defun replace-lang-query-params (string new-lang)
   (ppcre:regex-replace-all #?r"(?i)(lang=)[a-z]{2,2}" string #?r"\1${new-lang}"))
@@ -267,9 +267,9 @@
                                          (with-element "longitude" (text "8.297592139883164"))
                                          (with-element "latitude" (text "49.89989439494514"))
                                          (with-element "altitude" (text "0"))
-                                         (with-element "range" (text "5400715.913126094"))
+                                         (with-element "heading" (text "0"))
                                          (with-element "tilt" (text "0"))
-                                         (with-element "heading" (text "0"))))))))))
+                                         (with-element "range" (text "5400715.913126094"))))))))))
 
 (defmethod handle-object ((handler kml-root-dynamic-handler) (object sponsor))
   (write-root-kml handler object))
@@ -353,3 +353,11 @@
       (with-element "name" (text (format nil "allocation-area ~D" (store-object-id area))))
       (kml-region (make-rectangle2 (allocation-area-bounding-box2 area))
                   nil))))
+
+(defun fix-xmlns ()
+  (with-transaction (:update-kml)
+    (dolist (kml-root (class-instances 'kml-root-data))
+      (with-slots (kml-string) kml-root
+        (setf kml-string (cl-ppcre:regex-replace-all "http://earth.google.com/kml/2.2"
+                                                     kml-string
+                                                     "http://www.opengis.net/kml/2.2"))))))
\ No newline at end of file




From bknr at bknr.net  Thu Mar  5 22:30:49 2009
From: bknr at bknr.net (BKNR Commits)
Date: Thu, 05 Mar 2009 23:30:49 +0100
Subject: [bknr-cvs] edi changed trunk/thirdparty/drakma/
Message-ID: <E1LfM5Z-0008Pj-Sz@paracetamol.bknr.net>

Revision: 4333
Author: edi
URL: http://bknr.net/trac/changeset/4333

Solidify feature expressions

U   trunk/thirdparty/drakma/CHANGELOG.txt
U   trunk/thirdparty/drakma/request.lisp

Modified: trunk/thirdparty/drakma/CHANGELOG.txt
===================================================================
--- trunk/thirdparty/drakma/CHANGELOG.txt	2009-03-05 10:06:27 UTC (rev 4332)
+++ trunk/thirdparty/drakma/CHANGELOG.txt	2009-03-05 22:30:49 UTC (rev 4333)
@@ -1,3 +1,4 @@
+Solidify feature expressions (thanks to Joshua Taylor)
 Make SEND-COOKIE-P work for pathless URIs (thanks to Tomo Matsumoto)
 
 Version 1.0.0

Modified: trunk/thirdparty/drakma/request.lisp
===================================================================
--- trunk/thirdparty/drakma/request.lisp	2009-03-05 10:06:27 UTC (rev 4332)
+++ trunk/thirdparty/drakma/request.lisp	2009-03-05 22:30:49 UTC (rev 4333)
@@ -157,8 +157,8 @@
                      (when textp
                        (setf result
                              (octets-to-string result :external-format (flexi-stream-external-format stream))
-                             #+:clisp #+:clisp
-                             (flexi-stream-element-type stream) element-type))
+                             #+:clisp (flexi-stream-element-type stream)
+                             #+:clisp element-type))
                      result))
                   ((or chunkedp must-close)
                    ;; no content length, read until EOF (or end of chunking)
@@ -204,7 +204,7 @@
                               #+:lispworks (read-timeout 20)
                               #+(and :lispworks (not :lw-does-not-have-write-timeout))
                               (write-timeout 20 write-timeout-provided-p)
-                              #+openmcl
+                              #+:openmcl
                               deadline)
   "Sends an HTTP request to a web server and returns its reply.  URI
 is where the request is sent to, and it is either a string denoting a
@@ -446,17 +446,18 @@
                                                           :timeout connection-timeout
                                                           :read-timeout read-timeout
                                                           #-:lw-does-not-have-write-timeout
+                                                          :write-timeout
                                                           #-:lw-does-not-have-write-timeout
-                                                          :write-timeout write-timeout
+                                                          write-timeout
                                                           :errorp t)
                                     #-:lispworks
                                     (usocket:socket-stream
                                      (usocket:socket-connect host port
                                                              :element-type 'octet
-                                                             #+openmcl #+openmcl
-                                                             :deadline deadline
+                                                             #+:openmcl :deadline
+                                                             #+:openmcl deadline
                                                              :nodelay t))))
-              #+openmcl
+              #+:openmcl
               (when deadline
                 ;; it is correct to set the deadline here even though
                 ;; it may have been initialized by SOCKET-CONNECT




From bknr at bknr.net  Mon Mar  9 21:55:26 2009
From: bknr at bknr.net (BKNR Commits)
Date: Mon, 09 Mar 2009 22:55:26 +0100
Subject: [bknr-cvs] edi changed tags/thirdparty/cl-who-0.11.0/
Message-ID: <E1LgnRW-00098N-N9@paracetamol.bknr.net>

Revision: 4334
Author: edi
URL: http://bknr.net/trac/changeset/4334

Tag cl-who

A   tags/thirdparty/cl-who-0.11.0/

Copied: tags/thirdparty/cl-who-0.11.0 (from rev 4333, trunk/thirdparty/cl-who-0.11.0)




From bknr at bknr.net  Mon Mar  9 21:56:26 2009
From: bknr at bknr.net (BKNR Commits)
Date: Mon, 09 Mar 2009 22:56:26 +0100
Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-who
Message-ID: <E1LgnSU-00099A-Ji@paracetamol.bknr.net>

Revision: 4335
Author: edi
URL: http://bknr.net/trac/changeset/4335

Rename to version-less name

A   trunk/thirdparty/cl-who/
D   trunk/thirdparty/cl-who-0.11.0/

Copied: trunk/thirdparty/cl-who (from rev 4334, trunk/thirdparty/cl-who-0.11.0)




From bknr at bknr.net  Mon Mar  9 21:59:07 2009
From: bknr at bknr.net (BKNR Commits)
Date: Mon, 09 Mar 2009 22:59:07 +0100
Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-who/
Message-ID: <E1LgnV5-0009A2-BY@paracetamol.bknr.net>

Revision: 4336
Author: edi
URL: http://bknr.net/trac/changeset/4336

Dev version

U   trunk/thirdparty/cl-who/CHANGELOG
U   trunk/thirdparty/cl-who/cl-who.asd
U   trunk/thirdparty/cl-who/doc/index.html
U   trunk/thirdparty/cl-who/packages.lisp
U   trunk/thirdparty/cl-who/specials.lisp
A   trunk/thirdparty/cl-who/test/
A   trunk/thirdparty/cl-who/test/packages.lisp
A   trunk/thirdparty/cl-who/test/simple
A   trunk/thirdparty/cl-who/test/tests.lisp
A   trunk/thirdparty/cl-who/util.lisp
U   trunk/thirdparty/cl-who/who.lisp

Change set too large, please see URL above



From bknr at bknr.net  Wed Mar 11 09:24:57 2009
From: bknr at bknr.net (BKNR Commits)
Date: Wed, 11 Mar 2009 10:24:57 +0100
Subject: [bknr-cvs] hans changed trunk/projects/bos/queries.lisp
Message-ID: <E1LhKgL-000ERl-EW@paracetamol.bknr.net>

Revision: 4337
Author: hans
URL: http://bknr.net/trac/changeset/4337

queries scratchpad
A   trunk/projects/bos/queries.lisp

Added: trunk/projects/bos/queries.lisp
===================================================================
--- trunk/projects/bos/queries.lisp	                        (rev 0)
+++ trunk/projects/bos/queries.lisp	2009-03-11 09:24:57 UTC (rev 4337)
@@ -0,0 +1,15 @@
+;; ad-hoc queries that were useful
+
+;; contracts processed by gitte
+(loop for year from 2007 upto 2009
+   do (format t "~A: ~A~%"
+              year
+              (reduce #'+
+                      (remove-if-not
+                       (lambda (contract)
+                         (and (= year (nth-value 5 (decode-universal-time (contract-date contract))))
+                              (cl-ppcre:scan "gitte" (if (stringp (contract-paidp contract))
+                                                         (contract-paidp contract)
+                                                         ""))))
+                       (class-instances 'contract))
+                      :key #'contract-price)))




From bknr at bknr.net  Wed Mar 11 09:27:42 2009
From: bknr at bknr.net (BKNR Commits)
Date: Wed, 11 Mar 2009 10:27:42 +0100
Subject: [bknr-cvs] hans changed trunk/projects/bos/queries.lisp
Message-ID: <E1LhKj0-000ESc-1J@paracetamol.bknr.net>

Revision: 4338
Author: hans
URL: http://bknr.net/trac/changeset/4338

explain in sql

U   trunk/projects/bos/queries.lisp

Modified: trunk/projects/bos/queries.lisp
===================================================================
--- trunk/projects/bos/queries.lisp	2009-03-11 09:24:57 UTC (rev 4337)
+++ trunk/projects/bos/queries.lisp	2009-03-11 09:27:42 UTC (rev 4338)
@@ -1,6 +1,10 @@
 ;; ad-hoc queries that were useful
 
 ;; contracts processed by gitte
+
+;; almost like
+;; select year, sum(contract-price) from contract where contract-paidp like "gitte" group by year(contract-date)
+
 (loop for year from 2007 upto 2009
    do (format t "~A: ~A~%"
               year




From bknr at bknr.net  Fri Mar 13 11:35:21 2009
From: bknr at bknr.net (BKNR Commits)
Date: Fri, 13 Mar 2009 12:35:21 +0100
Subject: No subject
Message-ID: <E1Li5fd-000KAn-MT@paracetamol.bknr.net>



From bknr at bknr.net  Thu Mar 26 19:04:55 2009
From: bknr at bknr.net (BKNR Commits)
Date: Thu, 26 Mar 2009 20:04:55 +0100
Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-who/who.lisp
Message-ID: <E1Lmusp-000JfF-K3@paracetamol.bknr.net>

Revision: 4343
Author: edi
URL: http://bknr.net/trac/changeset/4343

Patch from Slawek Zak

U   trunk/thirdparty/cl-who/who.lisp

Modified: trunk/thirdparty/cl-who/who.lisp
===================================================================
--- trunk/thirdparty/cl-who/who.lisp	2009-03-23 14:36:59 UTC (rev 4342)
+++ trunk/thirdparty/cl-who/who.lisp	2009-03-26 19:04:54 UTC (rev 4343)
@@ -174,7 +174,7 @@
   "Transforms an HTML tree into an intermediate format - mainly a
 flattened list of strings. Utility function used by TREE-TO-COMMANDS-AUX."
   (loop for element in tree
-        when (or (keywordp element)
+        if (or (keywordp element)
                  (and (listp element)
                       (keywordp (first element)))
                  (and (listp element)
@@ -182,8 +182,11 @@
                       (keywordp (first (first element)))))
         ;; the syntax for a tag - process it
         nconc (process-tag element #'tree-to-template)
+        ;; list - insert as sexp
+        else if (consp element)
+        collect `(let ((*indent* ,*indent*)) ,element)
+        ;; something else - insert verbatim     
         else
-        ;; something else - insert verbatim
         collect element))
 
 (defun string-list-to-string (string-list)




From bknr at bknr.net  Thu Mar 26 19:05:30 2009
From: bknr at bknr.net (BKNR Commits)
Date: Thu, 26 Mar 2009 20:05:30 +0100
Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-who/CHANGELOG
Message-ID: <E1LmutO-000Jfs-1w@paracetamol.bknr.net>

Revision: 4344
Author: edi
URL: http://bknr.net/trac/changeset/4344

Update ChangeLog

U   trunk/thirdparty/cl-who/CHANGELOG

Modified: trunk/thirdparty/cl-who/CHANGELOG
===================================================================
--- trunk/thirdparty/cl-who/CHANGELOG	2009-03-26 19:04:54 UTC (rev 4343)
+++ trunk/thirdparty/cl-who/CHANGELOG	2009-03-26 19:05:30 UTC (rev 4344)
@@ -5,6 +5,7 @@
 	todo: repla s-h-texp with walk in docs
 Removed deprecated ESCAPE-STRING-ISO-8859 function
 Removed SHOW-HTML-EXPANSION
+Bugfixes (thanks to Slawek Zak)	
 
 Version 0.11.1
 2008-03-28