/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.357 by rms, Mon Jun 30 10:33:52 2003 UTC revision 1.358 by rost, Tue Jul 8 16:56:56 2003 UTC
# Line 114  change the list." Line 114  change the list."
114  Evaluate BODY with VAR bound to each car from LIST, in turn.  Evaluate BODY with VAR bound to each car from LIST, in turn.
115  Then evaluate RESULT to get return value, default nil.  Then evaluate RESULT to get return value, default nil.
116    
117  \(dolist (VAR LIST [RESULT]) BODY...)"  \(fn (VAR LIST [RESULT]) BODY...)"
118    (declare (indent 1) (debug ((symbolp form &optional form) body)))    (declare (indent 1) (debug ((symbolp form &optional form) body)))
119    (let ((temp (make-symbol "--dolist-temp--")))    (let ((temp (make-symbol "--dolist-temp--")))
120      `(let ((,temp ,(nth 1 spec))      `(let ((,temp ,(nth 1 spec))
# Line 132  Evaluate BODY with VAR bound to successi Line 132  Evaluate BODY with VAR bound to successi
132  inclusive, to COUNT, exclusive.  Then evaluate RESULT to get  inclusive, to COUNT, exclusive.  Then evaluate RESULT to get
133  the return value (nil if RESULT is omitted).  the return value (nil if RESULT is omitted).
134    
135  \(dotimes (VAR COUNT [RESULT]) BODY...)"  \(fn (VAR COUNT [RESULT]) BODY...)"
136    (declare (indent 1) (debug dolist))    (declare (indent 1) (debug dolist))
137    (let ((temp (make-symbol "--dotimes-temp--"))    (let ((temp (make-symbol "--dotimes-temp--"))
138          (start 0)          (start 0)

Legend:
Removed from v.1.357  
changed lines
  Added in v.1.358

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