[Sbcl-commits] CVS: sbcl/src/code target-thread.lisp,1.1,1.2 thread.lisp,1.1,1.2 serve-event.lisp,1.10,1.11

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv14318/src/code

Modified Files:
	serve-event.lisp 
Added Files:
	target-thread.lisp thread.lisp 
Log Message:
0.pre8.10
	Add some files needed by the soon-to-be-merged thread support

	Some non-invasive (supposed not to break unithread builds) 
	changes to existing files 
	... add SB-THREAD package
	... fs-segment-prefix "instruction" definition
	... some documentation

	(OK, so it will break McCLIM.  That's easily fixable, though)





Index: serve-event.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/serve-event.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- serve-event.lisp	26 Feb 2003 02:19:09 -0000	1.10
+++ serve-event.lisp	26 Mar 2003 01:04:42 -0000	1.11
@@ -279,8 +279,7 @@
 
 ;;; When a *periodic-polling-function* is defined the server will not
 ;;; block for more than the maximum event timeout and will call the
-;;; polling function if it does time out. One important use of this
-;;; is to periodically call process-yield.
+;;; polling function if it does time out.
 (declaim (type (or null function) *periodic-polling-function*))
 (defvar *periodic-polling-function* nil)
 (declaim (type (unsigned-byte 29) *max-event-to-sec* *max-event-to-usec*))