Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Used FN macro once

  • Loading branch information...
commit b6c1619135a77966c691c93f9d91f7ed254adf2c 1 parent 28736fb
Adlai authored

Showing 1 changed file with 2 additions and 5 deletions. Show diff stats Hide diff stats

  1. +2 5 src/check.lisp
7 src/check.lisp
@@ -200,11 +200,8 @@ not evaluated."
200 200 (destructuring-bind (condition &optional reason-control reason-args)
201 201 (ensure-list condition-spec)
202 202 `(block ,block-name
203   - (handler-bind ((,condition (lambda (c)
204   - (declare (ignore c))
205   - ;; ok, body threw condition
206   - (add-result 'test-passed :test-expr ',condition)
207   - (return-from ,block-name t))))
  203 + (handler-bind ((,condition (fn (add-result 'test-passed :test-expr ',condition)
  204 + (return-from ,block-name t))))
208 205 (block nil ,@body))
209 206 (process-failure
210 207 :reason ,(if reason-control

0 comments on commit b6c1619

Please sign in to comment.
Something went wrong with that request. Please try again.