Parent Directory | Revision Log | Patch
revision 1.84 by monnier, Wed Nov 2 21:56:15 2005 UTC | revision 1.85 by schwab, Wed Nov 2 22:18:32 2005 UTC | |
---|---|---|
# | Line 1135 of FORM by signaling the error at compil | Line 1135 of FORM by signaling the error at compil |
1135 | (setq constant nil)) | (setq constant nil)) |
1136 | (setq args (cdr args))) | (setq args (cdr args))) |
1137 | (if constant | (if constant |
1138 | (cons 'quote (eval form)) | (list 'quote (eval form)) |
1139 | form))) | form))) |
1140 | ||
1141 | ;; Avoid having to write forward-... with a negative arg for speed. | ;; Avoid having to write forward-... with a negative arg for speed. |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |