/[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.9 by camm, Tue Oct 18 02:12:10 2005 UTC revision 1.10 by camm, Fri Nov 25 16:52:20 2005 UTC
# Line 55  Line 55 
55          (if (endp (cddr args)) (c1nil) (c1expr (caddr args))))          (if (endp (cddr args)) (c1nil) (c1expr (caddr args))))
56          (otherwise          (otherwise
57           (setq info (make-info))           (setq info (make-info))
58           (let* ((*fmla-eval-const* t)           (let* ((*fmla-eval-const* (= *dlbs* 0)) ;;FIXME expand this to detect tags and setq cases
59                  (fmla (c1fmla f info))                  (fmla (c1fmla f info))
60                  (fmlae (fmla-eval-const fmla)))                  (fmlae (fmla-eval-const fmla)))
61             (if *fmla-eval-const*             (if *fmla-eval-const*

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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