From a49bcee6699023cc1c190fb54340a8f5b0d62741 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Mon, 6 Nov 2000 13:02:23 +0000
Subject: [PATCH] Fix ext:remove-oob-handler so it actually works.

---
 code/internet.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/internet.lisp b/code/internet.lisp
index 42f6911d1..0a4367104 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))
-- 
GitLab