Permalink
Browse files

Fix for ensure-error and SBCL from Tamas Papp (thanks!)

  • Loading branch information...
1 parent bb3e388 commit eb8ca624a1ec2a653d78ac68da973b2165357b30 Gary King committed Jul 11, 2010
Showing with 2 additions and 2 deletions.
  1. +2 −2 dev/macros.lisp
View
@@ -361,8 +361,8 @@ the signaling of _any_ other condition will cause a test failure.
"
(setf condition (remove-leading-quote condition))
(destructuring-bind (condition &key report arguments catch-all-conditions?
- validate name)
- (if (consp condition) condition (list condition))
+ validate (name (gensym (symbol-name '#:name-))))
+ (if (consp condition) condition (list condition))
(let ((g (gensym)))
`(let ((,g nil))
(unwind-protect

0 comments on commit eb8ca62

Please sign in to comment.