From b17464d15d390f4093beddd4bd0d1ed2fc4f2cbc Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 27 Jan 1992 10:56:05 +0000 Subject: [PATCH] Changed NCONC to signal an error if a non-null ATOM appears other than as the last argument. --- code/list.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/list.lisp b/code/list.lisp index cbc778ad8..3a4cd1d49 100644 --- a/code/list.lisp +++ b/code/list.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.9 1991/11/05 15:10:26 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.10 1992/01/27 10:56:05 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -341,7 +341,10 @@ (t (error "Argument is not a list -- ~S." ele))))) (return result))) (null) - (atom (return top-of-top)) + (atom + (if (cdr top) + (error "Argument is not a list -- ~S." top-of-top) + (return top-of-top))) (t (error "Argument is not a list -- ~S." top-of-top)))))) (defun nreconc (x y) -- GitLab