3353 |
"Execute forms in BODY, potentially guarded by CONDITION. |
"Execute forms in BODY, potentially guarded by CONDITION. |
3354 |
CONDITION is a variable whose value is a test in an `if' or `cond'. |
CONDITION is a variable whose value is a test in an `if' or `cond'. |
3355 |
BODY is the code to compile first arm of the if or the body of the |
BODY is the code to compile first arm of the if or the body of the |
3356 |
cond clause. If CONDITION's value is of the form `(foundp 'foo)' |
cond clause. If CONDITION's value is of the form (foundp 'foo) |
3357 |
or `(boundp 'foo)', the relevant warnings from BODY about foo |
or (boundp 'foo), the relevant warnings from BODY about foo's |
3358 |
being undefined will be suppressed. |
being undefined will be suppressed. |
3359 |
|
|
3360 |
If CONDITION's value is `(featurep 'xemacs)', that suppresses all |
If CONDITION's value is (not (featurep emacs)) or (featurep 'xemacs), |
3361 |
warnings during execution of BODY." |
that suppresses all warnings during execution of BODY." |
3362 |
(declare (indent 1) (debug t)) |
(declare (indent 1) (debug t)) |
3363 |
`(let* ((fbound |
`(let* ((fbound |
3364 |
(if (eq 'fboundp (car-safe ,condition)) |
(if (eq 'fboundp (car-safe ,condition)) |