tweak logging so that entries are slightly more useful

update website templates slightly.

dev/lift.lisp

@@ -1510,6 +1510,8 @@ Test options are one of :setup, :teardown, :test, :tests, :documentation, :expor
 	 :additional-data 
 	 `(:suite ,(form-keyword *current-testsuite-name*)
 		  :name ,(form-keyword *current-test-case-name*)
+		  ,@(when (testsuite-initargs *test-result*)
+			  `(:testsuite-initargs ,(testsuite-initargs *test-result*)))
 		  ,@(when (and *test-result*
 			       (result-uuid *test-result*))
 			  `(:uuid ,(result-uuid *test-result*)))
@@ -1574,4 +1576,4 @@ Test options are one of :setup, :teardown, :test, :tests, :documentation, :expor
 (test-case-option 'test-dependencies-helper 'test-c :depends-on)
 (setf (test-case-option 'test-dependencies-helper 'test-c :depends-on) :test-c)
 (remove-test-case-options 'test-dependencies-helper)
-|#
+|#

dev/reports.lisp

@@ -934,8 +934,8 @@ lift::(progn
 	   (setf seconds (first measures) conses (second measures) 
 		 results result error errorp))
       ;; cleanup / ensure we get report
-      (generate-profile-log-entry log-name name seconds conses results error)
       (when (and style (> (current-profile-sample-count) 0))
+	(generate-profile-log-entry log-name name seconds conses results error)
 	(let ((pathname (if destination-supplied?
 			    destination
 			    (unique-filename

website/source/index.md

@@ -5,9 +5,9 @@
 
   * [Mailing Lists][3]
   * [Getting it][4]
-  * [Documentation][5]
+{remark  * [Documentation][5] }
   * [News][6]
-  * [Test results][tr]
+{remark  * [Test results][tr] }
   * [Changelog][7]
 
    [3]: #mailing-lists
@@ -65,12 +65,11 @@ The externals of LIFT haven't changed too much though the implementation has bee
 
 ### Where is it
 
-A [Darcs][16] repository is available. The commands are
-listed below:
+metabang.com is slowly switching from [darcs][] to [git][]
+for source control; the current LIFT repository is on
+[github][github-lift] and you can clone it using:
 
- [16]: http://www.darcs.net/
-
-    darcs get http://common-lisp.net/project/lift/
+    git clone git://github.com/gwkkwg/lift
 
 LIFT is also [ASDF installable][18]. Its CLiki home is right
 [where][19] you'd expect.
@@ -86,6 +85,8 @@ There's also a handy [gzipped tar file][20].
 
 ### What is happening
 
+10 April 2010 - moved to git; lots of other stuff too but it's all undocumented :-(.
+
 1 March 2008 
 Much excitement and new features. If only someone would write up the documentation.
 

website/website.tmproj

@@ -2,6 +2,8 @@
 <!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
 <plist version="1.0">
 <dict>
+	<key>currentDocument</key>
+	<string>source/index.md</string>
 	<key>documents</key>
 	<array>
 		<dict>
@@ -30,7 +32,9 @@
 			<key>filename</key>
 			<string>source/index.md</string>
 			<key>lastUsed</key>
-			<date>2009-04-29T13:56:28Z</date>
+			<date>2010-04-10T15:54:49Z</date>
+			<key>selected</key>
+			<true/>
 		</dict>
 		<dict>
 			<key>filename</key>
@@ -58,81 +62,96 @@
 		</dict>
 		<dict>
 			<key>filename</key>
-			<string>source/user-guide.css</string>
-			<key>lastUsed</key>
-			<date>2008-09-28T22:25:08Z</date>
-		</dict>
-		<dict>
-			<key>filename</key>
-			<string>source/user-guide.md</string>
+			<string>../../shared/shared-links.md</string>
 			<key>lastUsed</key>
-			<date>2008-10-26T00:45:19Z</date>
+			<date>2010-04-10T15:54:49Z</date>
 		</dict>
 	</array>
 	<key>fileHierarchyDrawerWidth</key>
 	<integer>200</integer>
 	<key>metaData</key>
 	<dict>
-		<key>source/glossary.md</key>
+		<key>../../shared/shared-links.md</key>
 		<dict>
 			<key>caret</key>
 			<dict>
 				<key>column</key>
-				<integer>19</integer>
+				<integer>17</integer>
 				<key>line</key>
-				<integer>0</integer>
+				<integer>68</integer>
 			</dict>
 			<key>firstVisibleColumn</key>
-			<integer>0</integer>
+			<integer>22</integer>
 			<key>firstVisibleLine</key>
-			<integer>0</integer>
+			<integer>40</integer>
 		</dict>
-		<key>source/mucking.lisp</key>
+		<key>source/glossary.md</key>
 		<dict>
 			<key>caret</key>
 			<dict>
 				<key>column</key>
-				<integer>0</integer>
+				<integer>19</integer>
 				<key>line</key>
 				<integer>0</integer>
 			</dict>
 			<key>firstVisibleColumn</key>
 			<integer>0</integer>
 			<key>firstVisibleLine</key>
-			<integer>19</integer>
+			<integer>0</integer>
 		</dict>
-		<key>source/user-guide.css</key>
+		<key>source/index.md</key>
 		<dict>
 			<key>caret</key>
 			<dict>
 				<key>column</key>
 				<integer>0</integer>
 				<key>line</key>
-				<integer>0</integer>
+				<integer>72</integer>
 			</dict>
+			<key>columnSelection</key>
+			<false/>
 			<key>firstVisibleColumn</key>
 			<integer>0</integer>
 			<key>firstVisibleLine</key>
-			<integer>10</integer>
+			<integer>41</integer>
+			<key>selectFrom</key>
+			<dict>
+				<key>column</key>
+				<integer>0</integer>
+				<key>line</key>
+				<integer>67</integer>
+			</dict>
+			<key>selectTo</key>
+			<dict>
+				<key>column</key>
+				<integer>0</integer>
+				<key>line</key>
+				<integer>72</integer>
+			</dict>
 		</dict>
-		<key>source/user-guide.md</key>
+		<key>source/mucking.lisp</key>
 		<dict>
 			<key>caret</key>
 			<dict>
 				<key>column</key>
 				<integer>0</integer>
 				<key>line</key>
-				<integer>423</integer>
+				<integer>0</integer>
 			</dict>
 			<key>firstVisibleColumn</key>
 			<integer>0</integer>
 			<key>firstVisibleLine</key>
-			<integer>389</integer>
+			<integer>19</integer>
 		</dict>
 	</dict>
+	<key>openDocuments</key>
+	<array>
+		<string>source/index.md</string>
+		<string>../../shared/shared-links.md</string>
+	</array>
 	<key>showFileHierarchyDrawer</key>
-	<false/>
+	<true/>
 	<key>windowFrame</key>
-	<string>{{479, 67}, {578, 788}}</string>
+	<string>{{479, 0}, {578, 778}}</string>
 </dict>
 </plist>