This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 89a16ec62716a5eaf544d8aa0bd490e0c3c267ff (commit) from b039aef5dc968d954b2da2c0987a4dd24fc4d32c (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 89a16ec62716a5eaf544d8aa0bd490e0c3c267ff Author: Raymond Toy <toy.raymond@gmail.com> Date: Sun Jan 5 20:27:34 2014 -0800 In trac.65, make comparison test an assertion test to show failures more clearly. diff --git a/tests/trac.lisp b/tests/trac.lisp index 4cffa78..3e23d3e 100644 --- a/tests/trac.lisp +++ b/tests/trac.lisp @@ -184,23 +184,19 @@ (define-test trac.65 (:tag :trac) - (assert-false - (let (failures) - (dolist (base '(2 2f0 2d0 2w0 #c(0 1) #c(0f0 1) #c(0d0 1) #c(0w0 1))) - (dolist (power '(2 3 1/2 -2 -3 -1/2 5)) - (dolist (power-type '(rational single-float double-float ext:double-double-float - (complex single-float) (complex double-float) - (complex ext:double-double-float))) - (let* ((pp (coerce power power-type)) - (interp (expt base pp)) - (*compile-print* nil) - (compiled (funcall (compile nil `(lambda (b) - (declare (type ,(type-of base) b)) - (expt b ,pp))) - base))) - (unless (= interp compiled) - (push (list base pp interp compiled) failures)))))) - failures))) + (dolist (base '(2 2f0 2d0 2w0 #c(0 1) #c(0f0 1) #c(0d0 1) #c(0w0 1))) + (dolist (power '(2 3 1/2 -2 -3 -1/2 5)) + (dolist (power-type '(rational single-float double-float ext:double-double-float + (complex single-float) (complex double-float) + (complex ext:double-double-float))) + (let* ((pp (coerce power power-type)) + (interp (expt base pp)) + (*compile-print* nil) + (compiled (funcall (compile nil `(lambda (b) + (declare (type ,(type-of base) b)) + (expt b ,pp))) + base))) + (assert-eql interp compiled base pp)))))) (define-test trac.67 (:tag :trac) ----------------------------------------------------------------------- Summary of changes: tests/trac.lisp | 30 +++++++++++++----------------- 1 file changed, 13 insertions(+), 17 deletions(-) hooks/post-receive -- CMU Common Lisp