Skip to content
Snippets Groups Projects
Commit 0e067dd6 authored by ram's avatar ram
Browse files

Flush warning.

parent b1ecdd56
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -967,11 +967,12 @@
(defun delq (item list) (defun delq (item list)
"Returns list with all elements with all elements EQ to ITEM deleted." "Returns list with all elements with all elements EQ to ITEM deleted."
(do ((x list (cdr x)) (let ((list list))
(splice '())) (do ((x list (cdr x))
((endp x) list) (splice '()))
(cond ((eq item (car x)) ((endp x) list)
(if (null splice) (cond ((eq item (car x))
(setq list (cdr x)) (if (null splice)
(rplacd splice (cdr x)))) (setq list (cdr x))
(T (setq splice x))))) ; move splice along to include element (rplacd splice (cdr x))))
(T (setq splice x)))))) ; move splice along to include element
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment