Changeset 4200 for trunk/lisp/emacs-lisp/byte-opt.el

Timestamp:

04/07/07 15:49:28 (2 years ago)

Author:

miyoshi

Message:

Sync up with Emacs CVS HEAD.

Files:

• trunk/lisp/emacs-lisp/byte-opt.el (modified) (3 diffs)

trunk/lisp/emacs-lisp/byte-opt.el

@@ -535 +535 @@
-                    ;; Detect the expansion of (pop foo).
-                    ;; There is no need to compile the call to `car' there.
+                    (progn (setq foo (list form fn)) nil)
-                    (and (eq fn 'car)
-                         (eq (car-safe (cadr form)) 'prog1)
@@ -546 +547 @@
-                                (eq (cadr (nth 2 last)) var))))
-                    (progn
-by `%s' is not 
-(car form)
+from %s is un
+form
-                      nil)))
-           (byte-compile-log "  %s called for effect; deleted" fn)
@@ -1117 +1118 @@
-        (byte-optimize-predicate form))
-    form))
-
-(put 'concat 'byte-optimizer 'byte-optimize-pure-func)
-(put 'symbol-name 'byte-optimizer 'byte-optimize-pure-func)
-(put 'regexp-opt 'byte-optimizer 'byte-optimize-pure-func)
-(put 'regexp-quote 'byte-optimizer 'byte-optimize-pure-func)
-(put 'string-to-syntax 'byte-optimizer 'byte-optimize-pure-func)
-(defun byte-optimize-pure-func (form)
-  "Do constant folding for pure functions.
-This assumes that the function will not have any side-effects and that
-its return value depends solely on its arguments.
-If the function can signal an error, this might change the semantics
-of FORM by signaling the error at compile-time."
-  (let ((args (cdr form))
-        (constant t))
-    (while (and args constant)
-      (or (byte-compile-constp (car args))
-          (setq constant nil))
-      (setq args (cdr args)))
-    (if constant
-        (list 'quote (eval form))
-      form)))
-
-;; Avoid having to write forward-... with a negative arg for speed.