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