From 1b8f69147bd57d5eb815fdcd3c3e2c359e23fc43 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 5 Jul 2006 16:58:41 +0000
Subject: [PATCH] Fix bug about LISP::SOCKET-ERROR not being a valid class. 
 From Craig Brent Ludington, cmucl-help, 2006-06-21.

bootfiles/19c/boot-2006-06-3.lisp:
o Bootstrap file to remove LISP::SOCKET-ERROR in favor of
  EXT:SOCKET-ERROR.  (Not really needed, if you just answer the
  restarts in the obvious way.)

code/exports.lisp:
o Export EXT:SOCKET-ERROR.  The LISP package already uses the EXT
  package, so we're set.
---
 bootfiles/19c/boot-2006-06-3.lisp | 7 +++++++
 code/exports.lisp                 | 4 ++--
 2 files changed, 9 insertions(+), 2 deletions(-)
 create mode 100644 bootfiles/19c/boot-2006-06-3.lisp

diff --git a/bootfiles/19c/boot-2006-06-3.lisp b/bootfiles/19c/boot-2006-06-3.lisp
new file mode 100644
index 000000000..24fbe15e5
--- /dev/null
+++ b/bootfiles/19c/boot-2006-06-3.lisp
@@ -0,0 +1,7 @@
+;; Get rid of LISP::SOCKET-ERROR.  It's really EXT:SOCKET-ERROR.
+(in-package "LISP")
+
+(eval-when (compile load eval)
+(without-package-locks
+  (unintern 'socket-error))
+)
diff --git a/code/exports.lisp b/code/exports.lisp
index 11dc88423..002d721b1 100644
--- a/code/exports.lisp
+++ b/code/exports.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/exports.lisp,v 1.252 2006/06/30 18:41:22 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.253 2006/07/05 16:58:41 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1327,7 +1327,7 @@
              "SET-SYMBOL-FUNCTION-CAREFULLY" "SHORT-FLOAT-NEGATIVE-INFINITY"
              "SHORT-FLOAT-POSITIVE-INFINITY" "SHORT-FLOATP"
              "SINGLE-FLOAT-NEGATIVE-INFINITY" "SINGLE-FLOAT-POSITIVE-INFINITY"
-             "SINGLE-FLOATP" "START-BLOCK" "STREAM-COMMAND"
+             "SINGLE-FLOATP" "SOCKET-ERROR" "START-BLOCK" "STREAM-COMMAND"
              "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
 	     "INSTANCEP" "SYMBOLICATE" "TRANSLATE-CHARACTER"
              "TRANSLATE-KEY-EVENT" "TRANSLATE-MOUSE-CHARACTER"
-- 
GitLab