[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2011-10-24-gc3ec128

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef (commit)
      from  7243adb2da5a50c966fb9676f72caa1f20ed4116 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Oct 21 19:02:06 2011 -0700

    Clean up docstrings of MAP<foo> to match the argument names.

diff --git a/code/list.lisp b/code/list.lisp
index aa44acd..590564a 100644
--- a/code/list.lisp
+++ b/code/list.lisp
@@ -1056,27 +1056,32 @@
 
 
 (defun mapc (function list &rest more-lists)
-  "Applies fn to successive elements of lists, returns its second argument."
+  "Applies Function to successive elements of each List, and returns
+  its second argument."
   (map1 function (cons list more-lists) nil t))
 
 (defun mapcar (function list &rest more-lists)
-  "Applies fn to successive elements of list, returns list of results."
+  "Applies Function to successive elements of each List, and returns a
+  list of results."
   (map1 function (cons list more-lists) :list t))
 
 (defun mapcan (function list &rest more-lists)
-  "Applies fn to successive elements of list, returns NCONC of results."
+  "Applies Function to successive elements of each List, and returns
+  NCONC of results."
   (map1 function (cons list more-lists) :nconc t))
 
 (defun mapl (function list &rest more-lists)
-  "Applies fn to successive CDRs of list, returns ()."
+  "Applies Function to successive CDRs of each List, and returns ()."
   (map1 function (cons list more-lists) nil nil))
 
 (defun maplist (function list &rest more-lists)
-  "Applies fn to successive CDRs of list, returns list of results."
+  "Applies Function to successive CDRs of each List, and returns list
+  of results."
   (map1 function (cons list more-lists) :list nil))
 
 (defun mapcon (function list &rest more-lists)
-  "Applies fn to successive CDRs of lists, returns NCONC of results."
+  "Applies Function to successive CDRs of each List, and returns NCONC
+  of results."
   (map1 function (cons list more-lists) :nconc nil))
 
 

-----------------------------------------------------------------------

Summary of changes:
 code/list.lisp |   17 +++++++++++------
 1 files changed, 11 insertions(+), 6 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp