From 0e067dd62dab44b58ca5eeb1b4c7de474b31e844 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 25 Aug 1993 01:41:24 +0000 Subject: [PATCH] Flush warning. --- code/list.lisp | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/code/list.lisp b/code/list.lisp index 619e2549a..06848365e 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.16 1993/08/25 01:13:52 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/list.lisp,v 1.17 1993/08/25 01:41:24 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -967,11 +967,12 @@ (defun delq (item list) "Returns list with all elements with all elements EQ to ITEM deleted." - (do ((x list (cdr x)) - (splice '())) - ((endp x) list) - (cond ((eq item (car x)) - (if (null splice) - (setq list (cdr x)) - (rplacd splice (cdr x)))) - (T (setq splice x))))) ; move splice along to include element + (let ((list list)) + (do ((x list (cdr x)) + (splice '())) + ((endp x) list) + (cond ((eq item (car x)) + (if (null splice) + (setq list (cdr x)) + (rplacd splice (cdr x)))) + (T (setq splice x)))))) ; move splice along to include element -- GitLab