-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 ommited 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)))))