[Emacs-diffs] Changes to emacs/lispref/compile.texi

[Juanma Barranquero]

Index: emacs/lispref/compile.texi
diff -c emacs/lispref/compile.texi:1.12 emacs/lispref/compile.texi:1.13
*** emacs/lispref/compile.texi:1.12     Sat Jun 23 12:08:32 2001
--- emacs/lispref/compile.texi  Tue Feb  4 09:47:52 2003
***************
*** 1,6 ****
  @c -*-texinfo-*-
  @c This is part of the GNU Emacs Lisp Reference Manual.
! @c Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. 
  @c See the file elisp.texi for copying conditions.
  @setfilename ../info/compile
  @node Byte Compilation, Advising Functions, Loading, Top
--- 1,6 ----
  @c -*-texinfo-*-
  @c This is part of the GNU Emacs Lisp Reference Manual.
! @c Copyright (C) 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc.
  @c See the file elisp.texi for copying conditions.
  @setfilename ../info/compile
  @node Byte Compilation, Advising Functions, Loading, Top
***************
*** 64,70 ****
  (defun silly-loop (n)
    "Return time before and after N iterations of a loop."
    (let ((t1 (current-time-string)))
!     (while (> (setq n (1- n)) 
                0))
      (list t1 (current-time-string))))
  @result{} silly-loop
--- 64,70 ----
  (defun silly-loop (n)
    "Return time before and after N iterations of a loop."
    (let ((t1 (current-time-string)))
!     (while (> (setq n (1- n))
                0))
      (list t1 (current-time-string))))
  @result{} silly-loop
***************
*** 530,536 ****
  @group
  0   constant 1              ; @r{Push 1 onto stack.}
  
! 1   varref   integer        ; @r{Get value of @code{integer}} 
                              ;   @r{from the environment}
                              ;   @r{and push the value}
                              ;   @r{onto the stack.}
--- 530,536 ----
  @group
  0   constant 1              ; @r{Push 1 onto stack.}
  
! 1   varref   integer        ; @r{Get value of @code{integer}}
                              ;   @r{from the environment}
                              ;   @r{and push the value}
                              ;   @r{onto the stack.}
***************
*** 573,579 ****
  @group
                              ; @r{Stack now contains:}
                              ;   @minus{} @r{decremented value of 
@code{integer}}
!                             ;   @minus{} @address@hidden 
                              ;   @minus{} @r{value of @code{integer}}
                              ;   @minus{} @address@hidden
  @end group
--- 573,579 ----
  @group
                              ; @r{Stack now contains:}
                              ;   @minus{} @r{decremented value of 
@code{integer}}
!                             ;   @minus{} @address@hidden
                              ;   @minus{} @r{value of @code{integer}}
                              ;   @minus{} @address@hidden
  @end group
***************
*** 616,622 ****
  (defun silly-loop (n)
    "Return time before and after N iterations of a loop."
    (let ((t1 (current-time-string)))
!     (while (> (setq n (1- n)) 
                0))
      (list t1 (current-time-string))))
       @result{} silly-loop
--- 616,622 ----
  (defun silly-loop (n)
    "Return time before and after N iterations of a loop."
    (let ((t1 (current-time-string)))
!     (while (> (setq n (1- n))
                0))
      (list t1 (current-time-string))))
       @result{} silly-loop
***************
*** 717,723 ****
  @end group
  
  @group
! 19  constant current-time-string  ; @r{Push} 
                                    ;   @address@hidden
                                    ;   @r{onto top of stack.}
  @end group
--- 717,723 ----
  @end group
  
  @group
! 19  constant current-time-string  ; @r{Push}
                                    ;   @address@hidden
                                    ;   @r{onto top of stack.}
  @end group