Browse files

Used FN macro once

  • Loading branch information...
1 parent 28736fb commit b6c1619135a77966c691c93f9d91f7ed254adf2c @adlai committed Sep 1, 2009
Showing with 2 additions and 5 deletions.
  1. +2 −5 src/check.lisp
View
7 src/check.lisp
@@ -200,11 +200,8 @@ not evaluated."
(destructuring-bind (condition &optional reason-control reason-args)
(ensure-list condition-spec)
`(block ,block-name
- (handler-bind ((,condition (lambda (c)
- (declare (ignore c))
- ;; ok, body threw condition
- (add-result 'test-passed :test-expr ',condition)
- (return-from ,block-name t))))
+ (handler-bind ((,condition (fn (add-result 'test-passed :test-expr ',condition)
+ (return-from ,block-name t))))
(block nil ,@body))
(process-failure
:reason ,(if reason-control

0 comments on commit b6c1619

Please sign in to comment.