Parent Directory | Revision Log | Patch
revision 1.78 by monnier, Sun Nov 14 06:19:52 2004 UTC | revision 1.79 by rms, Thu Nov 25 02:58:34 2004 UTC | |
---|---|---|
# | Line 520 | Line 520 |
520 | (symbolp (car-safe form)) | (symbolp (car-safe form)) |
521 | (get (car-safe form) 'cl-compiler-macro) | (get (car-safe form) 'cl-compiler-macro) |
522 | (not (eq form | (not (eq form |
523 | (setq form (compiler-macroexpand form))))) | (with-no-warnings |
524 | (setq form (compiler-macroexpand form)))))) | |
525 | (byte-optimize-form form for-effect)) | (byte-optimize-form form for-effect)) |
526 | ||
527 | ((not (symbolp fn)) | ((not (symbolp fn)) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |