diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:06:37 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:06:37 +0000 |
| commit | 72d8b544c6eff21e8d5aad013a31fbfc1979a4d0 (patch) | |
| tree | bab1ac59fe35df15a76b23aaee46f7ace04a7afd /lisp/emacs-lisp | |
| parent | 571b4b9325428d9c3a443932eaf4f3860e6f02d1 (diff) | |
| download | emacs-72d8b544c6eff21e8d5aad013a31fbfc1979a4d0.tar.gz emacs-72d8b544c6eff21e8d5aad013a31fbfc1979a4d0.tar.bz2 emacs-72d8b544c6eff21e8d5aad013a31fbfc1979a4d0.zip | |
(byte-compile-log-lap-1)
(byte-optimize-inline-handler, byte-optimize-form-code-walker)
(byte-optimize-apply, end of file): Don't quote lambda.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/byte-opt.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 04125e65be0..e1cc0db3f36 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -38,7 +38,7 @@ ;; TO DO: ;; -;; (apply '(lambda (x &rest y) ...) 1 (foo)) +;; (apply (lambda (x &rest y) ...) 1 (foo)) ;; ;; maintain a list of functions known not to access any global variables ;; (actually, give them a 'dynamically-safe property) and then @@ -192,7 +192,7 @@ (byte-compile-log-1 (apply 'format format (let (c a) - (mapcar '(lambda (arg) + (mapcar (lambda (arg) (if (not (consp arg)) (if (and (symbolp arg) (string-match "^byte-" (symbol-name arg))) @@ -232,7 +232,7 @@ "byte-optimize-handler for the `inline' special-form." (cons 'progn (mapcar - '(lambda (sexp) + (lambda (sexp) (let ((fn (car-safe sexp))) (if (and (symbolp fn) (or (cdr (assq fn byte-compile-function-environment)) @@ -385,7 +385,7 @@ ;; are more deeply nested are optimized first. (cons fn (cons - (mapcar '(lambda (binding) + (mapcar (lambda (binding) (if (symbolp binding) binding (if (cdr (cdr binding)) @@ -397,7 +397,7 @@ (byte-optimize-body (cdr (cdr form)) for-effect)))) ((eq fn 'cond) (cons fn - (mapcar '(lambda (clause) + (mapcar (lambda (clause) (if (consp clause) (cons (byte-optimize-form (car clause) nil) @@ -1025,8 +1025,8 @@ (defun byte-optimize-funcall (form) - ;; (funcall '(lambda ...) ...) ==> ((lambda ...) ...) - ;; (funcall 'foo ...) ==> (foo ...) + ;; (funcall (lambda ...) ...) ==> ((lambda ...) ...) + ;; (funcall foo ...) ==> (foo ...) (let ((fn (nth 1 form))) (if (memq (car-safe fn) '(quote function)) (cons (nth 1 fn) (cdr (cdr form))) @@ -1042,7 +1042,7 @@ (if (listp (nth 1 last)) (let ((butlast (nreverse (cdr (reverse (cdr (cdr form))))))) (nconc (list 'funcall fn) butlast - (mapcar '(lambda (x) (list 'quote x)) (nth 1 last)))) + (mapcar (lambda (x) (list 'quote x)) (nth 1 last)))) (byte-compile-warn "Last arg to apply can't be a literal atom: `%s'" (prin1-to-string last)) @@ -1933,10 +1933,10 @@ (assq 'byte-code (symbol-function 'byte-optimize-form)) (let ((byte-optimize nil) (byte-compile-warnings nil)) - (mapcar '(lambda (x) - (or noninteractive (message "compiling %s..." x)) - (byte-compile x) - (or noninteractive (message "compiling %s...done" x))) + (mapcar (lambda (x) + (or noninteractive (message "compiling %s..." x)) + (byte-compile x) + (or noninteractive (message "compiling %s...done" x))) '(byte-optimize-form byte-optimize-body byte-optimize-predicate |