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