From 43ef7d947f4b4de767d0f91f28b50d9c03ad29d6 Mon Sep 17 00:00:00 2001
From: Gary King <gwking@metabang.com>
Date: Wed, 16 May 2012 08:07:26 -0400
Subject: [PATCH] Update test to work around SBCL cleverness (thanks to Patrick
 Stein)

Also various other tweaks.
---
 dev/map-backtrace.lisp             |  6 ++---
 lift-standard.config               |  6 ++---
 test/tests.lisp                    |  1 +
 website/source/resources/footer.md |  2 +-
 website/source/resources/header.md |  2 +-
 website/website.tmproj             | 48 +++++++-------------------------------
 6 files changed, 16 insertions(+), 49 deletions(-)

diff --git a/dev/map-backtrace.lisp b/dev/map-backtrace.lisp
index 6b680b9..43eddda 100644
--- a/dev/map-backtrace.lisp
+++ b/dev/map-backtrace.lisp
@@ -101,7 +101,5 @@
 
 #-(or ccl sbcl)
 (defun impl-map-backtrace (func)
-  (funcall func (format nil "unable to map backtrace for ~a"
-			(lisp-implementation-type))))
-
-
+  (declare (ignore func))
+  (warn "unable to map backtrace for ~a" (lisp-implementation-type)))
\ No newline at end of file
diff --git a/lift-standard.config b/lift-standard.config
index 5213a1b..0f22312 100644
--- a/lift-standard.config
+++ b/lift-standard.config
@@ -17,17 +17,17 @@
 (:report-property :style-sheet "test-style.css")
 (:report-property :if-exists :supersede)
 (:report-property :format :html)
-(:report-property :name "test-results/test-report.html")
+(:report-property :full-pathname "test-results/test-report.html")
 (:report-property :unique-name t)
 (:build-report)
 
 (:report-property :unique-name t)
 (:report-property :format :describe)
-(:report-property :name "test-results/test-report.txt")
+(:report-property :full-pathname "test-results/test-report.txt")
 (:build-report)
 
 (:report-property :format :save)
-(:report-property :name "test-results/test-report.sav")
+(:report-property :full-pathname "test-results/test-report.sav")
 (:build-report)
 
 (:report-property :format :describe)
diff --git a/test/tests.lisp b/test/tests.lisp
index 24b7171..9b32090 100644
--- a/test/tests.lisp
+++ b/test/tests.lisp
@@ -9,6 +9,7 @@
     (handler-case 
 	(let ((x 1))
 	  (let ((y (- x (expt 1024 0))))
+	    (declare (optimize (safety 3)))
 	    (/ 2 y)))
       (error (c)
 	(setf output (print-backtrace c :output nil))))
diff --git a/website/source/resources/footer.md b/website/source/resources/footer.md
index 15b6778..c5bf3c4 100644
--- a/website/source/resources/footer.md
+++ b/website/source/resources/footer.md
@@ -7,7 +7,7 @@
 <a class="nav" href="http://common-lisp.net/" title="Common-Lisp.net"><img src="http://common-lisp.net/project/cl-containers/shared/buttons/lisp-lizard.png" width="80" height="15" title="Common-Lisp.net" alt="Common-Lisp.net button" /></a>
 </div>
 
-### Copyright (c) 2008 Gary Warren King (gwking@metabang.com) 
+### Copyright (c) 2009 - 2011 Gary Warren King (gwking@metabang.com) 
 
 trivial-backtrace has an [MIT style][mit-license] license
 
diff --git a/website/source/resources/header.md b/website/source/resources/header.md
index fa5287a..2738c47 100644
--- a/website/source/resources/header.md
+++ b/website/source/resources/header.md
@@ -1,7 +1,7 @@
 {include shared-links.md}
 
 {set-property html yes}
-{set-property style-sheet "http://common-lisp.net/project/cl-containers/shared/style-200.css"}
+{set-property style-sheet "styles.css"}
 {set-property author "Gary Warren King"}
 {set-property title "trivial-backtrace | watch where you've been"}
 
diff --git a/website/website.tmproj b/website/website.tmproj
index 49ad15f..01b745b 100644
--- a/website/website.tmproj
+++ b/website/website.tmproj
@@ -3,7 +3,7 @@
 <plist version="1.0">
 <dict>
 	<key>currentDocument</key>
-	<string>source/index.md</string>
+	<string>source/resources/header.md</string>
 	<key>documents</key>
 	<array>
 		<dict>
@@ -28,37 +28,21 @@
 				<key>column</key>
 				<integer>0</integer>
 				<key>line</key>
-				<integer>67</integer>
+				<integer>0</integer>
 			</dict>
-			<key>columnSelection</key>
-			<false/>
 			<key>firstVisibleColumn</key>
 			<integer>0</integer>
 			<key>firstVisibleLine</key>
-			<integer>42</integer>
-			<key>selectFrom</key>
-			<dict>
-				<key>column</key>
-				<integer>49</integer>
-				<key>line</key>
-				<integer>70</integer>
-			</dict>
-			<key>selectTo</key>
-			<dict>
-				<key>column</key>
-				<integer>0</integer>
-				<key>line</key>
-				<integer>67</integer>
-			</dict>
+			<integer>0</integer>
 		</dict>
 		<key>source/resources/footer.md</key>
 		<dict>
 			<key>caret</key>
 			<dict>
 				<key>column</key>
-				<integer>0</integer>
+				<integer>29</integer>
 				<key>line</key>
-				<integer>10</integer>
+				<integer>9</integer>
 			</dict>
 			<key>firstVisibleColumn</key>
 			<integer>0</integer>
@@ -70,30 +54,14 @@
 			<key>caret</key>
 			<dict>
 				<key>column</key>
-				<integer>0</integer>
+				<integer>27</integer>
 				<key>line</key>
-				<integer>11</integer>
+				<integer>3</integer>
 			</dict>
-			<key>columnSelection</key>
-			<false/>
 			<key>firstVisibleColumn</key>
 			<integer>0</integer>
 			<key>firstVisibleLine</key>
 			<integer>0</integer>
-			<key>selectFrom</key>
-			<dict>
-				<key>column</key>
-				<integer>0</integer>
-				<key>line</key>
-				<integer>7</integer>
-			</dict>
-			<key>selectTo</key>
-			<dict>
-				<key>column</key>
-				<integer>0</integer>
-				<key>line</key>
-				<integer>11</integer>
-			</dict>
 		</dict>
 		<key>source/resources/navigation.md</key>
 		<dict>
@@ -120,6 +88,6 @@
 	<key>showFileHierarchyDrawer</key>
 	<true/>
 	<key>windowFrame</key>
-	<string>{{189, 100}, {578, 778}}</string>
+	<string>{{615, 0}, {578, 778}}</string>
 </dict>
 </plist>
-- 
2.11.4.GIT