diff --git a/bootfiles/19c/boot-2006-06-3.lisp b/bootfiles/19c/boot-2006-06-3.lisp new file mode 100644 index 0000000000000000000000000000000000000000..24fbe15e5528e884024e1466d05dfb733f7bff1d --- /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 11dc88423302004ee3b03386b944e1c26f272957..002d721b10cfce6f5bffded3559d02e4d709ba7d 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"