Permalink
Browse files

Improved error message.

  • Loading branch information...
1 parent b90674e commit a4bae17ba606e210ee72214e37e21dc88822c867 @marick marick committed Mar 4, 2011
@@ -10,8 +10,8 @@
(cond (not (list? (second form)))
(user-error-report-form
form
- (cl-format nil "Left-hand-side must look like a function call. `~S` doesn't."
- (second form)))
+ "The left-hand-side of a prerequisite must look like a function call."
+ (cl-format nil "`~S` doesn't." (second form)))
:else
(rest form)))
@@ -38,8 +38,12 @@
(after-silently
(fake a => 3)
- (expect @reported => (user-error-with-notes #"must look like a function call.*`a` doesn't")))
+ (expect @reported => (user-error-with-notes
+ #"must look like a function call"
+ #"`a` doesn't")))
(after-silently
(expect (throw "should not be evaluated") => 3 (fake a => 3))
- (expect @reported => (user-error-with-notes #"must look like a function call.*`a` doesn't")))
+ (expect @reported => (user-error-with-notes
+ #"must look like a function call"
+ #"`a` doesn't")))

0 comments on commit a4bae17

Please sign in to comment.