From c3ec1280d301ba9af8b1492b51c5e015bfb1b3ef Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 21 Oct 2011 19:02:06 -0700
Subject: [PATCH] Clean up docstrings of MAP<foo> to match the argument names.

---
 code/list.lisp | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/code/list.lisp b/code/list.lisp
index aa44acd27..590564a46 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))
 
 
-- 
GitLab