-If ASSERTION is not ommited and evaluated to nil and NO-NOTICE is nil, it is noticed."
- (let ((assertion-value (eval assertion)))
- (eval (` (broken-facility-internal
- '(, facility) (, docstring) '(, assertion-value))))
- (when (and assertion (not assertion-value) (not no-notice)
- notice-non-obvious-broken-facility)
- (message "BROKEN FACILITY DETECTED: %s" docstring))
- (` (broken-facility-internal
- '(, facility) (, docstring) '(, assertion-value)))))
+If ASSERTION is not omitted and evaluated to nil and NO-NOTICE is nil,
+it is noticed."
+ (` (static-if (, assertion)
+ (eval-and-compile
+ (broken-facility-internal '(, facility) (, docstring) t))
+ (eval-when-compile
+ (when (and '(, assertion) (not '(, no-notice))
+ notice-non-obvious-broken-facility)
+ (message "BROKEN FACILITY DETECTED: %s" (, docstring)))
+ nil)
+ (eval-and-compile
+ (broken-facility-internal '(, facility) (, docstring) nil)))))