61 |
(if *fmla-eval-const* |
(if *fmla-eval-const* |
62 |
(cond (fmlae |
(cond (fmlae |
63 |
(when (caddr args) (note-branch-elimination (car args) t (caddr args))) |
(when (caddr args) (note-branch-elimination (car args) t (caddr args))) |
64 |
(c1expr (cadr args))) |
(c1expr** (cadr args) info)) |
65 |
(t |
(t (note-branch-elimination (car args) nil (cadr args)) |
66 |
(note-branch-elimination (car args) nil (cadr args)) |
(if (endp (cddr args)) (c1nil) (c1expr** (caddr args) info)))) |
|
(endp (cddr args)) (c1nil) (c1expr (caddr args)))) |
|
67 |
(list 'if info |
(list 'if info |
68 |
fmla |
fmla |
69 |
(c1expr* (cadr args) info) |
(c1expr* (cadr args) info) |