Revision: 3985 Author: ksprotte URL: http://bknr.net/trac/changeset/3985 corrected small typo in last commit U trunk/projects/bos/web/kml-handlers.lisp Modified: trunk/projects/bos/web/kml-handlers.lisp =================================================================== --- trunk/projects/bos/web/kml-handlers.lisp 2008-10-13 16:21:39 UTC (rev 3984) +++ trunk/projects/bos/web/kml-handlers.lisp 2008-10-13 16:34:22 UTC (rev 3985) @@ -108,10 +108,10 @@ #?r"<!-- +squaremetre +area +contract +tree +link *-->" string (if (and sponsor (first (sponsor-contracts sponsor))) - (let ((contract (first (sponsor-contracts sponsor))) - (node (find-contract-node *contract-tree* contract)) - (path (node-path node)) - (contract-id (store-object-id contract))) + (let* ((contract (first (sponsor-contracts sponsor))) + (node (find-contract-node *contract-tree* contract)) + (path (node-path node)) + (contract-id (store-object-id contract))) (format nil "<href>http://~a/contract-tree-kml?rmcid=~D&rmcpath=~{~D~}&lang=~A</href>" (website-host) contract-id path lang)) (format nil "<href>http://~A/contract-tree-kml?lang=~A</href>"