projects
/
fiveam.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix typo
[fiveam.git]
/
src
/
suite.lisp
diff --git
a/src/suite.lisp
b/src/suite.lisp
index
eb2691d
..
362dc04
100644
(file)
--- a/
src/suite.lisp
+++ b/
src/suite.lisp
@@
-1,4
+1,4
@@
-;; -*- lisp -*-
+;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
(in-package :it.bese.fiveam)
(in-package :it.bese.fiveam)
@@
-72,9
+72,9
@@
See also: DEF-SUITE *SUITE*"
`(%in-suite ,suite-name :in ,in :fail-on-error nil))
(defmacro %in-suite (suite-name &key (fail-on-error t) in)
`(%in-suite ,suite-name :in ,in :fail-on-error nil))
(defmacro %in-suite (suite-name &key (fail-on-error t) in)
- (with-unique-names (suite)
+ (with-gensyms (suite)
`(progn
`(progn
- (if-bind ,suite (get-test ',suite-name)
+ (if-let (,suite (get-test ',suite-name))
(setf *suite* ,suite)
(progn
(when ,fail-on-error
(setf *suite* ,suite)
(progn
(when ,fail-on-error