Commit 43ef7d94 authored by Gary King's avatar Gary King
Browse files

Update test to work around SBCL cleverness (thanks to Patrick Stein)

Also various other tweaks.
parent f86aab49
Loading
Loading
Loading
Loading
+2 −4
Original line number Diff line number Diff line
@@ -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
+3 −3
Original line number Diff line number Diff line
@@ -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)
+1 −0
Original line number Diff line number Diff line
@@ -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))))
+1 −1
Original line number Diff line number Diff line
@@ -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

+1 −1
Original line number Diff line number Diff line
{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"}

Loading