-(assert (equal (ignore-errors (loop for i from 1 repeat 6.5 collect i))
- (ignore-errors (loop for i from 1 repeat (eval '6.5) collect i))))
+(assert (equal
+ (ignore-errors (loop for i from 1 repeat 6.5 collect i))
+ (ignore-errors (loop for i from 1 repeat (eval '6.5) collect i))))
+
+(assert (eq (block nil
+ (loop named foo do (loop-finish) finally (return :good))
+ :bad)
+ :good))