/[emacs]/emacs/lisp/emacs-lisp/byte-opt.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/byte-opt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

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