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