3409 |
(byte-compile-form (nth 2 form) for-effect)) |
(byte-compile-form (nth 2 form) for-effect)) |
3410 |
(byte-compile-goto 'byte-goto donetag) |
(byte-compile-goto 'byte-goto donetag) |
3411 |
(byte-compile-out-tag elsetag) |
(byte-compile-out-tag elsetag) |
3412 |
(byte-compile-body (cdr (cdr (cdr form))) for-effect) |
(byte-compile-maybe-guarded (list 'not clause) |
3413 |
|
(byte-compile-body (cdr (cdr (cdr form))) for-effect)) |
3414 |
(byte-compile-out-tag donetag)))) |
(byte-compile-out-tag donetag)))) |
3415 |
(setq for-effect nil)) |
(setq for-effect nil)) |
3416 |
|
|