[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Kenichi Handa]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.114 
emacs/lisp/emacs-lisp/bytecomp.el:2.115
*** emacs/lisp/emacs-lisp/bytecomp.el:2.114     Mon Sep  9 17:41:34 2002
--- emacs/lisp/emacs-lisp/bytecomp.el   Wed Sep 18 12:02:49 2002
***************
*** 10,16 ****
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.114 $")
  
  ;; This file is part of GNU Emacs.
  
--- 10,16 ----
  
  ;;; This version incorporates changes up to version 2.10 of the
  ;;; Zawinski-Furuseth compiler.
! (defconst byte-compile-version "$Revision: 2.115 $")
  
  ;; This file is part of GNU Emacs.
  
***************
*** 1924,1930 ****
           (while (setq form (cdr form))
             (setq index (1+ index))
             (insert " ")
!            (cond ((and (numberp specindex) (= index specindex))
                    (let ((position
                           (byte-compile-output-as-comment
                            (cons (car form) (nth 1 form))
--- 1924,1941 ----
           (while (setq form (cdr form))
             (setq index (1+ index))
             (insert " ")
!            (cond ((and (numberp specindex) (= index specindex)
!                        ;; Don't handle the definition dynamically
!                        ;; if it refers (or might refer)
!                        ;; to objects already output
!                        ;; (for instance, gensyms in the arg list).
!                        (let (non-nil)
!                          (dotimes (i (length print-number-table))
!                            (if (aref print-number-table i)
!                                (setq non-nil t)))
!                          (not non-nil)))
!                   ;; Output the byte code and constants specially
!                   ;; for lazy dynamic loading.
                    (let ((position
                           (byte-compile-output-as-comment
                            (cons (car form) (nth 1 form))