Parent Directory | Revision Log | 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* |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |