Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Used FN macro once

  • Loading branch information...
commit b6c1619135a77966c691c93f9d91f7ed254adf2c 1 parent 28736fb
Adlai authored
Showing with 2 additions and 5 deletions.
  1. +2 −5 src/check.lisp
7 src/check.lisp
View
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.