diff --git a/code/internet.lisp b/code/internet.lisp index 42f6911d16d19f02a8ecba513b3537afc9b24e46..0a4367104b90647321e9384a1fae2a76bb36571b 100644 --- a/code/internet.lisp +++ b/code/internet.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/internet.lisp,v 1.26 2000/09/20 00:34:42 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.27 2000/11/06 13:02:23 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -466,7 +466,7 @@ struct in_addr { (let ((handlers (assoc fd *oob-handlers*))) (declare (list handlers)) (when handlers - (let ((remaining (delete char handlers + (let ((remaining (delete char (cdr handlers) :test #'eql :key #'car))) (declare (list remaining))