Permalink
Browse files

Fix another loop clause order problem

Also corrects a package issue for ECL.

Thanks to Anton Vodonosov for finding and reporting the problem.
  • Loading branch information...
Gary King
Gary King committed Jan 16, 2012
1 parent ae04ac3 commit 2b6f91027e83d25eeb02c5d12a7d8b6846b0a558
Showing with 5 additions and 4 deletions.
  1. +1 −0 dev/packages.lisp
  2. +4 −4 dev/reports.lisp
View
@@ -13,6 +13,7 @@
#+sbcl #:sb-mop
#+scl #:clos
#+abcl #:mop
+ #+ecl #:clos
#:class-direct-subclasses
#:class-direct-superclasses
#:class-precedence-list)
View
@@ -367,8 +367,8 @@ lift::(progn
(let ((current-suite nil))
(loop for rest = (sort (copy-list tests)
'string-lessp :key 'first) then (rest rest)
- while rest
- for (suite test-name datum) = (first rest) do
+ for (suite test-name datum) = (first rest)
+ while rest do
(unless (eq current-suite suite)
(report-test-suite-by-suite format stream rest current-suite suite)
(setf current-suite suite))
@@ -880,13 +880,13 @@ lift::(progn
#+allegro
(defun show-flat-profile (output)
(let ((prof:*significance-threshold*
- (or *profiling-threshold* 0.01)))
+ (or *profiling-threshold* prof:*significance-threshold*)))
(prof:show-flat-profile :stream output)))
#+allegro
(defun show-call-graph (output)
(let ((prof:*significance-threshold*
- (or *profiling-threshold* 0.01)))
+ (or *profiling-threshold* prof:*significance-threshold*)))
(prof:show-call-graph :stream output)))
#+allegro

0 comments on commit 2b6f910

Please sign in to comment.