Skip to content
Snippets Groups Projects
Commit 1b8f6914 authored by rtoy's avatar rtoy
Browse files

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.
parent 435562dd
No related branches found
No related tags found
No related merge requests found
;; 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))
)
......@@ -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"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment