From 19ed56f3ad1dfd4cb41b3c030ec9aa3d9d2e115f Mon Sep 17 00:00:00 2001 From: agoncharov <agoncharov> Date: Fri, 17 Jul 2009 14:27:10 +0000 Subject: [PATCH] A slight change of wording in the first sentence (and a new line after it). --- code/list.lisp | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/code/list.lisp b/code/list.lisp index cc4b707ca..2b9367136 100644 --- a/code/list.lisp +++ b/code/list.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.36 2009/07/17 02:15:04 agoncharov Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.37 2009/07/17 14:27:10 agoncharov Rel $") ;;; ;;; ********************************************************************** ;;; @@ -256,15 +256,15 @@ ;;; using splice which cdr's down the end of the new list (defun append (&rest args) - "Usually, but not always, returns a new list that is the - concatenation of Args. Each Arg in Args must be a proper list except - the last one, which may be any object. The function is not - destructive: for all but the last Arg, its list structure is copied. - The last argument is not copied; it becomes the cdr of the final - dotted pair of the concatenation of the preceding lists, or is - returned directly if there are no preceding non-empty lists. In the - latter case, if the last Arg is not a list, the returned value is - not a list either." + "Typically, returns a new list that is the concatenation of Args. + + Each Arg in Args must be a proper list except the last one, which + may be any object. The function is not destructive: for all but the + last Arg, its list structure is copied. The last argument is not + copied; it becomes the cdr of the final dotted pair of the + concatenation of the preceding lists, or is returned directly if + there are no preceding non-empty lists. In the latter case, if the + last Arg is not a list, the returned value is not a list either." (do ((top args (cdr top))) ;;Cdr to first non-null list. ((atom top) '()) -- GitLab