[bknr-cvs] ksprotte changed trunk/projects/bos/

[BKNR Commits]

Revision: 3772
Author: ksprotte
URL: http://bknr.net/trac/changeset/3772

fixed some style-warnings in bos
U   trunk/projects/bos/m2/map.lisp
U   trunk/projects/bos/m2/news.lisp
U   trunk/projects/bos/web/kml-utils.lisp

Modified: trunk/projects/bos/m2/map.lisp
===================================================================
--- trunk/projects/bos/m2/map.lisp	2008-09-02 14:36:21 UTC (rev 3771)
+++ trunk/projects/bos/m2/map.lisp	2008-09-02 15:05:46 UTC (rev 3772)
@@ -236,7 +236,7 @@
       (print px)
       (let ((x (parse-integer (car (last (pathname-directory px)))))
             (i 0))
-        (dolist (image-pathname (directory px :all nil))
+        (dolist (image-pathname (directory px #+nil :all #+nil nil)) ; was :ALL NIL used on cmucl?
           (handler-case
               (let* ((y (parse-integer (pathname-name image-pathname)))
                      (tile (ensure-original-map-tile x y)))

Modified: trunk/projects/bos/m2/news.lisp
===================================================================
--- trunk/projects/bos/m2/news.lisp	2008-09-02 14:36:21 UTC (rev 3771)
+++ trunk/projects/bos/m2/news.lisp	2008-09-02 15:05:46 UTC (rev 3772)
@@ -9,7 +9,7 @@
    (title :none :initform (make-string-hash-table))
    (text :none :initform (make-string-hash-table))))
 
-(deftransaction make-news-item (&optional language &key title text)
+(deftransaction make-news-item (&key language title text)
   (let ((news-item (make-object 'news-item)))
     (setf (slot-string news-item 'title language) title)
     (setf (slot-string news-item 'text language) text)

Modified: trunk/projects/bos/web/kml-utils.lisp
===================================================================
--- trunk/projects/bos/web/kml-utils.lisp	2008-09-02 14:36:21 UTC (rev 3771)
+++ trunk/projects/bos/web/kml-utils.lisp	2008-09-02 15:05:46 UTC (rev 3772)
@@ -274,8 +274,9 @@
       (with-element "listItemType" (text "checkHideChildren"))
       (with-element "bgColor" (text "00ffffff")))))
 
-(defun kml-network-link (href &key rect lod name http-query
+(defun kml-network-link (href &key rect lod name
                          fly-to-view hide-children)
+  ;; http-query could be added to &key args
   (with-element "NetworkLink"
     (when name (with-element "name" (text name)))
     (when rect (kml-region rect lod))