/[gcl]/gcl/cmpnew/gcl_cmpif.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmpif.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Mon Aug 8 22:58:52 2005 UTC revision 1.6 by camm, Sun Sep 18 01:46:48 2005 UTC
# Line 61  Line 61 
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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26